數(shù)據(jù)庫應用與原理課程設計公司辦公費用信息管理系統(tǒng)

1、學號： 成績：_武漢科技大學城市學院課程設計報告院 系 信息科學與工程系 專 業(yè) 計算機科學與技術 年級 班 06級 計科二班 課程名稱 數(shù)據(jù)庫應用與原理 設計題目 公司辦公費用信息管理系統(tǒng)姓 名 指導教師 2008年 6 月 27 日設計題目:公司辦公費用管理信息系統(tǒng)設計設計主要內(nèi)容:一、開發(fā)平臺：vb+ sql server 2000二、功能要求：1、設計內(nèi)容設計一個公司辦公費用管理信息系統(tǒng)，該系統(tǒng)的用戶由一般用戶和管理員組成，然后不同的用戶擁有不同的權限，各自完成各自的管理功能，首先是歡迎界面，然后選擇登錄，登錄的時候首先要判斷用戶的身份，合法的用戶然后進入到系統(tǒng)主界面中，不同的用戶看到

2、不同的系統(tǒng)功能。用sql server2000創(chuàng)建后臺數(shù)據(jù)庫，然后利用程序設計語言（vb）編寫程序實現(xiàn)對數(shù)據(jù)庫的操作，按照要求完成所有的功能和模塊。2、公司辦公費用管理信息系統(tǒng)主要功能（1）用戶管理：用戶登錄界面、用戶注冊界面、辦公費用申請界面、辦公費用信息查詢界面、本用戶密碼的修改界面（2）管理員管理：管理員登錄界面、辦公費用查詢界面、辦公費用添加、刪除界面、本用戶密碼修改界面。 3、公司辦公費用管理信息系統(tǒng)數(shù)據(jù)庫表單（可以按照需求增加）（1）用戶信息表單：用戶名、密碼、用戶身份（管理員和普通用戶）（2）部門信息表單：部門編號、部門名稱、部門負責人、聯(lián)系電話、電子郵件、備注（3）辦公費用申請

3、表單：序號、費用編號（外碼）、費用金額、部門編號（外碼）、申請年月、是否通過審核、備注（4）辦公費用類別表單：費用編號、費用名稱 （5）辦公費用控制表單：部門編號（外碼）、年份、本年預算、本年累計支出 （6）辦公費用支出明細表單：序號、費用編號（外碼）、費用金額、部門編號（外碼）、支出日期 三、課程設計報告主要內(nèi)容：1公司辦公費用管理信息系統(tǒng)需求分析（給出系統(tǒng)功能模塊圖，對各功能作出詳細介紹）2公司辦公費用管理信息系統(tǒng)界面設計（給出界面截圖及其主要控件的屬性設置表格，并給出各界面的詳細代碼）3公司辦公費用管理信息系統(tǒng)數(shù)據(jù)庫設計（給出數(shù)據(jù)庫各個表單中數(shù)據(jù)的字段名，數(shù)據(jù)類型及其相應的說明）4公司辦

4、公費用管理信息系統(tǒng)程序設計（功能模塊給出詳細的程序代碼，重點語句的注釋）1. 公司辦公費用管理信息系統(tǒng)需求分析公司辦公費用管理信息系統(tǒng)登 錄用 戶 登 錄管 理 員 登 錄用戶服務新用戶注冊管理員服務本用戶密碼的修改辦公費用信息查詢辦公費用申請辦公費用查詢辦公費用添加、刪除本用戶密碼的修改 添 加更 新 刪 除 查 詢圖1.1零件交易管理信息系統(tǒng)1.1歡迎界面系統(tǒng)啟動之后便可進入歡迎界面，單擊“系統(tǒng)登陸”按鈕便可進入選擇登陸界面。1.2登錄界面1.2.1選中管理員登錄后便進入管理員服務界面1.2.2選中用戶登錄后便進入用戶服務界面1.2.3點注冊彈出注冊界面，注冊成功可返回登錄界面1.3管理員

