IV. THIẾT KẾ VẬT Lí NGOÀI
2. Một số giao diện của chương trỡnh
Form Đăng nhập:
Bất cứ người dựng nào muốn truy nhập vào hệ thống đều phải đăng nhập vào hệ thống. Khi người dựng đăng nhập, tựy vào quyền mà người dựng được cấp thỡ trờn menu sẽ hiện tương ứng cỏc chức năng mà người dựng được sử dụng.
Sau khi nhấn vào đăng nhập, người dựng chỉ cần gừ tờn và mật khẩu rồi nhấn vào nỳt “Đăng nhập” hoặc gừ “Enter”
Kết quả nếu đăng nhập thành cụng thỡ giao diện chớnh của chương trỡnh sẽ hiện ra như sau:
Hệ thống Menu của chương trỡnh:
MeNu Hệ Thống:
MeNu Quản Lý:
MeNu Trợ Giỳp:
Form Thay Đổi Mật Khẩu:
Nhấn vào nỳt trtr trờn thanh Toolbar của giao diện chớnh hoặc vào menu “Hệ Thống”→ “Thay đổi mật khẩu”. Form “Thay đổi mật khẩu” sẽ xuất hiện:
Nhập mật khẩu cũ, mật khẩu mới và xỏc nhận mật khẩu mới Gừ Enter hoặc nhấn vào “Thayđổi”.
Form Quản lý người dựng
Nhấn vào nỳt trờn thanh Toolbar hoặc vào “Hệ Thống”→ “Quản lý người dựng”. Form này cho phộp quản trị viờn hệ thống quản lý cỏc tài khoản, như: tạo tài khoản mới, thay đổi hay xúa tài khoản cũ…
Cỏc form danh mục:
Cho phộp quản lý cỏc thực thể như: Ca học, khúa học, lớp học, học viờn, sỏch, dự ỏn…
Form Cấp Khúa Học:
Form Lớp học:
Cỏc form quản lý:
Form Nhập Điểm:
Cỏc form tra cứu:
Dựng để tra cứu thụng tin về cỏc thực thể như khúa học, lớp học, thời khúa biểu, thụng tin về học viờn với nhiều tiờu chớ tỡm kiếm khỏc nhau.
3. Một số bỏo cỏo
Bỏo cỏo theo khúa học:
Lựa chọn kiểu bỏo cỏo và nhập thời gian cần xột vào form:
Sau đú nhấn vào nỳt “Xem Thử” để xem bỏo cỏo trước khi in ra. Nhấn vào nỳt “In”, hệ thống sẽ kết nối với mỏy in để in ra bỏo cỏo.
Mẫu bỏo cỏo như sau:
Bỏo cỏo về thụng tin học viờn:
Chọn “Tất cả”: Mẫu bỏo cỏo:
Chọn “Theo khúa học”, nhấn chuột vào nỳt trễ ở Combobox bờn cạnh để chọn khúa học. Mẫu bỏo cỏo:
In Chứng Chỉ:
Mẫu chứng chỉ:
VI. YấU CẦU VỀ MẶT KỸ THUẬT VÀ NHÂN SỰ KHI TRIỂN KHAI HỆ THỐNG
1. Yờu cầu về mặt kỹ thuật
1.1 Kho dữ liệu
Hệ thống được triển khai trờn nền desktop, hoạt động trong mụi trường mạng cục bộ, sử dụng cơ sở dữ liệu tập trung. Kho dữ liệu của hệ thống được cài đặt tập trung trờn mỏy chủ, sử dụng hệ quản trị cơ sở dữ liệu Microsoft Access . Khi hoạt
động, tất cả cỏc mỏy trạm đều phải truy cập vào mỏy chủ để cập nhật và kết xuất dữ liệu.
1.2 Phần mềm
Chương trỡnh được viết bằng ngụn ngữ Visual Basic 6.0, sử dụng hệ quản trị cơ sở dữ liệu Microsoft Access, bỏo cỏo đầu ra sử dụng Crystal Reports. Đõy là những cụng cụ được Windows hỗ trợ mạnh nờn mỏy tớnh sẽ khụng gặp khú khăn trong việc chạy chương trỡnh. Chương trỡnh này dễ dàng tương thớch với cỏc phần mềm hệ thống và cỏc trỡnh ứng dụng phổ biến khỏc.
1.3 Phần cứng
Chương trỡnh cũng dễ thớch nghi với cỏc loại mỏy, kể cả mỏy tớnh cú cấu hỡnh thấp, cú thể kết nối với cỏc thiết bị ngoại vi như mỏy in để xuất ra bỏo cỏo.
Cụng ty AI cú nhiều mỏy tớnh, cấu hỡnh tối thiểu là: Main Intel Pentium 4, 1.5 GB, Ram 256 MB, sử dụng hệ điều hành WindowsXP Professional nờn dễ dàng sử dụng phần mềm này.
Để triển khai hệ thống cần lắp đặt một mỏy tớnh ở phũng giỏo vụ, một mỏy ở thư viện và trang bị cho mỗi phũng học một mỏy. Ngoài ra, cần phải cú một mỏy in chung để cỏc mỏy cú thể kết nối, in ra bỏo cỏo lỳc cần thiết.
2. Yờu cầu về nhõn sự
Phần mềm cú giao diện khỏ thõn thiện và dễ sử dụng. Hơn nữa, để vận hành hệ thống chỉ cần người cú kỹ năng mỏy tớnh cơ bản, AI là một cụng ty tin học nờn cú đội ngũ nhõn viờn am hiểu về tin học. Vỡ vậy, những nhõn viờn trong hệ thống đào tạo của cụng ty đều cú thể nhanh chúng nắm bắt được cỏch sử dụng của phần mềm mới này mà khụng phải bỏ ra nhiều chi phớ để đào tạo người sử dụng.
KẾT LUẬN
Mỏy múc ngày càng thay thế con người trong lao động tay chõn và trớ úc, đem lại hiệu quả cụng việc một cỏch nhanh chúng, chớnh xỏc. Việc tin học hoỏ cụng tỏc quản lý học viờn tại cụng ty AI là điều tất yếu trong quỏ trỡnh phỏt triển của hệ thống đào tạo của cụng ty. Vỡ vậy, với đề tài “Xõy dựng hệ thống thụng tin quản lý học viờn tại cụng ty AI” tụi đó đi sõu vào tỡm hiểu, nghiờn cứu cụng tỏc quản lý học viờn tại cụng ty. Từ đú, xõy dựng một phần mềm để quản lý cỏc học viờn tại cụng ty. Hệ thống này giỳp quản lý chặt chẽ, hiệu quả học viờn từ bước tuyển sinh cho đến khi kết thỳc khúa học. Cụ thể như sau:
+ Quản lý thụng tin học viờn, thụng tin lớp học, khoỏ học + Xếp lớp, tạo thời khúa biểu, khai giảng
+ Giỏm sỏt, theo dừi tỡnh học tập của học viờn
+ Giỏm sỏt theo dừi tỡnh hỡnh mượn sỏch thư viện của học viờn.
+ Hỗ trợ tra cứu tỡm kiếm cỏc thụng tin và tổng hợp, in ra cỏc bỏo cỏo nhanh chúng, chớnh xỏc theo nhiều tiờu chớ khỏc nhau, in ra chứng chỉ cho học viờn.
Tuy đõy là phần mềm đơn giản, chức năng cũn hạn chế nhưng lại khỏ hiệu quả đối với hoạt động quản lý học viờn tại AI. Tụi hi vọng phần mềm này sẽ được ứng dụng và mang lại hiệu quả cao cho cụng tỏc đào tạo của cụng ty. Với phong cỏch làm việc chuyờn nghiệp, quản lý chặt chẽ, hiệu quả, tụi tin rằng phần mềm này sẽ gúp phần nõng cao chất lượng cũng như uy tớn của Trung tõm, đưa AI trở thành một trong những trung tõm đào tạo tin học hàng đầu.
Trong giai đoạn tới tụi sẽ dựa trờn những ý kiến đúng gúp của thầy cụ và cỏc bạn, nhất là ý kiến phản hồi từ ban quản lý đào tạo của AI để hoàn thành tốt hơn phần mềm này. Một số hướng phỏt triển của đề tài:
- Hoàn chỉnh và bổ sung thờm cỏc chức năng tỡm kiếm và bỏo cỏo của chương trỡnh.
viờn và bổ sung thờm tài nguyờn bài học để nõng cấp chương trỡnh thành hệ thống quản lý đào tạo của cụng ty AI.
Tụi rất mong muốn nhận được những ý kiến và chỉ bảo quớ bỏu từ thầy cụ, cũng như ý kiến đúng gúp bổ ớch từ cỏc bạn.
DANH MỤC TÀI LIỆU THAM KHẢO
1. PGS.TS. Hàn Viết Thuận
Giỏo trỡnh cấu trỳc dữ liệu và giải thuật – NXB Thống Kờ, Hà Nội, 2005 2. TS. Trương Văn Tỳ – TS. Trần Thị Song Minh
Giỏo trỡnh hệ thống thụng tin quản lý –NXB Thống Kờ, Hà Nội, 2000 3. Trần Cụng Uẩn
Giỏo trỡnh Cơ sở dữ liệu – NXB Thống Kờ, Hà Nội, 2000 4. Nguyễn Thị Ngọc Mai
Microsoft Visual Basic & Lập trỡnh cơ sở dữ liệu 6.0 – NXB Lao Động Xó Hội, TP. Hồ Chớ Minh, 2004
5. Lờ Tiến Vương
Nhập mụn Cơ sở dữ liệu quan hệ- NXB Thống Kờ 6. Trần Đức Quang
Quản trị Cơ sở dữ liệu – NXB Xõy Dựng 7. Vũ Đức Thi
Cấu trỳc dữ liệu và giải thuật – NXB Thống Kờ 8. Tài liệu Cụng ty TNHH Trớ Tuệ Nhõn Tạo - 2007 9. Cỏc tài liệu khỏc trờn cỏc bỏo, tạp chớ và Internet.
PHỤ LỤC CHƯƠNG TRèNH
MỘT SỐ ĐOẠN CODE TRONG CHƯƠNG TRèNH
Form Main:
Private Sub cmdDangNhap_Click()
If cq = "Quản trị hệ thống" Or cq = "Giỏo viờn" Or cq = "Thủ thư” Or cq = "Học viờn" Or cq = "Giỏo viờn" Then
Dim Traloi
Traloi = MsgBox(" Bạn thực sự muốn thoỏt khỏi tài khoản đang dựng?", vbYesNo) If Traloi = vbNo Then
Exit Sub End If End If
frmlogin.Show End Sub
Private Sub Command1_Click() FrmThayDoiMatKhau.Show End Sub
Private Sub Command4_Click() FrmNguoiDung.Show
End Sub
Private Sub Command5_Click() Dim Traloi
Traloi = MsgBox("Bạn thực sự muốn thoỏt khỏi chương trỡnh?", vbYesNo, "Thụng bỏo!")
If Traloi = vbNo Then Exit Sub
Else
MsgBox "Cỏm ơn bạn đó sử dụng chương trỡnh!", , "AISchool" End
End If End Sub
Private Sub Label1_Click() End Sub
cq = "0" Module1.phanquyen Timer1.Interval = 100 StatusBar2.Panels(1).Text = " AISchool" frmlogin.Show End Sub
Private Sub mnCaHoc_Click() FrmCaHoc.Show
End Sub
Private Sub mnDangNhap_Click()
If cq = "Quản trị hệ thống" Or cq = "Giỏo viờn" Or cq = "Thủ thư” Or cq = "Học viờn" Or cq = "Giỏo viờn" Then
Dim Traloi
Traloi = MsgBox("Bạn thực sự muốn thoỏt khỏi tài khoản đang dựng?", vbYesNo) If Traloi = vbNo Then
Exit Sub End If End If
frmlogin.Show End Sub
Private Sub mnDangXuat_Click() Dim Traloi
Traloi = MsgBox("Bạn thực sự muốn đăng xuất ?", vbYesNo, "Thụng Bỏo!") If Traloi = vbNo Then
Exit Sub End If cq = "0"
Module1.phanquyen
MsgBox " Chào tạm biệt!", , "AISchool" StatusBar2.Panels(3).Text = " Người sử dụng" End Sub
Private Sub mnDanhMucSach_Click() FrmDanhMucSach.Show
End Sub
Private Sub mnDanhSachHocVien_Click() frmBCHV.Show
FrmDuAn.Show End Sub
Private Sub mnInChungChi_Click() FrmInCC.Show
End Sub
Private Sub mnKhoaHoc1_Click() FrmTKKhoaHoc.Show
End Sub
Private Sub mnLopHoc_Click() FrmQuanLyLopHoc.Show End Sub
Private Sub mnNhapDiem_Click() FrmNhapDiem.Show
End Sub
Private Sub mnNhapKhoaHoc_Click() FrmQuanLyKhoaHoc.Show
End Sub
Private Sub mnNhapLoaiHocVien_Click() FrmLoaiHocVien.Show
End Sub
Private Sub mnNhapLoaiKhoaHoc_Click() FrmQuanLyCapKhoaHoc.Show
End Sub
Private Sub mnNhapThongTinHocVien_Click() FrmThongTinHocVien.Show
End Sub
Private Sub mnNhom_Click() FrmNhom.Show
End Sub
Private Sub mnPhanDuAn_Click() FrmPhanDA.Show
Private Sub mnTaoTaiKhoanMoi_Click() FrmNguoiDung.Show
End Sub
Private Sub mnThayDoiMatKhau_Click() FrmThayDoiMatKhau.Show
End Sub
Private Sub mnTheoKhoaHoc_Click() frmBC.Show
End Sub
Private Sub mnThoat_Click() Dim Traloi
Traloi = MsgBox("Bạn thực sự muốn thoỏt khỏi chương trỡnh?", vbYesNo, "Thụng bỏo!")
If Traloi = vbNo Then Exit Sub
Else
MsgBox " Cỏm ơn bạn đó sử dụng chương trỡnh!", , "AISchool" End
End If End Sub
Private Sub mnThongTinHocVien_Click() frmBCHV.Show
End Sub
Private Sub Timer1_Timer() Dim X, Y As String
X = Left(StatusBar2.Panels(1).Text, 1)
Y = Right(StatusBar2.Panels(1).Text, Len(StatusBar2.Panels(1).Text) - 1) StatusBar2.Panels(1).Text = Y + X
Form Đăng nhập(Frmlogin):
Private demdn As Integer Private Sub cmdok_Click() Do While txtTDN.Text = ""
MsgBox "Bạn chưa nhập tờn đăng nhập!" Exit Sub
txtTDN.SetFocus Loop
Do While txtpass.Text = ""
MsgBox " Bạn chưa nhập mật khẩu!" Exit Sub
txtpass.SetFocus Loop
Dim Pw, use As String Pw = txtpass.Text use = txtTDN.Text
Dim Conn As ADODB.Connection Dim rs As ADODB.Recordset Dim kt As Boolean
Dim sql As String
Set Conn = New ADODB.Connection
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database\csdl.mdb;"
Conn.Open
Set rs = New ADODB.Recordset sql = "select * from canbo"
rs.Open sql, Conn, dOpenStatic, adLockOptimistic kt = False
rs.MoveFirst 'begin to check
Do While (Not rs.EOF) And (kt = False)
If UCase(rs![User]) = UCase(use) And UCase(rs![pass]) = UCase(Pw) Then kt = True cq = rs![quyen] Else rs.MoveNext End If Loop If demdn < 3 Then If kt = True Then dem = 0
Unload Me Else
demdn = demdn + 1
MsgBox " Tờn đăng nhập hoặc mật khẩu khụng đỳng. Vui long thử lại!" txtTDN.Text = "" txtpass.Text = "" txtTDN.SetFocus Exit Sub cq = "0" txtTDN.SetFocus End If Else
MsgBox "Bạn đó đăng nhập quỏ ba lần. Vui long thử lại lần sau!", vbOKOnly + vbInformation, "AISchool"
End End If
Module1.phanquyen
FrmMain.StatusBar2.Panels(3).Text = " Người sử dụng: " & rs![hovaten] FrmMain.StatusBar2.Panels(4).Text = cq
End Sub
Private Sub cmdthoi_Click() Unload Me
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then
SendKeys "{Tab}" KeyAscii = 0 End If
End Sub
Private Sub Form_Load() demdn = 0
End Sub
Private Sub txtpass_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then
cmdok_Click KeyAscii = 0 End If
Private Sub KhongChoUpDate() Grd.AllowUpdate = False txtMaHocVien.Locked = True txtTenHocVien.Locked = True cbMaLoaiHocVien.Locked = True txtNgaySinh.Locked = True cbGioiTinh.Locked = True txtDonViCongTac.Locked = True txtMaSinhVien.Locked = True txtNgayDangKy.Locked = True txtTienDatCoc.Locked = True txtDiaChi.Locked = True txtDienThoai.Locked = True txtEmail.Locked = True End Sub
Private Sub ChoPhepUpDate() Grd.AllowUpdate = True txtMaHocVien.Locked = False txtTenHocVien.Locked = False cbMaLoaiHocVien.Locked = False txtNgaySinh.Locked = False cbGioiTinh.Locked = False txtDonViCongTac.Locked = False txtMaSinhVien.Locked = False txtNgayDangKy.Locked = False txtTienDatCoc.Locked = False txtDiaChi.Locked = False txtDienThoai.Locked = False txtEmail.Locked = False End Sub
Private Sub cbKhoaHoc_LostFocus()
Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database\csdl.mdb;Persist Security Info=False"
Adodc3.CommandType = adCmdText
Adodc3.RecordSource = "select MaLH from LopHoc where MaKH='" & cbKhoaHoc.Text & "'"
Adodc3.Refresh
If Adodc3.Recordset.EOF <> Adodc3.Recordset.EOF Then Adodc3.Recordset.MoveFirst
End If
If cbLopHoc.ListCount <> 0 Then cbLopHoc.Clear
End If
Do While Not Adodc3.Recordset.EOF
cbLopHoc.AddItem (Adodc3.Recordset![MaLH]) Adodc3.Recordset.MoveNext
Loop End Sub
Private Sub cmdCapNhat_Click()
If txtMaHocVien.Text = "" Or txtTenHocVien.Text = "" Then MsgBox "Bạn cha nhập đủ thông tin!", , "AISchool"
Exit Sub End If
Adodc.Recordset.Save Grd.AllowUpdate = False
lbSokq1.Caption = "Số bản ghi:" & Adodc.Recordset.RecordCount End Sub
Private Sub cmdKetthuctimkiem_Click() txtGiaTri.Text = ""
cbTimTheo.Text = "" NapAdodc
lbSokq.Caption = ""
lbSokq1.Caption = "Số bản ghi:" & Adodc.Recordset.RecordCount KhongChoUpDate
End Sub
Private Sub cmdSua_Click() Dim Traloi As Integer
If txtMaHocVien.Text = "" Or txtTenHocVien.Text = "" Then MsgBox "Bạn cha chọn tài khoản để sửa!", , "AISchool" Exit Sub Else Grd.AllowUpdate = True Adodc.Recordset.Update ChoPhepUpDate End If End Sub
Traloi = MsgBox("Bạn có chắc chắn muốn tạo mới không?", vbInformation + vbYesNo, "AISchool")
If Traloi = vbNo Then Grd.AllowDelete = False Else
Grd.AllowDelete = True
Do While Adodc.Recordset.EOF = False Adodc.Recordset.Delete
Adodc.Recordset.MoveNext Loop
End If
lbSokq1.Caption = "Số bản ghi:" & Adodc.Recordset.RecordCount End Sub
Private Sub cmdThoat_Click() Unload Me
End Sub
Private Sub cmdTim_Click() Dim str As String
Dim trloi As Integer
If cbTimTheo.Text = "" Then
trloi = MsgBox("Bạn hãy nhập tiêu thức cần tìm kiếm", vbOKOnly, "AISchool")
If trloi = vbOK Then cbTimTheo.SetFocus Exit Sub
End If
ElseIf txtGiaTri.Text = "" Then
trloi = MsgBox("Bạn hãy nhập vào giá trị cần tìm kiếm", vbOKOnly, "AISchool")
If trloi = vbOK Then txtGiaTri.SetFocus Exit Sub
End If
ElseIf cbTimTheo.Text = "Mã học viên" Then str = "MaHV" Adodc.RecordSource = "select
MaHV,TenHV,MaLoaiHV,NgaySinh,GioiTinh,CongTy,MaSV,NgayDangKy,MaL H,TienDatCoc,DiaChi,DienThoai,Email from HocVien where " & str & "='" & txtGiaTri.Text & "' ORDER BY MaHV "
str = "TenHV" Adodc.RecordSource = "select
MaHV,TenHV,MaLoaiHV,NgaySinh,GioiTinh,CongTy,MaSV,NgayDangKy,MaL H,TienDatCoc,DiaChi,DienThoai,Email from HocVien where " & str & "='" & txtGiaTri.Text & "' ORDER BY MaHV "
Adodc.Refresh
ElseIf cbTimTheo.Text = "Ngày sinh" Then
str = "NgaySinh" Adodc.RecordSource = "select
MaHV,TenHV,MaLoaiHV,NgaySinh,GioiTinh,CongTy,MaSV,NgayDangKy,MaL H,TienDatCoc,DiaChi,DienThoai,Email from HocVien where " & str &
"=DateValue('" & txtGiaTri.Text & "') ORDER BY MaHV" ElseIf cbTimTheo.Text = "Ngày đăng ký" Then
str = "NgayDangKy" Adodc.RecordSource = "select
MaHV,TenHV,MaLoaiHV,NgaySinh,GioiTinh,CongTy,MaSV,NgayDangKy,MaL H,TienDatCoc,DiaChi,DienThoai,Email from HocVien where " & str &
"=DateValue('" & txtGiaTri.Text & "') ORDER BY MaHV" ElseIf cbTimTheo.Text = "Mã loại học viên" Then
str = "MaLoaiHV" Adodc.RecordSource = "select
MaHV,TenHV,MaLoaiHV,NgaySinh,GioiTinh,CongTy,MaSV,NgayDangKy,MaL H,TienDatCoc,DiaChi,DienThoai,Email from HocVien where " & str & "='" & txtGiaTri.Text & "' ORDER BY MaHV"
ElseIf cbTimTheo.Text = "Tiền đặt cọc" Then str = "TienDatCoc" Adodc.RecordSource = "select
MaHV,TenHV,MaLoaiHV,NgaySinh,GioiTinh,CongTy,MaSV,NgayDangKy,MaL H,TienDatCoc,DiaChi,DienThoai,Email from HocVien where " & str & "='" & txtGiaTri.Text & "' ORDER BY MaHV "
ElseIf cbTimTheo.Text = "Giới tính" Then
str = "GioiTinh" Adodc.RecordSource = "select
MaHV,TenHV,MaLoaiHV,NgaySinh,GioiTinh,CongTy,MaSV,NgayDangKy,MaL H,TienDatCoc,DiaChi,DienThoai,Email from HocVien where " & str & "='" & txtGiaTri.Text & "' ORDER BY MaHV"
ElseIf cbTimTheo.Text = "Đơn vị công tác" Then str = "CongTy" Adodc.RecordSource = "select
MaHV,TenHV,MaLoaiHV,NgaySinh,GioiTinh,CongTy,MaSV,NgayDangKy,MaL H,TienDatCoc,DiaChi,DienThoai,Email from HocVien where " & str & "='" &
End If
Adodc.Refresh
lbSokq.Caption = "Số kết quả:" & Adodc.Recordset.RecordCount lbSokq1.Caption = ""
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database\csdl.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select MaLoaiHV, TenLoaiHV from LoaiHocVien" Adodc1.Refresh
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
cbMaLoaiHocVien.AddItem (Adodc1.Recordset![MaLoaiHV]) Adodc1.Recordset.MoveNext
Loop
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database\csdl.mdb;Persist Security Info=False"
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "select MaKH from KhoaHoc" Adodc2.Refresh
Adodc2.Recordset.MoveFirst
Do While Not Adodc2.Recordset.EOF
cbKhoaHoc.AddItem (Adodc2.Recordset![MaKH]) Adodc2.Recordset.MoveNext
Loop
Adodc.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database\csdl.mdb;Persist Security Info=False"
NapAdodc
lbSokq1.Caption = "Số bản ghi:" & Adodc.Recordset.RecordCount KhongChoUpDate
End Sub
Private Sub NapAdodc()
Adodc.CommandType = adCmdText Adodc.RecordSource = "select
MaHV,TenHV,MaLoaiHV,NgaySinh,GioiTinh,CongTy,MaSV,NgayDangKy,MaL H,TienDatCoc,DiaChi,DienThoai,Email from HocVien order by MaHV"
Adodc.Refresh End Sub
Private Sub cmdThem_Click() Dim Traloi As Integer
Traloi = MsgBox("Bạn Muốn Thêm Bản Ghi Mới ?", vbInformation + vbYesNo, "AISchool")
If Traloi = vbNo Then Adodc.Refresh Exit Sub Else Adodc.Recordset.AddNew ChoPhepUpDate txtMaHocVien.SetFocus End If End Sub
Private Sub cmdXoa_Click() Dim Traloi As Integer
If txtMaHocVien.Text = "" Or txtTenHocVien.Text = "" Then MsgBox "Bạn cha chọn tài khoản để xóa!", , "AISchool" Exit Sub
End If
Traloi = MsgBox("Bạn Muốn Xoá Bản Ghi Này ?", vbInformation + vbYesNo, "AISchool")
If Traloi = vbNo Then Grd.AllowDelete = False Else
Grd.AllowDelete = True Adodc.Recordset.Delete End If
lbSokq1.Caption = "Số bản ghi:" & Adodc.Recordset.RecordCount End Sub
Form Nhập Điểm (FrmNhapDiem):
Private Sub cbKhoaHoc_LostFocus() If cbLopHoc.ListCount <> 0 Then cbLopHoc.Clear
End If
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database\csdl.mdb;Persist Security Info=False"
Adodc2.RecordSource = "select MaLH,TenLH from LopHoc where MaKH='" & TachMa(cbKhoaHoc.Text) & "'"
Adodc2.Refresh
If Adodc2.Recordset.EOF <> Adodc2.Recordset.BOF Then Adodc2.Recordset.MoveFirst
End If
Do While Not Adodc2.Recordset.EOF
cbLopHoc.AddItem (Adodc2.Recordset![MaLH] & "_" & Adodc2.Recordset! [TenLH])
Adodc2.Recordset.MoveNext Loop
End Sub
Private Sub cbLopHoc_LostFocus() If cbMaHocVien.ListCount <> 0 Then cbMaHocVien.Clear
End If
Adodc.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database\csdl.mdb;Persist Security Info=False"
Adodc.CommandType = adCmdText
Adodc.RecordSource = "select MaHV, TenHV from HocVien where MaLH='" & TachMa(cbLopHoc.Text) & "'"
Adodc.Refresh
If Adodc.Recordset.EOF <> Adodc.Recordset.BOF Then Adodc.Recordset.MoveFirst
End If
Do While Not Adodc.Recordset.EOF
cbMaHocVien.AddItem (Adodc.Recordset![MaHV] & "_" & Adodc.Recordset! [TenHV])
Adodc.Recordset.MoveNext Loop
End Sub
Private Sub cbMaHocVien_LostFocus()