【導(dǎo)讀】本論文的主要內(nèi)容是小型企業(yè)工資管理系統(tǒng)的設(shè)計(jì)與開(kāi)發(fā)。該系統(tǒng)對(duì)工資信息進(jìn)行管理,具。有手工管理所無(wú)法比擬的優(yōu)點(diǎn)?？梢源鎯?chǔ)所有有關(guān)工資、津貼、獎(jiǎng)金等內(nèi)容，安全高效；實(shí)現(xiàn)報(bào)。的開(kāi)發(fā)兩個(gè)方面。對(duì)于數(shù)據(jù)庫(kù)要求具有數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的特點(diǎn)；而對(duì)于應(yīng)。用程序，則要求系統(tǒng)功能完備、易操作、界面友好等特點(diǎn)。

　　

【正文】 Exit Sub 39。 ErrGoto: 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。初始化 Private Sub Form_activate() lblField(0).Caption = 職工 ID lblField(1).Caption = 職位 lblField(2).Caption = 姓名 lblField(3).Caption = 性別 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 39 lblField(4).Caption = 出生年月 lblField(5).Caption = 工作年月 For i = 0 To 5 txtValue(i) = Next End Sub 五，創(chuàng)建修改員工 窗體 39。退出程序 Private Sub cmdCancel_Click() End Sub 39。修改員工信息 Private Sub cmdModify_Click() 39。打開(kāi)錯(cuò)誤處理陷阱 Dim intErrFileNo As Integer 39。自由文件號(hào) On Error GoTo ErrGoto 39。 39。生成 SQL 語(yǔ)句 SQL = UPDATE 職工 SET 職工 ID = amp。 txtValue(0).Text amp。 _ ,職位 = amp。 txtValue(1).Text amp。 _ ,姓名 = amp。 txtValue(2).Text amp。 _ ,性別 = amp。 txtValue(3).Text amp。 _ ,出生年月 = amp。 txtValue(4).Text amp。 _ ,工作年月 = amp。 txtValue(5).Text amp。 _ WHERE 職工 ID = amp。 txtValue(0).Text amp。 39。打開(kāi)連接 OpenDBFile 39。執(zhí)行 SQL SQL 39。關(guān)閉連接 CloseDBFile 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 40 39。刷新數(shù)據(jù) 39。 Exit Sub 39。 ErrGoto: 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。刷新數(shù)據(jù) ,保持一致 Private Sub Form_activate() lblField(0).Caption = 職工 ID lblField(1).Caption = 職位 lblField(2).Caption = 姓名 lblField(3).Caption = 性別 lblField(4).Caption = 出生年月 lblField(5).Caption = 工作年月 For i = 0 To 5 39。當(dāng)前行 = 39。對(duì)應(yīng)列 = i txtValue(i) = Next 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 41 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。打開(kāi)錯(cuò)誤處理 陷阱 Dim intErrFileNo As Integer 39。自由文件號(hào) On Error GoTo ErrGoto 39。 OpenDBFile If vbYes = MsgBox(是否刪除 amp。 CurPos amp。 ?, vbYesNo) Then = CurPos = 0 DELETE FROM 職位 WHERE 職位 = amp。 amp。 End If CloseDBFile 39。 Exit Sub 39。 ErrGoto: 39。把錯(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。 ErrGoto: 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) + 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 This boothwn outside, each car became a single anism which ate and drank and excreted through its ventilators. It talked or sometimes yelled through its ventilators, too. In went water and loaves of blackbread and sausage and cheese, and out came shit and piss and language. Human beings in there were excreting into steel helmets, which were passed to the people at the ventilators, who dumped them. Billy was a dumper. The human beings also passed canteens, which guards would fill with water. When food came in, the human beings were quiet and trusting and beautiful. They shared. Human beings in there took turns standing or lying down. The legs of those who stood were like fence posts driven into a warm ., squirming, fatting, sighing earth. The queer earth was a mosaic of sleepers who nestled like spoons. Now the train began to creep eastward. Somewhere in there was Christmas. Billy Pilgrim nestled like a spoon with the hobo on Christmas night, and he fell asleep, and he traveled in time to 1967 againto the night he was kidnapped by a flying saucer from Tralfamadore. Four Billy Pilgrim could not sleep on his daughters wedding night. He was forty four. The wedding had taken place that afternoon in a gaily striped tent in Billy39。s backyard. The stripes were orange and black. Billy and his wife, Valencia, nestled like spoons in their big double bed. They were jiggled by Magic Fingers. Valencia didn39。 t need to be jiggled to sleep. Valencia was snoring like a bandsaw. T he poor woman didn39。t have ovaries or a uterus any more. They had been removed by a surgeonby one of Billy39。s partners in the New Holiday Inn. There was a full moon. Billy got out of bed in the moonlight. He felt spooky and luminou