Đang tải... (xem toàn văn)
Xây dựng chương trình quản lý thẻ ATM của Ngân hàng VIBank chi nhánh Quang Trung, Hà Nội
Chuyên đề tốt nghiệp GVHD: GVC Đoàn Quốc Tuấn LỜI MỞ ĐẦU Trong thời đại ngày nay, mà khoa học công nghệ ngày phát triển vũ bão với lớn mạnh phát triển không ngừng kinh tế đất nước nhiều năm qua cơng nghệ thơng tin ngày ứng dụng rộng rãi trở nên vô quan trọng tất ngành, lĩnh vực đời sống người Đứng trước hội to lớn đó, để phát triển tự khẳng định mình, tổ chức doanh nghiệp bước liên tiếp ứng dụng công nghệ thông tin vào hoạt động tổ chức Khơng tự tách khỏi quy luật phát triển chung xã hội, hệ thống ngân hàng lớn mạnh không Tại Việt Nam thời gian gần có hàng loạt ngân hàng thành lập bên cạnh ngân hàng tồn lâu Sự bùng nổ mạnh mẽ kéo theo hàng loạt dịch vụ lĩnh vực ngân hàng đời, phục vụ đời sống cho người dân ngày tiện lợi Đặc biệt đời thẻ ATM Tại Việt Nam thẻ ATM thường hiểu thẻ ghi nợ, hay gọi thẻ ghi nợ nội địa, loại thẻ có chức rút tiền dựa sở ghi nợ vào tài khoản Chiếc thẻ nhựa xinh xắn danh thiếp trở thành phần "tất yếu" sống với nhiều người tiêu dùng Việt Nam Với việc dịch vụ toán thẻ qua hệ thống ATM ngày mở rộng thêm nhiều tiện ích như: nộp phí bảo hiểm, tiền điện, nước, trả cước điện thoại Ngân hàng Nhà nước đưa quy định bảo vệ người sử dụng để thẻ trở thành lựa chọn nhiều người tiêu dùng Việt Nam Qua trình thực tập tốt nghiệp Ngân hàng VIBank chi nhánh Quang Trung, Hà Nội, tìm hiểu cơng tác quản lý Lớp tin học kinh tế 46B SVTH: Trịnh Tất Thắng Chuyên đề tốt nghiệp GVHD: GVC Đoàn Quốc Tuấn quan trọng thẻ ATM sống người em định lựa chọn đề tài: “Xây dựng chương trình quản lý thẻ ATM Ngân hàng VIBank chi nhánh Quang Trung, Hà Nội” để làm chuyên đề tốt nghiệp Chuyên đề gồm chương: Chương I: Tổng quan Ngân hàng VIBANK chuyên đề thực tập tốt nghiệp Nội dung: • Giới thiệu chung ngân hàng VIBank ngân hàng VIBank chi nhánh Quang Trung, Hà nội • Giới thiệu đơn vị thực tập – Phòng đại lý phát triển thẻ VIBank • Giới thiệu đề tài Chương Lý luận chung phân tích thiết kế Hệ thống thơng tin Nội dung: Chương trình bày vấn đề phương pháp luận sử dụng để nghiên cứu đề tài CHƯƠNG Phân tích, thiết kế Hệ thống thông tin quản lý thẻ ATM ngân hàng VIBank chi nhánh Quang Trung, Hà Nội Nội dung: Lớp tin học kinh tế 46B SVTH: Trịnh Tất Thắng Chuyên đề tốt nghiệp GVHD: GVC Đoàn Quốc Tuấn Chương trình bày trình thiết kế chương trình quản lý thẻ ATM VIBank theo tài liệu khảo sát thu thập quản lý thẻ ATM Ngân hàng VIBank Em mong nhận giúp đỡ, quan tâm, phê bình thầy cơ, bạn để đề tài hồn thiện ứng dụng rộng rãi thực tế Em xin chân thành cảm ơn! Lớp tin học kinh tế 46B SVTH: Trịnh Tất Thắng Chuyên đề tốt nghiệp GVHD: GVC Đoàn Quốc Tuấn CHƯƠNG I TỔNG QUAN VỀ NGÂN HÀNG VIBANK VÀ CHUYÊN ĐỀ THỰC TẬP TỐT NGHIỆP Giới thiệu chung ngân hàng VIBank Tên Ngân hàng: Ngân hàng VIB( ngân hàng quốc tế) Địa chỉ: 64-68 Lý Thường Kiệt, Quận Hoàn Kiếm, Hà Nội Điện thoại: 04 942 6919 Fax: 04 942 6929 E-mail: vib@vib.com.vn Website: www.vib.com.vn Ngân hàng TMCP Quốc Tế Việt Nam (tên gọi tắt Ngân hàng Quốc Tế - VIB Bank) thành lập theo Quyết định số 22/QĐ/NH5 ngày 25/01/1996 Thống đốc Ngân hàng Nhà nước Việt Nam Cổ đông sáng lập Ngân hàng Quốc Tế bao gồm cá nhân doanh nhân hoạt động thành đạt Việt Nam trường quốc tế, Ngân hàng Ngoại thương Việt Nam, Ngân hàng Nông nghiệp Phát triển Nông thôn Việt Nam Ngân hàng Quốc Tế tiếp tục củng cố vị trí thị trường tài tiền tệ Việt Nam Từ bắt đầu hoạt động ngày 18/09/1996 với số vốn điều lệ ban đầu 50 tỷ đồng Việt Nam, Ngân hàng Quốc Tế phát triển thành tổ chức tài nước dẫn đầu thị trường Việt Nam Lớp tin học kinh tế 46B SVTH: Trịnh Tất Thắng Chuyên đề tốt nghiệp GVHD: GVC Đoàn Quốc Tuấn Là ngân hàng bán lẻ, Ngân hàng Quốc Tế tiếp tục cung cấp loạt sản phẩm, dịch vụ tài trọn gói cho khách hàng với nòng cốt doanh nghiệp vừa nhỏ hoạt động lành mạnh cá nhân, gia đình có thu nhập ổn định Đến cuối tháng năm 2007, vốn điều lệ Ngân hàng Quốc Tế 1.500 tỷ đồng Tổng tài sản đạt 22.000 tỷ đồng Ngân hàng Quốc Tế Ngân hàng Nhà nước Việt Nam xếp loại tốt theo tiêu chí đánh giá hệ thống Ngân hàng Việt Nam nhiều năm liên tiếp Đến cuối tháng năm 2007, Hội sở Hà Nội, Ngân hàng Quốc Tế gần 80 Chi nhánh Hà Nội, thành phố Hồ Chí Minh, Hải Phịng, Quảng Ninh, Hải Dương, Vĩnh Phúc, Nghệ An, Quảng Ngãi, Thanh Hóa, Nha Trang, Huế, Đà Nẵng, Vũng Tàu, Đồng Nai, Bình Dương, Cần Thơ, An Giang, Kiên Giang mạng lưới 37 Tổ cơng tác 35 tỉnh, thành phố tồn quốc Với phương châm “Luôn gia tăng giá trị cho bạn!”, Ngân hàng Quốc Tế không ngừng gia tăng giá trị khách hàng, đối tác, cán nhân viên ngân hàng cổ đông Giới thiệu ngân hàng VIBank chi nhánh Quang Trung, Hà nội Tên đơn vị: Ngân hàng Quốc Tế - VIB Bank Địa chỉ: 59-Quang Trung-Hai Bà Trưng-Hà Nội Website: E-mail: card@vib.com.vn Điện thoại: (84-4) 9445289 Lớp tin học kinh tế 46B www.vibcard.com.vn SVTH: Trịnh Tất Thắng Chuyên đề tốt nghiệp Fax: GVHD: GVC Đồn Quốc Tuấn (84-4) 944529 2.1 Q trình hình thành phát triển Là ngân hàng cổ phần tham gia Liên minh thẻ Vietcombank, Ngân hàng Quốc Tế đạt thành công đáng kể hoạt động phát hành toán thẻ: Ngày 18/09/2004, VIB Bank mắt thẻ ghi nợ nội địa Values Connect 24 liên kết phát hành với Vietcombank, đánh dấu tham gia thị trường thẻ VIB Bank Tháng 12/2005, VIB Bank ngân hàng liên minh thẻ hợp tác với Vietcombank phát hành thẻ tín dụng quốc tế Mastercard Với thành công trên, tháng 01 năm 2006, Trung tâm thẻ VIB Bank thức thành lập Kể từ ngày thành lập với mơ hình tổ chức đại, chuyên nghiệp, Trung tâm thẻ Ngân hàng quốc tế tạo nên dấu ấn quan trọng hoạt động kinh doanh thẻ: Triển khai thành công Hệ thống quản lý thẻ chuyển mạch tài đại với nhà cung cấp giải pháp thẻ hàng đầu Card Tech Limited Tháng 5/2006, khai trương trụ sở Trung tâm Thẻ 59 Quang Trung, Hai Bà Trưng, Hà Nội Tháng 6/2006, trở thành thành viên thức Tổ chức thẻ quốc tế Visa Mastercard Tháng 7/2006, độc lập phát hành thẻ ghi nợ nội địa VIB Values với tính bảo mật vượt trội cho phép chủ thẻ sử dụng thẻ hệ thống ATM điểm Lớp tin học kinh tế 46B SVTH: Trịnh Tất Thắng Chuyên đề tốt nghiệp GVHD: GVC Đồn Quốc Tuấn tốn thẻ Vietcombank 16 ngân hàng khác Liên minh Tháng 10/2006, VIB Bank thức giới thiệu đưa vào sử dụng hệ thống VIB ATM tòan quốc Hiện nay, Trung tâm thẻ Ngân hàng Quốc tế tích cực hợp tác với tổ chức thẻ Quốc tế Visa Mastercard để phát hành toán thẻ Visa, Mastercard tảng hệ thống công nghệ đại VIB Bank Với mục tiêu “Luôn gia tăng giá trị cho bạn”, Trung tâm thẻ Ngân hàng Quốc tế hướng tới sản phẩm thẻ đại với nhiều tiện ích giá trị gia tăng cho khách hàng 2.2 Sứ mệnh Phát triển bền vững cho doanh nghiệp vừa nhỏ vươn lên, Sáng tạo đa dạng sản phẩm dịch vụ cho cá nhân có thu nhập Dịch vụ tài ngân hàng toàn diện cho doanh nghiệp lớn, Liên minh, đối tác chiến lược với định chế tài 2.3 Giá trị cốt lõi Hướng tới Khách hàng, Năng động - Sáng tạo, Hợp tác - Chia sẻ, Trung thực - Tin cậy, Lớp tin học kinh tế 46B SVTH: Trịnh Tất Thắng Chuyên đề tốt nghiệp GVHD: GVC Đoàn Quốc Tuấn Tuân thủ tuyệt đối 2.4 Tầm nhìn Tầm nhìn năm tới VIB Bank phấn đấu trở thành ngân hàng thương mại cổ phần dẫn đầu thị trường, cung cấp dịch vụ tài ngân hàng đa năng, trọn gói cho nhóm khách hàng trọng tâm vùng kinh tế trọng điểm Việt Nam 2.5 Sơ đồ tổ chức Giám đốc Phòng marketing Phòng nghiệp vụ Phòng kinh doanh thẻ Phòng phát triển tốn thẻ Phịng thẻ tín dụng Phịng kiểm sốt rủi ro Phịng phát triển đại lý Phịng phát hành Phịng dịch vụ khách hàng Phịng cơng nghệ Call center Phòng phát triển sản phẩm Giám đốc: Nhận định từ cấp định, quản lý chung công việc chi nhánh ngân hàng VIBank Lớp tin học kinh tế 46B SVTH: Trịnh Tất Thắng Chuyên đề tốt nghiệp GVHD: GVC Đồn Quốc Tuấn Phịng marketing: Phát triển thơng tin Hoạt động nghiên cứu thông tin Quảng bá truyền thông sản phẩm Thực hoạt động xúc tiến bán hàng (như khuyến mãi, tổ chức kiện quảng bá…) Phòng ngiệp vụ: Hoạt động kế toán nội Nghiệp vụ toán thẻ tồn hệ thống( phát hành tốn thẻ) Hoạt động toán liên ngân hàng Hoạt động toán với tổ chức thẻ( VISA, Master Card…) Phòng kinh doanh thẻ: Kinh doanh bán sản phẩm thẻ( thẻ nội địa thẻ tín dụng) Phát hành thẻ liên kết VIBank với tổ chức khác Hỗ trợ hoạt động phát hành tồn hệ thống Phịng phái triển toán thẻ: Phát triển dịch vụ toán thẻ Lớp tin học kinh tế 46B SVTH: Trịnh Tất Thắng Chuyên đề tốt nghiệp 10 GVHD: GVC Đoàn Quốc Tuấn Thực nghiệp vụ phát sinh giao dịch q trình tốn Phối hợp thực chương trình gia tăng doanh số tốn thẻ Phịng thẻ tín dụng: Các nghiệp vụ phát sinh liên quan đến phát hành thẻ tín dụng quốc tế Master Card Thẩm định sản phẩm thẻ Thu hồi dư nợ phát sinh khách hàng Phịng cơng nghệ: Quản lý hệ thống phát hành tốn thẻ tồn hệ thống liên ngân hàng Quản lý giao dịch mạng ATM toàn hệ thống Quản lý dịch vụ tốn điện tử Phịng phát triển sản phẩm Nghiên cứu đưa sản phẩm thẻ Phát triển dịch vụ giá trị gia tăng tảng sản phẩm thẻ Phát triển dịch vụ tốn cơng nghệ( mobile banking, ebanking…) Làm sản phẩm có ngân hàng Lớp tin học kinh tế 46B SVTH: Trịnh Tất Thắng Chuyên đề tốt nghiệp 100 GVHD: GVC Đoàn Quốc Tuấn frmHocvan.Show vbModal End Sub Private Sub mnudmkh_Click() Form2.Show End Sub Private Sub mnudmnv_Click() Form1.Show End Sub Private Sub mnuGiaovien1_Click() frmtheATM.Show vbModal End Sub Private Sub mnuGioithieu_Click() frmSplash.Show vbModal End Sub Private Sub mnuHethong1_Click() frmQuanlynguoidung.Show vbModal End Sub Private Sub mnuHethong2_Click() frmLichsuDN.Show vbModal End Sub Private Sub mnuHethong3_Click() mnuChucvu.Enabled = False 'mnuDiem.Enabled = False mnuGiaovien.Enabled = False mnuGiaovien1.Enabled = False mnuHelp.Enabled = True mnuHethong.Enabled = True mnuHethong1.Enabled = False mnuHethong2.Enabled = False mnuHethong3.Enabled = True mnuHethong4.Enabled = False mnuHethong5.Enabled = False mnuHocsinh.Enabled = False mnuHocsinh1.Enabled = False mnuHsktkl.Enabled = False Lớp tin học kinh tế 46B SVTH: Trịnh Tất Thắng Chuyên đề tốt nghiệp 101 GVHD: GVC Đoàn Quốc Tuấn 'mnuKTKL.Enabled = False mnuKTKL111.Enabled = False mnuQlchung.Enabled = True mnuQlchung1.Enabled = False mnuQlchung2.Enabled = False mnuQlchung3.Enabled = False mnuTacgia.Enabled = True mnuThoat.Enabled = True mnuTimkiem.Enabled = True mnuTimkiemGV.Enabled = False mnuTimkiemHS.Enabled = False mnuTrinhdo.Enabled = False Toolbar1.Buttons.Item(4).Enabled = False Toolbar1.Buttons.Item(6).Enabled = False frmLogin.Show vbModal End Sub Private Sub mnuHethong4_Click() frmThongtinnganhang.Show vbModal End Sub Private Sub mnuHethong5_Click() frmThaydoimatkhau.Show vbModal End Sub Private Sub mnuHocsinh1_Click() frmkhachhang2.Show vbModal End Sub Private Sub mnuHsktkl_Click() frmtaikhoan.Show vbModal End Sub Private Sub mnuhst_Click() Form4.Show End Sub Private Sub mnuhstk_Click() Form3.Show End Sub Private Sub mnuQlchung1_Click() frmQuanlynguoidung.Show vbModal Lớp tin học kinh tế 46B SVTH: Trịnh Tất Thắng Chuyên đề tốt nghiệp 102 GVHD: GVC Đoàn Quốc Tuấn End Sub Private Sub mnuQlchung2_Click() frmkhachhang2.Show vbModal End Sub Private Sub mnuTacgia_Click() frmTacgia.Show vbModal End Sub Private Sub mnuThoat_Click() If MsgBox("Bạn có muốn thoát không? "Thong bao") = vbYes Then End End If End Sub ", vbYesNo + vbQuestion, Private Sub mnuTimkiemGV_Click() frmTimkiemtk.Show vbModal End Sub Private Sub mnuTimkiemHS_Click() frmTimkiemhocsinh.Show vbModal End Sub Private Sub mnuTimkiemKTKL_Click() frmTimkiemKH.Show vbModal End Sub Private Sub mnuTrinhdo_Click() frmnhanvien.Show vbModal End Sub Private Sub Form_Unload(Cancel As Integer) WindowsXPC1.EndWinXPCSubClassing End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case "3" Call mnuHethong3_Click Case "4" frmLichsuDN.Show vbModal Case "6" frmnhanvien.Show vbModal Case "7" Lớp tin học kinh tế 46B SVTH: Trịnh Tất Thắng Chuyên đề tốt nghiệp 103 GVHD: GVC Đoàn Quốc Tuấn frmkhachhang2.Show vbModal Case "8" frmtaikhoan.Show vbModal Case "10" frmTimkiemKH.Show vbModal Case "11" frmTimkiemhocsinh.Show vbModal Case "13" frmThongtinnganhang.Show vbModal End Select End Sub Form thẻ ATM Option Explicit Dim AddingHocsinh As Boolean Dim rsHocsinh As ADODB.Recordset Private Sub cbotdvanhoa_Change() Call Scroll_Combo(cbotdvanhoa) End Sub Private Sub cbotthonnhan_Change() Call Scroll_Combo(cbotthonnhan) End Sub Private Sub Command1_Click() frmtaikhoan.Show vbModal Call FillCombo("Select taikhoan from taikhoan order by taikhoan", cboMalop) End Sub Private Sub Command2_Click() frmkhachhang2.Show vbModal Call FillCombo("Select makh from khachhang order by makh", cboMachucvu) End Sub Private Sub Command3_Click() frmtiengui.Show vbModal Call FillCombo("Select matiengui from teptiengui order by matiengui", cbotthonnhan) End Sub Private Sub Command4_Click() frmlaisuat1.Show vbModal Call FillCombo("Select malaisuat from danhmuclaisuat order by malaisuat", cbotdvanhoa) End Sub Private Sub Command5_Click() Lớp tin học kinh tế 46B SVTH: Trịnh Tất Thắng Chuyên đề tốt nghiệp 104 GVHD: GVC Đoàn Quốc Tuấn frmdanhmuckieuthe.Show vbModal Call FillCombo("Select tenkieuthe from danhmuckieuthe order by tenkieuthe", cbocongan) End Sub Private Sub Command6_Click() frmloaiphathanh.Show vbModal Call FillCombo("Select loaiphathanh from loaiphathanh order by loaiphathanh", Cbotencongty) End Sub Private Sub Command7_Click() frmdanhmucgioihan.Show vbModal Call FillCombo("Select magioihan from danhmucgioihan order by magioihan", Cbotenloaikhachhang) End Sub Private Sub Command8_Click() Dim sql As String If (Text2.Text = "") And (Text1.Text = "") Then MsgBox "Bạn phải chọn tiêu chí để tìm kiếm ", , "Thong bao" Exit Sub End If sql = "Select * from theatm where True" If Text2.Text "" Then sql = sql & " and sothe= '" & Text1.Text & "'" End If If Text1.Text "" Then sql = sql & " and taikhoan = '" & Text2.Text & "'" End If Set rsHocsinh = New ADODB.Recordset rsHocsinh.Open sql, Conn, adOpenStatic, adLockOptimistic If rsHocsinh.RecordCount = Then MsgBox "Không tìm thấy ghi thoả mÃn điều kiện ", , "Thong bao" End If Set Grid1.DataSource = rsHocsinh 'Call SetGrid End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) MsgBox KeyCode End Sub Lớp tin học kinh tế 46B SVTH: Trịnh Tất Thắng Chuyên đề tốt nghiệp 105 GVHD: GVC Đoàn Quốc Tuấn Private Sub Form_Load() Set rsHocsinh = New ADODB.Recordset rsHocsinh.Open "Select * from theATM", Conn, adOpenStatic, adLockOptimistic Set Grid1.DataSource = rsHocsinh Call CenterMyForm(Me) Call FillCombo("Select taikhoan from taikhoan order by taikhoan", cboMalop) Call FillCombo("Select makh from khachhang order by makh", cboMachucvu) Call FillCombo("Select matiengui from teptiengui order by matiengui", cbotthonnhan) Call FillCombo("Select malaisuat from danhmuclaisuat order by malaisuat", cbotdvanhoa) Call FillCombo("Select magioihan from danhmucgioihan order by magioihan", Cbotenloaikhachhang) Call FillCombo("Select loaiphathanh from loaiphathanh order by loaiphathanh", Cbotencongty) Call FillCombo("Select tenkieuthe from danhmuckieuthe order by tenkieuthe", cbocongan) AddingHocsinh = False lblSua.Visible = False txtMahocsinh.Enabled = False cmdGhilai.Enabled = False cmdBoqua.Enabled = False cmdKetiep.Enabled = True cmdQuaylui.Enabled = True WindowsXPC1.InitSubClassing End Sub Private Sub cbomalop_Change() Call Scroll_Combo(cboMalop) End Sub Private Sub cboMachucvu_Change() Call Scroll_Combo(cboMachucvu) End Sub Private Sub cmdBoqua_Click() AddingHocsinh = False Call ResetValues cmdBoqua.Enabled = False cmdThemmoi.Enabled = True cmdGhilai.Enabled = False cmdXoa.Enabled = True cmdQuaylui.Enabled = True cmdKetiep.Enabled = True Call DisplayData txtMahocsinh.Enabled = False Lớp tin học kinh tế 46B SVTH: Trịnh Tất Thắng Chuyên đề tốt nghiệp 106 GVHD: GVC Đoàn Quốc Tuấn End Sub Private Sub Cmddong_Click() If AddingHocsinh Then If MsgBox("B¹n muèn ghi l¹i ghi vừa nhập không? + vbInformation, "Thong bao") = vbYes Then Call Cmdghilai_Click Exit Sub End If End If AddingHocsinh = False Unload Me End Sub ", vbYesNo Private Sub Cmdghilai_Click() On Error Resume Next Dim s As String If Len(Trim(txtMahocsinh.Text)) = Then MsgBox "B¹n h·y nhËp sè thỴ ", vbInformation, "Thong bao" txtMahocsinh.SetFocus Exit Sub End If If rsHocsinh.RecordCount Then s = "Select sothe from theATM where sothe='" & Trim(txtMahocsinh.Text) & "'" If CheckKey(s) And AddingHocsinh Then MsgBox "số thẻ đà có Bạn hÃy nhập eôs thẻ khác ", vbOKOnly, "Thong bao" txtMahocsinh.SetFocus txtMahocsinh.Text = "" Exit Sub End If End If If Len(Trim(txtTenhocsinh.Text)) = Then MsgBox "B¹n h·y nhËp mËt khÈu ", vbInformation, "Thong bao" txtTenhocsinh.SetFocus Exit Sub End If If Len(Trim(cboMalop.Text)) = Then MsgBox "Bạn hÃy nhập tài khoản ", vbInformation, "Thong bao" cboMalop.SetFocus Exit Sub End If If Len(Trim(cboMachucvu.Text)) = Then MsgBox "Bạn hÃy nhập têẫnm khách hàng ", vbInformation, "Thong bao" cboMachucvu.SetFocus Lớp tin học kinh tế 46B SVTH: Trịnh Tất Thắng Chuyên đề tốt nghiệp 107 GVHD: GVC Đoàn Quốc Tuấn Exit Sub End If If Len(Trim(cbotthonnhan.Text)) = Then MsgBox "B¹n h·y nhËÉnm tiỊn gưi ", vbInformation, "Thong bao" cboMachucvu.SetFocus Exit Sub End If If Len(Trim(cbotdvanhoa.Text)) = Then MsgBox "B¹n h·y nhËp l·i suÊt ", vbInformation, "Thong bao" cboMachucvu.SetFocus Exit Sub End If If Len(Trim(cbocongan.Text)) = Then MsgBox "Bạn hÃy nhập tên kiểu thỴ ", vbInformation, "Thong bao" cbocongan.SetFocus Exit Sub End If If Len(Trim(Cbotencongty.Text)) = Then MsgBox "B¹n h·y nhËp lo¹i phát hành ", vbInformation, "Thong bao" Cbotencongty.SetFocus Exit Sub End If If Len(Trim(Cbotenloaikhachhang.Text)) = Then MsgBox "B¹n h·y nhËÉnm giãi h¹n ", vbInformation, "Thong bao" Cbotenloaikhachhang.SetFocus Exit Sub End If If mskNgaysinh.Text = " / / " Then MsgBox "Bạn hÃy nhập ngày nộp đơn ", vbInformation, "Thong bao" mskNgaysinh.SetFocus Exit Sub End If If Not IsDate(mskNgaysinh.Text) Then MsgBox "Bạn hÃy nhập ngayf nộp đơn ", vbInformation, "Thong bao" mskNgaysinh.SetFocus mskNgaysinh.Mask = "##/##/##" mskNgaysinh.Text = " / / " Exit Sub End If If txtHotenbo.Text = " / / " Then MsgBox "Bạn hÃy nhập ngày huỷ txtHotenbo.SetFocus Exit Sub End If Lớp tin học kinh tế 46B ", vbInformation, "Thong bao" SVTH: Trịnh Tất Thắng Chuyên đề tốt nghiệp 108 If Not IsDate(txtHotenbo.Text) Then MsgBox "B¹n h·y nhËp ngµy hủ txtHotenbo.SetFocus txtHotenbo.Text = " / / " Exit Sub End If GVHD: GVC Đoàn Quốc Tuấn ", vbInformation, "Thong bao" If Not IsDate(txtHotenme.Text) Then MsgBox "B¹n h·y nhËp ngµy hủ ", vbInformation, "Thong bao" txtHotenme.SetFocus txtHotenme.Text = " / / " Exit Sub End If If Val(txtDienthoai.Text) = Then MsgBox "Bạn hÃy nhập xác nhận mật ", vbInformation, "Thong bao" txtDienthoai.SetFocus Exit Sub End If With rsHocsinh If AddingHocsinh Then AddNew !sothe = txtMahocsinh.Text !matkhau = txtTenhocsinh.Text !taikhoan = GetFieldValues("Select taikhoan from taikhoan where taikhoan='" & cboMalop.Text & " ' ") !makhachhang = GetFieldValues("Select makh from khachhang where makh='" & cboMachucvu.Text & " ' ") !matiengui = GetFieldValues("Select matiengui from teptiengui where matiengui='" & cbotthonnhan.Text & " ' ") !malaisuat = GetFieldValues("Select malaisuat from danhmuclaisuat where malaisuat='" & cbotdvanhoa.Text & " ' ") !tenkieuthe = GetFieldValues("Select tenkieuthe from danhmuckieuthe where tenkieuthe='" & cbocongan.Text & " ' ") !loaiphathanh = GetFieldValues("Select loaiphathanh from loaiphathanh where loaiphathanh='" & Cbotencongty.Text & " ' ") !magioihan = GetFieldValues("Select magioihan from danhmucgioihan where danhmucgioihan='" & Cbotenloaikhachhang.Text & " ' ") !ngaynopdon = mskNgaysinh.Text !xacnhanlaimatkhau = txtDienthoai.Text !ngayhuy = txtHotenbo.Text !ngayhieuluc = txtHotenme.Text Else Lớp tin học kinh tế 46B SVTH: Trịnh Tất Thắng Chuyên đề tốt nghiệp 109 GVHD: GVC Đoàn Quốc Tuấn !sothe = txtMahocsinh.Text !matkhau = txtTenhocsinh.Text !taikhoan = GetFieldValues("Select taikhoan from taikhoan where taikhoan='" & cboMalop.Text & " ' ") !makhachhang = GetFieldValues("Select makh from khachhang where makh='" & cboMachucvu.Text & " ' ") !matiengui = GetFieldValues("Select matiengui from teptiengui where matiengui='" & cbotthonnhan.Text & " ' ") !malaisuat = GetFieldValues("Select malaisuat from danhmuclaisuat where malaisuat='" & cbotdvanhoa.Text & " ' ") !tenkieuthe = GetFieldValues("Select tenkieuthe from danhmuckieuthe where tenkieuthe='" & cbocongan.Text & " ' ") !loaiphathanh = GetFieldValues("Select loaiphathanh from loaiphathanh where loaiphathanh='" & Cbotencongty.Text & " ' ") !magioihan = GetFieldValues("Select magioihan from danhmucgioihan where danhmucgioihan='" & Cbotenloaikhachhang.Text & " ' ") !ngaynopdon = mskNgaysinh.Text !xacnhanlaimatkhau = txtDienthoai.Text !ngayhuy = txtHotenbo.Text !ngayhieuluc = txtHotenme.Text End If Update End With AddingHocsinh = False cmdXoa.Enabled = True cmdThemmoi.Enabled = True cmdBoqua.Enabled = False cmdKetiep.Enabled = False cmdQuaylui.Enabled = True cmdGhilai.Enabled = False txtMahocsinh.Enabled = False End Sub Private Sub Cmdketiep_Click() On Error GoTo errsHocsinh cmdQuaylui.Enabled = True cmdGhilai.Enabled = True lblSua.Visible = True If Not rsHocsinh.EOF Then rsHocsinh.MoveNext Else MsgBox "Đây hồ sơ cuối bao" rsHocsinh.MoveLast Lớp tin học kinh tế 46B ", vbInformation, "Thong SVTH: Trịnh Tất Thắng Chuyên đề tốt nghiệp 110 GVHD: GVC Đoàn Quốc Tuấn cmdKetiep.Enabled = False End If Call DisplayData txtMahocsinh.Enabled = False errsHocsinh: End Sub Private Sub Cmdquaylui_Click() On Error GoTo errsHocsinh cmdKetiep.Enabled = True cmdGhilai.Enabled = True lblSua.Visible = True If Not rsHocsinh.BOF Then rsHocsinh.MovePrevious Else MsgBox "Đây hồ sơ rsHocsinh.MoveFirst cmdQuaylui.Enabled = False End If Call DisplayData txtMahocsinh.Enabled = False errsHocsinh: End Sub ", vbInformation, "Thong bao" Private Sub cmdThemmoi_Click() cmdXoa.Enabled = False cmdBoqua.Enabled = True cmdGhilai.Enabled = True cmdKetiep.Enabled = False cmdQuaylui.Enabled = False cmdThemmoi.Enabled = False lblSua.Visible = False If AddingHocsinh Then Call Cmdghilai_Click Exit Sub End If AddingHocsinh = True Call ResetValues txtMahocsinh.Enabled = True txtMahocsinh.SetFocus End Sub Private Sub Cmdxoa_Click() cmdGhilai.Enabled = False With rsHocsinh If RecordCount Then Lớp tin học kinh tế 46B SVTH: Trịnh Tất Thắng Chuyên đề tốt nghiệp 111 GVHD: GVC Đoàn Quốc Tuấn If MsgBox("Bạn có muốn xoá ghi không? ", vbYesNo, "Thong bao") = vbYes Then Delete Call ResetValues lblSua.Visible = False End If Else MsgBox "Không ghi ", vbInformation, "Thong bao" Exit Sub End If End With End Sub Private Sub Form_Unload(Cancel As Integer) If AddingHocsinh Then If MsgBox("Bạn có muốn ghi lại ghi võa nhËp kh«ng? vbYesNo + vbInformation, "Thong bao") = vbYes Then Call Cmdghilai_Click Cancel = True Exit Sub End If End If Cancel = False WindowsXPC1.EndWinXPCSubClassing End Sub ", Sub ResetValues() txtMahocsinh.Text = "" txtTenhocsinh.Text = "" cboMalop.Text = "" cboMachucvu.Text = "" cbotdvanhoa.Text = "" cbotthonnhan.Text = "" cbocongan.Text = "" Cbotenloaikhachhang.Text = "" Cbotencongty.Text = "" mskNgaysinh.Mask = "##/##/##" mskNgaysinh.Text = " / / " txtDienthoai.Text = "" txtHotenbo.Text = " / / " txtHotenme.Text = " / / " End Sub Sub DisplayData() Lớp tin học kinh tế 46B SVTH: Trịnh Tất Thắng Chuyên đề tốt nghiệp 112 GVHD: GVC Đoàn Quốc Tuấn With rsHocsinh If EOF Or BOF Then Exit Sub txtMahocsinh.Text = !sothe txtTenhocsinh.Text = !matkhau cboMalop.Text = GetFieldValues("Select taikhoan from taikhoan where taikhoan='" & !taikhoan & "'") cboMachucvu.Text = GetFieldValues("Select makh from khachhang where makh='" & !makh & "'") cbotthonnhan.Text = GetFieldValues("Select matiengui from teptiengui where matiengui='" & !matiengui & "'") cbotdvanhoa.Text = GetFieldValues("Select malaisuat from danhmuclaisuat where malaisuat='" & !malaisuat & "'") cbotdvanhoa.Text = GetFieldValues("Select tenkieuthe from danhmuckieuthe where tenkieuthe='" & !tenkieuthe & "'") cbotdvanhoa.Text = GetFieldValues("Select loaiphathanh from loaiphathanh where loaiphathanh='" & !loaiphathanh & "'") cbotdvanhoa.Text = GetFieldValues("Select magioihan from danhmucgioihan where magioihan='" & !magioihan & "'") mskNgaysinh.Mask = "" mskNgaysinh.Text = !ngaynopdon txtDienthoai.Text = !xacnhanlaimatkhau txtHotenbo.Text = !ngayhuy txtHotenme.Text = !ngayngayhieuluc End With End Sub Private Sub Grid1_Click() lblSua.Visible = True cmdGhilai.Enabled = True cmdKetiep.Enabled = True cmdQuaylui.Enabled = True If AddingHocsinh Then If MsgBox("Đang chế độ thêm Chọn Đồng ý để hiển thị liệu ", vbOKCancel + vbInformation, "Thong bao") = vbCancel Then lblSua.Visible = False Exit Sub Else AddingHocsinh = False cmdBoqua.Enabled = False cmdThemmoi.Enabled = True End If End If txtMahocsinh.Enabled = False Call DisplayData Lớp tin học kinh tế 46B SVTH: Trịnh Tất Thắng Chuyên đề tốt nghiệp 113 GVHD: GVC Đoàn Quốc Tuấn End Sub Private Sub Grid1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call Grid1_Click End If End Sub Private Sub cboGioitinh_KeyPress(KeyAscii As Integer) Call Key_Enter(KeyAscii) End Sub Private Sub cbolop_KeyPress(KeyAscii As Integer) Call Key_Enter(KeyAscii) End Sub Private Sub cbochucvu_KeyPress(KeyAscii As Integer) Call Key_Enter(KeyAscii) End Sub Private Sub txtMahocsinh_KeyPress(KeyAscii As Integer) Call Key_Enter(KeyAscii) End Sub Private Sub txttenhocsinh_KeyPress(KeyAscii As Integer) Call Key_Enter(KeyAscii) End Sub Private Sub mskngaysinh_KeyPress(KeyAscii As Integer) Call Key_Enter(KeyAscii) End Sub Private Sub txthotenbo_KeyPress(KeyAscii As Integer) Call Key_Enter(KeyAscii) End Sub Private Sub txthotenme_KeyPress(KeyAscii As Integer) Call Key_Enter(KeyAscii) End Sub Private Sub txtDiachi_KeyPress(KeyAscii As Integer) Call Key_Enter(KeyAscii) End Sub Private Sub Txtdienthoai_KeyPress(KeyAscii As Integer) Call Key_Enter(KeyAscii) Call CheckNumber(KeyAscii) End Sub moduls: Lớp tin học kinh tế 46B SVTH: Trịnh Tất Thắng Chuyên đề tốt nghiệp 114 GVHD: GVC Đoàn Quốc Tuấn moduls var Public gConnectionString As String Public Conn As ADODB.Connection Public FirstTime As Boolean Public bFinding As Boolean Public lPos As Long Public lIndex As Long Public LimitToList As Boolean Public chonlop As String Public chonmon As String Public chonhocky As String Public nguoidunghienthoi As String Public thoigian As String Public tentruong As String Public diachitruong As String Lớp tin học kinh tế 46B SVTH: Trịnh Tất Thắng ... trọng thẻ ATM sống người em định lựa chọn đề tài: ? ?Xây dựng chương trình quản lý thẻ ATM Ngân hàng VIBank chi nhánh Quang Trung, Hà Nội? ?? để làm chuyên đề tốt nghiệp Chuyên đề gồm chương: Chương. .. quan Ngân hàng VIBANK chuyên đề thực tập tốt nghiệp Nội dung: • Giới thiệu chung ngân hàng VIBank ngân hàng VIBank chi nhánh Quang Trung, Hà nội • Giới thiệu đơn vị thực tập – Phòng đại lý phát... trọng vấn đề quản lý thẻ, nên em chọn đề tài “ Xây dựng chương trình quản lý thẻ ATM Ngân hàng VIBank chi nhánh Quang Trung, Hà Nội. ” CHƯƠNG II Lý luận chung phân tích thiết kế Hệ thống thông tin
