公司辦公費用信息管理系統(tǒng)-在線瀏覽
2025-06-02 00:34本頁面
【正文】 注釋） 1. 公司辦公費用管理信息系統(tǒng)需求分析公司辦公費用管理信息系統(tǒng)登 錄用 戶 登 錄管 理 員 登 錄用戶服務新用戶注冊管理員服務本用戶密碼的修改辦公費用信息查詢辦公費用申請辦公費用查詢辦公費用添加、刪除本用戶密碼的修改 添 加更 新 刪 除 查 詢系統(tǒng)啟動之后便可進入歡迎界面，單擊“系統(tǒng)登陸”按鈕便可進入選擇登陸界面。 管理員通過輸入和確認新密碼來更改自己的密碼。 管理員可以根據(jù)部門的編號進行查詢，可以查詢申請和支出兩種費用。用戶通過輸入和確認新密碼來更改自己的密碼。用戶可以根據(jù)部門的編號進行查詢，可以查詢申請和支出兩種費用。 用戶信息表Users字段名稱標始名稱數(shù)據(jù)類型是否允許為空字段說明Uname用戶名char否主碼Ukey密碼char否Utype用戶類型char否 部門信息表Partment字段名稱標始名稱數(shù)據(jù)類型是否允許為空字段說明Pno部門編號char否主碼Pname部門名稱char否Pmanager負責人char是Pcall電話char是P電子郵件Char是Ps備注Char是 辦公費用申請表Application字段名稱標始名稱數(shù)據(jù)類型是否允許為空字段說明Ano序號int否主碼Tno費用編號char否引用Type外碼Amoney申請費用char是Pno部門編號char否Partment外碼Adate申請時間smalldatetime是Apermit是否通過char是Aps備注char是 辦公費用類別表Type字段名稱標始名稱數(shù)據(jù)類型是否允許為空字段說明Tno費用編號char否主碼Tname費用名稱char否 辦公費用控制表Control字段名稱標始名稱數(shù)據(jù)類型是否允許為空字段說明Pno部門編號char否Partmen外碼 Cyear年份char是Cadvance本年預算char是Cout本年支出char是 辦公費用支出明細表Out字段名稱標始名稱數(shù)據(jù)類型是否允許為空字段說明Ono序號int否主碼Tno費用編號char否引用Type外碼Omoney支出金額char是Pno部門編號char否Partment外碼Odate支出日期Smalldatetime是4．公司辦公費用管理信息系統(tǒng)程序設計（部分代碼）歡迎界面是整個系統(tǒng)的首頁，用戶可通過它進入到登錄系統(tǒng)。普通用戶選擇用戶登錄，管理員選擇管理員登錄。代碼如下：Dim a As IntegerPrivate Sub Command1_Click()a = While a = 0If Len() 0 Then = adCmdText = select uname from users where uname = 39。 Trim() amp。 and Utype = 39。 用戶 amp。 Else MsgBox 請?zhí)顚懹脩裘?Exit Sub End If If = True Then MsgBox 姓名錯誤!, 48, warning! = = Exit Sub End If If Len() 0 Then = adCmdText = select ukey from users where uname = 39。 Trim() amp。 Else MsgBox 請?zhí)顚懨艽a Exit Sub End If If StrComp(Trim((ukey).Value), Trim()) 0 Then MsgBox 密碼錯誤!, 48, warning = Exit Sub Else MsgBox 登錄成功 Exit SubEnd IfWendWhile a = 1If Len() 0 Then = adCmdText = select uname from users where uname = 39。 Trim() amp。 and Utype = 39。 管理員 amp。 Else MsgBox 請?zhí)顚懹脩裘?Exit Sub End IfIf = True Then MsgBox 姓名錯誤!, 48, warning! = = Exit Sub End If If Len() 0 Then = adCmdText = select ukey from users where uname = 39。 Trim() amp。 Else MsgBox 請?zhí)顚懨艽a Exit Sub End If If StrComp(Trim((ukey).Value), Trim()) 0 Then MsgBox 密碼錯誤!, 48, warning = Exit Sub Else MsgBox 登錄成功 Exit SubEnd IfWendEnd SubPrivate Sub Command2_Click()Dim a As Integera = MsgBox(您真的要退出嗎？, 305, 提示)If a = 1 Then End End IfEnd SubPrivate Sub Command3_Click()End SubPrivate Sub Form_Load() 用戶 管理員 = (0) = = End Sub用戶登錄進去后，可以到用戶服務界面選擇自己所需的服務，該界面為用戶提供了三種服務，分別是“本用戶密碼的修改”，“辦公費用信息查詢”和“辦公費用申請”。 用戶密碼修改界面程序設計（管理
公司管理相關推薦
鄂ICP備17016276號-1