5、服務界面 可以進行辦公費用查詢，辦公費用添加、刪除，本用戶密碼修改。1.3.1本用戶密碼修改 管理員通過輸入和確認新密碼來更改自己的密碼。1.3.2辦公費用添加、刪除 選此項后彈出選擇費用修改類型，管理員可以查詢，刪除，添加費用信息，在vb界面中修改了數(shù)據(jù)庫中的信息。1.3.3辦公費用查詢 管理員可以根據(jù)部門的編號進行查詢，可以查詢申請和支出兩種費用。1.4用戶界面 用戶可以進行本用戶密碼的修改，查看零件信息和工程項目使零件情況。1.4.1本用戶密碼修改用戶通過輸入和確認新密碼來更改自己的密碼。1.4.2辦公費用申請 用戶進入界面后可輸入信息進行費用申請。1.4.3辦公費用信息查詢用戶可以根據(jù)

6、部門的編號進行查詢，可以查詢申請和支出兩種費用。2公司辦公費用管理信息系統(tǒng)圖2.1 歡迎界面圖2.2 登錄界面圖2.3 新用戶注冊界面圖2.4 管理員服務界面表2.1 管理員服務界面屬性表對象屬性設定值option1caption本用戶密碼修改option2caption辦公費用添加、刪除option3caption辦公費用查詢圖2.5 用戶服務界面表2.2 用戶服務界面屬性表對象屬性設定值option1caption本用戶密碼修改option2caption辦公費用申請option3caption辦公費用信息查詢圖2.6 用戶/管理員密碼修改界面圖2.7 辦公費用申請界面圖2.8 辦公費用查

7、詢界面(用戶/管理員)表2.3 辦公費用查詢界面屬性表對象屬性設置值dadagrid1datasourceadodc1adodc1captionadodc1commandstringdsn=chenzhaocommandtype2-adcmdtablerecordsourcepartment visiblefalse圖2.9 費用修改類型選擇圖2.10 申請費用修改界面表2.4 申請費用修改界面屬性表對象屬性設置值adodc1captionadodc1commandstringdsn=chenzhaocommandtype2-adcmdtablerecordsourceapplicationv

8、isiblefalseadodc2captionadodc2commandstringdsn=chenzhaocommandtype2-adcmdtablevisiblefalserecordsourcecontrol圖2.11 支出費用修改界面表2.5 支出費用界面屬性表對象屬性設置值dadagriddatasourceadodc1adodc1captionadodc1commandtype2-adcmdtablerecordsourceoutvisiblefalseadodc2captionadodc2commandtype2-adcmdtablerecordsourceoutvisibl

9、efalse 圖2.11 mdi主窗體界面3公司辦公費用管理信息系統(tǒng)數(shù)據(jù)庫設計公司辦公費用管理信息系統(tǒng)總共有六張表：用戶信息表單、部門信息表單、辦公費用申請表單、辦公費用類別表單、辦公費用控制表單、辦公費用支出明細表單。表3.1 用戶信息表users字段名稱標始名稱數(shù)據(jù)類型是否允許為空字段說明uname用戶名char否主碼ukey密碼char否utype用戶類型char否 表3.2 部門信息表partment字段名稱標始名稱數(shù)據(jù)類型是否允許為空字段說明pno部門編號char否主碼pname部門名稱char否pmanager負責人char是pcall電話char是pemail電子郵件char是p

10、s備注char是表3.3 辦公費用申請表application字段名稱標始名稱數(shù)據(jù)類型是否允許為空字段說明ano序號int否主碼tno費用編號char否引用type外碼amoney申請費用char是pno部門編號char否partment外碼adate申請時間smalldatetime是apermit是否通過char是aps備注char是 表3.4 辦公費用類別表type字段名稱標始名稱數(shù)據(jù)類型是否允許為空字段說明tno費用編號char否主碼tname費用名稱char否表3.5 辦公費用控制表control字段名稱標始名稱數(shù)據(jù)類型是否允許為空字段說明pno部門編號char否partmen外碼

