Một số giao diện chớnh

Một phần của tài liệu Cơ sở phương pháp luận của phần mềm ứng dụng (Trang 67)

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.

Một phần của tài liệu Cơ sở phương pháp luận của phần mềm ứng dụng (Trang 67)

Tải bản đầy đủ (DOC)

(90 trang)
w