Chuyên đề Xây dựng hệ thống thông tin quản lý thẻ ATM tại Ngân hàng Đông Á chi nhánh Hà Nội

sử dụng: Khi muốn thêm một trường dữ liệu ta ấn vào nút Thêm, nhập đầy đủ các thông tin cần thiết sau đó ấn nút Lưu. Khi muốn sửa một trường dữ liệu ta click chuột vào một trường trong bảng dữ liệu rồi click vào nút Sửa, sau khi sửa ấn nút lưu. Khi muốn xóa một trường dữ liệu ta click chuột vào trường muốn xóa rồi ấn nút Xóa. Form Danh mục Quốc gia (Hình 3.41) Hình 3. 41: Danh mục Quốc gia Thời điểm sử dụng: Khi muốn thêm, sửa, xóa một trường dữ liệu. Cách sử dụng: Khi muốn thêm một trường dữ liệu ta ấn vào nút Thêm, nhập đầy đủ các thông tin cần thiết sau đó ấn nút Lưu. Khi muốn sửa một trường dữ liệu ta click chuột vào một trường trong bảng dữ liệu rồi click vào nút Sửa, sau khi sửa ấn nút lưu. Khi muốn xóa một trường dữ liệu ta click chuột vào trường muốn xóa rồi ấn nút Xóa. Danh mục địa phương (Hình 3.42) Hình 3. 42: Danh mục địa phương Thời điểm sử dụng: Khi muốn thêm, sửa, xóa một trường dữ liệu. Cách sử dụng: Khi muốn thêm một trường dữ liệu ta ấn vào nút Thêm, nhập đầy đủ các thông tin cần thiết sau đó ấn nút Lưu. Khi muốn sửa một trường dữ liệu ta click chuột vào một trường trong bảng dữ liệu rồi click vào nút Sửa, sau khi sửa ấn nút lưu. Khi muốn xóa một trường dữ liệu ta click chuột vào trường muốn xóa rồi ấn nút Xóa. Phiếu lĩnh tiền (Hình 3.43) Hình 3. 43: Phiếu lĩnh tiền Thời điểm sử dụng: Khi muốn cập nhật một Phiếu lĩnh Cách sử dụng: Khi muốn thêm một Phiếu lĩnh ta ấn vào nút Thêm, nhập đầy đủ các thông tin cần thiết sau đó ấn nút Lưu. Khi muốn sửa một trường dữ liệu ta click chuột vào một trường trong bảng dữ liệu rồi click vào nút Sửa, sau khi sửa ấn nút lưu. Khi muốn xóa một trường dữ liệu ta click chuột vào trường muốn xóa rồi ấn nút Xóa. Khi muốn in một Phiếu lĩnh ta click chuột vào phiếu có trong bảng rối ấn vào nút in. Phiếu nộp tiền (Hình 3.44) Hình 3. 44: Phiếu nộp tiền Thời điểm sử dụng: Khi muốn cập nhật một Phiếu nộp Cách sử dụng: Khi muốn thêm một Phiếu nộp ta ấn vào nút Thêm, nhập đầy đủ các thông tin cần thiết sau đó ấn nút Lưu. Khi muốn sửa một trường dữ liệu ta click chuột vào một trường trong bảng dữ liệu rồi click vào nút Sửa, sau khi sửa ấn nút lưu. Khi muốn xóa một trường dữ liệu ta click chuột vào trường muốn xóa rồi ấn nút Xóa. Khi muốn in một Phiếu nộp ta click chuột vào phiếu có trong bảng rối ấn vào nút in. Form Hồ sơ khách hàng (Hình 3.45) Hình 3. 45: Hố sơ khách hàng Thời điểm sử dụng: Khi muốn cập nhật thông tin khách hàng Cách sử dụng: Khi muốn thêm một khách hàng ta ấn vào nút Thêm, nhập đầy đủ các thông tin cần thiết sau đó ấn nút Đồng ý. Khi muốn lập thẻ cho khách hàng ta ấn vào nút Lập thẻ. Form Lập thẻ (Hình 3.46) Hình 3. 46: Form lập thẻ Tên form: Lập thẻ Thời điểm sử dụng: Khi muốn lập thẻ cho khách hàng Chức năng: lập thẻ cho khách hàng Cách sử dụng: Khi muốn lập thẻ cho khách hàng ta nhập đầy đủ các thông tin rồi ấn vào nút Đồng ý. Form Nhận / Hủy thẻ (Tab Hủy thẻ) (Hình 3.47) Hình 3. 47: Nhận/Hủy thẻ (Tab hủy thẻ) Thời điểm sử dụng: Khi muốn ngừng sử dụng thẻ của khách hàng Cách sử dụng: Khi muốn hủy thẻ của khách hàng ta click chuột vào ô vuông để lựa chọn thẻ hủy sau đó ấn nút Hủy thẻ. Form Nhận/Hủy thẻ (Tab Nhận thẻ) (Hình 3.48) Hình 3. 48: Nhận/Hủy thẻ (Tab nhận thẻ) Thời điểm sử dụng: Khi muốn chuyển thẻ sau khi tạo cho khách hàng Cách sử dụng: Khi muốn để 1 thẻ của khách hàng là đã nhận ta click chuột vào ô vuông để lựa chọn thẻ đưa sau đó ấn nút Nhận thẻ. Form Tìm kiếm (Hình 3.49) Hình 3. 49: Form tìm kiếm Thời điểm sử dụng: Khi muốn tìm kiếm thông tin khách hàng, thông tin tài khoản,… Form Tìm kiếm theo MaKH (Hình 3.50) Hình 3. 50: Tìm kiếm theo mã khách hàng Thời điểm sử dụng: Khi muốn tìm kiếm thông tin khách hàng theo mã khách hàng Cách sử dụng: Chọn tiêu thức tìm kiếm là MaKH, Sau đó đánh mã khách hàng cần tìm. Thông tin khách hàng sẽ hiện ở bảng dưới. Khi muốn sửa ta ấn và nút Sửa. Form Tìm kiếm theo họ tên khách hàng (Hình 3.51) Hình 3. 51: Tìm kiếm theo họ tên khách hàng Thời điểm sử dụng: Khi muốn tìm kiếm thông tin khách hàng theo họ tên khách hàng Cách sử dụng: Chọn tiêu thức tìm kiếm là Họ tên khách hàng. Sau đó gõ tên khách hàng cần tìm vào ô textbox ở bên cạnh. Ta sẽ có thông tin khách hàng cần tìm hiện ở phía dưới. Form Tìm kiếm theo SoCMT (Hình 3.52) Hình 3. 52: Tìm kiếm theo số CMT Thời điểm sử dụng: Khi muốn tìm kiếm thông tin khách hàng theo số CMT của khách hàng Cách sử dụng: Chọn tiêu thức tìm kiếm là Số CMT. Sau đó đánh số CMT khách hàng ở ô Textbox bên cạnh. Thông tin khách hàng cần tìm sẽ hiện ở phía dưới. Form Báo cáo giao dịch (Hình 3.53) Hình 3. 53: Form báo cáo giao dịch Thời điểm sử dụng: Khi muốn in báo cáo giao dịch của khách hàng với ngân hàng. Cách sử dụng: Trước tiên ta chọn báo cáo. Sau đó chọn chứng từ ở Combobox. Chọn một số phiếu. Sau đó chọn In. Báo cáo Phiếu nộp tiền (Hình 3.43) Hình 3. 54: Phiếu nộp tiền Phiếu lĩnh tiền (Hình 3.55) Hình 3. 55: Phiếu lĩnh tiền Danh sách khách hàng (Hình 3.56) Hình 3. 56: Danh sách khách hàng Danh sách thẻ (Hình 3.57) Hình 3. 57: Danh sách thẻ Số dư tài khoản (Hình 3.58) Hình 3. 58: Số dư tài khoản Danh sách thẻ tạm ngưng (Hình 3.59) Hình 3. 59: Danh sách thẻ tạm ngưng Kết luận Nền khoa học công nghệ của thế giới ngày nay đã phát triển lên một tầm cao mới và sẽ còn tiếp tục phát triển với một tốc độ cao. Công nghệ thông tin ngày càng có những đóng góp quan trọng vào trong cuộc sống con người, nó đã, đang và sẽ trở thành một phần không thể thiếu trong sự phát triển của loài người. Việc khai thác những ứng dụng của công nghệ thông tin vào công tác quản lý cũng như kinh doanh đang được các nhà kinh tế đặt lên vị trí hàng đầu. Đó cũng là một bàn đạp quan trọng để nền kinh tế, khoa học Việt Nam có thể vươn ra tầm thế giới. Do những lợi ích thiết thực của việc sử dụng dịch vụ thẻ ATM đem lại cho cuộc sống mà nhu cầu sử dụng thẻ ngày càng tăng cao và dần trở nên phổ biến hơn. Việc xây dựng hệ thống thông tin quản lý thẻ ATM trong mỗi ngân hàng là một trong những yêu cầu thiết yếu để phát triển ngân hàng ngày một lớn mạnh. Áp dụng hệ thống thông tin quản lý thẻ ATM, Ngân hàng có thể bao quát tốt hơn, nhanh hơn tình hình sử dụng thẻ ATM, quản lý tốt hơn số lượng thẻ và người sử dụng đang lớn dần lên từng ngày, giúp tiết kiệm thời gian, chi phí, giảm thiểu tối đa những rủi ro trong công tác quản lý ngân hàng. Qua quá trình nghiên cứu và phân tích thiết kế hệ thống em đã đạt được một số kết quả sau: Tìm hiểu và phân tích nghiệp vụ liên quan đến thẻ ATM Xác định yêu cầu của hệ thống Xây dựng kiến trúc hệ thống Thiết kế dữ liệu Thiết kế giải thuật Thiết kế Chương trình Thiết kế giao diện và các báo cáo Xây dựng phần mềm bằng ngôn ngữ Visual Basic Do thời gian thực tập có hạn cộng với kinh nghiệm còn thiếu nên em chưa thể bao quát hết toàn bộ những khúc mắc xảy ra trong quá trình quản lý thẻ ATM và vì thế chương trình còn có thể mắc một số lỗi. Em rất mong có được nhiều hơn sự chỉ bảo cũng như góp có của thầy để có thêm những kiến thức và có thể hoàn thiện chương trình một cách tốt nhất trong tương lai. Một lần nữa em xin chân thành cảm ơn thầy giáo - PGS.TS Hàn Viết Thuận, người đã tận tình hướng dẫn và cung cấp cấp kiến thức trong suốt thời gian học tập cũng thư thực tập để em có thể hoàn thành tốt nhất đề tài này. Em cũng xin cảm ơn tập thể giảng viên khoa Tin Học Kinh Tế trường Đại học Kinh Tế Quốc Dân đã dạy dỗ em trong 4 năm học vừa qua. Em xin gửi lời cám ơn đến toàn bộ nhân viên Ngân hàng Đông Á chi nhánh Hà Nội đã giúp đỡ, cung cấp tài liệu cho em hoàn thành chuyên đề thực tập tốt nghiệp. Danh mục tài liệu tham khảo Giáo trình Cấu trúc dữ liệu và Giải thuật, PGS. TS Hàn Viết Thuận, NXB Thống Kê, Hà Nội 2005. Giáo trình Hệ thống thông tin quản lý, TS. Trương Văn Tú – TS. Trần Thị Song Minh, NXB Hà Nội 2000. Quy định phát hành, quản lý, sử dụng thẻ ATM của Ngân hàng Đông Á Các tài liệu nội bộ và công khai của Ngân hàng Đông Á chi nhánh Hà Nội Những bài thực hành cơ sở dữ liệu Visual Basic cơ bản, KS. Đinh Xuân Lâm, nhà xuất bản thống kê 2006 Crystal Report 8.5 HelpFile Visual Basic 6.0 HelpFile Phụ lục Một số đoạn code chương trình Module chương trình Option Explicit Public cn As New ADODB.Connection Sub Open_mdb() Dim db_name, str As String db_name = App.Path & "\Diu.mdb" str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db_name & "" cn.Open str End Sub Public Function Test_Day(ngay As String) As Boolean Dim KTNgay As Integer Dim so so = CInt(Val(Trim(Right(ngay, 4)))) KTNgay = CInt(Val(Left(ngay, 2))) If CInt(Val(Trim(Right(ngay, 4)))) < 1000 Then MsgBox "Nam phai co 4 chu so.Vui long nhap lai.", vbOKOnly + vbExclamation, "Thong bao" Test_Day = False Exit Function End If If CInt(Val(Trim(Mid(ngay, 4, 2)))) 12 Then MsgBox "Ngay thang khong hop le. Vui long nhap lai", vbOKOnly + vbExclamation, "Thong bao" Test_Day = False Else Select Case CInt(Val(Trim(Mid(ngay, 4, 2)))) Case 1, 3, 5, 7, 8, 10, 12 If KTNgay 31 Then MsgBox " Thang " & Mid(ngay, 4, 2) & " co 31 ngay", vbOKOnly + vbExclamation, "Thong bao" Test_Day = False Else Test_Day = True End If Case 2 If KTNgay 29 Then MsgBox " ngay khong hop le", vbOKOnly + vbExclamation, "Thong bao" Test_Day = False Else If namnhuan(Right(ngay, 4)) = False Then If KTNgay > 28 Then MsgBox "Nam " & Right(ngay, 4) & " thang 2 co 28 ngay. Vui long nhap lai", vbOKOnly + vbExclamation, "Thong bao" Test_Day = False End If Else Test_Day = True End If End If Case Else If KTNgay 30 Then MsgBox "Ngay khong hop le! thang " & (Mid(ngay, 4, 2)) & _ " chi co 30 ngay. Vui long nhap lai.", vbOKOnly + vbExclamation, "Thong bao" Test_Day = False Else Test_Day = True End If End Select End If End Function Function namnhuan(nam As String) As Boolean If (CInt(Val(nam)) Mod 4 = 0) Then namnhuan = True Else namnhuan = False End If End Function Function Ngaythang(chuoi As String) As String Dim str As String, str1 As String, str2 As String str1 = Left(chuoi, 3) Dim thu1, thu2 thu1 = Mid(str1, 1, 1) If Mid(str1, 1, 1) = "_" And IsNumeric(Mid(str1, 2, 1)) = True Then str1 = Replace(str1, "_", "0", 1) ElseIf IsNumeric(Mid(str1, 1, 1)) And Mid(str1, 2, 1) = "_" Then str1 = Replace(str1, Mid(str1, 1, 1) & "_", "0" & Mid(str1, 1, 1), 1) End If str2 = Mid(chuoi, 4, 3) If Mid(str2, 1, 1) = "_" And IsNumeric(Mid(str2, 2, 1)) = True Then str2 = Replace(str2, "_", "0", 1) ElseIf IsNumeric(Mid(str2, 1, 1)) And Mid(str2, 2, 1) = "_" Then str2 = Replace(str2, Mid(str2, 1, 1) & "_", "0" & Mid(str2, 1, 1), 1) End If Ngaythang = str1 & str2 & Right(chuoi, 4) End Function Public Sub Nhapten(KeyAscii As Integer, lamaso As Boolean) If lamaso = True Then Select Case KeyAscii Case Asc("A") To Asc("Z"), Asc("a") To Asc("z"), 8 Case Asc("0") To Asc("9") Beep KeyAscii = 0 End Select Select Case KeyAscii Case Asc("A") To Asc("Z"), Asc("a") To Asc("z"), 8, 32 Case Asc("0") To Asc("9") Beep KeyAscii = 0 End Select End If End Sub Public Sub Bodau(KeyAscii As Integer) Select Case KeyAscii Case Asc("A") To Asc("Z"), Asc("a") To Asc("z"), 8 Case Asc("!") To Asc("/"), Asc(":") To Asc("@"), Asc("[") To Asc("`"), Asc("{"), Asc("~"), 127 Beep KeyAscii = 0 End Select End Sub Public Function tachmaLS(ten As String) As String ten = Trim(ten) tachmaLS = Left(ten, 5) End Function Public Function tachma(ten As String) As String ten = Trim(ten) tachma = Left(ten, 2) End Function Public Function tachmaDiaPhuong(ten As String) As String ten = Trim(ten) tachmaDiaPhuong = Left(ten, 4) End Function Public Function tachmaTienGui(ten As String) As String ten = Trim(ten) tachmaTienGui = Left(ten, 3) End Function Public Function tachmaMaKH(ten As String) As String ten = Trim(ten) tachmaMaKH = Right(ten, 4) End Function Public Function tachmalop(ten As String) As String Dim i As Integer i = 1 ten = Trim(ten) Do While Not (Mid(ten, i, 1) = "_") i = i + 1 Loop tachmalop = Right(ten, Len(ten) - i) End Function Public Function tachtengv(ten As String) As String ten = Trim(ten) tachtengv = Left(ten, Len(ten) - 6) End Function Form login Private Sub cmdOK_Click() Dim StrPasswordMD5 As String Dim StrUsername As String Dim WrongPass As String If txtUserName.Text = "" Then MsgBox " Chưa có UserName" txtUserName.SetFocus Exit Sub End If If txtPassword.Text = "" Then MsgBox " Chưa có password" txtPassword.SetFocus Exit Sub End If StrUsername = txtUserName.Text StrPasswordMD5 = txtPassword.Text Dim rs As ADODB.Recordset Dim str As String Set rs = cn.Execute("Select * FROM [NguoiDung] where User='" & Trim(txtUserName.Text) & "'") Do Until rs.EOF If rs.Fields("User").Value = StrUsername And rs.Fields("Password").Value = StrPasswordMD5 Then If rs.Fields("QuyenTruyCap").Value = "Nhan vien" Then zMain.Show Else Main.Show End If Unload frmLogin MainLog.Hide Exit Sub Else rs.MoveNext End If Loop MsgBox "Bạn đã nhập sai UserName/Password" End Sub Form Phiếu nộp tiền Option Explicit Private flag As String Private Sub Display_Listview() Dim rs As New ADODB.Recordset Dim str Dim mitem As ListItem lvitem.ListItems.Clear str = "select*from PhieuNopTien " rs.Open str, cn If rs.EOF = False Then While Not rs.EOF Set mitem = lvitem.ListItems.Add(, , rs!SoPhieuThu) mitem.SubItems(1) = rs!NgayNop mitem.SubItems(2) = rs!MaKH mitem.SubItems(3) = rs!DiaChi mitem.SubItems(4) = rs!SoTK mitem.SubItems(5) = rs!SoTienGD mitem.SubItems(6) = rs!MaNhanVien rs.MoveNext Wend End If End Sub Private Sub cbKhachHang_Change() Dim rs As New ADODB.Recordset Dim str str = "select*from TaiKhoan where MaKH='" & Trim(tachmaMaKH(cbKhachHang)) & "' " rs.Open str, cn txtSoTienDu.Text = rs.Fields("SoDu") txtTaiKhoan.Text = rs.Fields("SoTK") rs.Close End Sub Private Sub cbKhachHang_Click() Dim rs As New ADODB.Recordset Dim str str = "select*from TaiKhoan where MaKH='" & Trim(tachmaMaKH(cbKhachHang)) & "' " rs.Open str, cn txtSoTienDu.Text = rs.Fields("SoDu") txtTaiKhoan.Text = rs.Fields("SoTK") rs.Close End Sub Private Sub Thu() txtSoDuMoi.Text = CDbl(txtSoTien.Text) + CDbl(txtSoTienDu.Text) Dim rs As New ADODB.Recordset Dim strSQL Dim a As String Dim b As Double Set rs = cn.Execute("Select * From [TaiKhoan] ") 'If txtSoTien "" Then a = Trim(txtTaiKhoan.Text) b = Trim(txtSoDuMoi.Text) strSQL = "Update TaiKhoan set SoDu = '" & Trim(txtSoDuMoi.Text) & "' Where SoTK='" & a & "'" cn.Execute (strSQL) End Sub Private Sub cmdIn_Click() Dim rs As New ADODB.Recordset Dim rs1 As New ADODB.Recordset Dim Sql As String Dim sql1 As String Dim Tien As Double sql1 = "SELECT PhieuNopTien.SoPhieuThu, PhieuNopTien.MaNhanVien,PhieuNopTien.DiaChi,PhieuNopTien.DienGiai, KhachHang.HoTenKH, PhieuNopTien.SoTK,PhieuNopTien.SoTienGD, TaiKhoan.SoDu from PhieuNopTien,KhachHang,TaiKhoan where PhieuNopTien.MaKH = KhachHang.MaKH and PhieuNopTien.SoTK=TaiKhoan.SoTK and SoPhieuThu = '" & Trim(txtSoPhienNop.Text) & "' " 'Sql = "SELECT C.MaHH, H.TenHH, C.DVT,C.SL,C.DGVUSD,C.ThanhTien FROM tblDMHH AS H, tblHDXuatCT AS C WHERE C.MaHH= H.MaHH AND SoCT ='" & CboSoCT.Text & "'" rs.Open sql1, cn 'rs1.Open sql1, conn If txtSoPhienNop = "" Then MsgBox "Chưa có số phiếu nộp" Else Cr.SetTablePrivateData 0, 3, rs Cr.ReportFileName = App.Path & "\Reports\Phieu Thu1.rpt" Cr.Formulas(0) = "SoPhieuNop= '" & rs.Fields("SoPhieuThu") & "'" Cr.Formulas(1) = "MaNhanVien='" & rs.Fields("MaNhanVien") & "'" Cr.Formulas(2) = "HoTenKH= '" & rs.Fields("HoTenKH") & "'" Cr.Formulas(3) = "DiaChi='" & rs.Fields("DiaChi") & "'" Cr.Formulas(5) = "SoTK='" & rs.Fields("SoTK") & "'" Cr.Formulas(6) = "SoTienGD= '" & rs.Fields("SoTienGD") & "'" Cr.Formulas(7) = "DienGiai='" & rs.Fields("DienGiai") & "'" Cr.Formulas(8) = "SoDu= '" & rs.Fields("SoDu") & "'" Cr.PrintReport End If rs.Close End Sub Private Sub Form_Load() Open_mdb lock_text Display_Listview combo_load End Sub Private Sub cmdCLOSE_Click() Unload Me End Sub Private Sub cmdDEL_Click() Xoa_Du_Lieu End Sub Private Sub cmdNEW_Click() Un_Lock_Text SET_NULL End Sub Private Sub cmdSAVE_Click() If flag "update" Then flag = "save" End If Luu_Du_Lieu Thu End Sub Private Sub cmdUPDATE_Click() flag = "update" 'Ñònh bieán côø khi form ñang ôû cheá ñoä ñieàu chænh Sua_Du_Lieu cmdIn.Enabled = True End Sub Private Sub lock_text() txtSoPhienNop.Enabled = False txtNgayNop.Enabled = False cbKhachHang.Enabled = False txtDiaChi.Enabled = False txtTaiKhoan.Enabled = False txtSoTien.Enabled = False cbNhanVien.Enabled = False txtDienGiai.Enabled = False cmdNEW.Enabled = True cmdDEL.Enabled = True cmdUPDATE.Enabled = True cmdSAVE.Enabled = False flag = "" End Sub Private Sub Un_Lock_Text() txtSoPhienNop.Enabled = True txtNgayNop.Enabled = True cbKhachHang.Enabled = True txtTaiKhoan.Enabled = True txtDiaChi.Enabled = True txtSoTien.Enabled = True cbNhanVien.Enabled = True txtDienGiai.Enabled = True txtSoPhienNop.SetFocus cmdNEW.Enabled = True cmdDEL.Enabled = True cmdUPDATE.Enabled = True cmdSAVE.Enabled = True End Sub Private Sub SET_NULL() txtSoPhienNop = "" txtNgayNop = "__-__-____" cbKhachHang = "" txtTaiKhoan = "" txtDiaChi = "" txtSoTien = "" cbNhanVien = "" txtDienGiai = "" End Sub Private Sub Xoa_Du_Lieu() Dim str Dim response If Trim(SoPhieuThu) = "" Then Exit Sub End If response = MsgBox("Bạn có chắc chắn muốn xóa Phiếu thu này không?", vbYesNo + vbQuestion, "Thông báo") If response = vbNo Then Exit Sub Else str = "delete from PhieuNopTien where SoPhieuThu='" & Trim(txtSoPhienNop) & "'" cn.Execute (str) End If SET_NULL lock_text Display_Listview End Sub Private Sub Sua_Du_Lieu() Un_Lock_Text txtSoPhienNop.Enabled = False txtNgayNop.SetFocus End Sub Private Sub Luu_Du_Lieu() Dim rs As New ADODB.Recordset Dim str If Trim(txtSoPhienNop) = "" Or Trim(cbKhachHang) = "" Then MsgBox "Chu y: SoPhieuThu, HoTenKH không có tài khoản", vbOKOnly + vbExclamation, "Thông báo" Me.MousePointer = 0 Exit Sub End If str = "select * from PhieuNopTien where SoPhieuThu='" & Trim(txtSoPhienNop) & "'" rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = True Then rs.AddNew rs!SoPhieuThu = Trim(txtSoPhienNop) rs!NgayNop = CDate(Ngaythang(txtNgayNop)) rs!MaKH = Trim(tachmaMaKH(cbKhachHang)) rs!DiaChi = Trim(txtDiaChi) rs!SoTK = Trim(txtTaiKhoan) rs!SoTienGD = Trim(txtSoTien) rs!DienGiai = Trim(txtDienGiai) rs!MaNhanVien = Trim(tachmaTienGui(cbNhanVien)) rs.Update rs.Close Else If flag = "save" Then MsgBox "Phiếu nộp tiền có mã [" & Trim(txtSoPhienNop) & "] Đã tồn tại. Vui lòng kiểm tra lại", vbOKOnly + vbExclamation, "Thông báo" txtSoPhienNop.SetFocus Exit Sub End If rs!NgayNop = CDate(Ngaythang(txtNgayNop)) rs!MaKH = Trim(tachmaMaKH(cbKhachHang)) rs!DiaChi = Trim(txtDiaChi) rs!SoTK = Trim(txtTaiKhoan) rs!SoTienGD = Trim(txtSoTien) rs!DienGiai = Trim(txtDienGiai) rs!MaNhanVien = Trim(tachmaTienGui(cbNhanVien)) rs!SoPhieuThu = Trim(txtSoPhienNop) rs.Update End If Thu lock_text Display_Listview cmdNEW.SetFocus Me.MousePointer = 0 MsgBox "Dữ liệu đã được lưu", vbOKOnly + vbInformation, "Thong bao" End Sub Private Sub lvitem_ItemClick(ByVal Item As MSComctlLib.ListItem) Dim rs As New ADODB.Recordset Dim str txtSoPhienNop = Item.Text str = "select * from PhieuNopTien where SoPhieuThu='" & Trim(txtSoPhienNop) & "'" rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = False Then txtNgayNop = Format(rs!NgayNop, "dd-mm-yyyy") cbKhachHang = rs!MaKH txtDiaChi = rs!DiaChi txtTaiKhoan = rs!SoTK txtSoTien = rs!SoTienGD txtDienGiai = rs!DienGiai cbNhanVien = rs!MaNhanVien txtSoPhienNop = rs!SoPhieuThu End If rs.Close End Sub Private Sub combo_load() Dim r3 As New ADODB.Recordset Dim str3 As String Dim r2 As New ADODB.Recordset Dim str2 As String str3 = "select * from DMNhanVien " r3.Open str3, cn, adOpenDynamic, adLockOptimistic, adCmdText str2 = "select * from KhachHang" r2.Open str2, cn r3.Requery cbNhanVien.Clear Do While Not r3.EOF cbNhanVien.AddItem r3.Fields("MaNhanVien") & "_" & r3.Fields("TenNhanVien") r3.MoveNext Loop r2.Requery cbKhachHang.Clear Do While Not r2.EOF cbKhachHang.AddItem r2.Fields("HoTenKH") & "_" & r2.Fields("MaKH") r2.MoveNext Loop r3.Close r2.Close End Sub Private Sub abc(a As String) Dim r3 As New ADODB.Recordset Dim str3 As String str3 = "select * from KhachHang where MaKH='" & a & "'" r3.Open str3, cn, adOpenDynamic, adLockOptimistic, adCmdText abc = r3.Fields("HoTenKH") & "_" & r3.Fields("MaKH") End Sub Form Phiếu lĩnh tiền Private Sub Form_Load() ' Open_mdb lock_text Display_Listview combo_load End Sub Private Sub cmdCLOSE_Click() Unload Me End Sub Private Sub cmdDEL_Click() Xoa_Du_Lieu End Sub Private Sub cmdNEW_Click() Un_Lock_Text SET_NULL End Sub Private Sub cmdSAVE_Click() If flag "update" Then flag = "save" End If Luu_Du_Lieu Thu cmdIn.Enabled = True End Sub Private Sub cmdUPDATE_Click() flag = "update" Sua_Du_Lieu End Sub Private Sub lock_text() txtSoPhieuLinh.Enabled = False txtNgayLinh.Enabled = False cbNguoiLinh.Enabled = False txtDiaChi.Enabled = False txtTaiKhoan.Enabled = False txtSoTien.Enabled = False cbNhanVien.Enabled = False txtDienGiai.Enabled = False cmdNEW.Enabled = True cmdDEL.Enabled = True cmdUPDATE.Enabled = True cmdSAVE.Enabled = False flag = "" End Sub Private Sub Un_Lock_Text() txtSoPhieuLinh.Enabled = True txtNgayLinh.Enabled = True cbNguoiLinh.Enabled = True txtDiaChi.Enabled = True txtTaiKhoan.Enabled = True txtSoTien.Enabled = True cbNhanVien.Enabled = True txtDienGiai.Enabled = True txtSoPhieuLinh.SetFocus cmdNEW.Enabled = True cmdDEL.Enabled = True cmdUPDATE.Enabled = True cmdSAVE.Enabled = True End Sub Private Sub SET_NULL() txtSoPhieuLinh = "" txtNgayLinh = "__-__-____" cbNguoiLinh = "" txtTaiKhoan = "" txtDiaChi = "" txtSoTien = "" cbNhanVien = "" txtDienGiai = "" End Sub Private Sub Xoa_Du_Lieu() Dim str Dim response If Trim(txtSoPhieuLinh) = "" Then Exit Sub End If response = MsgBox("Bạn có chắc chắn muốn xóa phiếu lĩnh này ko?", vbYesNo + vbQuestion, "Thông báo") If response = vbNo Then Exit Sub Else str = "delete from PhieuLinhTien where SoPhieuLinh='" & Trim(txtSoPhieuLinh) & "'" cn.Execute (str) End If SET_NULL lock_text Display_Listview End Sub Private Sub Sua_Du_Lieu() Un_Lock_Text txtSoPhieuLinh.Enabled = False txtNgayLinh.SetFocus End Sub Private Sub Luu_Du_Lieu() Dim rs As New ADODB.Recordset Dim str If Trim(txtSoPhieuLinh) = "" Or Trim(cbNguoiLinh) = "" Then MsgBox "Chu y: MaGV, HotenGV kh«ng ®­îc ®Ó trèng", vbOKOnly + vbExclamation, "Thong bao" Me.MousePointer = 0 Exit Sub End If str = "select*from PhieuLinhTien where SoPhieuLinh='" & Trim(txtSoPhieuLinh) & "'" rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = True Then rs.AddNew rs!SoPhieuLinh = Trim(txtSoPhieuLinh) rs!NgayLinh = CDate(Ngaythang(txtNgayLinh)) rs!MaKH = Trim(tachmaMaKH(cbNguoiLinh)) rs!DiaChi = Trim(txtDiaChi) rs!SoTK = Trim(txtTaiKhoan) rs!SoTienGD = Trim(txtSoTien) rs!DienGiai = Trim(txtDienGiai) rs!MaNhanVien = Trim(tachmaTienGui(cbNhanVien)) rs.Update rs.Close Else If flag = "save" Then MsgBox "Khách hàng có mã [" & Trim(txtSoPhieuLinh) & "] Đã tồn tại. Vui lòng kiểm tra lại", vbOKOnly + vbExclamation, "TThông báo" txtSoPhieuLinh.SetFocus Exit Sub End If rs!NgayLinh = CDate(Ngaythang(txtNgayLinh)) rs!MaKH = Trim(tachmaMaKH(cbNguoiLinh)) rs!DiaChi = Trim(txtDiaChi) rs!SoTK = Trim(txtTaiKhoan) rs!SoTienGD = Trim(txtSoTien) rs!DienGiai = Trim(txtDienGiai) rs!MaNhanVien = Trim(tachmaTienGui(cbNhanVien)) rs!SoPhieuLinh = Trim(txtSoPhieuLinh) rs.Update End If Thu lock_text Display_Listview cmdNEW.SetFocus Me.MousePointer = 0 MsgBox "Dữ liệu bạn đã được lưu", vbOKOnly + vbInformation, "Thông báo" End Sub Private Sub lvitem_ItemClick(ByVal Item As MSComctlLib.ListItem) Dim rs As New ADODB.Recordset Dim str txtSoPhieuLinh = Item.Text ' txtNgayNop = Item.SubItems(1) str = "select*from PhieuLinhTien where SoPhieuLinh='" & Trim(txtSoPhieuLinh) & "'" rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = False Then txtNgayLinh = Format(rs!NgayLinh, "dd-mm-yyyy") cbNguoiLinh = rs!MaKH txtDiaChi = rs!DiaChi txtTaiKhoan = rs!SoTK txtSoTien = rs!SoTienGD txtDienGiai = rs!DienGiai cbNhanVien = rs!MaNhanVien 'txtSoPhienNop = rs!SoPhieuThu End If rs.Close End Sub Private Sub combo_load() Dim r3 As New ADODB.Recordset Dim str3 As String Dim r2 As New ADODB.Recordset Dim str2 As String str3 = "select * from DMNhanVien " r3.Open str3, cn, adOpenDynamic, adLockOptimistic, adCmdText str2 = "select * from KhachHang" r2.Open str2, cn r3.Requery cbNhanVien.Clear Do While Not r3.EOF cbNhanVien.AddItem r3.Fields("MaNhanVien") & "_" & r3.Fields("TenNhanVien") r3.MoveNext Loop r2.Requery cbNguoiLinh.Clear Do While Not r2.EOF cbNguoiLinh.AddItem r2.Fields("HoTenKH") & "_" & r2.Fields("MaKH") r2.MoveNext Loop r3.Close r2.Close End Sub Private Sub abc(a As String) Dim r3 As New ADODB.Recordset Dim str3 As String str3 = "select * from KhachHang where MaKH='" & a & "'" r3.Open str3, cn, adOpenDynamic, adLockOptimistic, adCmdText abc = r3.Fields("HoTenKH") & "_" & r3.Fields("MaKH") End Sub Form Đăng ký mở thẻ Private Sub cbLaiSuat_Click() Dim rs As New ADODB.Recordset Dim str As String str = "select * from DMLaiSuat where MaLaiSuat='" & Trim(tachmaLS(cbLaiSuat.Text)) & "'" rs.Open str, cn txtLaiSuat = rs!GiaTriLaiSuat End Sub Private Sub cmdNEW_Click() SET_NULL End Sub Private Sub cmdOK_Click() Luu_Du_Lieu Luu_Du_Lieu1 End Sub Private Sub Form_Load() 'Open_mdb combo_load End Sub Private Sub combo_load() Dim r1 As New ADODB.Recordset Dim r2 As New ADODB.Recordset Dim r3 As New ADODB.Recordset Dim r4 As New ADODB.Recordset Dim r5 As New ADODB.Recordset Dim r6 As New ADODB.Recordset Dim r7 As New ADODB.Recordset Dim str3, str1, str2, str4, str5, str6, str7 As String str1 = "select * from DanhMucCongAn " str2 = "select * from DMDiaPhuong" str3 = "select * from DMHonNhan" str4 = "select * from DMLoaiKhachHang" str5 = "select * from DMQuocGia" str6 = "select * from DMLoaiTienVaTyGia" str7 = "select * from DMLaiSuat" r1.Open str1, cn r2.Open str2, cn r3.Open str3, cn, adOpenDynamic, adLockOptimistic, adCmdText r4.Open str4, cn, adOpenDynamic, adLockOptimistic, adCmdText r5.Open str5, cn r6.Open str6, cn r7.Open str7, cn r1.Requery cbMaCongAn.Clear Do While Not r1.EOF cbMaCongAn.AddItem r1.Fields("MaCongAn") & "_" & r1.Fields("TenCongAn") r1.MoveNext Loop r2.Requery cbMaDiaPhuong.Clear Do While Not r2.EOF cbMaDiaPhuong.AddItem r2.Fields("MaDiaPhuong") & "_" & r2.Fields("TenDiaPhuong") r2.MoveNext Loop r3.Requery cbMaTTHonNhan.Clear Do While Not r3.EOF cbMaTTHonNhan.AddItem r3.Fields("MaTTHonNhan") & "_" & r3.Fields("TenTTHonNhan") r3.MoveNext Loop r4.Requery cbMaLoaiKH.Clear Do While Not r4.EOF cbMaLoaiKH.AddItem r4.Fields("MaLoaiKH") & "_" & r4.Fields("TenLoaiKH") r4.MoveNext Loop r5.Requery cbMaQuocGia.Clear Do While Not r5.EOF cbMaQuocGia.AddItem r5.Fields("MaQuocGia") & "_" & r5.Fields("TenQuocGia") r5.MoveNext Loop r6.Requery cbTienGui.Clear Do While Not r6.EOF cbTienGui.AddItem r6.Fields("MaTienTe") & "_" & r6.Fields("TenLoaiTien") r6.MoveNext Loop r7.Requery cbLaiSuat.Clear Do While Not r7.EOF cbLaiSuat.AddItem r7.Fields("MaLaiSuat") & "_" & r7.Fields("TenLaiSuat") r7.MoveNext Loop r1.Close r2.Close r3.Close r4.Close r5.Close r6.Close r7.Close End Sub Private Sub Luu_Du_Lieu() Dim rs As New ADODB.Recordset Dim str If Trim(txtMaKH) = "" Or Trim(txtTenKH) = "" Then MsgBox "Chu y: MaKH,HoTenKH không có tài khoản thẻ", vbOKOnly + vbExclamation, "Thong bao" Me.MousePointer = 0 Exit Sub End If str = "select * from KhachHang" rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = True Then rs.AddNew rs!MaKH = Trim(txtMaKH) rs!HoTenKH = Trim(txtTenKH) rs!NgaySinh = CDate(Ngaythang(txtNgaySinh)) rs!GioiTinh = Trim(cbGioiTinh) rs!SoCMT = Trim(txtCMND) rs!NgayCap = CDate(Ngaythang(txtNgayCap)) rs!MaCongAn = Trim(tachma(cbMaCongAn)) rs!DiaChi = Trim(txtDiaChi) rs!DienThoai = Trim(txtDienThoai) rs!MaDiaPhuong = Trim(tachma(cbMaDiaPhuong)) rs!MaTTHonNhan = Trim(tachma(cbMaTTHonNhan)) rs!MaLoaiKH = Trim(tachma(cbMaLoaiKH)) rs!MaQuocGia = Trim(tachma(cbMaQuocGia)) rs.Update rs.Close Else If flag = "save" Then MsgBox "Khách hàng có mã [" & Trim(txtMaKH) & "] đã tồn tại. Vui lòng kiểm tra lại", vbOKOnly + vbExclamation, "Thông báo" txtMaGV.SetFocus Exit Sub End If rs!MaKH = Trim(txtMaKH) rs!HoTenKH = Trim(txtTenKH) rs!NgaySinh = CDate(Ngaythang(txtNgaySinh)) rs!GioiTinh = Trim(cbGioiTinh) rs!SoCMT = Trim(txtCMND) rs!NgayCap = CDate(Ngaythang(txtNgayCap)) rs!MaCongAn = Trim(tachma(cbMaCongAn)) rs!DiaChi = Trim(txtDiaChi) rs!DienThoai = Trim(txtDienThoai) rs!MaDiaPhuong = Trim(tachmaDiaPhuong(cbMaDiaPhuong.Text)) rs!MaTTHonNhan = Trim(tachma(cbMaTTHonNhan.Text)) rs!MaLoaiKH = Trim(tachma(cbMaLoaiKH.Text)) rs!MaQuocGia = Trim(tachma(cbMaQuocGia.Text)) rs.Update End If MsgBox "Dữ liệu đã được lưu", vbOKOnly + vbInformation, "Thông báo" End Sub Private Sub Luu_Du_Lieu1() Dim rs1 As New ADODB.Recordset Dim str1 If Trim(txtMaTK) = "" Then MsgBox "Chu y: Mã tài khoản chưa có", vbOKOnly + vbExclamation, "Thong bao" Me.MousePointer = 0 Exit Sub End If str1 = "Select * from taikhoan" rs1.Open str1, cn, adOpenKeyset, adLockOptimistic, adCmdText If rs1.EOF = True Then rs1.AddNew rs1!MaKH = Trim(txtMaKH) rs1!SoTK = Trim(txtMaTK) rs1!NgayMo = CDate(Ngaythang(txtNgayMo)) rs1!MaTienGui = Trim(tachmaTienGui(cbTienGui)) rs1!MaLaiSuat = Trim(tachmaLS(cbLaiSuat)) rs1!LaiSuat = Trim(txtLaiSuat) rs1!SoDu = Trim(txtSoDu) rs1.Update rs1.Close Else If flag = "save" Then MsgBox "Khách hàng có mã [" & Trim(txtMaKH) & "]đã tông tại. Vui lòng kiểm tra lại", vbOKOnly + vbExclamation, "Thông báo" txtMaGV.SetFocus Exit Sub End If rs1!MaKH = Trim(txtMaKH) rs1!NgayMo = CDate(Ngaythang(txtNgayMo)) rs1!MaTienGui = Trim(tachmaTienGui(cbTienGui)) rs1!MaLaiSuat = Trim(tachmaLS(cbLaiSuat)) rs1!LaiSuat = Trim(txtLaiSuat) rs1!SoDu = Trim(txtSoDu) rs1!SoTK = Trim(txtMaTK) rs1.Update End If MsgBox "Dữ liệu đã được lưu", vbOKOnly + vbInformation, "Thông báo" End Sub Private Sub Test_NULL() If txtNgaySinh = "__-__-____" Then txtNgaySinh = "01-01-1900" If txtHocVi = "" Then txtHocVi = "-" End Sub Private Sub Display_Listview() Dim rs As New ADODB.Recordset Dim str Dim mitem As ListItem lvitem.ListItems.Clear str = "select*from khachhang,taikhoan where khachhang.MaKH=taikhoan.MaKH" rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = False Then While Not rs.EOF Set mitem = lvitem.ListItems.Add(, , "") mitem.SubItems(1) = rs!HoTenKH rs.MoveNext Wend End If End Sub Private Sub SET_NULL() txtMaKH = "" txtTenKH = "" txtNgaySinh = "__-__-____" cbGioiTinh = "" txtCMND = "" txtNgayCap = "__-__-____" cbMaCongAn = "" txtDiaChi = "" txtDienThoai = "" cbMaDiaPhuong = "" cbMaTTHonNhan = "" cbMaLoaiKH.Text = "" cbMaQuocGia.Text = "" txtMaTK = "" txtNgayMo = "__-__-____" cbTienGui = "" cbLaiSuat = "" txtLaiSuat = "" txtSoDu = "" End Sub Private Sub cmdCLOSE_Click() Unload Me End Sub Private Sub UniXPButton3_Click() frmLapThe.Show End Sub Form lập thẻ Private Sub Form_Load() 'Open_mdb txtMaKH = frmDangKyMoThe.txtMaKH txtTenKH = frmDangKyMoThe.txtTenKH txtCMND = frmDangKyMoThe.txtCMND txtSoTK = frmDangKyMoThe.txtMaTK combo_load End Sub Private Sub cmdCLOSE_Click() Unload Me End Sub Private Sub combo_load() Dim r1 As New ADODB.Recordset Dim r2 As New ADODB.Recordset Dim r3 As New ADODB.Recordset Dim r4 As New ADODB.Recordset Dim str3, str1, str2, str4 As String str1 = "select * from DMChiNhanh " str2 = "select * from DMLoaiThe" str3 = "select * from DMSanPhamThe" r1.Open str1, cn r2.Open str2, cn r3.Open str3, cn, adOpenDynamic, adLockOptimistic, adCmdText r1.Requery cbMaChiNhanh.Clear Do While Not r1.EOF cbMaChiNhanh.AddItem r1.Fields("MaChiNhanh") & "_" & r1.Fields("TenChiNhanh") r1.MoveNext Loop r2.Requery cbMaLoaiThe.Clear Do While Not r2.EOF cbMaLoaiThe.AddItem r2.Fields("MaLoaiThe") & "_" & r2.Fields("TenLoaiThe") r2.MoveNext Loop r3.Requery cbMaSPThe.Clear Do While Not r3.EOF cbMaSPThe.AddItem r3.Fields("MaSanPhamThe") & "_" & r3.Fields("TenSanPhamThe") r3.MoveNext Loop r1.Close r2.Close r3.Close End Sub Private Sub Luu_Du_Lieu() Dim rs As New ADODB.Recordset Dim str If Trim(txtMaKH) = "" Or Trim(txtTenKH) = "" Then MsgBox "Chu y: MaKH, HotenKH Không có tài khoản", vbOKOnly + vbExclamation, "Thong bao" Me.MousePointer = 0 Exit Sub End If If Trim(txtMatKhau) = Trim(txtXNMatKhau) Then MsgBox "phai trung nhau" Me.MousePointer = 0 Exit Sub End If str = "select * from TheATM" rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = True Then rs.AddNew rs!MaChiNhanh = Trim(tachmaDiaPhuong(cbMaChiNhanh)) rs!MaKH = Trim(txtMaKH) rs!HoTenKH = Trim(txtTenKH) rs!SoCMT = Trim(txtCMND) rs!SoTK = Trim(txtSoTK) rs!SoThe = Trim(txtSoThe) rs!MaLoaiThe = Trim(tachma(cbMaLoaiThe)) rs!MaSanPhamThe = Trim(tachma(cbMaSPThe)) rs!NgayNopDon = CDate(Ngaythang(txtNgayNopDon)) rs!MatKhau = Trim(txtMatKhau) rs!XacNhanMatKhau = Trim(txtXNMatKhau) rs.Update rs.Close Else If flag = "save" Then MsgBox "Khách hàng có mã [" & Trim(txtMaKH) & "]Đã tồn tại. Vui lòng kiểm tra lại", vbOKOnly + vbExclamation, "Thong bao" txtMaGV.SetFocus Exit Sub End If rs!MaChiNhanh = Trim(tachmaDiaPhuong(cbMaChiNhanh)) rs!MaKH = Trim(txtMaKH) rs!HoTenKH = Trim(txtTenKH) rs!SoCMT = Trim(txtCMND) rs!SoTK = Trim(txtSoTK) rs!SoThe = Trim(txtSoThe) rs!MaLoaiThe = Trim(tachma(cbMaLoaiThe)) rs!MaSanPhamThe = Trim(tachma(cbMaSPThe)) rs!NgayNopDon = CDate(Ngaythang(txtNgayNopDon)) rs!MatKhau = Trim(txtMatKhau) rs!XacNhanMatKhau = Trim(txtXNMatKhau) rs.Update End If MsgBox "Dữ liệu đã được lưu", vbOKOnly + vbInformation, "Thông báo" End Sub Private Sub lvButtons_H1_Click() Luu_Du_Lieu End Sub Form xử lý thẻ Option Explicit Dim RecordCount, RecordCount1, RecordCount2 As Integer Dim flag As Integer Private Sub cmbSearchBy_Click() txtSearchValue.Text = "" If cmbSearchBy.Text = "All" Then Call LoadDataIntoCheckInTable txtSearchValue.Enabled = False Else txtSearchValue.Enabled = True txtSearchValue.SetFocus End If End Sub Private Sub cmdCanncel_Click() Unload Me End Sub Private Sub Form_Load() ' Open_mdb cmbSearchBy.ListIndex = 0 cmbSearchBy1.ListIndex = 0 Call LoadDataIntoCheckInTable End Sub Sub LoadDataIntoCheckInTable() RecordCount = 0 Dim rs As New ADODB.Recordset Dim strSQL As String Dim Item As ListItem strSQL = "SELECT * from TheATM WHERE TheATM.TinhTrangThe =0 " Set rs = cn.Execute(strSQL) LVCheckIn.ListItems.Clear If rs.EOF = False Then While Not rs.EOF Set Item = LVCheckIn.ListItems.Add(, , " ") Item.SubItems(1) = rs!SoThe Item.SubItems(2) = rs!MaKH Item.SubItems(3) = rs!HoTenKH Item.SubItems(4) = rs!SoCMT Item.SubItems(5) = rs!MaSanPhamThe Item.SubItems(6) = rs!MaLoaiThe RecordCount = RecordCount + 1 rs.MoveNext Wend End If If RecordCount = 0 Then lblRecords.Caption = "Dont have any record ." Else If RecordCount = 1 Then lblRecords.Caption = "There is a record ." Else lblRecords.Caption = "There are " & RecordCount & " records ." End If End If rs.Close End Sub Private Sub txtSearchValue_KeyUp(KeyCode As Integer, Shift As Integer) RecordCount = 0 Dim rs As New ADODB.Recordset Dim strSQL As String Dim Item As ListItem LVCheckIn.ListItems.Clear Select Case cmbSearchBy.Text Case "All" strSQL = "select * from TheATM WHERE TinhTrangThe = 0" Case "HoTenKH" If IsNumeric(txtSearchValue.Text) Or txtSearchValue.Text = "" Then txtSearchValue.Text = "" Exit Sub End If strSQL = "select * from TheATM WHERE TinhTrangThe =0 AND HoTenKH ='" & Trim(txtSearchValue.Text) & "'" Case "SoCMT" If Not (IsNumeric(txtSearchValue.Text)) Or txtSearchValue.Text = "" Then txtSearchValue.Text = "" Exit Sub End If strSQL = "select * from TheATM WHERE TinhTrangThe =0 AND SoCMT ='" & Trim(txtSearchValue.Text) & "'" Case "SoTK" If Not (IsNumeric(txtSearchValue.Text)) Or txtSearchValue.Text = "" Then txtSearchValue.Text = "" Exit Sub End If strSQL = "select * from TheATM WHERE TinhTrangThe =0 AND SoTK ='" & Trim(txtSearchValue.Text) & "'" End Select Set rs = cn.Execute(strSQL) If rs.EOF = False Then While Not rs.EOF Set Item = LVCheckIn.ListItems.Add(, , " ") Item.SubItems(1) = rs!SoThe Item.SubItems(2) = rs!MaKH Item.SubItems(3) = rs!HoTenKH Item.SubItems(4) = rs!SoCMT Item.SubItems(5) = rs!MaSanPhamThe Item.SubItems(6) = rs!MaLoaiThe RecordCount = RecordCount + 1 rs.MoveNext Wend Else End If If RecordCount = 0 Then lblRecords.Caption = "Dont have any record ." Else If RecordCount = 1 Then lblRecords.Caption = "There is a record ." Else lblRecords.Caption = "There are " & RecordCount & " records ." End If End If End Sub Private Sub cmdCheckin_Click() Dim rs As New ADODB.Recordset Dim strSQL As String Dim i As Integer Dim GetIDBooking As String Set rs = cn.Execute("Select * From [TheATM] ") For i = 1 To RecordCount If LVCheckIn.ListItems(i).Checked = True Then GetIDBooking = LVCheckIn.ListItems(i).ListSubItems(1) strSQL = "Update TheATM set TinhTrangThe=1 Where SoThe='" & GetIDBooking & "'" cn.Execute (strSQL) End If Next i Call LoadDataIntoCheckInTable Call LoadDataIntoCheckOutTable End Sub Sub LoadDataIntoCheckOutTable() RecordCount2 = 0 Dim rs As New ADODB.Recordset Dim strSQL As String Dim Item As ListItem strSQL = "SELECT * from TheATM WHERE TheATM.TinhTrangThe =1 " Set rs = cn.Execute(strSQL) LVCheckOut.ListItems.Clear If rs.EOF = False Then While Not rs.EOF Set Item = LVCheckOut.ListItems.Add(, , " ") Item.SubItems(1) = rs!SoThe Item.SubItems(2) = rs!MaKH Item.SubItems(3) = rs!HoTenKH Item.SubItems(4) = rs!SoCMT Item.SubItems(5) = rs!MaSanPhamThe Item.SubItems(6) = rs!MaLoaiThe RecordCount2 = RecordCount2 + 1 rs.MoveNext Wend End If If RecordCount2 = 0 Then lblRecords1.Caption = "Dont have any record ." Else If RecordCount2 = 1 Then lblRecords1.Caption = "There is a record ." Else lblRecords1.Caption = "There are " & RecordCount2 & " records ." End If End If End Sub Private Sub cmbSearchby1_Click() txtSearchValue1.Text = "" If cmbSearchBy1.Text = "All" Then Call LoadDataIntoCheckOutTable txtSearchValue1.Enabled = False Else txtSearchValue1.Enabled = True txtSearchValue1.SetFocus End If End Sub Private Sub txtSearchValue1_KeyUp(KeyCode As Integer, Shift As Integer) RecordCount2 = 0 Dim rs As New ADODB.Recordset Dim strSQL As String Dim Item As ListItem LVCheckOut.ListItems.Clear strSQL = "SELECT DISTINCT(tblBooking.IDBooking) , tblCustomer.FirstName as Ho,tblCustomer.LastName As ten " strSQL = strSQL + ", tblBooking.ArriveDay , tblbooking.Leaveday ,tblBooking.NoRooms ,tblCustomer.IDCustomer ,tblBooking.Balance " strSQL = strSQL + "FROM tblRoomType INNER JOIN (tblRoomCat INNER JOIN (tblRoom INNER JOIN (tblCustomer INNER JOIN " strSQL = strSQL + "(tblBooking INNER JOIN tblBookingRoom ON tblBooking.IDBooking = tblBookingRoom.IDBooking) ON " strSQL = strSQL + "tblCustomer.IDCustomer = tblBooking.IDCustomer) ON tblRoom.IDRoom = tblBookingRoom.IDRoom) ON " strSQL = strSQL + "tblRoomCat.IDRoomCat = tblRoom.IDRoomCat) ON tblRoomType.IDRoomType = tblRoomCat.IDRoomType " Select Case cmbSearchBy.Text Case "All" strSQL = "select * from TheATM WHERE TinhTrangThe = 0" Case "HoTenKH" If IsNumeric(txtSearchValue.Text) Or txtSearchValue.Text = "" Then txtSearchValue.Text = "" Exit Sub End If strSQL = "select * from TheATM WHERE TinhTrangThe =0 AND HoTenKH ='" & Trim(txtSearchValue.Text) & "'" Case "SoCMT" If Not (IsNumeric(txtSearchValue.Text)) Or txtSearchValue.Text = "" Then txtSearchValue.Text = "" Exit Sub End If strSQL = "select * from TheATM WHERE TinhTrangThe =0 AND SoCMT ='" & Trim(txtSearchValue.Text) & "'" Case "SoTK" If Not (IsNumeric(txtSearchValue.Text)) Or txtSearchValue.Text = "" Then txtSearchValue.Text = "" Exit Sub End If strSQL = "select * from TheATM WHERE TinhTrangThe =0 AND SoTK ='" & Trim(txtSearchValue.Text) & "'" End Select Set rs = cn.Execute(strSQL) If rs.EOF = False Then While Not rs.EOF Set Item = LVCheckOut.ListItems.Add(, , " ") Item.SubItems(1) = rs!SoThe Item.SubItems(2) = rs!MaKH Item.SubItems(3) = rs!HoTenKH Item.SubItems(4) = rs!SoCMT Item.SubItems(5) = rs!MaSanPhamThe Item.SubItems(6) = rs!MaLoaiThe RecordCount2 = RecordCount2 + 1 rs.MoveNext Wend Else End If If RecordCount2 = 0 Then lblRecords1.Caption = "Dont have any record ." Else If RecordCount2 = 1 Then lblRecords1.Caption = "There is a record ." Else lblRecords1.Caption = "There are " & RecordCount2 & " records ." End If End If End Sub Private Sub cmdCheckOut_Click() Dim rs As New ADODB.Recordset Dim strSQL As String Dim i As Integer Dim GetIDBooking As String Set rs = cn.Execute("Select * from [TheATM]") For i = 1 To RecordCount2 If LVCheckOut.ListItems(i).Checked = True Then GetIDBooking = LVCheckOut.ListItems(i).ListSubItems(1) strSQL = "Update TheATM set TinhTrangThe =2 Where SoThe='" & GetIDBooking & "'" cn.Execute (strSQL) End If Next i Call LoadDataIntoCheckOutTable End Sub Form tìm kiếm Option Explicit Dim CountRecord As Integer Dim GetIDCus As String Dim GetIDBooking As Integer Dim GetIDRoom As Integer Private Sub cmbSearchBy_Click() txtSearchValue.Text = "" If cmbSearchBy.Text = "All" Then Call LoadDataIntoCustomerInformationTable txtSearchValue.Enabled = False Else txtSearchValue.Enabled = True txtSearchValue.SetFocus End If End Sub Private Sub cmdCancel_Click() Unload Me End Sub Private Sub cmdCLOSE_Click() Unload Me End Sub Private Sub cmdDelete_Click() 'On Error GoTo loi Dim Answer As String Dim rs As New ADODB.Recordset GetIDCus = LVCustomerInformation.SelectedItem.Text Dim strSQL As String strSQL = "SELECT * FROM KhachHang " Set rs = cn.Execute(strSQL) Answer = MsgBox("Are you sure you want to delete [" & GetIDCus & "] ?" & vbCrLf & "Deleting this customer will delete all of information associated with this customer . ", vbYesNo + vbQuestion, "Hotel Management System v1.0") If Answer = vbYes Then strSQL = "DELETE from[KhachHang] Where MaKH='" & GetIDCus & "'" cn.Execute (strSQL) MsgBox "Deleted Successfully ", vbExclamation, "Hotel Management System v1.0" Call LoadDataIntoCustomerInformationTable End If End Sub Function countbooking() As Integer On Error GoTo loi Dim rs As New ADODB.Recordset Dim str As String GetIDBooking = LVBookingDetails.SelectedItem.Text str = "SELECT count(MAKH) as NoOfBook from TaiKhoan where MaKH='" & GetIDBooking & "'" Set rs = cn.Execute(str) countbooking = rs!NoOfBook Exit Function loi: countbooking = 0 End Function Private Sub cmdDeleteBooking_Click() Dim Answer As String Dim rs As New ADODB.Recordset If countbooking = 0 Then Exit Sub End If Dim strSQL As String Answer = MsgBox("Are you sure you want to delete [" & GetIDBooking & "] ?" & vbCrLf & "Deleting this booking will delete all of information associated with this booking . ", vbYesNo + vbQuestion, "Hotel Management System v1.0") If Answer = vbYes Then If countbooking > 1 Then strSQL = "DELETE FROM TaiKhoan " strSQL = strSQL + "WHERE MaKH ='" & GetIDBooking & "'" cn.Execute strSQL MsgBox "Deleted Successfully ", vbExclamation, "Hotel Management System v1.0" Else Call cmdDelete_Click customer'sinformation LVBookingDetails.ListItems.Clear End If End If End Sub Private Sub cmdEdit_Click() Dim rs As New ADODB.Recordset GetIDCus = LVCustomerInformation.SelectedItem.Text Dim strSQL As String strSQL = "SELECT * FROM KhachHang Where MaKH ='" & GetIDCus & "'" Set rs = cn.Execute(strSQL) With frmEditCustomerInfo .cmbtitle.Text = rs!MaKH .TxtFirstName.Text = rs!HoTenKH .txtLastName.Text = Format(rs!NgaySinh, "dd-mm-yyyy") .txtidentifycard.Text = rs!GioiTinh .txtaddress.Text = rs!SoCMT .txtcity.Text = Format(rs!NgayCap, "dd-mm-yyyy") .txtpost = rs!MaCongAn .txtcounty.Text = rs!DiaChi .txtFax.Text = rs!DienThoai .txttelno.Text = rs!MaDiaPhuong .txtemail.Text = rs!MaTTHonNhan End With frmEditCustomerInfo.tempID = GetIDCus frmEditCustomerInfo.Caption = "Edit Customer's information : " & GetIDCus frmEditCustomerInfo.Show 1 End Sub Private Sub Form_Load() 'Open_mdb cmbSearchBy.ListIndex = 0 End Sub Sub LoadDataIntoCustomerInformationTable() Dim rs As New ADODB.Recordset Dim strSQL As String Dim Item As ListItem strSQL = "SELECT * FROM KhachHang " Set rs = cn.Execute(strSQL) LVCustomerInformation.ListItems.Clear If rs.EOF = False Then While Not rs.EOF Set Item = LVCustomerInformation.ListItems.Add(, , rs!MaKH) Item.SubItems(1) = rs!HoTenKH Item.SubItems(2) = rs!NgaySinh Item.SubItems(3) = rs!GioiTinh Item.SubItems(4) = rs!SoCMT Item.SubItems(5) = rs!DiaChi Item.SubItems(6) = rs!DienThoai rs.MoveNext Wend End If End Sub Function CheckBooking() As Boolean Dim rs As New ADODB.Recordset Dim strSQL As String Set rs = ADOCN.Execute("select count(IDBooking)as NumOfRec from tblBooking") If rs!NumOfRec = 0 Then CheckBooking = False Else CheckBooking = True End If End Function Function CheckCusInfo() As Boolean Dim rs As New ADODB.Recordset Dim strSQL As String Set rs = cn.Execute("select count(MaKH)as NumOfRec from KhachHang") If rs!NumOfRec = 0 Then CheckCusInfo = False Else CheckCusInfo = True End If End Function Private Sub LVCustomerInformation_Click() On Error GoTo err If CheckCusInfo = False Then MsgBox "Dont have any record. ", , "Hotel Management System 1.0v " Exit Sub End If GetIDCus = LVCustomerInformation.SelectedItem.Text Dim rs As New ADODB.Recordset Dim strSQL As String Dim Item As ListItem strSQL = "SELECT * from TaiKhoan " strSQL = strSQL + "WHERE MaKH = '" & GetIDCus & "'" Set rs = cn.Execute(strSQL) LVBookingDetails.ListItems.Clear If rs.EOF = False Then While Not rs.EOF Set Item = LVBookingDetails.ListItems.Add(, , rs!SoTK) Item.SubItems(1) = rs!NgayMo Item.SubItems(2) = rs!MaTienGui Item.SubItems(3) = rs!SoDu rs.MoveNext Wend End If Exit Sub err: MsgBox err.Description End Sub Private Sub txtSearchValue_KeyUp(KeyCode As Integer, Shift As Integer) On Error GoTo err Dim rs As New ADODB.Recordset Dim strSQL As String Dim Item As ListItem strSQL = "SELECT * FROM KhachHang " Select Case cmbSearchBy.Text Case "All" Case "HoTenKH" If IsNumeric(txtSearchValue.Text) Or txtSearchValue.Text = "" Then txtSearchValue.Text = "" Exit Sub End If strSQL = strSQL + "WHERE HoTenKH ='" & Trim(txtSearchValue.Text) & "'" Case "MaKH" strSQL = strSQL + "WHERE MaKH ='" & Trim(txtSearchValue.Text) & "'" Case "SoCMT" If Not (IsNumeric(txtSearchValue.Text)) Or txtSearchValue.Text = "" Then txtSearchValue.Text = "" Exit Sub End If strSQL = strSQL + "WHERE SoCMT ='" & Trim(txtSearchValue.Text) & "'" End Select Set rs = cn.Execute(strSQL) LVCustomerInformation.ListItems.Clear If rs.EOF = False Then While Not rs.EOF Set Item = LVCustomerInformation.ListItems.Add(, , rs!MaKH) Item.SubItems(1) = rs!HoTenKH Item.SubItems(2) = rs!NgaySinh Item.SubItems(3) = rs!GioiTinh Item.SubItems(4) = rs!SoCMT Item.SubItems(5) = rs!DiaChi Item.SubItems(6) = rs!DienThoai rs.MoveNext Wend End If Exit Sub err: MsgBox err.Description End Sub Form User Sub Display_Listview() Dim rs As New ADODB.Recordset Dim str As String Dim mitem As ListItem lvitem.ListItems.Clear str = "select * from NguoiDung " rs.Open str, cn If rs.EOF = False Then While Not rs.EOF Set mitem = lvitem.ListItems.Add(, , rs!User) mitem.SubItems(1) = rs!Password mitem.SubItems(2) = rs!QuyenTruyCap mitem.SubItems(3) = rs!TenNguoiDung mitem.SubItems(4) = rs!NgaySinh mitem.SubItems(5) = rs!ChucVu rs.MoveNext Wend End If End Sub Private Sub Command1_Click() frmEDITUSER.Show End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() 'Open_mdb Display_Listview End Sub Form tạo User mới Sub Display_Listview() Dim rs As New ADODB.Recordset Dim str As String Dim mitem As ListItem lvitem.ListItems.Clear str = "select*from NguoiDung " rs.Open str, cn If rs.EOF = False Then While Not rs.EOF Set mitem = lvitem.ListItems.Add(, , rs!User) mitem.SubItems(1) = rs!Password mitem.SubItems(2) = rs!QuyenTruyCap mitem.SubItems(3) = rs!TenNguoiDung mitem.SubItems(4) = rs!NgaySinh mitem.SubItems(5) = rs!ChucVu rs.MoveNext Wend End If End Sub Private Sub Command1_Click() frmEDITUSER.Show End Sub Private Sub Command2_Click() Unload Me End Sub