11、cyear年份char是cadvance本年預算char是cout本年支出char是表3.6 辦公費用支出明細表out字段名稱標始名稱數(shù)據(jù)類型是否允許為空字段說明ono序號int否主碼tno費用編號char否引用type外碼omoney支出金額char是pno部門編號char否partment外碼odate支出日期smalldatetime是4公司辦公費用管理信息系統(tǒng)程序設計（部分代碼）4.1歡迎界面歡迎界面是整個系統(tǒng)的首頁，用戶可通過它進入到登錄系統(tǒng)。4.2登錄界面 進入此界面后，使用者可根據(jù)自己的身份選擇登錄方式。普通用戶選擇用戶登錄，管理員選擇管理員登錄。如果是新用戶，直接點注冊。代碼如

12、下：dim a as integerprivate sub command1_click()a = combo1.listindexwhile a = 0if len(text1.text) 0 then adodc1.commandtype = adcmdtext adodc1.recordsource = select uname from users where uname = & trim(text1.text) & and utype = & 用戶 & adodc1.refresh else msgbox 請?zhí)顚懹脩裘?exit sub end if if adodc1.record

13、set.eof = true then msgbox 姓名錯誤!, 48, warning! text1.text = text2.text = exit sub end if if len(text2.text) 0 then adodc1.commandtype = adcmdtext adodc1.recordsource = select ukey from users where uname = & trim(text1.text) & adodc1.refresh else msgbox 請?zhí)顚懨艽a exit sub end if if strcomp(trim(adodc1.re

14、cordset.fields(ukey).value), trim(form2.text2.text) 0 then msgbox 密碼錯誤!, 48, warning text2.text = text2.setfocus exit sub else msgbox 登錄成功 form4.show form2.hide exit subend ifwendwhile a = 1if len(text1.text) 0 then adodc1.commandtype = adcmdtext adodc1.recordsource = select uname from users where u

15、name = & trim(text1.text) & and utype = & 管理員 & adodc1.refresh else msgbox 請?zhí)顚懹脩裘?exit sub end ifif adodc1.recordset.eof = true then msgbox 姓名錯誤!, 48, warning! text1.text = text2.text = exit sub end if if len(text2.text) 0 then adodc1.commandtype = adcmdtext adodc1.recordsource = select ukey from us

