工資管理信息系統(tǒng)的設(shè)計(jì)—免費(fèi)畢業(yè)設(shè)計(jì)論文(參考版)
2024-12-03 10:56本頁(yè)面
【正文】 but according to die French proverb。s night through the air to Amack. They sit backwards on their painting b all lapse of time, and had bee a cipher and a nothing. Then three alone, or moveth upon greater means, if they have never so little hand in it, they think it is they that carry it They that are glorious, must needs be factious。s eve, to the Brocken。s diversion, namely, the wild hunt to Amack. Ah, you don39。s really a pleasure now and then to bee a mere nothing, especially when a man is as highly placed as I am. And then to think that we all, even with patent lacquer, are nothing more than insects of a moment on that anthill the earth, though we may be insects with stars and garters, places and offices! One feels quite a novice beside these venerable millionyearold boulders. On last New Year39。把錯(cuò)誤信息保存在文件里 intErrFileNo = FreeFile() Open For Append As intErrFileNo Print intErrFileNo, Chr(34) + Format(Now, YYYYMMDD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + + Chr(34), Chr(34) + cmdGenerate_Click(ThisMonthSalaryForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub Private Sub cmdPrint_Click() End Sub Private Sub Form_Load() mMonth = Format(Date 30, YYYYMM) End Sub Private Sub OLE1_Updated(Code As Integer) End Sub 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 43 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 44 54 Of Vainglory It was prettily devised of Aesop。把錯(cuò)誤信息保存在文件里 intErrFileNo = FreeFile() 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 42 Open For Append As intErrFileNo Print intErrFileNo, Chr(34) + Format(Now, YYYYMMDD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + + Chr(34), Chr(34) + cmdDelete_Click(PosForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub Private Sub cmdRefresh_Click() Exit Sub 39。 Exit Sub 39。 amp。 CurPos amp。自由文件號(hào) On Error GoTo ErrGoto 39。保證職工 ID 不會(huì)被改變 txtValue(0).Locked = True End Sub 六，創(chuàng)建職位管理窗體 Public CurPos As Integer Private Sub cmdAdd_Click() End Sub Private Sub cmdCancel_Click() End Sub Private Sub cmdDelete_Click() 39。當(dāng)前行 = 39。把錯(cuò)誤信息保存在文件里 intErrFileNo = FreeFile() Open For Append As intErrFileNo Print intErrFileNo, Chr(34) + Format(Now, YYYYMMDD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + + Chr(34), Chr(34) + Command1_Click(AddEForm) + Chr(34), Chr(34) + + Chr(34) MsgBox Close intErrFileNo End Sub 39。 Exit Sub 39。關(guān)閉連接 CloseDBFile 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 40 39。打開(kāi)連接 OpenDBFile 39。 txtValue(0).Text amp。 txtValue(5).Text amp。 txtValue(4).Text amp。 txtValue(3).Text amp。 txtValue(2).Text amp。 txtValue(1).Text amp。 txtValue(0).Text amp。 39。打開(kāi)錯(cuò)誤處理陷阱 Dim intErrFileNo As Integer 39。退出程序 Private Sub cmdCancel_Click() End Sub 39。把錯(cuò)誤信息保存在文件里 intErrFileNo = FreeFile() Open For Append As intErrFileNo Print intErrFileNo, Chr(34) + Format(Now, YYYYMMDD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + + Chr(34), Chr(34) + cmdAdd_Click(AddEForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub Private Sub cmdCancel_Click() End Sub 39。 Exit Sub 39。刷新數(shù)據(jù) 39。執(zhí)行 SQL 語(yǔ)句 SQL 39。 ) 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 38 39。 , SQL = SQL amp。 , SQL = SQL amp。 , SQL = SQL amp。 , SQL = SQL amp。 , SQL = SQL amp。生成 SQL 語(yǔ)句 SQL = INSERT INTO 職工 (職工 ID,職位 ,姓名 ,性別 ,出生年月 ,工作年月 ) VALUES( SQL = SQL amp。自由文件號(hào) On Error GoTo ErrGoto 39。添加員工 Private Sub cmdAdd_Click() 39。 ErrGoto: 39。Persist Security Info=False = SQL 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 37 Set = Adodc1 39。 。Data Source= amp。自由文件號(hào) On Error GoTo ErrGoto 39。初始化 Private Sub Form_Load() 39。 CurEm = 39。Private Sub DataGrid1_click() 39。End Sub 39。Private Sub DataGrid1_Click() 39。把錯(cuò)誤信息保存在文件里 intErrFileNo = FreeFile() 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 36 Open For Append As intErrFileNo Print intErrFileNo, Chr(34) + Format(Now, YYYYMMDD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + + Chr(34), Chr(34) + cmdDeleteEmployee_Click(HRForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub 39。 Exit Sub 39。關(guān)閉數(shù)據(jù)庫(kù)連接 CloseDBFile 39。 amp。 ?, vbYesNo) Then 39。打開(kāi)數(shù)據(jù)庫(kù)連接 OpenDBFile = 0 = CurEm If vbYes = MsgBox(是否刪除 amp。自由文件號(hào) On Error GoTo ErrGoto 39。刪除員工 Private Sub cmdDeleteEmployee_Click() 39。顯示添加員工窗體 Private Sub cmdAddEmployee_Click() End Sub 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 35 39。調(diào)用 特殊項(xiàng)管理 窗體 Private Sub SpecialManage_Click() End Sub 三、創(chuàng)建人員管理窗體 39。調(diào)用 工資發(fā)放 窗體 Private Sub PayoffTable_Click() End Sub 39。 \職工工資管理系統(tǒng) .mdb 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 34 Set gX = CreateObject() End Sub 39。調(diào)用 人員管理 窗體 Private Sub HRManage_Click() End Sub 39。調(diào)用 統(tǒng)計(jì)報(bào)表 窗體 Private Sub Analysis_Click() End Sub 39。 ErrGoto: 39。 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 33 CloseDBFile 39。打開(kāi)錯(cuò)誤處理陷阱 Dim intErrFileNo As Integer 39。把錯(cuò)誤信息保存在文件里 intErrFileNo = FreeFile() Open For Append As intErrFileNo Print intErrFileNo, Chr(34) + Format(Now, YYYYMMDD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + + Chr(34), Chr(34) + OpenRS(Module1) + Chr(34), Chr(34) + + Chr(34) Cl
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1