考勤管理系統(tǒng)畢業(yè)論文設(shè)計(jì)計(jì)算機(jī)-資料下載頁
2025-07-21 08:35本頁面
【導(dǎo)讀】我國的計(jì)算機(jī)應(yīng)用于企業(yè)管理，只是在70年代末期以后才逐漸開展起來的。斷地探索和研究。尤其是計(jì)算機(jī)輔助考勤管理僅是近幾年才在我國得到普及和發(fā)。展，而在許多發(fā)達(dá)國家計(jì)算機(jī)輔助考勤管理已十分普及。以及優(yōu)質(zhì)服務(wù)上都提出更高的要求。一問題的必由之路?？记诠芾碜鳛槠髽I(yè)內(nèi)部的一種管理也是如此，由于企業(yè)職工。一個(gè)完整的管理，后果將不堪設(shè)想。本系統(tǒng)就是為了適應(yīng)這種要求而設(shè)計(jì)的。集信息的顯示、輸入、修改、刪除、查詢等各種處理為一體，信息維護(hù)起來非常方便。大大減少了公司的人力和物力,為公司的考勤以及工資的發(fā)放帶來很大的便利。當(dāng)今社會(huì)，計(jì)算機(jī)已經(jīng)十分普及，性能也日趨完善。大到航空、鐵路的售票，全國人口戶籍的管理等等。思想起著不可估量的作用。實(shí)踐證明信息技術(shù)已在企業(yè)的管理層面扮演越來越重。業(yè)的信息化建設(shè)已成為現(xiàn)代各個(gè)企業(yè)發(fā)展的需要。具有非常重要的意義。而后1992年推出了版本,1993年推出了版本，1995年推出了
【正文】 Sub mnuAppCollection_Click() IntofrmMain gMAINCOLLECT End Sub Private Sub IntofrmMain(intMainType As Integer) Dim MyfrmMain As frmMain Set MyfrmMain = New frmMain Dim Str As String With MyfrmMain .mMenuIndex = intMainType Select Case intMainType Case gMAINCOLLECT Str = mStrCollection Case gMAINLEAVE Str = mStrLeave Case gMAINABSENT Str = mstrAbsent End Select .Caption = Str .Show 0, Me End With 39。Unload MyfrmMain End Sub Private Sub mnuAppDefine_Click() vbModal End Sub Private Sub mnuAppLeave_Click() IntofrmMain gMAINLEAVE End Sub Private Sub mnuAppPlan_Click() vbModal End Sub Private Sub mnuATR_Click() Dim strATR As String * 8 Dim nRet As Integer 31 nRet = OpenComm(0) nRet = CardExist If nRet = 0 Then MsgBox No Card Exit Sub End If nRet = IC_ATR(strATR) If nRet 0 Then MsgBox Error Read ATR Exit Sub End If = Mid(strATR, 1, 1) amp。 Mid(strATR, 2, 1) amp。 amp。 _ Mid(strATR, 3, 1) amp。 Mid(strATR, 4, 1) amp。 amp。 _ Mid(strATR, 5, 1) amp。 Mid(strATR, 6, 1) amp。 amp。 _ Mid(strATR, 7, 1) amp。 Mid(strATR, 8, 1) 1 End Sub Private Sub mnuCardNew_Click() 1 End Sub Private Sub mnuReadWrite_Click() 1 End Sub Private Sub mnuFileExit_Click() If MsgBox(MDIMsg1, _ vbQuestion + vbYesNo + vbDefaultButton2, _ gTitle) = vbNo Then Exit Sub EndSystem End Sub Private Sub mnuFileReg_Click() 1 SetMenu gLoginGrade = 1 End Sub 32 Private Sub mnuGuardBase_Click() 1 End Sub Private Sub mnuGuardEmployee_Click() vbModal End Sub Private Sub mnuGuardLib_Click() 1 End Sub Private Sub mnuPosSetDate_Click() 1 End Sub Private Sub mnuPowerOff_Click() Dim nRet As Integer nRet = OpenComm(0) nRet = PowerOff End Sub Private Sub mnuPowerOn_Click() Dim nRet As Integer nRet = OpenComm(0) nRet = PowerOn End Sub Private Sub mnuReadMain_Click() Dim strMain As String * 512 Dim i As Integer, j As Integer, nRet As Integer nRet = OpenComm(0) nRet = IC_ReadMain(0, 256, strMain) If nRet 0 Then MsgBox Error Read Main Memory Exit Sub End If = For i = 0 To 15 For j = 0 To 15 33 = amp。 Mid(strMain, 32 * i + 2 * j + 1, 1) amp。 Mid(strMain, 32 * i + 2 * j + 2, 1) amp。 Next j = amp。 Chr(13) amp。 Chr(10) Next i 1 End Sub Private Sub mnuRepDyn_Click() 1 End Sub Private Sub mnuRepFlow_Click() 1 End Sub Private Sub mnuRepKQ_Click() 1 End Sub Private Sub mnuRepMonth_Click() With frmMonth .Show 39。不能顯示有模式 ,因當(dāng)中有顯示非模式的窗體 End With End Sub Private Sub SetMenu(isEnable As Boolean) 39。 = isEnable = isEnable = isEnable = isEnable = isEnable = isEnable SetstbMain mstbOperator, gLoginName Dim strTmp As String If isEnable Then strTmp = 管理員 34 Else strTmp = 客戶級(jí) End If SetstbMain mstbLevel, strTmp SetstbMain mstbDate, Format(Date, yyyymmdd) SetstbMain mstbMsg, gOwnName End Sub Private Sub SetstbMain(Index As Integer, strText As String) (Index).Text = strText End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) On Error Resume Next If mClose Then If gLoginGrade = 0 Then MsgBox mMsg2, vbInformation, gTitle Exit Sub End If End If Select Case Case tbCollection mnuAppCollection_Click Case tbLeave mnuAppLeave_Click End Select End Sub Private Sub mnuYes_Click() If MsgBox(真的要退出系統(tǒng)嗎 ?, 32 + 4 + vbDefaultButton2, 退出系統(tǒng)) = vbNo Then Exit Sub Else Unload Me End If End Sub Private Sub mnuNo_Click() 35 Exit Sub End Sub
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1