【正文】 局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。例如，可以打印一份將數(shù)據(jù)分組并計算數(shù)據(jù)總和的報表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵件標(biāo)簽的報表。保證用戶名和密碼都填寫 MsgBox 用戶名不能為空！, vbCritical Exit Sub End If If = Then MsgBox 密碼不能為空！, vbCritical Exit Sub End If If Then sql = TBL_ADMIN 39。 amp。 39。 amp。 39。不存在管理員記錄提示錯誤信息并且退出系統(tǒng) MsgBox 用戶名或密碼錯誤！, vbExclamation Set rs = Nothing End End If 39。鼠標(biāo)在管理員選項菜單使?fàn)顟B(tài)條的提示文字顯示End SubPrivate Sub Check1_Click() If Then 39。顯示增加管理員窗體End SubPrivate Sub Command10_Click() 1 39。顯示刪除月工資窗體End SubPrivate Sub Command12_Click() 1 39。顯示增加固定資產(chǎn)窗體End SubPrivate Sub Command14_Click() 1 39。顯示查詢固定資產(chǎn)窗體End SubPrivate Sub Command16_Click() 1 39。顯示增加報銷記錄窗體End SubPrivate Sub Command18_Click() 1 39。顯示導(dǎo)出報銷記錄窗體End SubPrivate Sub Command2_Click() 1 39。登錄窗體信息清空 = 39。退出管理系統(tǒng)End SubPrivate Sub Command5_Click() 1 39。顯示修改考勤記錄窗體End SubPrivate Sub Command7_Click() 1 39。顯示計算工資窗體End SubPrivate Sub Command9_Click() 1 39。鼠標(biāo)在流動資產(chǎn)管理菜單使?fàn)顟B(tài)條的提示文字顯示End SubPrivate Sub FixedAsset_Click() (1).Text = 固定資產(chǎn)管理 39。初始化窗體居中顯示 = ( ) / 2 = 8010 = 9945End SubPrivate Sub Form_Unload(Cancel As Integer) On Error Resume Next 39。顯示增加管理員窗體End SubPrivate Sub menu_AddCur_Click() 1 39。顯示增加考勤記錄窗體End SubPrivate Sub menu_AddFixed_Click() 1 39。顯示增加月工資窗體End SubPrivate Sub menu_AdminPass_Click() 1 39。顯示計算工資窗體End SubPrivate Sub menu_ChangeEvent_Click() 1 39。顯示修改固定資產(chǎn)窗體End SubPrivate Sub menu_ChangePay_Click() 1 39。顯示刪除固定資產(chǎn)窗體End SubPrivate Sub menu_DelPay_Click() 1 39。退出管理系統(tǒng)End SubPrivate Sub menu_ExportCur_Click() 1 39。登錄窗體信息清空 = 39。顯示月底結(jié)算窗體End SubPrivate Sub menu_QueryCur_Click() 1 39。顯示查詢考勤記錄窗體End SubPrivate Sub menu_QueryFixed_Click() 1 39。顯示查詢月工資窗體End SubPrivate Sub PayMan_Click() (1).Text = 工資管理 39。設(shè)置保存對話框有覆蓋提示 = 文本文件|*.txt 39。顯示保存對話框 If Then 39。 Tab。 Tab。 Tab。 Tab。從MSFlexGrid1中循環(huán)把記錄信息寫進文件中 = i = 0 USER_ID = = i = 1 USER_NAME = = i = 2 USER_PART = = i = 3 USER_ROLE = = i = 4 MONEY = Print 1, USER_ID。 USER_NAME。 USER_PART。 USER_ROLE。 MONEY Next i Close 1 39。返回主窗體End SubPrivate Sub Form_Load() Dim sql As String Dim rs As New Dim work As New 39。循環(huán)變量 Dim userid As String Dim MONEY As Long Dim temp As Long 39。返回記錄數(shù) = ( ) / 2 39。選定用戶表中所有記錄以及關(guān)聯(lián)的角色和部門記錄 sql = SELECT USER_ID,USER_NAME,PART_NAME,ROLE_NAME,ROLE_MONEY FROM TBL_USER,TBL_ROLE,TBL_PART WHERE USER_PART=PART_ID AND USER_ROLE=ROLE_ID = adOpenDynamic = adLockOptimistic sql, DbFinance resultcount = (rs) Cls 39。平均分配每個列的寬 Next i For i = 1 To resultcount 39。通過考勤表計算考勤信息影響的工資 = i = 0 userid = = 4 MONEY = Val() sql = SELECT WORK_TIME,TYPE_MARK,TYPE_ID FROM TBL_WORK,TBL_TYPE WHERE WORK_TYPE=TYPE_ID AND WORK_ID=39。 userid amp。 = adOpenDynamic = adLockOptimistic sql, DbFinance 39。通過考勤類別計算考勤時間和工資關(guān)系 Case 1 temp = work(WORK_TIME) * 1 Case 2 temp = work(WORK_TIME) * 2 Case 3 temp = work(WORK_TIME) * 10 Case 4 temp = work(WORK_TIME) * 20 End Select If work(TYPE_MARK) Then 39。當(dāng)考勤類別是遲到早退等要向基本工資中減工資 End If Loop = Str(MONEY) 39。打開數(shù)據(jù)庫失敗錯誤退出 MsgBox 數(shù)據(jù)庫錯誤！, vbExclamation End End IfEnd Sub 固定資產(chǎn)管理的設(shè)計與實現(xiàn)添加固定資產(chǎn)代碼:Private Sub Command1_Click() Dim sql As String D