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

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

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

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

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

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

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

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

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

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

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

11、cyear年份char是cadvance本年預(yù)算char是cout本年支出char是表3.6 辦公費(fèi)用支出明細(xì)表out字段名稱標(biāo)始名稱數(shù)據(jù)類型是否允許為空字段說明ono序號int否主碼tno費(fèi)用編號char否引用type外碼omoney支出金額char是pno部門編號char否partment外碼odate支出日期smalldatetime是4公司辦公費(fèi)用管理信息系統(tǒng)程序設(shè)計（部分代碼）4.1歡迎界面歡迎界面是整個系統(tǒng)的首頁，用戶可通過它進(jìn)入到登錄系統(tǒng)。4.2登錄界面 進(jìn)入此界面后，使用者可根據(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用戶服務(wù)界面用戶登錄進(jìn)去后，可以到用戶服務(wù)界面選擇自己所需的

18、服務(wù)，該界面為用戶提供了三種服務(wù)，分別是“本用戶密碼的修改”，“辦公費(fèi)用信息查詢”和“辦公費(fèi)用申請”。4.4 管理員服務(wù)界面管理員登錄進(jìn)去后，可以到管理員服務(wù)界面選擇自己所需的服務(wù)，該界面為管理員提供了三種服務(wù)，分別是“本用戶密碼的修改”，“辦公費(fèi)用信息查詢”和“辦公費(fèi)用添加、刪除”。4.5 用戶密碼修改界面程序設(shè)計（管理員密碼修改也是次界面）用戶如需修改自己的密碼可在此界面進(jìn)行，用戶通過用戶服務(wù)界面到此，然后在此界面中輸入原始密碼和新密碼并驗證新密碼，確認(rèn)后如果無誤就會提示用戶修改成功，并且其密碼在用戶信息表中也會有相應(yīng)的修改。代碼如下：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辦公費(fèi)用查詢界面用戶可通過輸入部門編號查找相應(yīng)部門信息，還可以查詢此部門申請/支出費(fèi)用信息。利用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 = 費(fèi)用編號 datagrid1.columns(1).caption = 費(fèi)用名稱 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 = 費(fèi)用編號 datagrid1.col

26、umns(1).caption = 費(fèi)用名稱 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 = 負(fù)責(zé)人 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 = 負(fù)責(zé)人 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 = 負(fù)責(zé)人 datagrid1.columns(3).caption = 聯(lián)系電話 datagrid1.columns(4).caption = 電子郵件 datagrid1.columns(5).caption = 備注end sub4.7辦公費(fèi)用添加、刪除界面從管理員服務(wù)界面進(jìn)入，有兩種費(fèi)用類型，申請/支出費(fèi)用修改，管理員需要選擇。申請費(fèi)用修改界面代碼如下：dim a as integerdim b as variantdim c as

31、 variantprivate sub command5_click()設(shè)置文本可編輯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 如果是通過的申請費(fèi)用，

34、有日期的，則從預(yù)算中減去這部分費(fèi)用 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 無此費(fèi)用編號 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)如果申請通過，則將申請的費(fèi)用金額加如到對應(yīng)預(yù)算中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) 取預(yù)算金額和申請金額之和adodc2.recordset.fields(cadvance).value = cadodc2.recordset.update end ifend ifadodc1.recordset.updatemsgbox 更新成功設(shè)置文本不可編輯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支出費(fèi)用修改代碼如下：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 如果支出的費(fèi)用有日期，則從總支出中去掉這部分支出 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 無此費(fèi)用編號 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