Nhõn viờn Nhà quản lý
3.4.4Bảng 4: Theodoithuongphat
1 Madg text 5 Mó đơn giỏ
2 Ngayapdung text 50 Ngày ỏp dụng
3 LCB Number Lương cơ bản
4 Tcletet Number Tăng ca lễ tết
5 TCbt Number Tăng ca bỡnh thường
6 Caba Number Ca ba
3.4.4Bảng 4: Theodoithuongphat
STT Tờn trường Kiểu Độ rộng Mụ tả
1 Manv text 8 Mó nhõn viờn
2 Ngaythuongphat Date/Time Ngày thưởng phạt
3 Sotienthuong Number Số tiền thưởng
4 Lydothuong text 50 Lý do thưởng
5 Sotienphat Number Số tiền phạt
6 Lydophat text 50 Lý do phạt
3.4.5Bảng 5: Theodoitamung
1 Manv text 8 Mó nhõn viờn
2 Ngaytamung Date/Time Ngày tạm ứng
3 Sotientamung Number Số tiền tạm ứng
3.4.6Bảng 6: QLnguoidung
STT Tờn trường Kiểu Độ rộng Mụ tả
1 User text 30 Người dựng
2 Pas text 8 Mật khẩu
3 Capql Number Cấp quản lý
3.4.7Bảng 7: Dmchucvu STT Tờn trường Kiểu Độ rộng Mụ tả 1 Macv text 5 Mó chức vụ 2 Chucvu text 18 Chức vụ 3 Phucap Number Phụ cấp 3.4.8Bảng 8: Dmchuyenmon STT Tờn trường Kiểu Độ rộng Mụ tả
1 Macm text 5 Mó chuyờn mụn
2 chuyenmon text 20 Chuyờn mụn
3.4.9Bảng 9: Dmdantoc STT Tờn trường Kiểu Độ rộng Mụ tả 1 Madt text 5 Mó dõn tộc 2 Tendantoc text 25 Tờn dõn tộc 3.4.10Bảng 10: Dmphongban STT Tờn trường Kiểu Độ rộng Mụ tả
1 Mapb text 5 Mó phũng ban
2 Tenpb text 50 Tờn phũng ban
_________________________________
3.4.11Bảng 11: Dmtongiao
STT Tờn trường Kiểu Độ rộng Mụ tả
1 Matg text 5 Mó tụn giỏo
2 Tentongiao text 25 Tờn tụn giỏo
3.5 Thiết kế giao diện. * Giao diện chớnh:
Hỡnh 3.9: Form giao diện chớnh
* Form đăng nhập quản lý người dựng:
_________________________________
_________________________________
* Form Cập nhật hệ số và đơn giỏ lương cơ bản
Hỡnh 3.12 Form Cập nhật hệ số và đơn giỏ lương cơ bản
_________________________________
*Form danh mục chức vụ
Hỡnh 3.13 Form danh mục chức vụ
_________________________________
* Form Danh mục phũng ban:
* Form Danh mục chuyờn mụn:
Hỡnh 3.15: Form Danh mục chuyờn mụn
_________________________________
* Form Bảng cập nhật hồ sơ lương CBCNV
_________________________________
* Form Cập nhật bảng chấm cụng
_________________________________
* Form Bảng theo dừi thưởng phạt:
* Form Theo dừi tạm ứng:
Hỡnh 3.19: Form Theo dừi tạm ứng:
_________________________________
* Form Bảng thanh toỏn lương:
Hỡnh 3.20: Form Bảng thanh toỏn lương
_________________________________
_________________________________
* Form Giới thiệu chương trỡnh:
* Form hướng dẫn sử dụng:
Hỡnh 3.22: Form hướng dẫn sử dụng:
_________________________________
Kết luận
Trờn đõy là toàn bộ phần trỡnh bày của em về chương trỡnh “Quản lý tiền lương tại Cụng ty CP NADECO”. Như em đó giới thiệu ở phần đầu, Quản lý tiền lương là một trong những vấn đề quan trọng và phức tạp, vỡ vậy muốn tỡm hiểu và nắm vững được nú thỡ đũi hỏi chỳng ta phải mất nhiều thời gian và cụng sức, khụng thể ngày mốt ngày hai được
Qua một thời gian đi thực tập, em đó rất cố gắng tỡm hiểu chi tiết, tỷ mỉ cỏch thức hoạt động của hệ thống hiện tại. Mặc dự vậy, do khử năng chưa cho phộp và trong một khoảng thời gian tương đối ngắn nờn trong chương trỡnh em chưa diễn tả được hết toàn bộ chu trỡnh hoạt động của hệ thống
Đề tài “ Quản lý tiền lương tại Cụng ty CP NADECO đó được một số kết quả sau:
1- Tỡm hiểu về nghiệp vụ và quỏ trỡnh Quản lý tiền lương.
2- Phần mềm Quản lý tiền lương được xõy dựng đó đỏp ứng kịp thời, nhanh chúng, chớnh xỏc yờu cầu đa dạng của cụng tỏc quản lý lương, cải thiện điều kiện làm việc cho cỏc thành viờn, nõng cao hiệu quả quản lý.
3- Chương trỡnh cú thể ứng dụng trong thực tế một cỏch khẳ thi, đỏp ứng được yờu cầu truy xuất dữ liệu một cỏch chặt chẽ, thuận tiện, an toàn và hiệu quả.
Qua thời gian ngắn với sự nỗ lực của bản thõn, cựng với sự giỳp đỡ của quý thầy, cụ khoa tin kinh tế và đặc biệt là của Cụ TS. Trần Thị Thu Hà, em hi vọng rằng chương trỡnh sẽ được hoàn thiện hơn, toàn diện hơn nữa để phục vụ đắc lực và cú hiệu quả cho Cụng ty CP NADECO
_________________________________
Tài liệu tham khảo
1,ĐH KTQD, Giỏo trỡnh: Phỏt triển ứng dụng trong quản lý, Ths. Trịnh Hoài Sơn, NXB ĐH Kinh tế Quốc Dõn,2010.
2,ĐH KTQD, Giỏo trỡnh: Quản trị tài chớnh doanh nghiệp ,PGS.TS Phạm Quang Trung, NXB ĐH Kinh tế Quốc Dõn.
3,ĐH KTQD, Giỏo Trỡnh kỹ nghệ phần mềm, PGS, TS Hàn Viết Thuận, NXB ĐH Kinh tế Quốc Dõn, 2010.
4,ĐH KTQD, Giỏo trỡnh PT hệ thống thụng tin quản lý, Trương Văn Tỳ, NXB ĐH Kinh tế Quốc Dõn
5, ĐH KTQD, Giỏo trỡnh CSDL II, Trần Cụng Uẩn, NXB ĐH Kinh tế Quốc Dõn,2005
6, Giỏo trỡnh Visua Basic.Net kỹ xảo lập trỡnh, Tỏc giả Phương Lan, NXB Thống kờ.
7, Giỏo trỡnh Hệ quản trị cơ sở dữ liệu Access, Tỏc giả Nguyễn Văn Huõn, NXB Thống kờ.
Phụ lục của chương trỡnh
* Mó nguồn của form chớnh:
Private Sub MDIForm_Load() Dim MyPanel As Panel
StbMain.Panels.Clear 'Thiết lập thanh Status Bar
Set MyPanel = StbMain.Panels.Add(1) StbMain.Panels(1).Text = "Ngày làm việc" StbMain.Panels(1).AutoSize = sbrContents
Set MyPanel = StbMain.Panels.Add(2, , , sbrDate) MyPanel.AutoSize = sbrContents
MyPanel.Bevel = sbrInset
MyPanel.Alignment = sbrCenter
Set MyPanel = StbMain.Panels.Add(3, , , sbrTime) MyPanel.AutoSize = sbrContents
MyPanel.Bevel = sbrInset
MyPanel.Alignment = sbrCenter
Set MyPanel = StbMain.Panels.Add(4) MyPanel.Alignment = sbrCenter
StbMain.Panels(4).Text = Me.Caption StbMain.Panels(4).AutoSize = sbrContents
Set MyPanel = StbMain.Panels.Add(5, , , sbrNum) MyPanel.MinWidth = 700
MyPanel.Alignment = sbrCenter MyPanel.Bevel = sbrInset
Set MyPanel = StbMain.Panels.Add(6, , , sbrCaps) MyPanel.MinWidth = 700
MyPanel.Alignment = sbrCenter
Set MyPanel = StbMain.Panels.Add(7, , , sbrIns) MyPanel.AutoSize = sbrContents
MyPanel.Alignment = sbrCenter StbMain.ToolTipText = Me.Caption End Sub
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 2 Then Cancel = False
_________________________________
Else
Cancel = True End If
End Sub
Private Sub Mnubangchamcong_Click() Load FrmcapnhatBCC
FrmcapnhatBCC.Show
Me.StbMain.Panels(4).Text = FrmcapnhatBCC.Caption End Sub
Private Sub Mnubangthanhtoan_Click() Load Frmbangluong
Frmbangluong.Show
Me.StbMain.Panels(4).Text = Frmbangluong.Caption End Sub
Private Sub Mnucapnhatdg_Click() Load Frmcapnhatdongia
Frmcapnhatdongia.Show
Me.StbMain.Panels(4).Text = Frmcapnhatdongia.Caption End Sub
Private Sub Mnucapnhathoso_Click() Load Frmhosonv
Frmhosonv.Show
Me.StbMain.Panels(4).Text = Frmhosonv.Caption End Sub
Private Sub MnuDangnhaplai_Click() KTdangnhaplai = True
Load Frmdangnhap Frmdangnhap.Show
Me.StbMain.Panels(4).Text = Frmdangnhap.Caption End Sub
Private Sub Mnudmcm_Click() Load Frmdmcm
Frmdmcm.Show
End Sub
Private Sub Mnudmcv_Click() Load Frmdmchucvu
Frmdmchucvu.Show
Me.StbMain.Panels(4).Text = Frmdmchucvu.Caption End Sub
Private Sub Mnudmdt_Click() Load Frmdmdt
Frmdmdt.Show
Me.StbMain.Panels(4).Text = Frmdmdt.Caption End Sub
Private Sub MnuDmPB_Click() Load FrmDMPB
FrmDMPB.Show
Me.StbMain.Panels(4).Text = FrmDMPB.Caption End Sub
Private Sub Mnudmtg_Click() Load Frmdmtongiao
Frmdmtongiao.Show
Me.StbMain.Panels(4).Text = Frmdmtongiao.Caption End Sub
Private Sub Mnugthieu_Click() Load Frmgioithieu
Frmgioithieu.Show
Me.StbMain.Panels(4).Text = Frmgioithieu.Caption End Sub
Private Sub Mnuhuongdan_Click() Load Frmhuongdan
Frmhuongdan.Show
Me.StbMain.Panels(4).Text = Frmhuongdan.Caption End Sub
Private Sub Mnuqlnd_Click() Load Frmquanlynguoidung
_________________________________
Frmquanlynguoidung.Show
Me.StbMain.Panels(4).Text = Frmquanlynguoidung.Caption End Sub
Private Sub Mnutamung_Click() Load Frmcapnhattamung
Frmcapnhattamung.Show
Me.StbMain.Panels(4).Text = Frmcapnhattamung.Caption End Sub
Private Sub Mnuthoat_Click() Beep
End End Sub
Private Sub Mnuthuongphat_Click() Load Frmthuongphat
Frmthuongphat.Show
Me.StbMain.Panels(4).Text = Frmthuongphat.Caption End Sub
Private Sub Mnutongtamung_Click() Load Frmtongtamung
Frmtongtamung.Show
Me.StbMain.Panels(4).Text = Frmtongtamung.Caption End Sub
Private Sub Mnutongthuongphat_Click() Load FrmBCtongthuongphat
FrmBCtongthuongphat.Show
Me.StbMain.Panels(4).Text = FrmBCtongthuongphat.Caption End Sub
* Cập nhật hệ số và đơn giỏ
Private Sub Calenderchonngay_DblClick()
Me.Txtngayapdung.Text = Format(Me.Calenderchonngay.Value, "dd/mm/yy")
Me.Calenderchonngay.Visible = False Me.Cmdghi.Enabled = True
Me.Fratext.Enabled = True Me.Txtngayapdung.SetFocus End Sub
Private Sub Calenderchonngay_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Me.Calenderchonngay.Visible = False Me.Cmdghi.Enabled = True Me.Cmdhuy.Enabled = True Me.Fratext.Enabled = True Me.Txtngayapdung.SetFocus End If End Sub
Private Sub Cmdghi_Click() Dim tb As ValueConstants On Error GoTo loi
If (Trim(Me.Txtmadg.Text) = "") Or (Trim(Me.Txtluongcoban.Text) = "") Then
tb = MsgBox("Ban can phai nhap day du Ma don gia, Muc luong co ban, chon Ok tiep tuc, Cancel bo qua ", vbOKCancel + vbInformation, "Thong bao") If tb = vbOK Then Me.Txtmadg.SetFocus Exit Sub Else If tb = vbCancel Then 'Gọi thủ tục Cmd huy_Click Cmdhuy_Click Exit Sub End If End If End If Me.Adodongia.Recordset.UpdateBatch adAffectAllChapters Me.Adodongia.Recordset.Requery Me.Adodongia.Refresh Khoa_text Chonsua = True Me.Cmdthem.SetFocus _________________________________
thoat:
Me.Datagdongia.SetFocus Exit Sub
loi:
MsgBox "Du lieu khong hop le, Truong khoa 'Ma NV', phai co trong bang danh muc nhan vien, tham khao o bang danh muc nhan vien", vbOKOnly, "Thong bao"
Resume thoat End Sub
Private Sub Cmdhuy_Click() Me.Adodongia.Refresh If Me.Adodongia.Recordset.RecordCount > 0 Then Me.Adodongia.Recordset.CancelUpdate End If Khoa_text End Sub
Private Sub Mokhoa_text() ' Thiết kế giao diện
Me.Fratext.Enabled = True Me.Cmdthoat.Visible = False Me.Cmdxoa.Visible = False Me.Cmdghi.Visible = True Me.Cmdhuy.Visible = True Me.Cmdsua.Enabled = False Me.Cmdthem.Enabled = False Me.Cmdin.Enabled = False End Sub
Private Sub Khoa_text() ' Thiết kế giao diện
Me.Lbltieude.Caption = " Cập nhật hệ số và đơn giá lơng cơ bản" Me.Datagdongia.Visible = True
Me.Fratext.Enabled = False 'Thiết đặt thuộc tính cho bảng
Me.Datagdongia.AllowDelete = False Me.Datagdongia.AllowUpdate = False Me.Datagdongia.AllowAddNew = False Me.Datagdongia.Refresh Me.Cmdthoat.Visible = True Me.Cmdxoa.Visible = True
Me.Cmdghi.Visible = False Me.Cmdhuy.Visible = False Me.Cmdthem.Enabled = True Me.Cmdsua.Enabled = True Me.Cmdin.Enabled = True End Sub
Private Sub Cmdin_Click()
Rpbcgia.Sections.Item("Rprdau").Controls.Item("Lblngay").Caption = Day(Now()) Rpbcgia.Sections.Item("Rprdau").Controls.Item("Lblthang").Caption = Month(Now()) Rpbcgia.Sections.Item("Rprdau").Controls.Item("Lblnam").Caption = Year(Now()) Rpbcgia.Show 1 End Sub
Private Sub Cmdsua_Click() On Error GoTo phat_hien_loi Chonsua = True Mokhoa_text Me.Txtmadg.SetFocus thoat: Exit Sub phat_hien_loi:
MsgBox "Co loi: " & Err.Description & ", Co the ban chua chon duoc ban ghi can sua!?", vbOKOnly, "Thong Bao"
Resume thoat End Sub
Private Sub Cmdthem_Click() On Error GoTo phat_hien_loi Mokhoa_text Chonsua = False Me.Adodongia.Refresh Me.Adodongia.Recordset.AddNew Me.Txtmadg.SetFocus thoat: Exit Sub phat_hien_loi: _________________________________
MsgBox "Co loi: " & Err.Description, vbOKOnly, "Thong Bao" Resume thoat
End Sub
Private Sub Cmdthoat_Click() Me.Adodongia.Refresh Unload Me Me.Hide MoKhoa_MDIFrm MDIFrmmain.StbMain.Panels(4).Text = MDIFrmmain.Caption End Sub
Private Sub Cmdxoa_Click() On Error GoTo phat_hien_loi Dim traloi
traloi = MsgBox("Ban muon xoa ban ghi: " & Chr(10) & Chr(13) & _
Me.Adodongia.Recordset.Fields("LCB") & " va cac mau tin lien quan khong?!", vbYesNo, "Thong bao")
If traloi = vbYes Then
Me.Adodongia.Recordset.Delete Me.Adodongia.Recordset.Clone Me.Adodongia.Recordset.Requery Me.Adodongia.Recordset.MoveNext If Me.Adodongia.Recordset.EOF Then Me.Adodongia.Recordset.MoveLast End If End If thoat: Exit Sub phat_hien_loi:
MsgBox "Khong the xoa mau tin nay", vbOKOnly, "Thong bao" Resume thoat
End Sub
Private Sub Form_Load()
'Chuyen form vao giua man hinh
Me.Move (Screen.Width - Me.Width) * 0.5, (Screen.Height - Me.Height) * 0.5
Me.Adodongia.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & "'" & Left(App.Path, Len(App.Path) - Len("form")) & "Database\QLNS.mdb" & "'"
Me.Adodongia.CommandType = adCmdText
Me.Adodongia.RecordSource = " SELECT * FROM Banggiatinhluong ORDER BY Banggiatinhluong.Madg; "
Me.Adodongia.Refresh 'Gọi thủ tục khoá Text Khoa_text
Khoa_MDIFrm
MDIFrmmain.StbMain.Panels(4).Text = Me.Caption End Sub
Private Sub Cmdghi_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then
Cmdghi_Click End If
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If UnloadMode = 2 Then Cancel = False Else Cancel = True End If End Sub
Private Sub Txtluongcoban_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then
Me.Txttangcathuong.SetFocus End If
End Sub
Private Sub Txtmadg_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then
Me.Txtngayapdung.SetFocus End If
End Sub
_________________________________
Private Sub Txtngayapdung_DblClick() Me.Calenderchonngay.Visible = True Me.Calenderchonngay.SetFocus Me.Cmdghi.Enabled = False Me.Cmdhuy.Enabled = False Me.Fratext.Enabled = False End Sub
Private Sub Txtngayapdung_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then
Me.Txtluongcoban.SetFocus End If
End Sub
Private Sub Txtphucapcaba_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then
Me.Cmdghi.SetFocus End If
End Sub
Private Sub Txttangcaletet_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then
Me.Txtphucapcaba.SetFocus End If
End Sub
Private Sub Txttangcathuong_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then
Me.Txttangcaletet.SetFocus End If
End Sub
*Mó nguồn danh mục phũng ban
Private Sub Cmdghi_Click() Dim tb As ValueConstants On Error GoTo loi
If (Trim(Me.Txtmmapb.Text) = "") Or (Trim(Me.Txttenpb.Text) = "") Then
tb = MsgBox("Ban can phai nhap day du Ma phong ban, Ten phong ban, chon Ok tiep tuc, Cancel bo qua ", vbOKCancel + vbInformation, "Thong bao") If tb = vbOK Then Me.Txtmmapb.SetFocus Exit Sub Else If tb = vbCancel Then 'Gọi thủ tục Cmd huy_Click Cmdhuy_Click Exit Sub End If End If End If Me.Adodmpb.Recordset.UpdateBatch adAffectAllChapters Me.Adodmpb.Recordset.Requery Me.Adodmpb.Refresh Khoa_text Chonsua = True Me.Cmdthem.SetFocus thoat: Me.Datagdmpb.SetFocus Exit Sub loi:
MsgBox "Du lieu khong hop le, Truong khoa 'Ma Phong ban', va truong 'Ten Phong ban' khong duoc rong", vbOKOnly, "Thong bao"
Resume thoat End Sub
Private Sub Cmdhuy_Click() Me.Adodmpb.Refresh If Me.Adodmpb.Recordset.RecordCount > 0 Then Me.Adodmpb.Recordset.CancelUpdate End If Khoa_text End Sub
Private Sub Mokhoa_text() ' Thiết đặt giao diện
Me.Fratext.Enabled = True Me.Cmdthoat.Visible = False
_________________________________
Me.Cmdxoa.Visible = False Me.Cmdghi.Visible = True Me.Cmdhuy.Visible = True Me.Cmdsua.Enabled = False Me.Cmdthem.Enabled = False Me.Cmdin.Enabled = False End Sub
Private Sub Khoa_text() ' Thiết đặt giao diện
Me.Lbltieude.Caption = " Danh mục Phòng ban" Me.Datagdmpb.Visible = True Me.Fratext.Enabled = False Me.Datagdmpb.AllowDelete = False Me.Datagdmpb.AllowUpdate = False Me.Datagdmpb.AllowAddNew = False Me.Datagdmpb.Refresh Me.Cmdthoat.Visible = True Me.Cmdxoa.Visible = True Me.Cmdghi.Visible = False Me.Cmdhuy.Visible = False Me.Cmdthem.Enabled = True Me.Cmdsua.Enabled = True Me.Cmdin.Enabled = True End Sub
Private Sub Cmdin_Click()
Rpdmpb.Sections.Item("Rprdau").Controls.Item("Lblngay").Caption = Day(Now()) Rpdmpb.Sections.Item("Rprdau").Controls.Item("Lblthang").Caption = Month(Now()) Rpdmpb.Sections.Item("Rprdau").Controls.Item("Lblnam").Caption = Year(Now()) Rpdmpb.Show End Sub
Private Sub Cmdsua_Click() On Error GoTo phat_hien_loi Chonsua = True
Mokhoa_text
thoat: Exit Sub phat_hien_loi:
MsgBox "Co loi: " & Err.Description & ", Co the ban chua chon duoc ban ghi can sua!?", vbOKOnly, "Thong Bao"
Resume thoat End Sub
Private Sub Cmdthem_Click() On Error GoTo phat_hien_loi Mokhoa_text Chonsua = False Me.Adodmpb.Refresh Me.Adodmpb.Recordset.AddNew Me.Txtmmapb.SetFocus thoat: Exit Sub phat_hien_loi:
MsgBox "Co loi: " & Err.Description, vbOKOnly, "Thong Bao" Resume thoat
End Sub
Private Sub Cmdthoat_Click() Me.Adodmpb.Refresh Unload Me Me.Hide MoKhoa_MDIFrm MDIFrmmain.StbMain.Panels(4).Text = MDIFrmmain.Caption End Sub
Private Sub Cmdxoa_Click() On Error GoTo phat_hien_loi Dim traloi
traloi = MsgBox("Ban muon xoa ban ghi: " & Chr(10) & Chr(13) & _
Me.Adodmpb.Recordset.Fields("Tenpb") & " va cac mau tin lien quan khong?!", vbYesNo, "Thong bao")
If traloi = vbYes Then
Me.Adodmpb.Recordset.Delete Me.Adodmpb.Recordset.Clone Me.Adodmpb.Recordset.Requery
_________________________________
Me.Adodmpb.Recordset.MoveNext If Me.Adodmpb.Recordset.EOF Then Me.Adodmpb.Recordset.MoveLast End If End If thoat: Exit Sub phat_hien_loi:
MsgBox "Khong the xoa mau tin nay", vbOKOnly, "Thong bao" Resume thoat
End Sub
Private Sub Form_Load()
'Chuyen form vao giua man hinh
Me.Move (Screen.Width - Me.Width) * 0.5, (Screen.Height - Me.Height) * 0.5
'Thiết lập các điều khiển
Me.Adodmpb.ConnectionString = "
Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & "'" & Left(App.Path, Len(App.Path) - Len("form")) & "Database\QLNS.mdb" & "'"
Me.Adodmpb.CommandType = adCmdText
Me.Adodmpb.RecordSource = " SELECT * FROM DMphongban ORDER BY DMphongban.mapb; "
Me.Adodmpb.Refresh 'Gọi thủ tục khoá Text Khoa_text
Khoa_MDIFrm
MDIFrmmain.StbMain.Panels(4).Text = Me.Caption End Sub
Private Sub Cmdghi_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then
Cmdghi_Click End If
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If UnloadMode = 2 Then
Cancel = False Else
Cancel = True End If
End Sub
Private Sub Txtmmapb_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then
Me.Txttenpb.SetFocus End If
End Sub
Private Sub Txttenpb_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then
Me.Cmdghi.SetFocus End If
End Sub
*Mó nguồn Bảng chấm cụng:
Private Sub Cmdcapnhat_Click()
If (Len(Me.DataCNamcapnhat.Text) <> 4) Or
(Val(Me.DataCNamcapnhat.Text) < 2005) Or
(Val(Me.DataCNamcapnhat.Text) > 2050) Then
MsgBox "Xin moi ban kiem tra lai du lieu nhap vao, co gia tri ban nhap chua dung, xin hay chon cac gia tri co trong combobox", vbOKOnly, "Thong Bao" Me.DataCNamcapnhat.SetFocus
Exit Sub End If
If (Me.DataCthangcapnhat.Text) = "" Then
MsgBox "Xin loi ban, thang ban chon trong nam vua roi chua duoc tao bang cham cong, Ban hay tao moi bang cham cong truoc", vbOKOnly, "Thong Bao" Me.DataCNamcapnhat.SetFocus Exit Sub End If Thangcapnhat = Val(Me.DataCthangcapnhat.Text) Namcapnhat = Val(Me.DataCNamcapnhat.Text) Load Frmchitietbangchamcong Frmchitietbangchamcong.Show _________________________________
Frmchitietbangchamcong.Txtthangnao.Text = Val(Me.DataCthangcapnhat.Text)
Frmchitietbangchamcong.Txtnamnao.Text =
Val(Me.DataCNamcapnhat.Text)
Frmchitietbangchamcong.Adodcapnhatchamcong.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & "'" & Left(App.Path, Len(App.Path) - Len("form")) & "Database\QLNS.mdb" & "'"
Frmchitietbangchamcong.Adodcapnhatchamcong.CommandType = adCmdText
Frmchitietbangchamcong.Adodcapnhatchamcong.RecordSource = "SELECT * FROM Hosonv INNER JOIN Bangchamcong ON Hosonv.Manv = Bangchamcong.Manv WHERE (((Bangchamcong.Thang)=" & Val(Frmchitietbangchamcong.Txtthangnao.Text) & ") AND ((Bangchamcong.Nam)=" & Val(Frmchitietbangchamcong.Txtnamnao.Text) & "));"
Frmchitietbangchamcong.Adodcapnhatchamcong.Refresh Me.Hide
Unload Me End Sub
Private Sub Cmdtaomoi_Click() Dim lenhsqlkt As String
Dim SQLchuyenmanv As String Dim SQLcapnhatthang As String Dim SQLcapnhatnam As String Dim SQLcapnhatmaluong As String Dim tl As ValueConstants
Dim i As Integer
Dim kiemtra As Boolean kiemtra = False
If (Len(Me.Cbnammoi.Text) = 4) And (Val(Me.Cbnammoi.Text) > 2004) And (Val(Me.Cbnammoi.Text) < 2051) Then
kiemtra = True Else
MsgBox "Xin moi ban kiem tra lai du lieu nhap vao, co gia tri ban nhap chua dung, xin hay chon cac gia tri co trong combobox", vbOKOnly, "Thong Bao" Me.Cbnammoi.SetFocus
Exit Sub End If
If (Val(Me.Combothangmoi.Text) > 0) And (Val(Me.Combothangmoi.Text) < 13) Then
kiemtra = True Else
MsgBox "Xin moi ban kiem tra lai du lieu nhap vao, co gia tri ban nhap chua dung, xin hay chon cac gia tri co trong combobox", vbOKOnly, "Thong Bao" Me.Cbnammoi.SetFocus
Exit Sub End If
Me.AdodcKTmaluong.ConnectionString = "
Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & "'" & Left(App.Path, Len(App.Path) - Len("form")) & "Database\QLNS.mdb" & "'"
Me.AdodcKTmaluong.CommandType = adCmdText
Me.AdodcKTmaluong.RecordSource = "select * from Banggiatinhluong where Banggiatinhluong.madg=" & "'" & Me.DataCammagia.Text & "' ;" Me.AdodcKTmaluong.Refresh If Me.AdodcKTmaluong.Recordset.RecordCount > 0 Then '(1) kiemtra = True Else kiemtra = False End If
If Not kiemtra Then
MsgBox "Xin moi ban kiem tra lai du lieu nhap vao, co gia tri ban nhap chua dung, xin hay chon cac gia tri co trong combobox", vbOKOnly, "Thong Bao" Me.Cbnammoi.SetFocus
Exit Sub End If
lenhsqlkt = ""
lenhsqlkt = lenhsqlkt & "SELECT * FROM Bangchamcong"
lenhsqlkt = lenhsqlkt & " WHERE (((Bangchamcong.Thang)=" & Val(Me.Combothangmoi.Text) & ")"
lenhsqlkt = lenhsqlkt & " AND ((Bangchamcong.Nam)=" & Val(Me.Cbnammoi.Text) & "));"
Me.Adodckiemta.ConnectionString = "
Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & "'" & Left(App.Path, Len(App.Path) - Len("form")) & "Database\QLNS.mdb" & "'"
Me.Adodckiemta.CommandType = adCmdText Me.Adodckiemta.RecordSource = lenhsqlkt
_________________________________
Me.Adodckiemta.Refresh
If Me.Adodckiemta.Recordset.RecordCount > 0 Then '(1)
tl = MsgBox("Bang cham cong nay da duoc tao, ban co then tham khao trong phan 'cap nhat bang cham cong cu', chon OK de tham khao, Cance de chon lai", vbOKCancel, "Thong Bao")
If tl = vbOK Then '(2)
Me.Optionchoncapnhat.Item(1).Value = True Me.Framecapnhat.Visible = True
Me.Framemoi.Visible = False Exit Sub
ElseIf tl = vbCancel Then Me.Cbnammoi.SetFocus Exit Sub