畢業(yè)設(shè)計財務(wù)管理系統(tǒng)論文-文庫吧資料
2024-08-09 08:38本頁面
【正文】 1 Then 39。 amp。資產(chǎn)具有相同編號的記錄 = adLockOptimistic = FIXED_ID=39。打開數(shù)據(jù)庫連接準(zhǔn)備添加固定資產(chǎn)記錄 sql = TBL_FIXED 39。判斷資產(chǎn)單價輸入框是數(shù)字 MsgBox 資產(chǎn)單價必須是數(shù)字！, vbCritical Exit Sub End If If = 1 Then 39。判斷資產(chǎn)說明輸入框不為空 MsgBox 資產(chǎn)說明不能為空！, vbCritical Exit Sub End If If Not IsNumeric() Then 39。判斷經(jīng)手人ID輸入框不為空 MsgBox 經(jīng)手人ID不能為空！, 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)編號輸入框不為空 MsgBox 資產(chǎn)編號不能為空！, vbCritical Exit Sub End If If = Then 39。重新設(shè)置每個人的月工資 Next i Else 39。當(dāng)考勤類別是加班出差等要向基本工資中加工資 MONEY = MONEY + temp Else MONEY = MONEY temp 39。選取每一行職工ID的本月考勤信息 Do While = False Select Case work(TYPE_ID) 39。 39。 amp。循環(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。設(shè)置電子表格的列頭 = 5 = resultcount + 1 = 0 = 0 = 員工ID號 = 1 = 員工姓名 = 2 = 所屬部門 = 3 = 職位名稱 = 4 = 本月工資 For i = 0 To 4 (i) = / 5 5 39。窗體居中顯示 = ( ) / 2 If Then 39?？记谟绊懙降墓べY Dim resultcount As Long 39?？记谟涗浗Y(jié)果集 Dim i As Integer 39。關(guān)閉文件 End IfEnd SubPrivate Sub Command2_Click() Unload Me 39。 Tab。 Tab。 Tab。 Tab。 本月工資 For i = 1 To 1 39。 職位名稱。 所屬部門。 員工姓名。如果用戶點確定按鈕就寫導(dǎo)出文件 Open For Output As 1 Print 1, 員工ID號。設(shè)置保存對話框的顯示文件類型 39。鼠標(biāo)在工資管理菜單使?fàn)顟B(tài)條的提示文字顯示End Sub 工資管理的設(shè)計與實現(xiàn) 工資管理界面:工資計算代碼: Private Sub Command1_Click() Dim i As Long Dim USER_ID As String Dim USER_NAME As String Dim USER_PART As String Dim USER_ROLE As String Dim MONEY As String = cdlOFNOverwritePrompt 39。顯示查詢固定資產(chǎn)窗體End SubPrivate Sub menu_QueryPay_Click() 1 39。顯示查詢報銷記錄窗體End SubPrivate Sub menu_QueryEvent_Click() 1 39。顯示注銷(登錄)窗體End SubPrivate Sub menu_MonthBln_Click() 1 39。顯示導(dǎo)出報銷記錄窗體End SubPrivate Sub menu_Logout_Click() = 39。顯示刪除月工資窗體End SubPrivate Sub menu_Exit_Click() End 39。顯示修改月工資窗體End SubPrivate Sub menu_DelFixed_Click() 1 39。顯示修改考勤記錄窗體End SubPrivate Sub menu_ChangeFixed_Click() 1 39。顯示修改管理員密碼窗體End SubPrivate Sub menu_CalcPay_Click() 1 39。顯示修改考勤記錄窗體End SubPrivate Sub menu_AddPay_Click() 1 39。顯示增加報銷記錄窗體End SubPrivate Sub menu_AddEvent_Click() 1 39。當(dāng)主窗體關(guān)閉時關(guān)閉數(shù)據(jù)庫連接 EndEnd SubPrivate Sub menu_AddAdmin_Click() 1 39。顯示增加管理員窗體End SubPrivate Sub Form_Load() = ( ) / 2 39。顯示增加月工資記錄窗體End SubPrivate Sub CurAsset_Click() (1).Text = 流動資產(chǎn)管理 39。顯示查詢考勤記錄窗體End SubPrivate Sub Command8_Click() 1 39。顯示添加考勤記錄窗體End SubPrivate Sub Command6_Click() 1 39。顯示注銷(登錄)窗體End SubPrivate Sub Command4_Click() End 39。顯示修改管理員密碼窗體End SubPrivate Sub Command3_Click() = 39。顯示查詢報銷記錄窗體End SubPrivate Sub Command19_Click() 1 39。顯示刪除固定資產(chǎn)窗體End SubPrivate Sub Command17_Click() 1 39。顯示修改固定資產(chǎn)窗體End SubPrivate Sub Command15_Click() 1 39。顯示查詢月工資窗體End SubPrivate Sub Command13_Click() 1 39。顯示增加修改月工資窗體End SubPrivate Sub Command11_Click() 1 39。啟用或者禁止快捷按鈕所在的Frame = False = False = False = False Else = True = True = True = True End IfEnd SubPrivate Sub Command1_Click() 1 39。登陸成功顯示主窗體 Unload Me Else MsgBox 數(shù)據(jù)庫錯誤！, vbExclamation End End IfEnd Su
畢業(yè)設(shè)計相關(guān)推薦
鄂ICP備17016276號-1