MỤC LỤC
LỜI NÓI ĐẦU..............................................................................................41
Chương 1.......................................................................................................42
KHẢO SÁT HỆ THỐNG..............................................................................42
Chương 2.......................................................................................................62
PHÂN TÍCH HỆ THỐNG.............................................................................62
Chương 3.......................................................................................................72
THIẾT KẾ CƠ SỞ DỮ LIỆU.......................................................................72
Chương 4.......................................................................................................82
XÂY DỰNG CHƯƠNG TRÌNH..................................................................82
MÃ NGUỒN CHƯƠNG TRÌNH..................................................................89
Dim conn As ADODB.Connection...............................................................89
Dim rs As ADODB.Recordset.......................................................................89
Dim SQL As String.......................................................................................89
Public Sub Ketnoi().......................................................................................89
Set conn = New ADODB.Connection..........................................................89
conn.ConnectionString
=
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=D:\HOC TAP\DOANTOTNGHIEP\QLNV.MDB;Persist Security
Info=False"....................................................................................................89
conn.Open....................................................................................................89
End Sub.........................................................................................................89
Private Sub cmd_nhap_Click().....................................................................89
End Sub.........................................................................................................89
Private Sub ClearALL()................................................................................89
Me.txtmachucvu = ""...................................................................................89
Me.txttenchucvu = ""...................................................................................89
1
Me.txthesophucap = "".................................................................................89
End Sub.........................................................................................................89
Private Sub Display_Listview()....................................................................89
Set rs = New ADODB.Recordset.................................................................89
Dim mitem As ListItem................................................................................89
Me.ListView1.ListItems.Clear.....................................................................89
SQL = "select * from chucvu"......................................................................89
rs.Open SQL, conn, adOpenKeyset, adLockOptimistic, adCmdText..........89
If rs.EOF = False Then.................................................................................90
While Not rs.EOF.........................................................................................90
Set mitem = Me.ListView1.ListItems.Add(, , rs!macv)...............................90
mitem.SubItems(1) = rs!tencv......................................................................90
mitem.SubItems(2) = rs!hesophucap............................................................90
rs.MoveNext.................................................................................................90
Wend.............................................................................................................90
End If............................................................................................................90
rs.Close.........................................................................................................90
Me.ListView1.GridLines = True..................................................................90
Me.ListView1.FullRowSelect = True...........................................................90
Exit Sub........................................................................................................90
End Sub.........................................................................................................90
Private Sub cmdSua_Click(Index As Integer)...............................................90
Set rs = New ADODB.Recordset..................................................................90
If Me.txtmachucvu.Text = "" Then................................................................90
MsgBox "BAN CAN NHAP MA DE SUA."...............................................90
2
Else................................................................................................................90
SQL = "Update chucvu set tencv ='" & Me.txttenchucvu & "'"...................90
SQL = SQL & ", hesophucap='" & Me.txthesophucap.Text & "'"...............90
SQL = SQL & "where macv='" & Me.txtmachucvu.Text & "'"...................90
.......................................................................................................................90
If MsgBox("BAN CO MUON SUA KHONG ?", vbQuestion + vbYesNo,
"Thong bao") = vbYes Then..........................................................................90
rs.Open SQL, conn, 1, 3...............................................................................90
.......................................................................................................................90
End If............................................................................................................91
End If............................................................................................................91
Set rs = Nothing............................................................................................91
MsgBox "Ban Ghi Da Duoc Sua Thanh Cong"...........................................91
' rs.Close........................................................................................................91
Display_Listview..........................................................................................91
ClearALL.....................................................................................................91
End Sub.........................................................................................................91
Private Sub cmdThem_Click()......................................................................91
Ketnoi............................................................................................................91
If Me.txtmachucvu = "" Then........................................................................91
MsgBox "Ban Chua Nhap Ma Chuc Vu".....................................................91
Me.txtmachucvu.SetFocus...........................................................................91
Else................................................................................................................91
Set rs = New ADODB.Recordset.................................................................91
SQL = "SELECT chucvu.macv, chucvu.tencv, chucvu.hesophucap From
chucvu WHERE macv='" & Me.txtmachucvu.Text & "'".............................91
3
rs.Open SQL, conn, 1, 3...............................................................................91
If Not rs.EOF Then.......................................................................................91
MsgBox "Ma Nay Da Ton tai".....................................................................91
Exit Sub........................................................................................................91
Else...............................................................................................................91
rs.AddNew....................................................................................................91
rs("macv") = Me.txtmachucvu.Text.............................................................91
rs("tencv") = Me.txttenchucvu.Text.............................................................91
rs("hesophucap") = Me.txthesophucap.Text................................................91
rs.Update......................................................................................................92
MsgBox "Ban Ghi Da Duoc Cap Nhat".......................................................92
End If............................................................................................................92
If MsgBox("BAN CO MUON NHAP TIEP KHONG?", vbYesNo) = vbYes
Then...............................................................................................................92
Me.txtmachucvu.SetFocus...........................................................................92
End If............................................................................................................92
rs.Close.........................................................................................................92
ClearALL.....................................................................................................92
Display_Listview..........................................................................................92
End If.............................................................................................................92
End Sub.........................................................................................................92
Private Sub cmdThoat_Click(Index As Integer)...........................................92
Unload Me.....................................................................................................92
End Sub.........................................................................................................92
Private Sub cmdXoa_Click(Index As Integer)..............................................92
If Me.txtmachucvu.Text = "" Then...............................................................92
4
MsgBox "BAN CHUA CHON MA DE XOA."...........................................92
Else...............................................................................................................92
Set rs = New ADODB.Recordset.................................................................92
SQL = "delete * from chucvu where macv='" & Me.txtmachucvu.Text & "'"
.......................................................................................................................92
If MsgBox("BAN CO MUON XOA MA NAY KHONG ?", vbYesNo) =
vbYes Then....................................................................................................93
rs.Open SQL, conn, 1, 3...............................................................................93
End If............................................................................................................93
End If............................................................................................................93
Display_Listview..........................................................................................93
ClearALL.....................................................................................................93
End Sub.........................................................................................................93
Private Sub Form_Load()..............................................................................93
Ketnoi............................................................................................................93
Display_Listview...........................................................................................93
End Sub.........................................................................................................93
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) 93
Me.txtmachucvu.Text = Item.Text................................................................93
Me.txttenchucvu.Text = Item.SubItems(1)....................................................93
Me.txthesophucap.Text = Item.SubItems(2).................................................93
End Sub.........................................................................................................93
Dim conn As ADODB.Connection...............................................................93
Dim rs As ADODB.Recordset.......................................................................93
Dim SQL As String.......................................................................................93
Public Sub Ketnoi().......................................................................................93
5
Set conn = New ADODB.Connection..........................................................93
conn.ConnectionString
=
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=D:\HOC TAP\DOANTOTNGHIEP\QLNV.MDB;Persist Security
Info=False"....................................................................................................94
conn.Open....................................................................................................94
End Sub.........................................................................................................94
Private Sub loaddantoc()...............................................................................94
Ketnoi............................................................................................................94
Set rs = New ADODB.Recordset..................................................................94
rs.Open "select madt from dantoc", conn, 1, 3.............................................94
rs.MoveFirst.................................................................................................94
Do While Not rs.EOF...................................................................................94
Me.cmb_madt.AddItem (rs("madt"))...........................................................94
rs.MoveNext.................................................................................................94
Loop.............................................................................................................94
rs.Close..........................................................................................................94
End Sub.........................................................................................................94
Private Sub loadtongiao()..............................................................................94
Ketnoi............................................................................................................94
Set rs = New ADODB.Recordset..................................................................94
rs.Open "select matg from tongiao", conn, 1, 3...........................................95
rs.MoveFirst.................................................................................................95
Do While Not rs.EOF...................................................................................95
Me.cmb_matongiao.AddItem (rs("matg"))..................................................95
rs.MoveNext.................................................................................................95
Loop.............................................................................................................95
6
rs.Close..........................................................................................................95
End Sub.........................................................................................................95
Private Sub loadtrinhdo()..............................................................................95
Ketnoi............................................................................................................95
Set rs = New ADODB.Recordset..................................................................95
rs.Open "select maTD from trinhdo", conn, 1, 3..........................................95
rs.MoveFirst.................................................................................................95
Do While Not rs.EOF...................................................................................95
Me.cmb_matrinhdo.AddItem (rs("maTD"))................................................95
rs.MoveNext.................................................................................................95
Loop.............................................................................................................95
rs.Close..........................................................................................................95
End Sub.........................................................................................................95
Private Sub loadchuyenmon().......................................................................95
Ketnoi............................................................................................................96
Set rs = New ADODB.Recordset..................................................................96
rs.Open "select maCM from chuyenmon", conn, 1, 3..................................96
rs.MoveFirst.................................................................................................96
Do While Not rs.EOF...................................................................................96
Me.cmb_machuyenmon.AddItem (rs("maCM"))........................................96
rs.MoveNext.................................................................................................96
Loop.............................................................................................................96
rs.Close..........................................................................................................96
End Sub.........................................................................................................96
Private Sub loadlyluanct().............................................................................96
7
Ketnoi............................................................................................................96
Set rs = New ADODB.Recordset..................................................................96
rs.Open "select maTDLLCT from TDLLCT", conn, 1, 3............................96
rs.MoveFirst.................................................................................................96
Do While Not rs.EOF...................................................................................96
Me.cmb_matdctri.AddItem (rs("maTDLLCT")).........................................96
rs.MoveNext.................................................................................................96
Loop.............................................................................................................96
rs.Close..........................................................................................................96
End Sub.........................................................................................................97
Private Sub loadchucvu()..............................................................................97
Ketnoi............................................................................................................97
Set rs = New ADODB.Recordset..................................................................97
rs.Open "select maCV from chucvu", conn, 1, 3..........................................97
rs.MoveFirst.................................................................................................97
Do While Not rs.EOF...................................................................................97
Me.cmb_macvu.AddItem (rs("maCV"))......................................................97
rs.MoveNext.................................................................................................97
Loop.............................................................................................................97
rs.Close..........................................................................................................97
End Sub.........................................................................................................97
Private Sub loadphongban()..........................................................................97
Ketnoi............................................................................................................97
Set rs = New ADODB.Recordset..................................................................97
rs.Open "select maPB from phong", conn, 1, 3............................................97
8
rs.MoveFirst.................................................................................................97
Do While Not rs.EOF...................................................................................97
Me.cmb_mapban.AddItem (rs("maPB")).....................................................97
rs.MoveNext.................................................................................................97
Loop.............................................................................................................98
rs.Close..........................................................................................................98
End Sub.........................................................................................................98
Private Sub loadnamthoatli().........................................................................98
Dim n As Integer...........................................................................................98
For n = 1870 To 2000....................................................................................98
cmb_namthoatli.AddItem (n).......................................................................98
Next..............................................................................................................98
End Sub........................................................................................................98
Private Sub loadnamveGT().........................................................................98
Dim i As Integer............................................................................................98
For i = 2000 To 2011.....................................................................................98
cmb_namveGT.AddItem (i).........................................................................98
Next..............................................................................................................98
End Sub........................................................................................................98
Private Sub ClearALL()................................................................................98
Me.txt_manv.Text = "".................................................................................98
Me.cmb_namthoatli.Text = ""......................................................................98
Me.cmb_namveGT.Text = "".......................................................................99
Me.txtsocmnd.Text = ""...............................................................................99
Me.txtdiachi.Text = ""..................................................................................99
9
Me.txtgioitinh.Text = ""...............................................................................99
Me.txthodem.Text = "".................................................................................99
Me.txtten.Text = "".......................................................................................99
Me.txtsdt.Text = "".......................................................................................99
Me.txtngaysinh.Text = "".............................................................................99
Me.cmb_machuyenmon.Text = ""................................................................99
Me.cmb_macvu.Text = ""............................................................................99
Me.cmb_madt.Text = ""...............................................................................99
Me.cmb_mapban.Text = ""..........................................................................99
Me.cmb_matdctri.Text = ""..........................................................................99
Me.cmb_matongiao = ""..............................................................................99
Me.cmb_matrinhdo.Text = "".......................................................................99
Me.DTPicker1.Value = False.......................................................................99
Me.DTPicker2.Value = False.......................................................................99
Me.lbl_chinhtri.Caption = ""........................................................................99
Me.lbl_chucvu.Caption = "".........................................................................99
Me.lbl_chuyenmon.Caption = ""..................................................................99
Me.lbl_madt.Caption = ""..........................................................................100
Me.lbl_phongban.Caption = ""..................................................................100
Me.lbl_tongiao.Caption = ""......................................................................100
Me.lbl_trinhdo.Caption = "".......................................................................100
.....................................................................................................................100
End Sub.......................................................................................................100
Private Sub Display_Listview()..................................................................100
Set rs = New ADODB.Recordset...............................................................100
10
Dim mitem As ListItem..............................................................................100
Dim SQL As String....................................................................................100
Me.ListView1.ListItems.Clear...................................................................100
SQL = "SELECT nhanvien.* FROM nhanvien"........................................100
rs.Open SQL, conn, adOpenKeyset, adLockOptimistic, adCmdText........100
If rs.EOF = False Then...............................................................................100
While Not rs.EOF.......................................................................................100
Set mitem = Me.ListView1.ListItems.Add(, , rs!manv).............................100
mitem.SubItems(1) = rs!hodem..................................................................100
mitem.SubItems(2) = rs!ten........................................................................100
mitem.SubItems(3) = rs!diachi...................................................................100
mitem.SubItems(4) = rs!gioitinh................................................................100
mitem.SubItems(5) = rs!ngaysinh..............................................................101
mitem.SubItems(6) = rs!sdt........................................................................101
mitem.SubItems(7) = rs!soCMND.............................................................101
mitem.SubItems(8) = rs!ngayvaodoan.......................................................101
mitem.SubItems(9) = rs!ngayvaodang.......................................................101
mitem.SubItems(10) = rs!namthoatly........................................................101
mitem.SubItems(11) = rs!namveGT...........................................................101
mitem.SubItems(12) = rs!madt..................................................................101
mitem.SubItems(13) = rs!matg..................................................................101
mitem.SubItems(14) = rs!maTD................................................................101
mitem.SubItems(15) = rs!maCM...............................................................101
mitem.SubItems(16) = rs!maTDLLCT......................................................101
mitem.SubItems(17) = rs!macv..................................................................101
11
mitem.SubItems(18) = rs!maPB.................................................................101
.....................................................................................................................101
rs.MoveNext...............................................................................................101
Wend...........................................................................................................101
End If..........................................................................................................101
rs.Close.......................................................................................................101
Me.ListView1.GridLines = True................................................................101
Me.ListView1.FullRowSelect = True.........................................................102
Exit Sub......................................................................................................102
End Sub.......................................................................................................102
Private Sub cmb_machuyenmon_Click()....................................................102
rs.Open "select tenCM from chuyenmon where MaCM='" &
Me.cmb_machuyenmon.Text & "'", conn, adOpenStatic, adLockReadOnly102
Me.lbl_chuyenmon.Caption = rs("tenCM")...............................................102
rs.Close.......................................................................................................102
' Me.cmbNXB.SetFocus.............................................................................102
End Sub.......................................................................................................102
Private Sub cmb_macvu_Click().................................................................102
rs.Open "select tenCV from chucvu where MaCV='" & Me.cmb_macvu.Text
& "'", conn, adOpenStatic, adLockReadOnly.............................................102
Me.lbl_chucvu.Caption = rs("tenCV").......................................................102
rs.Close.......................................................................................................102
End Sub.......................................................................................................102
Private Sub cmb_madt_Click()...................................................................103
rs.Open "select tendantoc from dantoc where Madt='" & Me.cmb_madt.Text
& "'", conn, adOpenStatic, adLockReadOnly.............................................103
Me.lbl_madt.Caption = rs("tendantoc").....................................................103
12
rs.Close.......................................................................................................103
End Sub.......................................................................................................103
Private Sub cmb_mapban_Click()...............................................................103
rs.Open
"select
tenphong
from
phong
where
Mapb='"
&
Me.cmb_mapban.Text & "'", conn, adOpenStatic, adLockReadOnly........103
Me.lbl_phongban.Caption = rs("tenphong")..............................................103
rs.Close.......................................................................................................103
End Sub.......................................................................................................103
Private Sub cmb_matdctri_Click()..............................................................103
rs.Open "select tenTDLLCT from TDLLCT where maTDLLCT='" &
Me.cmb_matdctri.Text & "'", conn, adOpenStatic, adLockReadOnly........103
Me.lbl_chinhtri.Caption = rs("tenTDLLCT")............................................103
rs.Close.......................................................................................................103
End Sub.......................................................................................................103
Private Sub cmb_matongiao_Click()..........................................................104
rs.Open "select tentg from tongiao where matg='" & Me.cmb_matongiao.Text
& "'", conn, adOpenStatic, adLockReadOnly.............................................104
Me.lbl_tongiao.Caption = rs("tentg").........................................................104
rs.Close.......................................................................................................104
End Sub.......................................................................................................104
Private Sub cmb_matrinhdo_Click()...........................................................104
rs.Open
"select
tentd
from
trinhdo
where
maTD='"
&
Me.cmb_matrinhdo.Text & "'", conn, adOpenStatic, adLockReadOnly.....104
Me.lbl_trinhdo.Caption = rs("tenTD").......................................................104
rs.Close.......................................................................................................104
End Sub.......................................................................................................104
Private Sub cmdSua_Click(Index As Integer).............................................104
13
Set rs = New ADODB.Recordset................................................................104
If Me.txt_manv.Text = "" Then...................................................................104
MsgBox "BAN CAN NHAP MA DE SUA.".............................................104
Else..............................................................................................................105
SQL = "Update nhanvien set hodem ='" & Me.txthodem.Text & "'".........105
SQL = SQL & ",ten='" & Me.txtten.Text & "'"..........................................105
SQL = SQL & ",gioitinh='" & Me.txtgioitinh.Text & "'"...........................105
SQL = SQL & ",ngaysinh= '" & Me.txtngaysinh.Text & "'"......................105
SQL = SQL & ",diachi='" & Me.txtdiachi.Text & "'"................................105
SQL = SQL & ",sdt='" & Me.txtsdt.Text & "'"..........................................105
SQL = SQL & ",soCMND='" & Me.txtsocmnd.Text & "'"........................105
SQL = SQL & ",Ngayvaodoan='" & Me.DTPicker1.Value & "'"..............105
SQL = SQL & ",Ngayvaodang='" & Me.DTPicker2.Value & "'"..............105
SQL = SQL & ",namthoatly='" & Me.cmb_namthoatli.Text & "'"............105
SQL = SQL & ",namveGT='" & Me.cmb_namveGT.Text & "'"...............105
SQL = SQL & ",madt='" & Me.cmb_madt.Text & "'"...............................105
SQL = SQL & ",matg='" & Me.cmb_matongiao.Text & "'"......................105
SQL = SQL & ",maTD='" & Me.cmb_matrinhdo.Text & "'"....................105
SQL = SQL & ",maCM='" & Me.cmb_machuyenmon.Text & "'"............105
SQL = SQL & ",maTDLLCT='" & Me.cmb_matdctri.Text & "'".............105
SQL = SQL & ",MaCV='" & Me.cmb_macvu.Text & "'".........................105
SQL = SQL & ",maPB='" & Me.cmb_mapban.Text & "'".........................105
SQL = SQL & "where maNV='" & Me.txt_manv.Text & "'".....................105
.....................................................................................................................106
If MsgBox("BAN CO MUON SUA KHONG ?", vbQuestion + vbYesNo,
"Thong bao") = vbYes Then........................................................................106
14
rs.Open SQL, conn, 1, 3.............................................................................106
.....................................................................................................................106
End If..........................................................................................................106
End If..........................................................................................................106
Set rs = Nothing..........................................................................................106
MsgBox "Ban Ghi Da Duoc Sua Thanh Cong".........................................106
' rs.Close......................................................................................................106
Display_Listview........................................................................................106
ClearALL...................................................................................................106
End Sub.......................................................................................................106
Private Sub cmdThem_Click()....................................................................106
Ketnoi..........................................................................................................106
If Me.txthodem.Text = "" Then...................................................................106
MsgBox "BAN CHUA NHAP HO TEN!"..................................................106
Me.txthodem.SetFocus................................................................................106
End If...........................................................................................................106
If Me.txtten.Text = "" Then.........................................................................106
MsgBox "BAN CHUA NHAP TEN!".........................................................107
End If...........................................................................................................107
If Me.txt_manv.Text = "" Then...................................................................107
MsgBox "BAN CHUA NHAP MA NHAN VIEN"...................................107
Me.txt_manv.SetFocus...............................................................................107
Else..............................................................................................................107
Set rs = New ADODB.Recordset...............................................................107
SQL = "SELECT nhanvien.maNV, nhanvien.hodem, nhanvien.ten,
nhanvien.gioitinh, nhanvien.Ngaysinh, nhanvien.diachi, nhanvien.sdt,
15
nhanvien.soCMND,
nhanvien.ngayvaodoan,
nhanvien.ngayvaodang,
nhanvien.namthoatly, nhanvien.namveGT, nhanvien.madt, nhanvien.matg,
nhanvien.maTD, nhanvien.maCM, nhanvien.maTDLLCT, nhanvien.macv,
nhanvien.maPB FROM nhanvien where (maNV='" & Me.txt_manv.Text &
"' )"...............................................................................................................107
rs.Open SQL, conn, 1, 3.............................................................................107
If Not rs.EOF Then.....................................................................................107
MsgBox "MA NAY DA TON TAI"............................................................107
Exit Sub......................................................................................................107
.....................................................................................................................107
Else.............................................................................................................107
rs.AddNew..................................................................................................107
rs("maNV") = Me.txt_manv.Text...............................................................107
rs("hodem") = Me.txthodem.Text..............................................................108
rs("ten") = Me.txtten.Text..........................................................................108
rs("gioitinh") = Me.txtgioitinh.Text...........................................................108
'ngaysinh = Me.txtngaysinh.Text & "/" & Me.txtngaysinh.Text & "/" &
Me.txtngaysinh.Text....................................................................................108
'rs("Ngaysinh") = ngaysinh........................................................................108
rs("Ngaysinh") = Me.txtngaysinh.Text......................................................108
rs("diachi") = Me.txtdiachi.Text.................................................................108
rs("sdt") = Me.txtsdt.Text...........................................................................108
rs("soCMND") = Me.txtsocmnd.Text........................................................108
rs("ngayvaodoan") = Me.DTPicker1.Value................................................108
rs("ngayvaodang") = Me.DTPicker2.Value................................................108
rs("namthoatly") = Me.cmb_namthoatli.Text............................................108
rs("namveGT") = Me.cmb_namveGT.Text................................................108
16
rs("madt") = Me.cmb_madt.Text................................................................108
rs("matg") = Me.cmb_matongiao.Text.......................................................108
rs("maTD") = Me.cmb_matrinhdo.Text.....................................................108
rs("maCM") = Me.cmb_machuyenmon.Text.............................................108
rs("maTDLLCT") = Me.cmb_matdctri.Text..............................................108
rs("macv") = Me.cmb_macvu.Text............................................................108
rs("maPB") = Me.cmb_mapban.Text.........................................................108
rs.Update....................................................................................................109
MsgBox "BAN DA NHAP THANH CONG"............................................109
End If..........................................................................................................109
If MsgBox("BAN CO MUON NHAP TIEP KHONG?", vbYesNo) = vbYes
Then.............................................................................................................109
Me.txt_manv.SetFocus...............................................................................109
End If..........................................................................................................109
rs.Close.......................................................................................................109
ClearALL...................................................................................................109
Display_Listview........................................................................................109
End If...........................................................................................................109
End Sub.......................................................................................................109
Private Sub cmdThoat_Click(Index As Integer).........................................109
Unload Me...................................................................................................109
End Sub.......................................................................................................109
Private Sub cmdXoa_Click(Index As Integer)............................................109
If Me.txt_manv.Text = "" Then...................................................................109
MsgBox "BAN CHUA CHON MA DE XOA.".........................................109
Else.............................................................................................................109
17
Set rs = New ADODB.Recordset...............................................................110
SQL = "delete * FROM nhanvien where maNV='" & Me.txt_manv.Text & "'"
.....................................................................................................................110
If MsgBox("BAN CO MUON XOA MA NAY KHONG ?", vbYesNo) =
vbYes Then..................................................................................................110
rs.Open SQL, conn, 1, 3.............................................................................110
'rs.Open SQL, conn, 1, 3............................................................................110
End If..........................................................................................................110
'MsgBox ("BAN GHI DA DUOC XOA KHOI CSDL")............................110
.....................................................................................................................110
End If..........................................................................................................110
Display_Listview........................................................................................110
ClearALL....................................................................................................110
End Sub.......................................................................................................110
Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer,
ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As
Date)............................................................................................................110
Me.DTPicker1.Value = Now.......................................................................110
Me.DTPicker2.Value = Now.......................................................................110
End Sub.......................................................................................................110
Private Sub Form_Load()............................................................................111
Ketnoi..........................................................................................................111
'loadmanhanvien..........................................................................................111
loaddantoc...................................................................................................111
loadtongiao.................................................................................................111
loadtrinhdo..................................................................................................111
loadchuyenmon...........................................................................................111
18
loadlyluanct................................................................................................111
loadphongban..............................................................................................111
loadchucvu..................................................................................................111
loadnamthoatli.............................................................................................111
loadnamveGT..............................................................................................111
Display_Listview.........................................................................................111
End Sub........................................................................................................111
Private Sub ListView1_Click()....................................................................111
.....................................................................................................................111
.....................................................................................................................111
'rs.Open "SELECT nhanvien.maNV, nhanvien.hodem, nhanvien.ten FROM
nhanvien where maNV='" & Me.cmbmanhanvien.Text & "'", conn,
adOpenStatic, adLockReadOnly.................................................................112
'Me.lbl_ten.Caption = rs("ten")..................................................................112
'Me.lbl_hodem.Caption = rs("hodem")......................................................112
'rs.Close......................................................................................................112
End Sub.......................................................................................................112
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)112
Me.txt_manv.Text = Item.Text....................................................................112
Me.txthodem.Text = Item.SubItems(1)......................................................112
Me.txtten.Text = Item.SubItems(2)............................................................112
Me.txtgioitinh.Text = Item.SubItems(4).....................................................112
Me.txtngaysinh.Text = Item.SubItems(5)...................................................112
Me.txtdiachi.Text = Item.SubItems(3).......................................................112
Me.txtsdt.Text = Item.SubItems(6)............................................................112
Me.txtsocmnd.Text = Item.SubItems(7).....................................................112
19
Me.DTPicker1.Value = Item.SubItems(8)..................................................112
Me.DTPicker2.Value = Item.SubItems(9)..................................................112
Me.cmb_namthoatli.Text = Item.SubItems(10).........................................112
Me.cmb_namveGT.Text = Item.SubItems(11)...........................................113
Me.cmb_madt.Text = Item.SubItems(12)..................................................113
Me.cmb_matongiao.Text = Item.SubItems(13)..........................................113
Me.cmb_matrinhdo.Text = Item.SubItems(14)..........................................113
Me.cmb_machuyenmon.Text = Item.SubItems(15)...................................113
Me.cmb_matdctri.Text = Item.SubItems(16).............................................113
Me.cmb_macvu.Text = Item.SubItems(17)................................................113
Me.cmb_mapban.Text = Item.SubItems(18)..............................................113
rs.Open "select tenCM from chuyenmon where MaCM='" &
Me.cmb_machuyenmon.Text & "'", conn, adOpenStatic, adLockReadOnly113
Me.lbl_chuyenmon.Caption = rs("tenCM")...............................................113
rs.Close.......................................................................................................113
rs.Open "select tenCV from chucvu where MaCV='" & Me.cmb_macvu.Text
& "'", conn, adOpenStatic, adLockReadOnly.............................................113
Me.lbl_chucvu.Caption = rs("tenCV").......................................................113
rs.Close.......................................................................................................113
rs.Open "select tendantoc from dantoc where Madt='" & Me.cmb_madt.Text
& "'", conn, adOpenStatic, adLockReadOnly.............................................113
Me.lbl_madt.Caption = rs("tendantoc").....................................................113
rs.Close.......................................................................................................113
rs.Open "select tenphong from phong where Mapb='" &
Me.cmb_mapban.Text & "'", conn, adOpenStatic, adLockReadOnly.........114
Me.lbl_phongban.Caption = rs("tenphong")..............................................114
rs.Close.......................................................................................................114
20
rs.Open "select tenTDLLCT from TDLLCT where maTDLLCT='" &
Me.cmb_matdctri.Text & "'", conn, adOpenStatic, adLockReadOnly........114
Me.lbl_chinhtri.Caption = rs("tenTDLLCT")............................................114
rs.Close.......................................................................................................114
rs.Open
"select
tentg
from
tongiao
where
matg='"
&
Me.cmb_matongiao.Text & "'", conn, adOpenStatic, adLockReadOnly....114
Me.lbl_tongiao.Caption = rs("tentg").........................................................114
rs.Close.......................................................................................................114
rs.Open "select tentd from trinhdo where maTD='" &
Me.cmb_matrinhdo.Text & "'", conn, adOpenStatic, adLockReadOnly.....114
Me.lbl_trinhdo.Caption = rs("tenTD").......................................................114
rs.Close.......................................................................................................114
.....................................................................................................................114
End Sub.......................................................................................................114
Private Sub txt_manv_LostFocus().............................................................114
If Me.txthodem.Text = "" Then...................................................................114
MsgBox "BAN PHAI NHAP HO TRUOC"...............................................114
Me.txthodem.SetFocus................................................................................115
End If...........................................................................................................115
End Sub.......................................................................................................115
Private Sub txtdiachi_LostFocus()..............................................................115
If Me.txtngaysinh.Text = "" Then................................................................115
MsgBox "BAN PHAI NHAP NGAY SINH NHAN VIEN".......................115
Me.txtngaysinh.SetFocus............................................................................115
End If...........................................................................................................115
End Sub.......................................................................................................115
Private Sub txthodem_LostFocus().............................................................115
21
If Me.txtten = "" Then.................................................................................115
MsgBox "BAN PHAI NHAP TEN NHAN VIEN!"...................................115
Me.txtten.SetFocus......................................................................................115
End If...........................................................................................................115
End Sub.......................................................................................................115
Private Sub txtngaysinh_LostFocus()..........................................................115
If Me.txtgioitinh = "" Then..........................................................................116
MsgBox "BAN PHAI NHAP GIOI TINH !"..............................................116
Me.txtgioitinh.SetFocus..............................................................................116
End If...........................................................................................................116
End Sub.......................................................................................................116
Private Sub txtten_LostFocus()...................................................................116
If Me.txtdiachi = "" Then............................................................................116
MsgBox " BAN PHAI NHAP DIA CHI!"..................................................116
Me.txtdiachi.SetFocus.................................................................................116
End If...........................................................................................................116
End Sub.......................................................................................................116
Dim conn As ADODB.Connection..............................................................117
Dim rs As ADODB.Recordset.....................................................................117
Dim SQL, sql1 As String.............................................................................117
Public Sub Ketnoi().....................................................................................117
Set conn = New ADODB.Connection........................................................117
conn.ConnectionString
=
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=D:\HOC TAP\DOANTOTNGHIEP\QLNV.MDB;Persist Security
Info=False"..................................................................................................117
conn.Open...................................................................................................117
22
End Sub.......................................................................................................117
Public Sub Command1_Click()...................................................................117
Ketnoi..........................................................................................................117
Set rs = New ADODB.Recordset...............................................................117
For i = 0 To Me.Option1.Count - 1.............................................................117
If Me.Option1(i).Value = True Then..........................................................117
.....................................................................................................................117
Select Case i...............................................................................................117
Case 0.........................................................................................................117
sql1 = "SELECT nhanvien.* FROM nhanvien where maNV like '%" &
Me.Combo1.Text & "%'"............................................................................118
Case 1.........................................................................................................118
sql1 = "SELECT nhanvien.* FROM nhanvien where ten like '%" &
Me.Combo1.Text & "%'"............................................................................118
Case 2.........................................................................................................118
sql1 = "SELECT nhanvien.* FROM nhanvien where gioitinh like '%" &
Me.Combo1.Text & "%'"............................................................................118
Case 3.........................................................................................................118
sql1 = "SELECT nhanvien.* FROM nhanvien where ngaysinh like '%" &
Me.Combo1.Text & "%'"............................................................................118
Case 4.........................................................................................................118
sql1 = "SELECT nhanvien.* FROM nhanvien where diachi like '%" &
Me.Combo1.Text & "%'"............................................................................118
Case 5.........................................................................................................118
sql1 = "SELECT nhanvien.* FROM nhanvien where soCMND like '%" &
Me.Combo1.Text & "%'"............................................................................118
Case Else....................................................................................................118
MsgBox "KHONG TIM THAY THONG TIN".........................................118
23
.....................................................................................................................118
End Select...................................................................................................118
End If..........................................................................................................118
Next............................................................................................................119
.....................................................................................................................119
Display_Listview........................................................................................119
.....................................................................................................................119
End Sub.......................................................................................................119
Private Sub Display_Listview()..................................................................119
Set rs = New ADODB.Recordset...............................................................119
Dim mitem As ListItem..............................................................................119
Me.ListView1.ListItems.Clear...................................................................119
rs.Open sql1, conn, adOpenKeyset, adLockOptimistic..............................119
If rs.EOF Then............................................................................................119
MsgBox "KHONG TIM THAY THONG TIN VE NHAN VIEN"............119
Else.............................................................................................................119
.....................................................................................................................119
While Not rs.EOF.......................................................................................119
Set mitem = Me.ListView1.ListItems.Add(, , rs!manv).............................119
mitem.SubItems(1) = rs!ten........................................................................119
mitem.SubItems(2) = rs!gioitinh................................................................119
mitem.SubItems(3) = rs!ngaysinh..............................................................119
mitem.SubItems(4) = rs!diachi...................................................................120
mitem.SubItems(5) = rs!soCMND.............................................................120
rs.MoveNext...............................................................................................120
24
Wend...........................................................................................................120
End If..........................................................................................................120
rs.Close.......................................................................................................120
Me.ListView1.GridLines = True................................................................120
Me.ListView1.FullRowSelect = True.........................................................120
Exit Sub......................................................................................................120
End Sub.......................................................................................................120
Private Sub Command2_Click().................................................................120
Unload Me...................................................................................................120
End Sub.......................................................................................................120
Private Sub Form_Load()............................................................................120
Me.Command1.Enabled = False................................................................120
End Sub.......................................................................................................120
Private Sub Option1_Click(Index As Integer)............................................120
If Me.Option1(0).Value = True Then.........................................................121
Me.Combo1.Enabled = True......................................................................121
Me.Command1.Enabled = True.................................................................121
loadmanv....................................................................................................121
End If..........................................................................................................121
If Me.Option1(1).Value = True Then.........................................................121
Me.Combo1.Enabled = True......................................................................121
Me.Command1.Enabled = True.................................................................121
loadhoten....................................................................................................121
End If..........................................................................................................121
If Me.Option1(2).Value = True Then.........................................................121
25