【文章內(nèi)容簡(jiǎn)介】 的安全認(rèn)證，您還可以限制他人以管理員登錄，只能以來賓的用戶登錄系統(tǒng)，初始密碼為123456。系統(tǒng)用戶登錄窗體設(shè)計(jì)如下： 主界面窗體本系統(tǒng)主要有三個(gè)功能：系統(tǒng)管理、工資管理、報(bào)表管理。其中系統(tǒng)管理中包含用戶管理、員工信息管理、重新登錄系統(tǒng)功能，工資管理包含員工工資管理、工資批量設(shè)置、工資計(jì)算公式，報(bào)表中由員工信息表、員工工資表、員工工資條，本系統(tǒng)可以讓您輕松地了解本公司員工的基本信息和工資管理。主界面窗體設(shè)計(jì)如下： 注冊(cè)用戶 您可以通過管理員用戶注冊(cè)其他用戶（注冊(cè)成功的用戶為非管理員權(quán)限），而非管理員用戶沒有此項(xiàng)功能。注冊(cè)用戶窗體如下： 員工信息管理 您可以通過此功能查看或修改員工的基本信息。其中管理員擁有添加、修改、刪除及查詢員工信息的權(quán)利，而非管理員只能查詢員工信息，而不能擁有添加、修改和刪除的權(quán)利。 個(gè)人工資管理您可以通過此功能查看或修改員工的工資信息。其中管理員擁有修改和查詢員工工資信息的權(quán)利，而非管理員只能查詢員工工資信息，而不能擁有修改員工工資的權(quán)利。 員工工資條您可以打印員工的工資信息發(fā)放給各員工。 關(guān)于注：此系統(tǒng)中還有許多窗體因篇幅有限，不能一一顯示，只顯示了一些主要窗體，若要進(jìn)一步了解這些窗口及其它窗口，請(qǐng)查看系統(tǒng)應(yīng)用設(shè)計(jì)和運(yùn)行界面。 應(yīng)用系統(tǒng)實(shí)施 開發(fā)工具的選擇本系統(tǒng)采用Visual Basic Server 2000編寫，為了您能夠輕松使用本系統(tǒng)請(qǐng)您在使用前請(qǐng)看怎樣配置您的系統(tǒng)（包括配置SQL Server 2000服務(wù)器（導(dǎo)入數(shù)據(jù)庫(kù)文件）和配置數(shù)據(jù)源（使用數(shù)據(jù)源ODBC方法）） 代碼部分系統(tǒng)登錄窗體代碼：Dim TIM As IntegerDim myval As StringPrivate Sub Command1_Click() = adCmdUnknown = select *from 用戶 where [user]=39。 + + 39。If = 0 ThenMsgBox (暫無此用戶，請(qǐng)重新選擇用戶！)Exit SubEnd IfIf And And = Trim((password)) Thenloginflag = 0usename = If (right) = 管理員 Thenloginuserflag = 1Elseloginuserflag = 0End IfUnload MeElseIf TIM = 3 Thenmyval = MsgBox(密碼輸入錯(cuò)誤，請(qǐng)向系統(tǒng)管理員查詢！)If myval = vbOK Then EndEnd IfIf = ThenMsgBox (請(qǐng)選擇用戶)ElseIf = ThenMsgBox (用戶密碼不能為空,請(qǐng)輸入用戶密碼！)ElseIf (password) ThenMsgBox (密碼錯(cuò)誤，請(qǐng)查證后重新輸入密碼！) = 0 = Len()TIM = TIM + 1End IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Command2_Click()If loginflag = 1 ThenEndElseEnd If = = 請(qǐng)選擇用戶End SubPrivate Sub DataCombo1_Change()TIM = 1 = End SubPrivate Sub DataCombo1_Click(Area As Integer) = adCmdUnknown = select * from 用戶End SubPrivate Sub DataCombo1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then End SubPrivate Sub Form_Activate()TIM = 1If loginflag 1 Then = 工資管理系統(tǒng)——重新登錄窗體End IfEnd SubPrivate Sub Form_Unload(Cancel As Integer)If loginflag = 1 ThenEndElseEnd IfEnd SubPrivate Sub Picture1_Click()Call ShellAbout(hWnd, “工資管理系統(tǒng)”, “歡迎提出建議”, )End SubPrivate Sub Picture2_Click()SendKeys {F1}End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then Command1_ClickIf KeyCode = vbKeyUp Then End Sub主窗體代碼：Private Declare Function ShellExecute Lib Alias ShellExecuteA (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongConst SW_SHOWNORMAL = 1Private Sub Form_Activate()(2).Text = 當(dāng)前登錄的是 amp。 usenameIf loginuserflag = 1 Then = True = True = True = TrueElse = False = False = False = FalseEnd IfEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)i = MsgBox(您真的退出工資管理系統(tǒng)？, vbYesNo + vbExclamation)If i = vbYes ThenEndEnd IfEnd SubPrivate Sub mnuAbout_Click()Call ShellAbout(hWnd, “工資管理系統(tǒng)”, “歡迎提出建議”, )End SubPrivate Sub mnuAdduser_Click()End SubPrivate Sub mnuAssist_Click(Index As Integer)ShellExecute , vbNullString, amp。 \, vbNullString, , SW_SHOWNORMALEnd SubPrivate Sub mnuBatchset_Click()End SubPrivate Sub mnuChange_Click()End SubPrivate Sub mnuDeleteuser_Click()End SubPrivate Sub mnuEMP_Click(Index As Integer)End SubPrivate Sub mnuExit_Click()i = MsgBox(您真的退出工資管理系統(tǒng)？, vbYesNo + vbExclamation)If i = vbYes ThenEndEnd IfEnd SubPrivate Sub mnuFormulae_Click()End SubPrivate Sub mnuInfotable_Click()End SubPrivate Sub mnuPersalaryset_Click()End SubPrivate Sub mnuRlogin_Click()End SubPrivate Sub mnuWagebar_Click()End SubPrivate Sub mnuWagetable_Click()End SubPrivate Sub Picture2_Click()mnuChange_ClickEnd SubPrivate Sub Picture1_Click() mnuAdduser_ClickEnd SubPrivate Sub Picture3_Click()End SubPrivate Sub Picture4_Click()mnuInfotable_ClickEnd SubPrivate Sub Picture5_Click()mnuPersalaryset_ClickEnd SubPrivate Sub Picture6_Click()mnuWagebar_ClickEnd SubPrivate Sub Picture7_Click()mnuRlogin_ClickEnd SubPrivate Sub Picture8_Click()mnuExit_ClickEnd Sub注冊(cè)用戶窗體代碼：Private Sub Command1_Click()If Trim() = ThenMsgBox (用戶不能為空，請(qǐng)重新輸入！)Exit SubEnd IfIf Trim() = ThenMsgBox 密碼不能為空，請(qǐng)重新輸入！Exit SubEnd IfIf