Một số giao diện của chương trỡnh

Một phần của tài liệu Xây dựng hệ thống thông tin quản lý học viên tại công ty AI (Trang 81)

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()

Một phần của tài liệu Xây dựng hệ thống thông tin quản lý học viên tại công ty AI (Trang 81)

Tải bản đầy đủ (DOC)

(126 trang)
w