IV. Mô tả một số Form
1. Form quản lý hàng hoá
Khi có thông tin về mặt hàng mới ta có thể thực hiện nhập mới cơ sở dữ liệu bằng cỏch: Bạn vào DANH MỤC→DANH MỤC HÀNG HểA khi đú màn hình quản lý sẽ hiện ra như sau:
2.Form quản lý nhân viên
Để xem thông tin và chỉnh sửa thông tin nhân viên của cửa hàng thì vào danh mục NHÂN VIÊN
3 Form quản lý Hoá đơn
4.Form quản lý Công nợ
Để biết chi tiết công nợ khách hàng và nhà cung cấp sản phẩm. Vào Hồ sơ chọn CONGNO lúc đó màn hình CONGNO xuất hiện với hai lựa chọn như sau:
Từ đây ta có thể biết các thông tin về công nợ khách hàng cũng như nhà cung cấp và chỉnh sửa với các nút lệnh trên màn hình làm việc.
5.Form quản lý nhập hàng
Khi cập nhật một chứng từ ta vào nhập hàng→Danh sách phiếu nhập kho, màn hình quản lý phiếu nhập kho sẽ hiện ra như sau:
6.Form quản lý Nhà cung cấp
Để biết danh sách các nhà cung cấp sản phẩm cho cửa hàng vào Danh mục Nhà cung cấp thì màn hình hiện ra như sau :
Từ đây ta có thể nhập tên nhà cung cấp mới hay việc xoá bỏ đi một nhà cung cấp nào đó không còn liên quan đến cửa hàng
7.Form quản lý khách hàng
Để biết khách nào là khách quen khi tới cửa hàng mua sản phẩm hay tìm theo mã khách hàng của một khách nào đó thì vào Danh mục Khách hàng thì màn hình quản lý hiện ra như sau:
Sau khi hiện ra màn hình quản lý ta có thể thực hiện thêm mới, sửa,nhập....bằng cách ấn vào các nút lệnh và cũng có thể xoá tên một khách hàng nào đó nếu không có dữ liệu liên quan. Tương tự như vậy có thể thực hiện việc cập nhật các thông tin của các form còn lại.
*Một số code của các form trong chương trình : Option Compare Database
Private Sub CMD_CUOI_Click() DoCmd.GoToRecord , , acLast Me.CMD_KE.Enabled = False Me.CMD_TRUOC.Enabled = True End Sub
Private Sub CMD_DAU_Click()
DoCmd.GoToRecord , , acFirst Me.CMD_TRUOC.Enabled = False Me.CMD_KE.Enabled = True End Sub
Private Sub CMD_KE_Click()
On Error GoTo Err_CMD_KE_Click DoCmd.GoToRecord , , acNext Exit_CMD_KE_Click:
Exit Sub
Err_CMD_KE_Click:
MsgBox "Day la mau tin cuoi cung!"
Resume Exit_CMD_KE_Click End Sub
Private Sub CMD_LUU_Click()
DoCmd.RunCommand acCmdSaveRecord End Sub
Private Sub CMD_THEM_Click() DoCmd.GoToRecord , , acNewRec End Sub
Private Sub CMD_THOAT_Click()
DoCmd.Close End Sub
Private Sub cmd_TIM_Click() Dim t
Dim R As Recordset
Set R = Me.RecordsetClone
t = InputBox("Nhap ten nhan vien can tim") R.FindFirst "[Ten]='" & t & "'"
If R.NoMatch Then
MsgBox "Khong nhan vien can tim"
Else
Me.Bookmark = R.Bookmark End If
R.Close End Sub
Private Sub CMD_TRUOC_Click()
On Error GoTo Err_CMD_TRUOC_Click DoCmd.GoToRecord , , acPrevious
Exit_CMD_TRUOC_Click:
Exit Sub
Err_CMD_TRUOC_Click:
MsgBox "Day la mau tin dau tien!"
Resume Exit_CMD_TRUOC_Click End Sub
Private Sub CMD_XOA_Click()
If MsgBox("Ban muon xoa mau tin nay khong?", vbOKCancel) =vbCancel Then Exit Sub
DoCmd.SetWarnings (False) Me.AllowEdits = True
Me.Repaint
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 DoCmd.SetWarnings (True)
Me.AllowEdits = False Me.Repaint
End Sub
Private Sub Form_Timer() Dim S As String
S = Me.Caption
S = Right(S, Len(S) - 1) & Left(S, 1) Me.Caption = S
End Sub
Private Sub KE_Click()
DoCmd.GoToRecord , , acNext End Sub
Private Sub LUU_Click()
DoCmd.RunCommand acCmdSaveRecord End Sub
Private Sub MOI_Click()
DoCmd.GoToRecord , , acNewRec End Sub
Private Sub TK_Click() Dim t
Dim R As Recordset
Set R = Me.RecordsetClone
t = InputBox("Nhap ten nhan vien can tim") R.FindFirst "[Ten]='" & t & "'"
If R.NoMatch Then
MsgBox "Khong nhan vien can tim"
Else
Me.Bookmark = R.Bookmark End If
R.Close End Sub
Private Sub TRUOC_Click()
DoCmd.GoToRecord , , acPrevious End Sub
Private Sub XOA_Click()
If MsgBox("Ban muon xoa mau tin nay khong?", vbOKCancel) = vbCancel Then Exit Sub
DoCmd.SetWarnings (False) Me.AllowEdits = True
Me.Repaint
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 DoCmd.SetWarnings (True)
Me.AllowEdits = False Me.Repaint
End Sub