Phần mềm quản lý nhân sự bằng Visual Basic access (Báo cáo +Code)

Báo cáo tốt nghiệp GVHD : Lương Văn Vân Hình 6: Bảng quản lý người dùng 2). Ràng buộc cơ sở dữ liệu: Mỗi bảng chức vụ, chuyên môn, dân tộc, phòng đều liên kết với bảng nhân viên, khi chúng ta xóa một bảng thì thông tin nhân viên liên quan đến bảng đó sẽ bị xóa theo. Hình 7 :Ràng buộc cơ sở dữ liệu: II. Tiến hành kết nối cơ sơ dữ liệu: 1). Gọi thư viện ADO:  Bấm Ctrl + T -> components -> Microsoft ADO data control 6.0  Tiếp đó chọn đường dẫn tới cơ sở dữ liệu access.(trong công cụ Adodc) 2). Code kết nối cơ sở dữ liệu:  Tạo ra 1 modul và viết code như sau: Public cn As ADODB.Connection Public rs As ADODB.Recordset Public Sub connect(cn As ADODB.Connection) Set cn = New ADODB.Connection SVTH : Lê Quang Vũ – Lớp CĐ Tin 31B Niên Khóa: 2008-2011 Trang 11 Báo cáo tốt nghiệp GVHD : Lương Văn Vân cn.Provider = "Microsoft.Jet.OLEDB.4.0" cn.ConnectionString = "Data Source=" & App.Path & "\Data\data.mdb;" cn.Open End Sub  Mỗi form muốn kết nối với cơ sơ dữ liệu thì chúng ta cần gọi ra như sau: Call connect(cn). III. Thiết kế giao diện và tạo form: 1). Form flash: Được thiết kế bằng photoshop, khi bật chương trình thì hình này sẽ hiện đầu tiên và chạy vào form đăng nhập.  Giao diện như sau: Hình 8: flash  Code để load flash là: (được viết trong Timer) Public i As Integer ‘khai báo biến Private Sub Timer1_Timer() i = Int(i) + 1 PRCHAY = PRCHAY + 1 ‘tên của Progressbar If i = 105 Then Load frmFlash frmdangnhap.Show ‘form đăng nhập hiện thi khi Progressbar chạy xong Unload frmFlash ‘thoát form flash End If End Sub 2). Form đăng nhập:  Giao diện: SVTH : Lê Quang Vũ – Lớp CĐ Tin 31B Niên Khóa: 2008-2011 Trang 12 Báo cáo tốt nghiệp GVHD : Lương Văn Vân Hình 9: Form đăng nhập  Dùng để tạo tính bảo mật cho phần mềm.  Nếu là quyền admin thì menu để chọn vào form quản lý người dùng sẽ hiện lên ngược lại nó sẽ bị ẩn.  Form này được kết nối với cơ sở dữ liệu nếu mật khẩu, tên đăng nhập và quyền không đúng thì sẽ báo lỗi. 3) Form chính:  Form này xuất hiện khi bạn đăng nhập thành công, form này liên kết với các form khác trong chương trình gồm :  Menu File: • Form quản lý người dùng • Thoát.  Menu cập nhật: • Cập nhật nhân viên. • Cập nhật chức vụ. • Cập nhật chuyên môn. • Cập nhật phòng. • Cập nhật dân tộc.  Menu tìm kiếm: • Lựa chọn thông tin cần tìm.  Menu in ấn: • Lựa chọn mục để in  Menu giới thiệu: • Giới thiệu về công ty. • Thông tin tác giả. • Hướng dẫn sử dụng. SVTH : Lê Quang Vũ – Lớp CĐ Tin 31B Niên Khóa: 2008-2011 Trang 13 Báo cáo tốt nghiệp  Giao diện như sau: GVHD : Lương Văn Vân Hình 10: Form chính 4) Form quản lý người dùng:  Giao diện: Hình11: Form quản lý người dùng SVTH : Lê Quang Vũ – Lớp CĐ Tin 31B Niên Khóa: 2008-2011 Trang 14 Báo cáo tốt nghiệp GVHD : Lương Văn Vân  Chỉ truy cập được khi quyền đăng nhập là admin, dùng để thêm, xóa, sửa quyền đăng nhập phần mềm của người sử dụng.  Chú ý : Tên đăng nhập cho mỗi thành viên là khác nhau nếu không sẽ không thêm được. 5) Form cập nhật thông tin nhân viên:  Giao diện: Hình 12: Cập nhật thông tin nhân viên.  Form này dùng để quản lý thông tin về nhân viên trong công ty.  Chú ý: + Mã nhân viên phải không được trùng. + Mã chức vụ không được làm giám đốc, nếu mã chức vụ là ‘GD’ thì sẽ hiện thông báo đã có giám đốc + Không thể xóa thông tin nhân viên nếu có mã chức vụ là ‘GD’ mà chỉ cho phép sửa. + Các textbox về lương, phụ cấp chỉ cho phép nhập số. + Các combobox mã chức vụ, chuyên môn, dân tộc, phòng, giới tính chỉ được chọn không cho phép nhập.  Code không cho ghi chữ vào textbox : If InStr("1234567890" + Chr$(vbKeyBack), Chr$(KeyAscii)) = 0 Then KeyAscii = 0  Code không cho nhập số và chữ: Dim sTemplate As String sTemplate = "!@#$%^&*()_+-=1234567890" SVTH : Lê Quang Vũ – Lớp CĐ Tin 31B Niên Khóa: 2008-2011 Trang 15 Báo cáo tốt nghiệp GVHD : Lương Văn Vân If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then KeyAscii = 0  Bấm nút thoát để trở lại form chính. 6) Form cập nhật chức vụ:  Giao diện : Hình 13: Cập nhật chức vụ  Dùng để cập nhật chức vụ cho nhân viên, form này sẽ liên kết với form nhân viên  Khi thêm thì mã chức vụ không được trùng.  Bấm nút thoát để trở lại form chính. 7) Form cập nhật chuyên môn:  Giao diện: SVTH : Lê Quang Vũ – Lớp CĐ Tin 31B Niên Khóa: 2008-2011 Trang 16