16、ers where uname = & trim(text1.text) & adodc1.refresh else msgbox 請?zhí)顚懨艽a exit sub end if if strcomp(trim(adodc1.recordset.fields(ukey).value), trim(form2.text2.text) 0 then msgbox 密碼錯誤!, 48, warning text2.text = text2.setfocus exit sub else msgbox 登錄成功 form5.show form2.hide exit subend ifwendend subp

17、rivate sub command2_click()dim a as integera = msgbox(您真的要退出嗎？, 305, 提示)if a = 1 then end end ifend subprivate sub command3_click()form3.showend subprivate sub form_load()combo1.additem 用戶combo1.additem 管理員combo1.text = combo1.list(0)text1.text = text2.text = end sub4.3用戶服務界面用戶登錄進去后，可以到用戶服務界面選擇自己所需的

18、服務，該界面為用戶提供了三種服務，分別是“本用戶密碼的修改”，“辦公費用信息查詢”和“辦公費用申請”。4.4 管理員服務界面管理員登錄進去后，可以到管理員服務界面選擇自己所需的服務，該界面為管理員提供了三種服務，分別是“本用戶密碼的修改”，“辦公費用信息查詢”和“辦公費用添加、刪除”。4.5 用戶密碼修改界面程序設計（管理員密碼修改也是次界面）用戶如需修改自己的密碼可在此界面進行，用戶通過用戶服務界面到此，然后在此界面中輸入原始密碼和新密碼并驗證新密碼，確認后如果無誤就會提示用戶修改成功，并且其密碼在用戶信息表中也會有相應的修改。代碼如下：private sub command1_click(

19、)if trim(text1.text = ) then msgbox 請輸入密碼！, 0, 提示 text1.setfocus exit subend ifadodc1.commandtype = adcmdtextadodc1.recordsource = select ukey from users where uname = & trim(form2.text1.text) & and ukey = & trim(form6.text1.text) & adodc1.refreshif adodc1.recordset.eof = true then msgbox 密碼不正確，請重新輸

20、入！, 0, 提示 text1.text = text2.text = text3.text = text1.setfocus exit subend ifif trim(text2.text) = then msgbox 請輸入新密碼, 0, 提示 text2.setfocus exit subend ifif trim(text2.text) trim(text3.text) then msgbox 新密碼不一致,請從新輸入, 0, 提示 text2.text = text3.text = text2.setfocus exit subend ifadodc1.recordset.fiel

21、ds(ukey).value = trim(text3.text)adodc1.recordset.updateadodc1.refreshmsgbox 修改密碼成功！, 0, 提示unload meend subprivate sub command2_click()unload meend sub4.6辦公費用查詢界面用戶可通過輸入部門編號查找相應部門信息，還可以查詢此部門申請/支出費用信息。利用datagrid和adodc控件的連接顯示出來。代碼如下：dim i as variantprivate sub command1_click()adodc1.recordset.movefirs

22、tend subprivate sub command2_click()adodc1.recordset.movepreviousif adodc1.recordset.bof = true then adodc1.recordset.movefirst end ifend subprivate sub command3_click()adodc1.recordset.movenextif adodc1.recordset.eof = true then adodc1.recordset.movelast end ifend subprivate sub command4_click()ado

23、dc1.recordset.movelastend subprivate sub command5_click()unload meend subprivate sub command6_click()dim strpno as stringdim strselect as stringstrpno = trim(form7.text1.text)strselect = select type.tno,tname,amoney from type join application on type.tno = application.tno where application.pno = & s

24、trpno & adodc1.commandtype = adcmdtextadodc1.recordsource = strselectadodc1.refreshset datagrid1.datasource = adodc1 datagrid1.columns(0).caption = 費用編號 datagrid1.columns(1).caption = 費用名稱 datagrid1.columns(2).caption = 申請金額end subprivate sub command7_click()dim strpno as stringdim strselect as stri

25、ngstrpno = trim(form7.text1.text)strselect = select type.tno,tname,omoney from type join out on type.tno = out.tno where out.pno = & strpno & adodc1.commandtype = adcmdtextadodc1.recordsource = strselectadodc1.refreshset datagrid1.datasource = adodc1 datagrid1.columns(0).caption = 費用編號 datagrid1.col

26、umns(1).caption = 費用名稱 datagrid1.columns(2).caption = 支出金額end subprivate sub command8_click()dim strselect as stringstrselect = select pno,pname,pmanager,pcall,pemail,ps from partmentadodc1.commandtype = adcmdtextadodc1.recordsource = strselectadodc1.refreshset datagrid1.datasource = adodc1datagrid1

27、.columns(0).caption = 部門編號 datagrid1.columns(1).caption = 部門名稱 datagrid1.columns(2).caption = 負責人 datagrid1.columns(3).caption = 聯(lián)系電話 datagrid1.columns(4).caption = 電子郵件 datagrid1.columns(5).caption = 備注end subprivate sub command9_click()dim strselect as stringif len(text4.text) 0 thenstrselect = se

28、lect pno,pname,pmanager,pcall,pemail,ps from partment where pno = & trim(text4.text) & adodc1.commandtype = adcmdtextadodc1.recordsource = strselectadodc1.refresh if adodc1.recordset.eof = true then msgbox 沒有這個部門 text4.text = text4.setfocus exit sub else set datagrid1.datasource = adodc1 datagrid1.c

29、olumns(0).caption = 部門編號 datagrid1.columns(1).caption = 部門名稱 datagrid1.columns(2).caption = 負責人 datagrid1.columns(3).caption = 聯(lián)系電話 datagrid1.columns(4).caption = 電子郵件 datagrid1.columns(5).caption = 備注 end ifend ifend subprivate sub form_load()set datagrid1.datasource = adodc1datagrid1.columns(0).ca

30、ption = 部門編號 datagrid1.columns(1).caption = 部門名稱 datagrid1.columns(2).caption = 負責人 datagrid1.columns(3).caption = 聯(lián)系電話 datagrid1.columns(4).caption = 電子郵件 datagrid1.columns(5).caption = 備注end sub4.7辦公費用添加、刪除界面從管理員服務界面進入，有兩種費用類型，申請/支出費用修改，管理員需要選擇。申請費用修改界面代碼如下：dim a as integerdim b as variantdim c as

31、 variantprivate sub command5_click()設置文本可編輯text1.locked = falsetext2.locked = falsetext3.locked = falsetext7.locked = falsetext5.locked = falsetext6.locked = falseadodc1.commandtype = adcmdtextadodc1.recordsource = select max(ano) max from applicationadodc1.refresha = adodc1.recordset.fields(max).va

32、lue 將序號的最大值賦給aadodc1.commandtype = adcmdtableadodc1.recordsource = applicationadodc1.refreshadodc1.recordset.addnewtext1.setfocuscommand5.enabled = falsecommand6.enabled = falsecommand7.enabled = truecommand8.enabled = trueend subprivate sub command6_click()dim res as integerdim d as variantres = ms

33、gbox(確實要刪除此行記錄嗎？, vbexclamation + vbyesno + vbdefaultbutton2) if res = vbyes then if adodc1.recordset.recordcount 1 then adodc2.commandtype = adcmdtext adodc2.recordsource = select * from control where pno = & trim(text3.text) & and cyear = & mid$(trim(text5.text), 1, 4) & adodc2.refresh 如果是通過的申請費用，

34、有日期的，則從預算中減去這部分費用 if trim(text6.text) = 是 and len(text5.text) 0 then d = adodc2.recordset.fields(cadvance).value - val(trim(text2.text) adodc2.recordset.fields(cadvance).value = d adodc2.recordset.update end if adodc1.recordset.delete adodc1.recordset.update end if if adodc1.recordset.eof = true the

35、n adodc1.recordset.movelast end if else msgbox 不能將數(shù)據(jù)全部刪除 exit sub end ifend subprivate sub command7_click()adodc1.recordset.fields(ano).value = a + 1if len(text1.text) 0 thenadodc2.commandtype = adcmdtextadodc2.recordsource = select tno from type where tno = & trim(text1.text) & adodc2.refresh if ad

36、odc2.recordset.eof = true then msgbox 無此費用編號 text1.text = text1.setfocus exit sub else adodc1.recordset.fields(tno).value = trim(text1.text) end ifend ifif isnumeric(trim(text2.text) = true thenadodc1.recordset.fields(amoney).value = trim(text2.text)elsemsgbox 請輸入數(shù)字text2.text = text2.setfocusexit su

37、bend ifif len(text3.text) 0 thenadodc2.commandtype = adcmdtextadodc2.recordsource = select pno from partment where pno = & trim(text3.text) & adodc2.refresh if adodc2.recordset.eof = true then msgbox 無此部門編號 text3.text = text3.setfocus exit sub else adodc1.recordset.fields(pno).value = trim(text3.tex

38、t) end ifend ifif len(text3.text) = 0 thenmsgbox 請輸入部門編號text3.setfocusexit subend ifif len(text1.text) 0 then if isdate(trim(text5.text) = true then adodc1.recordset.fields(adate).value = trim(text5.text) else msgbox 日期格式錯誤，請按xxxx-xx-xx輸入 text5.text = text5.setfocus exit sub end ifend ifadodc1.recor

39、dset.fields(apermit).value = trim(text6.text)adodc1.recordset.fields(aps).value = trim(text7.text)如果申請通過，則將申請的費用金額加如到對應預算中if trim(text6.text) = 是 then if len(text5.text) 0 thenb = mid$(trim(text5.text), 1, 4) 取日期的年份adodc2.commandtype = adcmdtextadodc2.recordsource = select * from control where pno =

40、 & trim(text3.text) & and cyear = & b & adodc2.refreshc = adodc2.recordset.fields(cadvance).value + val(trim(text2.text) 取預算金額和申請金額之和adodc2.recordset.fields(cadvance).value = cadodc2.recordset.update end ifend ifadodc1.recordset.updatemsgbox 更新成功設置文本不可編輯text1.locked = truetext2.locked = truetext3.lo

41、cked = truetext7.locked = truetext5.locked = truetext6.locked = truecommand5.enabled = truecommand6.enabled = truecommand8.enabled = falseend subprivate sub command8_click()adodc1.recordset.cancelupdatecommand5.enabled = truecommand6.enabled = truecommand8.enabled = falseend subprivate sub form_load

42、()command8.enabled = falsecommand7.enabled = falseend subprivate sub command1_click()adodc1.recordset.movefirstend subprivate sub command2_click()adodc1.recordset.movepreviousif adodc1.recordset.bof = true then adodc1.recordset.movefirst end ifend subprivate sub command3_click()adodc1.recordset.move

43、nextif adodc1.recordset.eof = true then adodc1.recordset.movelast end ifend subprivate sub command4_click()adodc1.recordset.movelastend sub支出費用修改代碼如下：dim a as integerdim b as variantdim c as variantprivate sub command5_click()adodc1.commandtype = adcmdtextadodc1.recordsource = select max(ono) max fr

44、om outadodc1.refresha = adodc1.recordset.fields(max).valueadodc1.commandtype = adcmdtableadodc1.recordsource = outadodc1.refreshadodc1.recordset.addnewtext1.setfocuscommand5.enabled = falsecommand6.enabled = falsecommand7.enabled = truecommand8.enabled = trueend subprivate sub command6_click()dim re

45、s as integerres = msgbox(確實要刪除此行記錄嗎？, vbexclamation + vbyesno + vbdefaultbutton2) if res = vbyes then if adodc1.recordset.recordcount 1 then 如果支出的費用有日期，則從總支出中去掉這部分支出 if len(text5.text) 0 then adodc2.commandtype = adcmdtext adodc2.recordsource = select * from control where pno = & trim(text3.text) &

46、and cyear = & mid$(trim(text5.text), 1, 4) & adodc2.refresh d = adodc2.recordset.fields(cout).value - val(trim(text2.text) adodc2.recordset.fields(cout).value = d adodc2.recordset.update adodc1.recordset.delete adodc1.recordset.update end if if adodc1.recordset.eof = true then adodc1.recordset.movel

47、ast end if else msgbox 不能將數(shù)據(jù)全部刪除 exit sub end if end ifend subprivate sub command7_click()adodc1.recordset.fields(ono).value = a + 1if len(text1.text) 0 thenadodc2.commandtype = adcmdtextadodc2.recordsource = select tno from type where tno = & trim(text1.text) & adodc2.refresh if adodc2.recordset.eo

48、f = true then msgbox 無此費用編號 text1.text = text1.setfocus exit sub else adodc1.recordset.fields(tno).value = trim(text1.text) end ifend ifif isnumeric(trim(text2.text) = true thenadodc1.recordset.fields(omoney).value = trim(text2.text)elsemsgbox 請輸入數(shù)字text2.text = text2.setfocusexit subend ifif len(tex

49、t3.text) 0 thenadodc2.commandtype = adcmdtextadodc2.recordsource = select pno from partment where pno = & trim(text3.text) & adodc2.refresh if adodc2.recordset.eof = true then msgbox 無此部門編號 text3.text = text3.setfocus exit sub else adodc1.recordset.fields(pno).value = trim(text3.text) end ifend ifif len(text3.text) = 0 thenmsgbox 請輸入部門編號text3.se