PHẦN III THIẾT KẾ CƠ SỞ DỮ LIỆU 1.Sơ đồ thực thể liờn kết:
4.2.Vi tớnh hoỏ cỏc chức năng trong hệ thống.
-Tuyển mới cụng chức:
Trong chức năng này mỏy tớnh sẽ trợ giỳp trong việc ra cỏc quyết định tuyển dụng.
-Đào tạo bồi dưỡng -Khen thưởng, kỷ luật -Đề bạt bổ nhiệm
Trong cỏc chức năng này mỏy tớnh sẽ trợ giỳp trong việc ra cỏc quyết định. -Tớnh lương:
Trong chức năng tớnh lương mỏy tớnh trợ giỳp: Lập bảng chấm cụng hàng thỏng
Tớnh ra cỏc khoản phụ cấp của cụng nhõn và cỏc loại bảo hiểm mà cụng nhõn phải nộp khi biết lương căn bản của cụng ty và hệ số lương của mỗi cụng nhõn.
Tớnh lương tổng hợp và lương thực lĩnh của cụng nhõn. -Chỉnh sửa, cập nhật, sao lưu:
Trong chức năng này mỏy tớnh trợ giỳp việc cập nhật ngay cỏc thụng tin mới nhất vào hồ sơ hay sửa cỏc thụng tin của nhõn viờn khi phỏt hiện ra sai sút trong hồ sơ của cụng nhõn ngay sau khi được cung cấp thụng tin mà khụng mất nhiều thời gian và cụng sức.
-Thống kờ, bỏo cỏo, tỡm kiếm
Trong chức năng này mỏy tớnh giỳp lập cỏc bỏo cỏo thống kờ và tỡm kiếm một cỏch nhanh chúng chớnh xỏc khi cú yờu cầu .
4.1Cỏch xõy dựng form và code view Form Trang chủ
Code vie
Private Sub CmdKT_KL_Click() frmQTKTKL.Show
End Sub
Private Sub cmdluong_Click() frmQTLuong.Show
End Sub
frmQTCTac.Show End Sub
Private Sub cmdQTDTao_Click() frmQTDTao.Show
End Sub
Private Sub CmDSach_Click() frmXemHoso.Show End Sub
Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lbldtoc.ForeColor = &H0& End Sub
Private Sub lbldtoc_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lbldtoc.ForeColor = &HFF0000 End Sub
Private Sub MDIForm_Load() Open_mdb
frmPhu.Show End Sub
Private Sub MDIForm_Unload(Cancel As Integer) cn.Close
End Sub
Private Sub mnuhethong_Click()
End Sub
Private Sub mnudangnhap_Click() frmNQL.Show (adsbygoogle = window.adsbygoogle || []).push({});
End Sub
Private Sub mnuDMCN_Click() frmDMCNganh.Show
End Sub
Private Sub mnuDMCV_Click() frmDMCViec.Show
End Sub
Private Sub mnuDMCVu_Click() FrmDMCVu.Show
End Sub
frmDMDToc.Show End Sub
Private Sub mnudmdthu_Click() frmDMHDong.Show End Sub
Private Sub mnuDMDV_Click() frmDMPhongBan.Show
End Sub
Private Sub mnuDMHH_Click() frmDMHH.Show
End Sub
Private Sub mnuDMHV_Click() frmDMHVi.Show End Sub
Private Sub mnuDMLDV_Click() frmDMLDVi.Show
End Sub
Private Sub mnuDMN_Click() frmDMNGANHDT.Show End Sub
Private Sub mnuDMNN_Click() frmDMNNgu.Show
End Sub
Private Sub mnudmtdcm_Click() frmDMTDCM.Show
End Sub
Private Sub mnuexit_Click() End
End Sub
Private Sub mnuHH_Click() frmDMHH.Show
End Sub
Private Sub mnuHoSo_Click() frmXemHoso.Show
End Sub
Private Sub mnuHSLuong_Click() frmHSLuong.Show
End Sub
Private Sub mnuHTDT_Click() frmDMHTDT.Show (adsbygoogle = window.adsbygoogle || []).push({});
End Sub
Private Sub Nut()
Crpt.WindowShowRefreshBtn = True Crpt.WindowMaxButton = True Crpt.WindowMinButton = True Crpt.WindowShowCloseBtn = True Crpt.WindowShowPrintBtn = True Crpt.WindowShowExportBtn = True Crpt.WindowShowZoomCtl = True Crpt.WindowShowPrintSetupBtn = True End Sub
Private Sub mnuds_Click(Index As Integer) Select Case Index
Case 0:
Crpt.ReportFileName = "F:\DEMO_TN_NAPCT\BAOCAO\dm_pb.rpt"
Nut
Case 1, 2, 4:
frmIn.Show 1 End Select
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key
Case "mnuthoat": cn.Close End 'Case "mnubaocao": 'frmBCAO.Show 1 Case "mnuqly": frmNQL.Show 1 Case "mnutk": frmTimKiem.Show End Select End Sub
Private Sub mnuqtluong_Click() FrmLuong.Show
End Sub
Private Sub mnuTDCM_Click() frmDMTDCM.Show
End Sub
Private Sub mnuTDNN_Click() frmDMTDNNgu.Show End Sub
Private Sub mnuTDTH_Click() frmDMTDTHoc.Show
End Sub
Private Sub mnuTDVH_Click() frmDMTDVHoa.Show
End Sub
Private Sub mnuTG_Click() frmDMTGiao.Show End Sub
Private Sub mnuthoat_Click() End
End Sub
Private Sub mnuTimKiem_Click() frmTimKiem.Show
Form hồ sơ nhõn viờn
In Bỏo cỏo bằng crystal reports
Dựng crystal Reports Rất thuận tiện trong Visual bacis . Nú dung trong bỏo cỏo trong cụng ty khi chỳng ta cần in 1 nhõn viờn hay 1 phũng ban nào đú
Cỏch tạo ta làm như sau sau khi cài chương trỡnh crystal Reports
Ta vào trong chương trỡnh Visual bacic đỏnh dấu vào mục crystal reports control (adsbygoogle = window.adsbygoogle || []).push({});
Như sau
Bỏo cỏo danh sỏch nhõn viờn trong cụng ty CoDe View
Private Sub mnuNV_Click() IN_hoso
crt.ReportFileName = "c:\DEMO_TN_NAPCT1\baocao\in_hoso.rpt" Nut
crt.PrintReport End Sub
Public Sub IN_hoso()
strsql = "Delete * From IN_HOSO" cn.Execute strsql
strsql = ""
strsql = "INSERT INTO IN_HOSO (SHCC,HOTEN, NGAYSINH)" strsql = strsql & " SELECT SHCC,HOTEN, NGAYSINH"
strsql = strsql & " FROM soyeu"
strsql = strsql & " WHERE SHCC='" & Trim(Text1) & "'" cn.Execute strsql
End Sub
Truy nhập vào cơ sở dữ liệu
Private Sub Nut()
crt.WindowShowRefreshBtn = True crt.WindowMaxButton = True crt.WindowMinButton = True crt.WindowState = crptMaximized crt.WindowShowCloseBtn = True crt.WindowShowPrintBtn = True crt.WindowShowExportBtn = True crt.WindowShowZoomCtl = True crt.WindowShowPrintSetupBtn = True End Sub
Private Sub mnuNV_Click() IN_hoso crt.ReportFileName = "c:\DEMO_TN_NAPCT1\baocao\in_hoso.rpt" Nut crt.PrintReport End Sub In hồ sơ nhõn viờn
Do kiến thức cũn hạn chế chương trỡnh cũn nhiều khuyết điểm mong thầy cụ trong khoa thụng cảm và giỳp đỡ
Rất mong được sự giỳp đỡ của cỏc thầy cụ Em xin trõn thành cảm ơn