3.3.8 Cỏc form bỏo cỏo
3.3.81 Bỏo cỏo doanh thu theo khỏch hàng
3.3.8.3 Bỏo cỏo doanh thu theo nhõn viờn
3.4 Một số đoạn code tiờu biểu:3.4.1 Code Form bỏo cỏo: 3.4.1 Code Form bỏo cỏo:
Private Sub cmdin_Click() 'Bat dau
sql = "select ct.sohhd,ct.MaHang,TenHang,ct.SoLuong,DonGia,ngaylap from DMHangHoa as DM,HoaDonBanHang as HD,ChiTietHoaDon as ct where ct.mahang=dm.mahang and hd.sohhd=ct.sohhd and ct.mahang='" & DBCMa.Text & "'" & _
" and datediff('d',NgayLap,date()) <" & DateDiff("d", TuNgay, Date) & _
" and datediff('d',NgayLap,date()) >" & DateDiff("d", DenNgay, Date) Set myrs = mydb.OpenRecordset(sql)
If myrs.RecordCount = 0 Then
If MsgBox("Mặt hàng : " & txtten & " khụng được bỏn trong khoảng thời gian trờn. Bạn cú muốn tiếp tục nữa khụng?", vbCritical + vbQuestion + vbYesNo, "Bỏo lỗi") = vbYes Then
DBCMa.SetFocus Else
Unload Me End If
Else
'Doi dinh dang month -> day truoc khi in 'Tu ngay
Ngay = Day(TuNgay) Thang = Month(TuNgay) Nam = Year(TuNgay) If Day(TuNgay) < 10 Then
Ngay = 0 & Day(TuNgay) End If
If Month(TuNgay) < 10 Then Thang = 0 & Month(TuNgay) End If
ngay1 = Ngay & "/" & Thang & "/" & Nam 'Den ngay
Ngay = Day(DenNgay) Thang = Month(DenNgay) Nam = Year(DenNgay) If Day(DenNgay) < 10 Then Ngay = 0 & Day(DenNgay) End If
If Month(DenNgay) < 10 Then Thang = 0 & Month(DenNgay) End If
ngay2 = Ngay & "/" & Thang & "/" & Nam 'Bat dau in
rptbcdshb.ReportFileName = App.Path & "\reports\bcdshb.rpt" rptbcdshb.SetTablePrivateData 0, 3, myrs
rptbcdshb.Formulas(1) = "Tenhang='" & txtten & "'" rptbcdshb.Formulas(2) = "TuNgay='" & ngay1 & "'" rptbcdshb.Formulas(3) = "DenNgay='" & ngay2 & "'" rptbcdshb.PrintReport
End If End Sub
Private Sub cmdThoat_Click() Unload Me
End Sub
Private Sub DBCMa_Click(Area As Integer)
sql = "select tenhang from DmHanghoa where mahang='" & DBCMa.BoundText & "'"
Set myrs = mydb.OpenRecordset(sql) If Not myrs.EOF Then
txtten = myrs!TenHang End If
myrs.Close End Sub
Private Sub DenNgay_lostfocus() If IsDate(DenNgay) = False Then
If MsgBox("Ngày(thỏng) khụng hợp lệ, xin vui lũng nhập lại", vbCritical + vbQuestion + vbOKOnly, "Bỏo lỗi") = vbOK Then
DenNgay.SetFocus End If
ElseIf IsNull(DenNgay) = True Then
If MsgBox("Ngày tỡm kiếm khụng được bỏ trống, xin vui lũng nhập vào.", vbCritical + vbQuestion + vbOKOnly, "Bỏo lỗi") = vbOK Then
DenNgay.SetFocus End If
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\data\FM.mdb" DenNgay.Enabled = False
End Sub
Private Sub TuNgay_lostfocus() If IsDate(TuNgay) = False Then
If MsgBox("Ngày(thỏng) khụng hợp lệ, xin vui lũng nhập lại.", vbCritical + vbQuestion + vbOKOnly, "Bỏo lỗi") = vbOK Then
TuNgay.SetFocus End If
ElseIf IsNull(TuNgay) = True Then
If MsgBox("Ngày tỡm kiếm khụng được bỏ trống, xin vui lũng nhập vào.", vbCritical + vbQuestion + vbOKOnly, "Bỏo lỗi") = vbOK Then
TuNgay.SetFocus End If Else DenNgay.Enabled = True DenNgay.SetFocus End If End Sub
3.4.2 Code form hàng húa
Private Sub cmdadd_Click() them = True
sua = False Data1.Recordset.AddNew cmdadd.Enabled = False cmdedit.Enabled = False cmddel.Enabled = False cmdupdate.Enabled = True txtma.Enabled = True txtten.Enabled = True txtdg.Enabled = True txtdvt.Enabled = True txtsl.Enabled = True txtma.SetFocus End Sub
Private Sub cmddel_Click()
Connection.OpenData ("ChiTietHoaDon") Do Until rs.EOF
If txtma.Text = rs!MaHang Then
MsgBox ("Bạn khụng thể xoỏ được!") Exit Sub
End If
rs.MoveNext Loop
Connection.Closedata
Xacnhan = MsgBox("Bạn cú thực sự muốn xúa khụng?", vbYesNo + vbDefaultButton2, "Xỏc nhận xoỏ!")
Data1.Recordset.Delete Data1.Recordset.MoveLast End If
End Sub
Private Sub cmdedit_Click() sua = True them = False Data1.Recordset.Edit cmdedit.Enabled = False cmdadd.Enabled = False cmddel.Enabled = False cmdupdate.Enabled = True txtma.Enabled = True txtten.Enabled = True txtdvt.Enabled = True txtdg.Enabled = True txtsl.Enabled = True txtma.SetFocus End Sub
Private Sub cmdend_Click() Unload frmDMHangHoa MDIFormmain.Show End Sub
Private Sub cmdKiemTra_Click() Dim sql As String
sql = "select * from DMHangHoa where soluong<=" & TxtGioiHan Data1.RecordSource = sql
Data1.Refresh End Sub
Private Sub cmdTim_Click()
sql = "select * from DMHangHoa where MaHang like '" & txttim & "*'" & _ " or TenHang like '" & txttim & "*'" & ""
Data1.RecordSource = sql Data1.Refresh
End Sub
Private Sub cmdupdate_Click() cmdedit.Enabled = True cmdadd.Enabled = True cmddel.Enabled = True cmdupdate.Enabled = False txtma.Enabled = False txtten.Enabled = False txtsl.Enabled = False txtdg.Enabled = False txtdvt.Enabled = False Data1.Recordset.Update Data1.Refresh End Sub
Private Sub Command1_Click() Unload Me
frmDMHangHoa.Show 1 End Sub
Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then
SendKeys "{TAB}" KeyAscii = 0
End If End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\data\FM.mdb" cmdupdate.Enabled = False txtma.Enabled = False txtten.Enabled = False txtdg.Enabled = False txtdvt.Enabled = False txtsl.Enabled = False End Sub
Private Sub txtma_LostFocus() Dim dem1 As Integer
If sua = True Then If txtma = "" Then
If MsgBox("Bạn chưa nhập mó hàng!", vbOKOnly + vbCritical + vbQuestion, "Xỏc nhận") = vbOK Then
txtma.SetFocus
cmdupdate.Enabled = True End If
End If
If txtma <> Data1.Recordset.Fields("MaHang") Then
sql = "select count(MaHang) as dem from DMHangHoa where MaHang='" & txtma & "'"
Set myrs = mydb.OpenRecordset(sql) myrs.MoveFirst
dem1 = myrs!dem myrs.Close
If dem1 > 0 Then
If MsgBox("Mó vừa nhập đó tồn tại, xin vui lũng nhập mó mới!", vbOKOnly + vbCritical + vbQuestion, "Chỳ ý") = vbOK Then
txtma.SetFocus cmdupdate.Enabled = True cmddel.Enabled = False cmdedit.Enabled = False cmdadd.Enabled = False End If End If End If End If
If them = True Then If txtma = "" Then
If MsgBox("Bạn chưa nhập mó hàng!", vbOKOnly + vbCritical + vbQuestion, "Xỏc nhận") = vbOK Then
txtma.SetFocus
cmdupdate.Enabled = True End If
End If
sql = "select MaHang from DMHangHoa where MaHang='" & txtma & "'" Set myrs = mydb.OpenRecordset(sql)
If myrs.RecordCount > 0 Then dem1 = 1 Else dem1 = 0 End If myrs.Close If dem1 = 1 Then
If MsgBox("Mó vừa nhập đó tồn tại, xin vui lũng nhập mó mới!", vbOKOnly + vbCritical + vbQuestion, "Chỳ ý") = vbOK Then
txtma.SetFocus cmdupdate.Enabled = True cmddel.Enabled = False cmdedit.Enabled = False cmdadd.Enabled = False End If End If End If End Sub
Private Sub TxtTim_Change() If chkhienthi = 1 Then
sql = "select * from DMHangHoa where TenHang like '" & txttim & "*'" & _ " or MaHang like '" & txttim & "*'" & ""
Data1.RecordSource = sql Data1.Refresh
End If End Sub
3.4.3 Code form login
Dim dem As Integer Dim ten As String Dim mk As String
Private Sub cmdend_Click() End
End Sub
Private Sub cmdok_Click() ten = txtten.Text
mk = txtmk.Text
sql = "select * from DangNhap where Username='" & ten & "' and Password='" & mk & "'"
Set myrs = mydb.OpenRecordset(sql) If myrs.AbsolutePosition = 0 Then Unload frmlogin
MDIFormmain.Show Else
dem = dem + 1 If dem >= 3 Then
MsgBox "Bạn đã đăng nhập sai quá 3 lần. Chơng trình tự động kết thúc" End
Else
MsgBox "Tên hoặc mật khẩu không đúng.Xin vui lòng nhập lại!" txtten.SetFocus
End If myrs.Close End If End Sub
Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then
SendKeys "{TAB}" KeyAscii = 0
End If End Sub
Private Sub Form_Load() dem = 0
Set myrs = mydb.OpenRecordset("Ghinhomatkhau") If myrs.RecordCount > 0 Then
myrs.MoveLast
txtten = myrs!TenTruyCap txtmk = myrs!MatKhau
txtten = "" txtmk = "" End If myrs.Close End Sub
Private Sub Form_Unload(Cancel As Integer) If chklogin.Value = 1 Then
sql = "insert into Ghinhomatkhau values('" & ten & "','" & mk & "')" mydb.Execute sql
Else
sql = "delete * from Ghinhomatkhau" mydb.Execute sql
End If End Sub
Kết luận
Việc ứng dụng cụng nghệ thụng tin trong quản lý thực sự là rất cần thiết để cỏc doanh nghiệp tăng cường ưu thế cạnh tranh. Phần mềm quản lý hoạt động kinh doanh đú làm thay đổi rất nhiều hoạt động của bộ phận được sử dụng theo hướng tiện dụng hơn, xử lý cỏc nghiệp vụ nhanh chỳng hơn. Với chức năng phõn quyền người sử dụng, mỗi nhõn viờn sẽ được cấp một tài khoản đăng nhập tạo điều kiờn dễ dàng quản lý húa đơn lập theo nhõn viờn. Xõy dựng được cỏc danh mục tương ứng với cỏc thực thể xưởng sản xuất, khỏch hàng…
Em hy vọng phần mềm này cú thể giải quyết được những khú khăn và vướng mắc trong cụng tỏc quản lý bỏn hàng của cụng ty và giảm được những chi phớ phỏt sinh khụng đỏng cú, nõng cao hiệu quả nguồn nhõn lực.
Em xin gửi lời cảm ơn tới Phũng Bỏn Hàng Cụng Ty Việt Nam Stanley đó nhiệt tỡnh giỳp đỡ em trong quỏ trỡnh tỡm hiểu và thiết kế phần mềm.. Xin gửi lời cảm ơn đến Giảng Viờn Bựi Thế Ngũ, thầy đó giỳp đỡ và hướng dẫn tận tỡnh, cung cấp nhiều kinh nghiệm quý bỏu trong cụng tỏc để em cú thể hoàn thành chuyờn đề này. Tuy vậy do thời gian cú hạn và hạn chế của người thực hiện cú thể đề tài cú nhiều thiếu sút, mong được cỏc thầy gúp ý cho chuyờn đề được thực hiện thành cụng !
Tài liệu tham khảo
Giỏo trỡnh “Hệ thống thụng tin quản lý” xuất bản năm 2000 nhà xuất bản Thống Kờ của cỏc tỏc giả: T.S Trương Văn Tỳ và T.S Trần Thị Song Minh.
Bài giảng mụn Cụng Nghệ Phần Mềm của PGS.TS Hàn Viết Thuận.. Bài giảng mụn Hệ Thống Thụng Tin Quản Lý của TS Trương Văn Tỳ. Bài giảng mụn Lập Trỡnh của Th.S Trỡnh Hoài Sơn.