Chuyên đề Xây dựng và phát triển hệ thông thông tin quản lý tiền gửi và tiền vay của khách hàng tại Ngân hàng Nông nghiệp và Phát triển Nông thôn – Chi nhánh Láng Hạ

hem.Visible = False CmdSua.Visible = False CmdXoa.Enabled = False CmdGhi.Visible = True CmdKhong.Visible = True CmdThoat.Enabled = False AdoKH.Recordset.AddNew txtMaKH.SetFocus Unlocked xThem = True Exit_Them_click: Exit Sub Err_Them_click: MsgBox Err.Description Resume Exit_Them_click End Sub Private Sub CmdThoat_Click() Unload Me End Sub Private Sub CmdTruoc_Click() If AdoKH.Recordset.BOF Then MsgBox "Ban dang o ban ghi dau tien", vbOKOnly, "Thong bao" Else AdoKH.Recordset.MovePrevious End If End Sub Private Sub CmdXoa_Click() On Error GoTo Err_Xoa_click CmdThem.Visible = True CmdSua.Visible = True CmdXoa.Enabled = True CmdGhi.Visible = False CmdKhong.Visible = False CmdThoat.Enabled = True Dim TraLoi TraLoi = MsgBox("Ban muon xoa Ma khach hang " & _ AdoKH.Recordset.Fields("TenKH") & " (cung voi cac thong tin lien quan)?" _ , vbYesNo, "Thong bao") If TraLoi = 6 Then AdoKH.Recordset.Delete AdoKH.Recordset.MoveNext AdoKH.Recordset.Clone ' If AdoKH.Recordset.EOF Then ' AdoKH.Recordset.MoveLast 'End If End If locked Exit_Xoa_click: Exit Sub Err_Xoa_click: MsgBox "Khong the xoa ban ghi nay!" Resume Exit_Xoa_click End Sub Private Sub Form_Load() Dim so As Integer, ngay, thang, nam thang = Month(Now()) ngay = Day(Now()) nam = Year(Now()) Me.LblThang = thang Me.LblNgay = ngay Me.LblNam = nam CmdThoat.Visible = True CmdSua.Visible = True CmdKhong.Visible = False CmdGhi.Visible = False CmdXoa.Visible = True CmdThem.Visible = True AdoKH.Visible = False DGridKH.AllowDelete = False DGridKH.AllowUpdate = False DGridKH.AllowRowSizing = False DGridKH.AllowArrows = False locked AdoKH.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\QuanlyNH.mdb;Persist Security Info=False" NapAdoKH End Sub Private Sub locked() txtMaKH.locked = True TxtTenKH.locked = True txtDiaChi.locked = True txtTel.locked = True txtEmail.locked = True lblTruong.Enabled = False lblTimKiem.Enabled = False CmbField.Enabled = False txtFind.Enabled = False DGridKH.AllowDelete = False DGridKH.AllowUpdate = False DGridKH.AllowRowSizing = False DGridKH.AllowArrows = False End Sub Private Sub NapAdoKH() AdoKH.CommandType = adCmdText AdoKH.RecordSource = "SELECT * from TblDMKH order by MaKH" AdoKH.Refresh End Sub Private Sub txtFind_Change() If CmbField.Text = "" Or txtFind = "" Then AdoKH.Recordset.Filter = "" AdoKH.Refresh Exit Sub End If AdoKH.Recordset.Filter = CmbField & " LIKE '*" & txtFind & "*'" End Sub Form Danh mục khách hàng đến vay tiền Private Sub AdoKHVay_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) lblResult.Caption = "Khách hàng hiện tại có" & AdoKHVay.Recordset.RecordCount txtSoKH.Text = "Khách hàng " & AdoKHVay.Recordset.AbsolutePosition & _ " trong " & AdoKHVay.Recordset.RecordCount End Sub Private Sub CmdCuoi_Click() On Error GoTo Err_Cuoi_Click If AdoKHVay.Recordset.EOF Then MsgBox "Ban dang o ban ghi cuoi", vbOKOnly, "Thong bao" Else AdoKHVay.Recordset.MoveLast End If Exit_Cuoi_Click: Exit Sub Err_Cuoi_Click: MsgBox Err.Description Resume Exit_Cuoi_Click End Sub Private Sub CmdDau_Click() On Error GoTo Err_Dau_Click If AdoKHVay.Recordset.BOF Then MsgBox "Ban dang o ban ghi dau tien", vbOKOnly, "Thong bao" Else AdoKHVay.Recordset.MoveFirst End If Exit_Dau_Click: Exit Sub Err_Dau_Click: MsgBox Err.Description Resume Exit_Dau_Click End Sub Private Sub CmdGhi_Click() On Error GoTo Err_ghi_click CmdThem.Visible = True CmdSua.Visible = True CmdXoa.Enabled = True CmdGhi.Visible = False CmdKhong.Visible = False CmdThoat.Enabled = True AdoKHVay.Recordset.UpdateBatch adAffectAll locked xThem = False Exit_ghi_click: DGridKH.SetFocus Exit Sub Err_ghi_click: MsgBox "Data is invalid." Resume Exit_ghi_click End Sub Private Sub CmdKhong_Click() On Error GoTo Err_Khong_Click CmdThem.Visible = True CmdSua.Visible = True CmdXoa.Enabled = True CmdGhi.Visible = False CmdKhong.Visible = False CmdThoat.Enabled = True AdoKHVay.Refresh AdoKHVay.Recordset.Clone AdoKHVay.Recordset.MoveLast locked CmdThem.SetFocus xThem = False Exit_Khong_Click: DGridKH.SetFocus Exit Sub Err_Khong_Click: MsgBox "Data is invalid!" Resume Exit_Khong_Click End Sub Private Sub CmdSau_Click() If AdoKHVay.Recordset.EOF Then MsgBox "ban dang o ban ghi cuoi", vbOKOnly, "Thong bao" Else AdoKHVay.Recordset.MoveNext End If End Sub Private Sub CmdSearch_Click() CmdGhi.Visible = True CmdSua.Visible = True CmdXoa.Visible = True CmdThem.Visible = False CmdSearch.Visible = False CmdStop.Visible = True CmdThoat.Enabled = False Unlocked AddItem CmbField.SetFocus End Sub Private Sub Unlocked() txtMaKH.locked = False TxtTenKH.locked = False txtDiaChi.locked = False txtTel.locked = False txtEmail.locked = False lblTruong.Enabled = True lblTimKiem.Enabled = True CmbField.Enabled = True txtFind.Enabled = True DGridKH.AllowDelete = False DGridKH.AllowUpdate = False DGridKH.AllowRowSizing = False DGridKH.AllowArrows = False End Sub Private Sub AddItem() CmbField.AddItem ("MaKH") CmbField.AddItem ("TenKH") CmbField.AddItem ("DiaChi") CmbField.AddItem ("Tel") CmbField.AddItem ("Email") End Sub Private Sub CmdStop_Click() CmdThem.Visible = True CmdXoa.Visible = True CmdSua.Visible = True CmdSearch.Visible = True CmdStop.Visible = False CmbField.Clear CmdThoat.Enabled = True txtFind.Text = "" locked End Sub Private Sub CmdSua_Click() On Error GoTo Err_Sua_click CmdThem.Visible = False CmdSua.Visible = False CmdXoa.Enabled = False CmdGhi.Visible = True CmdKhong.Visible = True CmdThoat.Enabled = False recnum = AdoKHVay.Recordset.Bookmark Unlocked xThem = False Exit_Sua_click: Exit Sub Err_Sua_click: MsgBox Err.Description Resume Exit_Sua_click End Sub Private Sub CmdThem_Click() On Error GoTo Err_Them_click CmdThem.Visible = False CmdSua.Visible = False CmdXoa.Enabled = False CmdGhi.Visible = True CmdKhong.Visible = True CmdThoat.Enabled = False AdoKHVay.Recordset.AddNew DGridKH.SetFocus Unlocked xThem = True Exit_Them_click: Exit Sub Err_Them_click: MsgBox Err.Description Resume Exit_Them_click End Sub Private Sub CmdThoat_Click() Unload Me End Sub Private Sub CmdTruoc_Click() If AdoKHVay.Recordset.BOF Then MsgBox "Ban dang o ban ghi dau tien", vbOKOnly, "Thong bao" Else AdoKHVay.Recordset.MovePrevious End If End Sub Private Sub CmdXoa_Click() On Error GoTo Err_Xoa_click CmdThem.Visible = True CmdSua.Visible = True CmdXoa.Enabled = True CmdGhi.Visible = False CmdKhong.Visible = False CmdThoat.Enabled = True Dim TraLoi TraLoi = MsgBox("Ban muon xoa Ma khach hang " & _ AdoKHVay.Recordset.Fields("TenKH") & " (cung voi cac thong tin lien quan)?" _ , vbYesNo, "Thong bao") If TraLoi = 6 Then AdoKHVay.Recordset.Delete AdoKHVay.Recordset.MoveNext AdoKHVay.Recordset.Clone 'If AdoKHVay.Recordset.EOF Then ' AdoKHVay.Recordset.MoveLast 'End If End If locked Exit_Xoa_click: Exit Sub Err_Xoa_click: MsgBox "Khong the xoa ban ghi nay!" Resume Exit_Xoa_click End Sub Private Sub Form_Load() Dim so As Integer, ngay, thang, nam thang = Month(Now()) ngay = Day(Now()) nam = Year(Now()) Me.LblThang = thang Me.LblNgay = ngay Me.LblNam = nam locked AdoKHVay.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\QuanlyNH.mdb;Persist Security Info=False" NapAdoKHVay End Sub Private Sub locked() txtMaKH.locked = True TxtTenKH.locked = True txtDiaChi.locked = True txtTel.locked = True txtEmail.locked = True lblTruong.Enabled = False lblTimKiem.Enabled = False CmbField.Enabled = False txtFind.Enabled = False DGridKH.AllowDelete = False DGridKH.AllowUpdate = False DGridKH.AllowRowSizing = False DGridKH.AllowArrows = False End Sub Private Sub NapAdoKHVay() AdoKHVay.CommandType = adCmdText AdoKHVay.RecordSource = "SELECT * from TblDMKHVay order by MaKH" AdoKHVay.Refresh End Sub Private Sub txtFind_Change() If CmbField.Text = "" Or txtFind = "" Then AdoKHVay.Recordset.Filter = "" AdoKHVay.Refresh Exit Sub End If AdoKHVay.Recordset.Filter = CmbField & " LIKE '*" & txtFind & "*'" End Sub Form Danh mục nhân viên quản lý chương trình Private Sub AdoNV_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) lblResult.Caption = "Nhân viên hiện tại có " & AdoNV.Recordset.RecordCount txtSoNV.Text = "Nhân viên " & AdoNV.Recordset.AbsolutePosition & _ " trong " & AdoNV.Recordset.RecordCount End Sub Private Sub CmdCuoi_Click() On Error GoTo Err_Cuoi_Click If AdoNV.Recordset.EOF Then MsgBox "Ban dang o ban ghi cuoi", vbOKOnly, "Thong bao" Else AdoNV.Recordset.MoveLast End If Exit_Cuoi_Click: Exit Sub Err_Cuoi_Click: MsgBox Err.Description Resume Exit_Cuoi_Click End Sub Private Sub CmdDau_Click() On Error GoTo Err_Dau_Click If AdoNV.Recordset.BOF Then MsgBox "Ban dang o ban ghi dau tien", vbOKOnly, "Thong bao" Else AdoNV.Recordset.MoveFirst End If Exit_Dau_Click: Exit Sub Err_Dau_Click: MsgBox Err.Description Resume Exit_Dau_Click End Sub Private Sub CmdGhi_Click() On Error GoTo Err_ghi_click CmdThem.Visible = True CmdSua.Visible = True CmdXoa.Enabled = True CmdGhi.Visible = False CmdKhong.Visible = False CmdThoat.Enabled = True AdoNV.Recordset.UpdateBatch adAffectAll CmdThoat.Visible = True CmdSua.Visible = True CmdKhong.Visible = False CmdGhi.Visible = False CmdXoa.Visible = True CmdThem.Visible = True CmdThem.SetFocus xThem = False locked Exit_ghi_click: DGridDMNV.SetFocus Exit Sub Err_ghi_click: MsgBox "Data is invalid." Resume Exit_ghi_click End Sub Private Sub CmdKhong_Click() CmdThem.Visible = True CmdSua.Visible = True CmdXoa.Enabled = True CmdGhi.Visible = False CmdKhong.Visible = False CmdThoat.Enabled = True AdoNV.Refresh AdoNV.Recordset.Clone AdoNV.Recordset.MoveLast CmdThoat.Visible = True CmdSua.Visible = True CmdKhong.Visible = False CmdGhi.Visible = False CmdXoa.Visible = True CmdThem.Visible = True CmdThem.SetFocus xThem = False locked Exit_Khong_Click: DGridDMNV.SetFocus Exit Sub Err_Khong_Click: MsgBox "Data is invalid!" Resume Exit_Khong_Click End Sub Private Sub CmdSau_Click() If AdoNV.Recordset.EOF Then MsgBox "ban dang o ban ghi cuoi", vbOKOnly, "Thong bao" Else AdoNV.Recordset.MoveNext End If End Sub Private Sub CmdSearch_Click() CmdGhi.Visible = True CmdSua.Visible = True CmdXoa.Visible = True CmdThem.Visible = False CmdSearch.Visible = False CmdStop.Visible = True CmdThoat.Enabled = False Unlocked AddItem CmbField.SetFocus End Sub Private Sub Unlocked() txtMaNV.locked = False TxtTenNV.locked = False txtChucvu.locked = False txtDiaChi.locked = False txtTel.locked = False txtEmail.locked = False TxtMatKhau.locked = False lblTruong.Enabled = True lblTimKiem.Enabled = True CmbField.Enabled = True txtFind.Enabled = True DGridDMNV.AllowAddNew = False DGridDMNV.AllowDelete = False DGridDMNV.AllowUpdate = False End Sub Private Sub AddItem() CmbField.AddItem ("MaNV") CmbField.AddItem ("TenNV") CmbField.AddItem ("ChucVu") CmbField.AddItem ("DiaChi") CmbField.AddItem ("Tel") CmbField.AddItem ("Email") End Sub Private Sub CmdStop_Click() CmdThem.Visible = True CmdXoa.Visible = True CmdSua.Visible = True CmdSearch.Visible = True CmdStop.Visible = False CmdThoat.Enabled = True CmbField.Clear txtFind.Text = "" locked End Sub Private Sub CmdSua_Click() On Error GoTo Err_Sua_click CmdThem.Visible = False CmdSua.Visible = False CmdXoa.Enabled = False CmdGhi.Visible = True CmdKhong.Visible = True CmdThoat.Enabled = False recnum = AdoNV.Recordset.Bookmark xThem = False DGridDMNV.AllowDelete = True DGridDMNV.AllowUpdate = True Unlocked Exit_Sua_click: Exit Sub Err_Sua_click: MsgBox Err.Description Resume Exit_Sua_click End Sub Private Sub CmdThem_Click() On Error GoTo Err_Them_click CmdThem.Visible = False CmdSua.Visible = False CmdXoa.Enabled = False CmdGhi.Visible = True CmdKhong.Visible = True CmdThoat.Enabled = False DGridDMNV.AllowDelete = True DGridDMNV.AllowUpdate = True AdoNV.Recordset.AddNew DGridDMNV.SetFocus Unlocked xThem = True Exit_Them_click: Exit Sub Err_Them_click: MsgBox Err.Description Resume Exit_Them_click End Sub Private Sub CmdThoat_Click() Unload Me End Sub Private Sub CmdTruoc_Click() If AdoNV.Recordset.BOF Then MsgBox "Ban dang o ban ghi dau tien", vbOKOnly, "Thong bao" Else AdoNV.Recordset.MovePrevious End If End Sub Private Sub CmdXoa_Click() On Error GoTo Err_Xoa_click CmdThem.Visible = True CmdSua.Visible = True CmdXoa.Enabled = True CmdGhi.Visible = False CmdKhong.Visible = False CmdThoat.Enabled = True Dim TraLoi TraLoi = MsgBox("Do you want to delete Nhan vien : " & _ AdoNV.Recordset.Fields("TenNV") & " (with other information)?" _ , vbYesNo, "Information") If TraLoi = 6 Then AdoNV.Recordset.Delete AdoNV.Recordset.MoveNext AdoNV.Recordset.Clone 'If AdoNV.Recordset.EOF Then ' AdoNV.Recordset.MoveLast 'End If End If locked Exit_Xoa_click: Exit Sub Err_Xoa_click: MsgBox "Can not delete this record" Resume Exit_Xoa_click End Sub Private Sub Form_Load() Dim so As Integer, ngay, thang, nam thang = Month(Now()) ngay = Day(Now()) nam = Year(Now()) Me.LblThang = thang Me.LblNgay = ngay Me.LblNam = nam CmdThoat.Visible = True CmdSua.Visible = True CmdKhong.Visible = False CmdGhi.Visible = False CmdXoa.Visible = True CmdThem.Visible = True AdoNV.Visible = False DGridDMNV.AllowDelete = False DGridDMNV.AllowUpdate = False DGridDMNV.AllowRowSizing = False DGridDMNV.AllowArrows = False locked AdoNV.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\QuanlyNH.mdb;Persist Security Info=False" NapAdoNV End Sub Private Sub NapAdoNV() AdoNV.CommandType = adCmdText AdoNV.RecordSource = "SELECT * from TblDMNV order by MaNV" AdoNV.Refresh End Sub Private Sub locked() txtMaNV.locked = True TxtTenNV.locked = True txtChucvu.locked = True txtDiaChi.locked = True txtTel.locked = True txtEmail.locked = True TxtMatKhau.locked = True CmdThem.Enabled = True CmdSua.Enabled = True CmdXoa.Enabled = True lblTruong.Enabled = False lblTimKiem.Enabled = False CmbField.Enabled = False txtFind.Enabled = False DGridDMNV.AllowAddNew = False DGridDMNV.AllowDelete = False DGridDMNV.AllowUpdate = False End Sub Private Sub txtFind_Change() If CmbField.Text = "" Or txtFind = "" Then AdoNV.Recordset.Filter = "" AdoNV.Refresh Exit Sub End If AdoNV.Recordset.Filter = CmbField & " LIKE '*" & txtFind & "*'" End Sub Form Phiếu khách hàng đến gửi tiền 'Dim Conn As New ADODB.Connection 'Dim NapTudong As New ADODB.Recordset Dim RsMaNV As New ADODB.Recordset Dim RsMaKH As New ADODB.Recordset Dim RsMaKHCT As New ADODB.Recordset Dim RsHTGT As New ADODB.Recordset Dim RsTongCong As New ADODB.Recordset Dim Txtc As TextBox Dim xThem, xsua, recnum Private Sub AdoKHGuiTien_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) lblResult.Caption = "Khách hàng hiện tại có" & AdoKHGuiTien.Recordset.RecordCount txtSoKH1.Text = "Khách hàng " & AdoKHGuiTien.Recordset.AbsolutePosition & _ " trong " & AdoKHGuiTien.Recordset.RecordCount End Sub Private Sub AdoKHGuiTien_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) lblResult.Caption = "Khách hàng hiện tại có" & AdoKHGuiTienCT.Recordset.RecordCount txtSoKH.Text = "Khách hàng " & AdoKHGuiTienCT.Recordset.AbsolutePosition & _ " trong " & AdoKHGuiTienCT.Recordset.RecordCount End Sub Private Sub CmbHTGT_Click() Set Conn = New ADODB.Connection Set NapTuDong = New ADODB.Recordset Dim Str As String Str = "SELECT * FROM TblLoaiLS WHERE TblLoaiLS.LoaiHTGT='" & CmbHTGT.Text & "'" Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\QuanLyNH.mdb;Persist Security Info=False" Conn.Open NapTuDong.Open Str, Conn CmbHTGT.Text = NapTuDong!LoaiHTGT TxtLaiSuat.Text = NapTuDong!TLLaisuat TxtSoKHGT.Text = NapTuDong!SoKyHanGT NapTuDong.Close TxtSoTienGui.SetFocus End Sub Private Sub CmbMaKH_Click() Set Conn = New ADODB.Connection Set NapTuDong = New ADODB.Recordset Dim Str As String Str = "SELECT * FROM TblDMKH WHERE TblDMKH.MaKH='" & CmbMaKH.Text & "'" Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\QuanLyNH.mdb;Persist Security Info=False" Conn.Open NapTuDong.Open Str, Conn TxtTenKH.Text = NapTuDong!TenKH txtTel.Text = NapTuDong!Tel txtEmail.Text = NapTuDong!Email txtDiaChi.Text = NapTuDong!DiaChi NapTuDong.Close End Sub Private Sub CmbMaKHCT_Click() Set Conn = New ADODB.Connection Set NapTuDong = New ADODB.Recordset Dim Str As String Str = "SELECT * FROM TblDMKH WHERE TblDMKH.MaKH='" & CmbMaKHCT.Text & "'" Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\QuanLyNH.mdb;Persist Security Info=False" Conn.Open NapTuDong.Open Str, Conn TxtTenKHCT.Text = NapTuDong!TenKH NapTuDong.Close End Sub Private Sub CmbMaNV_Click() Set Conn = New ADODB.Connection Set NapTuDong = New ADODB.Recordset Dim Str As String Str = "SELECT * FROM TblDMNV WHERE TblDMNV.MaNV='" & CmbMaNV.Text & "'" Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\QuanLyNH.mdb;Persist Security Info=False" Conn.Open NapTuDong.Open Str, Conn TxtTenNV.Text = NapTuDong!TenNV NapTuDong.Close End Sub Private Sub locked() CmdThem.Enabled = True CmdSua.Enabled = True CmdXoa.Enabled = True End Sub Private Sub CmbTongCong_Click() Dim ThanhTien As New ADODB.Recordset Dim Str As String If CmbTongCong.Text "" Then Str = "SELECT SUM(SoTienLS) AS Tong From TblKHGuiTienCT GROUP BY MaKH AND MaKH='" & CmbTongCong.Text & "'" ThanhTien.Open Str, Conn TxtTongCongRT.Text = ThanhTien!Tong ThanhTien.Close End If End Sub Private Sub Cmdclick_Click() Dim P1, T1, N1 P1 = Me.TxtSoTienGui T1 = Me.TxtLaiSuat N1 = Me.TxtSoKHGT Me.TxtSoTienLS.Text = (P1 * (T1 ^ N1)) - P1 End Sub Private Sub CmdCuoi_Click() On Error GoTo Err_Cuoi_Click If AdoKHGuiTien.Recordset.EOF Then MsgBox "Ban dang o ban ghi cuoi", vbOKOnly, "Thong bao" Else AdoKHGuiTien.Recordset.MoveLast End If Exit_Cuoi_Click: Exit Sub Err_Cuoi_Click: MsgBox Err.Description Resume Exit_Cuoi_Click End Sub Private Sub CmdCuoiCT_Click() On Error GoTo Err_Cuoi_Click If AdoKHGuiTienCT.Recordset.EOF Then MsgBox "Ban dang o ban ghi cuoi", vbOKOnly, "Thong bao" Else AdoKHGuiTienCT.Recordset.MoveLast End If Exit_Cuoi_Click: Exit Sub Err_Cuoi_Click: MsgBox Err.Description Resume Exit_Cuoi_Click End Sub Private Sub CmdDau_Click() On Error GoTo Err_Dau_Click If AdoKHGuiTien.Recordset.BOF Then MsgBox "Ban dang o ban ghi dau tien", vbOKOnly, "Thong bao" Else AdoKHGuiTien.Recordset.MoveFirst End If Exit_Dau_Click: Exit Sub Err_Dau_Click: MsgBox Err.Description Resume Exit_Dau_Click End Sub Private Sub CmdDauCT_Click() On Error GoTo Err_Dau_Click If AdoKHGuiTienCT.Recordset.BOF Then MsgBox "Ban dang o ban ghi dau tien", vbOKOnly, "Thong bao" Else AdoKHGuiTienCT.Recordset.MoveFirst End If Exit_Dau_Click: Exit Sub Err_Dau_Click: MsgBox Err.Description Resume Exit_Dau_Click End Sub Private Sub CmdFrCT1_Click() If xThem Then AdoKHGuiTienCT.Recordset.Delete AdoKHGuiTienCT.Recordset.MoveNext If AdoKHGuiTienCT.Recordset.EOF Then AdoKHGuiTienCT.Recordset.MoveLast End If End If AdoKHGuiTienCT.Refresh Lock_textCT End Sub Private Sub CmdGhi_Click() On Error GoTo Err_ghi_click CmdThem.Visible = True CmdSua.Visible = True CmdXoa.Enabled = True CmdGhi.Visible = False CmdKhong.Visible = False CmdThoat.Enabled = True AdoKHGuiTien.Recordset.UpdateBatch adAffectAll CmdSua.Visible = True CmdKhong.Visible = False CmdGhi.Visible = False CmdXoa.Visible = True CmdThem.Visible = True ' cmdThemTG.SetFocus Lock_text Cmdclick.Enabled = False CmdTienGocLS.Enabled = False xThem = False DGridGui.Refresh CmdRf.Enabled = False Command1.Enabled = False AdoKHGuiTien.Recordset.Filter = "SoGui = '" & TxtSoGui & "'" AdoKHGuiTien.Recordset.Requery Exit_ghi_click: DGridGui.SetFocus Exit Sub Err_ghi_click: MsgBox "Data is invalid." Resume Exit_ghi_click End Sub Private Sub CmdGhiTG_Click() On Error GoTo Err_ghi_click cmdThemTG.Visible = True CmdSuaTG.Visible = True CmdXoaTG.Enabled = True CmdGhiTG.Visible = False CmdKhongTG.Visible = False CmdThoat.Enabled = True AdoKHGuiTienCT.Recordset.UpdateBatch adAffectAll 'CmdThem.SetFocus Lock_textCT Cmdclick.Enabled = False CmdTienGocLS.Enabled = False xThem = False DGridGuiCT.Refresh CmdRf.Enabled = True Command1.Enabled = True AdoKHGuiTienCT.Recordset.Filter = "SoGui = '" & Text1 & "'" AdoKHGuiTienCT.Recordset.Requery Exit_ghi_click: DGridGui.SetFocus Exit Sub Err_ghi_click: MsgBox "Data is invalid." Resume Exit_ghi_click End Sub Private Sub Unlock_text() CmbMaKH.locked = False CmbMaNV.locked = False TxtSoGui.locked = False TxtNgayBDGui.locked = False DGridGui.AllowUpdate = False DGridGui.AllowDelete = False DGridGui.AllowAddNew = False End Sub Private Sub Lock_text() CmbMaKH.locked = True TxtTenKH.locked = True txtTel.locked = True txtEmail.locked = True txtDiaChi.locked = True CmbMaNV.locked = True TxtTenNV.locked = True TxtSoGui.locked = True TxtNgayBDGui.locked = True DGridGui.AllowUpdate = False DGridGui.AllowDelete = False DGridGui.AllowAddNew = False End Sub Private Sub Lock_textCT() CmbMaKHCT.locked = True TxtTenKHCT.locked = True TxtSoTienGui.locked = True TxtLaiSuat.locked = True TxtSoKHGT.locked = True TxtNgayRutLS.locked = True Text1.locked = True TxtSoTienLS.locked = True CmbHTGT.locked = True TxttrangthaiGT.locked = True TxtTienGocLS.locked = True DGridGuiCT.AllowUpdate = False DGridGuiCT.AllowAddNew = False DGridGuiCT.AllowDelete = False End Sub Private Sub CmdKhongTG_Click() cmdThemTG.Visible = True CmdSuaTG.Visible = True CmdXoaTG.Enabled = True CmdGhiTG.Visible = False CmdKhongTG.Visible = False CmdThoat.Enabled = True AdoKHGuiTienCT.Refresh AdoKHGuiTienCT.Recordset.Clone AdoKHGuiTienCT.Recordset.MoveLast CmdSuaTG.Visible = True CmdKhongTG.Visible = False CmdGhiTG.Visible = False CmdXoaTG.Visible = True cmdThemTG.Visible = True cmdThemTG.SetFocus xThem = False Lock_textCT Cmdclick.Enabled = False CmdTienGocLS.Enabled = False Exit_Khong_Click: DGridGuiCT.SetFocus Exit Sub Err_Khong_Click: MsgBox "Data is invalid!" Resume Exit_Khong_Click End Sub Private Sub CmdNgayCT_Click() CalPhearum.Visible = True CalPhearum.SetFocus If Not IsNull(TxtNgayBDGui.Text) Then CalPhearum.Visible = TxtNgayBDGui.Text Else CalPhearum.Visible = Date End If End Sub Private Sub CmdNapRutLS_Click() On Error GoTo Err_Sua_click recnum = AdoKHGuiTienCT.Recordset.Bookmark CmdSuaTG.Visible = False CmdKhongTG.Visible = True CmdGhiTG.Visible = True CmdXoaTG.Enabled = False cmdThemTG.Visible = False CmdThoat.Enabled = False Text1.locked = True TxtNgayRutLS.locked = True CmbMaKHCT.locked = True TxtTenKHCT.locked = True CmbHTGT.locked = True TxtLaiSuat.locked = True TxtSoTienGui.locked = False TxtSoKHGT.locked = True Cmdclick.Enabled = True TxtSoTienLS.locked = True CmdTienGocLS.Enabled = False TxtTienGocLS.locked = True TxttrangthaiGT.locked = True DGridGuiCT.AllowUpdate = False DGridGuiCT.AllowAddNew = False DGridGuiCT.AllowDelete = False TxtTienGocLS.Text = "" TxttrangthaiGT.Text = "DaRutLS" Optdrt(0).SetFocus xThem = False Set_timeCT Exit_Sua_click: Exit Sub Err_Sua_click: MsgBox Err.Description Resume Exit_Sua_click End Sub Private Sub CmdNapTLH_Click() On Error GoTo Err_Sua_click recnum = AdoKHGuiTienCT.Recordset.Bookmark CmdSuaTG.Visible = False CmdKhongTG.Visible = True CmdGhiTG.Visible = True CmdXoaTG.Enabled = False cmdThemTG.Visible = False CmdThoat.Enabled = False Text1.locked = True TxtNgayRutLS.locked = True Cmb