公司辦公費(fèi)用信息管理系統(tǒng)(編輯修改稿)
2025-05-12 00:34 本頁面
【文章內(nèi)容簡介】 Exit SubEnd If = adCmdText = select ukey from users where uname = 39。 amp。 Trim() amp。 39。 And ukey = 39。 amp。 Trim() amp。 39。If = True Then MsgBox 密碼不正確，請重新輸入！, 0, 提示 = = = Exit SubEnd IfIf Trim() = Then MsgBox 請輸入新密碼, 0, 提示 Exit SubEnd IfIf Trim() Trim() Then MsgBox 新密碼不一致,請從新輸入, 0, 提示 = = Exit SubEnd If(ukey).Value = Trim()MsgBox 修改密碼成功！, 0, 提示Unload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub用戶可通過輸入部門編號查找相應(yīng)部門信息，還可以查詢此部門申請/支出費(fèi)用信息。利用datagrid和adodc控件的連接顯示出來。代碼如下：Dim i As VariantPrivate Sub Command1_Click()End SubPrivate Sub Command2_Click()If = True Then End IfEnd SubPrivate Sub Command3_Click()If = True Then End IfEnd SubPrivate Sub Command4_Click()End SubPrivate Sub Command5_Click()Unload MeEnd SubPrivate Sub Command6_Click()Dim strpno As StringDim strselect As Stringstrpno = Trim()strselect = select ,tname,amoney from type join application on = where = 39。 amp。 strpno amp。 39。 = adCmdText = strselectSet = Adodc1 (0).Caption = 費(fèi)用編號 (1).Caption = 費(fèi)用名稱 (2).Caption = 申請金額End SubPrivate Sub Command7_Click()Dim strpno As StringDim strselect As Stringstrpno = Trim()strselect = select ,tname,omoney from type join out on = where = 39。 amp。 strpno amp。 39。 = adCmdText = strselectSet = Adodc1 (0).Caption = 費(fèi)用編號 (1).Caption = 費(fèi)用名稱 (2).Caption = 支出金額End SubPrivate Sub Command8_Click()Dim strselect As Stringstrselect = select pno,pname,pmanager,pcall,p,ps from partment = adCmdText = strselectSet = Adodc1(0).Caption = 部門編號 (1).Caption = 部門名稱 (2).Caption = 負(fù)責(zé)人 (3).Caption = 聯(lián)系電話 (4).Caption = 電子郵件 (5).Caption = 備注End SubPrivate Sub Command9_Click()Dim strselect As StringIf Len() 0 Thenstrselect = select pno,pname,pmanager,pcall,p,ps from partment where pno = 39。 amp。 Trim() amp。 39。 = adCmdText = strselect If = True Then MsgBox 沒有這個部門 = Exit Sub Else Set = Adodc1 (0).Caption = 部門編號 (1).Caption = 部門名稱 (2).Caption = 負(fù)責(zé)人 (3).Caption = 聯(lián)系電話 (4).Caption = 電子郵件 (5).Caption = 備注 End IfEnd IfEnd SubPrivate Sub Form_Load()Set = Adodc1(0).Caption = 部門編號 (1).Caption = 部門名稱 (2).Caption = 負(fù)責(zé)人 (3).Caption = 聯(lián)系電話 (4).Caption = 電子郵件 (5).Caption = 備注End Sub、刪除界面從管理員服務(wù)界面進(jìn)入，有兩種費(fèi)用類型，申請/支出費(fèi)用修改，管理員需要選擇。申請費(fèi)用修改界面代碼如下：Dim a As IntegerDim b As VariantDim c As VariantPrivate Sub Command5_Click()39。設(shè)置文本可編輯 = False = False = False = False = False = False = adCmdText = select max(ano) max from applicationa = (max).Value 39。將序號的最大值賦給a = adCmdTable = application = False = False = True = TrueEnd SubPrivate Sub Command6_Click()
公司管理相關(guān)推薦
鄂ICP備17016276號-1