Tìm kiếm

mskNgaysinh.BackColor = H8000000F End Sub
Private Sub txtnvd_gotfocus txtnvd.BackColor = H8000000F
End Sub Private Sub txtcmnd_gotfocus
txtcmnd.BackColor = H8000000F End Sub
Private Sub cbotdvh_gotfocus cbotdvh.BackColor = H8000000F
End Sub

3. Tìm kiếm

Private Sub cmdcv_ClickIndex As Integer frmcvcmon.Show
End Sub
Private Sub cmddsvh_Click frmvhuu.Show
End Sub
Private Sub cmdin_Click Dim str
hoten If opttc0.Value = True Then
str = select from nhanvien where nhanvien.tennv like txttracuu.Text
End If gioitinh
110
If opttc12.Value = True Then str = select from nhanvien where nhanvien.gioitinh like txttracuu.Text
End If ma nhan vien
If opttc1.Value = True Then str = select from nhanvien where nhanvien.manv like txttracuu.Text
End If quequan
If opttc2.Value = True Then str = select from nhanvien where nhanvien.quequan like txttracuu.Text
End If diachi
If opttc3.Value = True Then str = select from nhanvien where nhanvien.diachihiennay like
txttracuu.Text End If
so dt If opttc4.Value = True Then
str = select from nhanvien where nhanvien.sodt like txttracuu.Text End If
chuc vu cmon If opttc5.Value = True Then
str = select from nhanvien where nhanvien.chucvucm like txttracuu.Text
End If 111
tdllct If opttc6.Value = True Then
str = select from nhanvien where nhanvien.trinhdollct like txttracuu.Text
End If pban
If opttc10.Value = True Then str = select from nhanvien where nhanvien.mapb like txttracuu.Text
End If trinhdovh
If opttc4.Value = True Then str = select from nhanvien where nhanvien.trinhdovh like txttracuu.Text
End If trinhdocmnv
If opttc7.Value = True Then str = select from nhanvien where nhanvien.trinhdocmnv like
txttracuu.Text End If
chucvudang If opttc8.Value = True Then
str = select from nhanvien where nhanvien.chucvudang like txttracuu.Text
End If chucvudoan
If opttc9.Value = True Then
112
str = select from nhanvien where nhanvien.chucvudoan like txttracuu.Text
End If loaihd
If opttc11.Value = True Then str = select from nhanvien where nhanvien.loaihd like txttracuu.Text
End If DE1.Commands5.CommandText = str
If DE1.rstracuu.State = 0 Then DE1.rstracuu.Open
End If DE1.rstracuu.Requery
rpt_tracuu.Show 1 End Sub
Private Sub cmdpb_Click frmphongban.Show
End Sub
Private Sub cmdqtct_Click frmnhanvien.Show
End Sub
Private Sub cmdthoat_Click Unload Me
End Sub
113
Private Sub Command1_ClickIndex As Integer frmktkl.Show
End Sub
Private Sub Command2_ClickIndex As Integer frmbangluong.Show
End Sub Private Sub mnub_Click
frmmain.Show End Sub
Private Sub txttracuu_KeyPressKeyAscii As Integer Select Case KeyAscii
Case 13 cmdin.SetFocus
End Select End Sub

4. Báo cáo lương