【文章內(nèi)容簡介】 itePrompt 39。設(shè)置保存對(duì)話框有覆蓋提示 = 文本文件|*.txt 39。設(shè)置保存對(duì)話框的顯示文件類型 39。顯示保存對(duì)話框 If Then 39。如果用戶點(diǎn)確定按鈕就寫導(dǎo)出文件 Open For Output As 1 Print 1, 員工ID號(hào)。 Tab。 員工姓名。 Tab。 所屬部門。 Tab。 職位名稱。 Tab。 本月工資 For i = 1 To 1 39。從MSFlexGrid1中循環(huán)把記錄信息寫進(jìn)文件中 = i = 0 USER_ID = = i = 1 USER_NAME = = i = 2 USER_PART = = i = 3 USER_ROLE = = i = 4 MONEY = Print 1, USER_ID。 Tab。 USER_NAME。 Tab。 USER_PART。 Tab。 USER_ROLE。 Tab。 MONEY Next i Close 1 39。關(guān)閉文件 End IfEnd SubPrivate Sub Command2_Click() Unload Me 39。返回主窗體End SubPrivate Sub Form_Load() Dim sql As String Dim rs As New Dim work As New 39。考勤記錄結(jié)果集 Dim i As Integer 39。循環(huán)變量 Dim userid As String Dim MONEY As Long Dim temp As Long 39?？记谟绊懙降墓べY Dim resultcount As Long 39。返回記錄數(shù) = ( ) / 2 39。窗體居中顯示 = ( ) / 2 If Then 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。設(shè)置電子表格的列頭 = 5 = resultcount + 1 = 0 = 0 = 員工ID號(hào) = 1 = 員工姓名 = 2 = 所屬部門 = 3 = 職位名稱 = 4 = 本月工資 For i = 0 To 4 (i) = / 5 5 39。平均分配每個(gè)列的寬 Next i For i = 1 To resultcount 39。循環(huán)將職工信息和基本工資放入電子表格 userid = rs(USER_ID) = i = 0 = userid = 1 = rs(USER_NAME) = 2 = rs(PART_NAME) = 3 = rs(ROLE_NAME) MONEY = rs(ROLE_MONEY) = 4 = Str(MONEY) Next i Set rs = Nothing For i = 1 To resultcount 39。通過考勤表計(jì)算考勤信息影響的工資 = 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。 amp。 userid amp。 39。 = adOpenDynamic = adLockOptimistic sql, DbFinance 39。選取每一行職工ID的本月考勤信息 Do While = False Select Case work(TYPE_ID) 39。通過考勤類別計(jì)算考勤時(shí)間和工資關(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)考勤類別是加班出差等要向基本工資中加工資 MONEY = MONEY + temp Else MONEY = MONEY temp 39。當(dāng)考勤類別是遲到早退等要向基本工資中減工資 End If Loop = Str(MONEY) 39。重新設(shè)置每個(gè)人的月工資 Next i Else 39。打開數(shù)據(jù)庫失敗錯(cuò)誤退出 MsgBox 數(shù)據(jù)庫錯(cuò)誤！, vbExclamation End End IfEnd Sub 固定資產(chǎn)管理的設(shè)計(jì)與實(shí)現(xiàn)添加固定資產(chǎn)代碼:Private Sub Command1_Click() Dim sql As String Dim rs As New If = Then 39。判斷資產(chǎn)編號(hào)輸入框不為空 MsgBox 資產(chǎn)編號(hào)不能為空！, vbCritical Exit Sub End If If = Then 39。判斷資產(chǎn)名稱輸入框不為空 MsgBox 資產(chǎn)名稱不能為空！, vbCritical Exit Sub End If If = Then 39。判斷資產(chǎn)數(shù)目輸入框不為空 MsgBox 資產(chǎn)數(shù)目不能為空！, vbCritical Exit Sub End If If = Then 39。判斷資產(chǎn)單價(jià)輸入框不為空 MsgBox 資產(chǎn)單價(jià)不能為空！, vbCritical Exit Sub End If If = Then 39。判斷經(jīng)手人ID輸入框不為空 MsgBox 經(jīng)手人ID不能為空！, vbCritical Exit Sub End If If = Then 39。判斷聯(lián)系電話輸入框不為空 MsgBox 聯(lián)系電話不能為空！, vbCritical Exit Sub End If If = Then 39。判斷資產(chǎn)說明輸入框不為空