物資管理信息系統(tǒng)設(shè)計(jì)數(shù)據(jù)庫(kù)課程設(shè)計(jì)

1、課程設(shè)計(jì)報(bào)告書題目： 物資管理信息系統(tǒng) 院 系： 專業(yè)班級(jí)： 組長(zhǎng)學(xué)號(hào)、姓名： 其它組員學(xué)號(hào)、姓名： 指導(dǎo)教師： 2009年 4月 7 日目 錄一、概述- 3 -1.1、項(xiàng)目背景：- 3 -1.2、編寫目的：- 3 -1.3、項(xiàng)目名稱：- 3 -1.4、開發(fā)環(huán)境：- 3 -二、需求分析- 3 -2.1、問題的提出：- 4 -2.2、需完成的功能：- 4 -三、數(shù)據(jù)庫(kù)設(shè)計(jì)的過程- 4 -3.1、概念模型設(shè)計(jì)- 4 -3.2、邏輯數(shù)據(jù)庫(kù)設(shè)計(jì)- 7 -3.3、規(guī)范化理論的應(yīng)用- 7 -3.4、物理數(shù)據(jù)庫(kù)設(shè)計(jì)- 7 -四、軟件功能設(shè)計(jì)- 9 -4.1、系統(tǒng)功能分析- 9 -4.2 系統(tǒng)功能模塊設(shè)計(jì)-

2、10 -五、程序代碼及其它- 10 -5.1主窗口的設(shè)計(jì)- 10 -5.2 用戶管理模塊的設(shè)計(jì)- 13 -5.3 倉(cāng)庫(kù)管理模塊的實(shí)現(xiàn)- 16 -5.4 物資管理- 24 -5.5 物質(zhì)查詢模塊設(shè)計(jì)- 28 -5.6 數(shù)據(jù)統(tǒng)計(jì)模塊設(shè)計(jì)- 34 -六、設(shè)計(jì)心得- 37 -七、查考文獻(xiàn)- 38 -八、本項(xiàng)目組員分工及評(píng)分情況：- 38 -一、 概述1.1、項(xiàng)目背景： 物資管理信息系統(tǒng)是企業(yè)管理的一個(gè)重要內(nèi)容，隨著時(shí)代的進(jìn)步，企業(yè)也逐漸變的龐大起來。如何管理好企業(yè)內(nèi)部物質(zhì)的信息，成為企業(yè)管理中的一個(gè)大問題。在這種情況下，一個(gè)可以規(guī)范化，自動(dòng)化的物資管理信息系統(tǒng)就顯得非常必要。最初的物資管理，都是靠人力

3、來完成的。當(dāng)企業(yè)規(guī)模比較小的時(shí)候，人力可以完成，隨著企業(yè)的規(guī)模越來越大，企業(yè)的進(jìn)出物資數(shù)量也越來越多，依然維持著人力進(jìn)行物資管理，必然會(huì)造成工作效率低，工作錯(cuò)誤增高的問題。物資管理信息系統(tǒng)就是把分散的企事業(yè)單位的職工信息實(shí)行統(tǒng)一，集中，規(guī)范的收集管理，建立分類編號(hào)管理，電腦存儲(chǔ)查詢以及防火，防潮，防蛀，防盜等現(xiàn)代化，專業(yè)化的管理系統(tǒng)，為企事業(yè)單位和職工解除后顧之憂。1.2、編寫目的：物資管理信息系統(tǒng)是為了配合相關(guān)部門對(duì)自身本部門物資的管理，充分運(yùn)用現(xiàn)代化信息技術(shù)手段高效、快捷的工作而開發(fā)的軟件系統(tǒng)。物資管理信息系統(tǒng)為企事業(yè)單位提供信息咨詢，信息檢索，信息存取等服務(wù)。1.3、項(xiàng)目名稱： 物資管理

4、信息系統(tǒng).1.4、開發(fā)環(huán)境： 本系統(tǒng)使用vb6.0作為前臺(tái)設(shè)計(jì)和access管理數(shù)據(jù)庫(kù)二、需求分析2.1、問題的提出： 物資管理是一般工業(yè)、商業(yè)企業(yè)生產(chǎn)管理環(huán)節(jié)中主要的一環(huán)，需要對(duì)物資基本信息管理，對(duì)物質(zhì)調(diào)配信息等進(jìn)行完整的監(jiān)控，這樣才能跟有效地利用物資。物資入庫(kù)的時(shí)候首先需要登記物質(zhì)的基本信息，包括物資的種類、名稱、型號(hào)、單位、單價(jià)等；然后登記入、出庫(kù)信息，包括物資的基本信息，入、出庫(kù)人，經(jīng)辦人，物質(zhì)數(shù)量，材料說明的等；對(duì)于倉(cāng)庫(kù)中的物資，即對(duì)剩余物資進(jìn)行查詢和統(tǒng)計(jì)。2.2、需完成的功能：l 有關(guān)物資基本信息的輸入、包括物資編號(hào)、物資名稱、規(guī)格型號(hào)、種類和計(jì)量單位等；l 物資基本信息的查詢、修

5、改；l 入庫(kù)信息的輸入、查詢、修改；l 出庫(kù)信息的輸入、查詢、修改；l 物質(zhì)剩余物資的查詢、預(yù)覽，統(tǒng)計(jì)；三、數(shù)據(jù)庫(kù)設(shè)計(jì)的過程3.1、概念模型設(shè)計(jì) 用戶的需求具體體現(xiàn)在各種的信息的提供、保存、更新和查詢等方面。這就要求數(shù)據(jù)庫(kù)能夠充分滿足各種輸入信息和輸出信息。開發(fā)者要收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典。為下一步的數(shù)據(jù)庫(kù)具體設(shè)計(jì)做好充分的準(zhǔn)備。再仔細(xì)分析物資管理信息系統(tǒng)需求的基礎(chǔ)上，將得到以下如圖a1所示的本系統(tǒng)所處理的數(shù)據(jù)流程。 經(jīng)過上面的分析可以提煉出以下幾個(gè)實(shí)體：入庫(kù)信息、出庫(kù)信息、庫(kù)存管理；他們的實(shí)體圖如下：數(shù) 量進(jìn)庫(kù)單號(hào)碼材料編號(hào)發(fā)票號(hào)碼入庫(kù)日期入庫(kù)信息 經(jīng)

6、辦人保管人入庫(kù)信息實(shí)體圖出庫(kù)類型出庫(kù)單號(hào)碼材料編號(hào)工程號(hào)碼出庫(kù)日期出庫(kù)信息 經(jīng)辦人保管人出庫(kù)信息實(shí)體圖工程號(hào)碼材料編號(hào)材料修復(fù)余額統(tǒng)計(jì)材料維修庫(kù)存信息 庫(kù)存信息實(shí)體圖在找出所有實(shí)體的基礎(chǔ)上，需要進(jìn)一步的分析各個(gè)實(shí)體之間的關(guān)系，經(jīng)過分析可以的得到所有實(shí)體的er圖；以下再通過er圖來說明這些實(shí)體之間的關(guān)系：庫(kù)存信息出庫(kù)信息銷 售入庫(kù)信息登 記物質(zhì)管理信息的er圖3.2、邏輯數(shù)據(jù)庫(kù)設(shè)計(jì) 針對(duì)物資管理信息系統(tǒng)的需求。通過對(duì)物資調(diào)配工作過程的內(nèi)容和數(shù)據(jù)過程的分析，將設(shè)計(jì)如下面的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)：用戶信息表，包括的數(shù)據(jù)項(xiàng)有：用戶名、密碼；入庫(kù)物資信息表，包括的數(shù)據(jù)項(xiàng)有：進(jìn)庫(kù)單號(hào)碼、材料編號(hào)、數(shù)量、單價(jià)。入

7、庫(kù)登記表，包括的數(shù)據(jù)項(xiàng)有：進(jìn)庫(kù)單號(hào)碼、發(fā)票號(hào)碼、進(jìn)庫(kù)日期、經(jīng)辦人、保管人。物資信息表，包括的數(shù)據(jù)項(xiàng)有：材料編號(hào)、材料名稱、單位、型號(hào)、數(shù)量、單價(jià)。出庫(kù)物資信息表，包括的數(shù)據(jù)項(xiàng)有：出庫(kù)單號(hào)碼、材料編號(hào)、數(shù)量、單價(jià)出庫(kù)登記表，包括的數(shù)據(jù)項(xiàng)有：出庫(kù)單號(hào)碼、發(fā)票號(hào)碼、出庫(kù)日期、經(jīng)辦人、保管人、出庫(kù)類型、工程號(hào)碼。3.3、規(guī)范化理論的應(yīng)用 在以上的邏輯分析中，我們不難得出這些關(guān)系轉(zhuǎn)化都在第三范式中。3.4、物理數(shù)據(jù)庫(kù)設(shè)計(jì)在完成了數(shù)據(jù)庫(kù)的邏輯設(shè)計(jì)之后，即可開始數(shù)據(jù)庫(kù)的物理設(shè)計(jì)?；谝陨蠑?shù)據(jù)庫(kù)邏輯設(shè)計(jì)，考慮到程序設(shè)計(jì)的簡(jiǎn)易性及通用性，本物資管理信息系統(tǒng)采用的access 2003數(shù)據(jù)庫(kù)，并在其下創(chuàng)建了6個(gè)數(shù)

8、據(jù)表。 物資信息表goods字段名 數(shù)據(jù)類型 字段長(zhǎng)度與格式 關(guān)鍵字 材料編號(hào) 文本 15 是 材料名稱 文本20否 單位 文本20否 型號(hào) 文本15否 數(shù)量 數(shù)字長(zhǎng)整型否 備注 文本 50 否 入庫(kù)物資信息表inlibdetail字段名 數(shù)據(jù)類型 字段長(zhǎng)度與格式 關(guān)鍵字 進(jìn)庫(kù)單號(hào)碼 文本 15 是 材料編號(hào) 文本 15是 數(shù)量 數(shù)字長(zhǎng)整型否 單價(jià) 貨幣 yyy.0000否 備注 文本 50 否 入庫(kù)登記表inlib字段名 數(shù)據(jù)類型 字段長(zhǎng)度與格式 關(guān)鍵字 進(jìn)庫(kù)單號(hào)碼 文本 15 是 發(fā)票號(hào)碼 文本 15是 進(jìn)庫(kù)日期 日期型 yyyy-mm-dd否 經(jīng)辦人 文本 20否 保管人 文本 20否出

9、庫(kù)物資信息表outlibdetail字段名 數(shù)據(jù)類型 字段長(zhǎng)度與格式 關(guān)鍵字 出庫(kù)單號(hào)碼 文本 15 是 材料編號(hào) 文本 15是 數(shù)量 數(shù)字長(zhǎng)整型否 單價(jià) 貨幣 yyy.0000否 備注 文本 50 否 用戶信息表used字段名 數(shù)據(jù)類型 字段長(zhǎng)度與格式 關(guān)鍵字 用戶名 文本 20 是 密碼 文本 15否出庫(kù)登記表outlib字段名 數(shù)據(jù)類型 字段長(zhǎng)度與格式 關(guān)鍵字 出庫(kù)單號(hào)碼 文本 15 是 發(fā)票號(hào)碼 文本 15是 進(jìn)庫(kù)日期 日期型長(zhǎng)整型否 經(jīng)辦人 文本 20否 保管人 文本 20否 出庫(kù)類型文本 15否工程號(hào) 文本 15否 四、軟件功能設(shè)計(jì)4.1、系統(tǒng)功能分析系統(tǒng)開發(fā)的總體設(shè)計(jì)任務(wù)就是實(shí)現(xiàn)

10、物質(zhì)信息的系統(tǒng)化，規(guī)范化和自動(dòng)化。系統(tǒng)功能分析是在系統(tǒng)開發(fā)總體任務(wù)的基礎(chǔ)上進(jìn)行的，本系統(tǒng)中需要的的主要功能有：u 添加用戶；u 刪除用戶；u 修改用戶密碼；u 添加入庫(kù)信息；u 編輯入庫(kù)信息；u 添加出庫(kù)信息；u 編輯出庫(kù)信息；u 材料信息；u 材料入庫(kù)信息查詢；u 材料出庫(kù)信息查詢；u 倉(cāng)庫(kù)剩余材料信息查詢；u 倉(cāng)庫(kù)中所有剩余材料價(jià)格信息查詢；u 材料銷售信息統(tǒng)計(jì)；u 設(shè)備修理成本統(tǒng)計(jì)；u 設(shè)備改造成本統(tǒng)計(jì)；u 工程成本的統(tǒng)計(jì)；4.2 系統(tǒng)功能模塊設(shè)計(jì)五、程序代碼及其它 5.1主窗口的設(shè)計(jì)option explicitprivate sub mdiform_activate() me.sta

11、tusbar1.panels(3).text = 物資管理信息系統(tǒng) me.caption = statusbar1.panels(3).textend subprivate sub mdiform_load() 放置背景文字 picture1.picture = loadpicture(app.path & back.jpg)end subprivate sub mdiform_resize() on error goto err1 picture1.scaletop = me.top picture1.scaleleft = me.left picture1.scalewidth = me.

12、scalewidth picture1.scaleheight = me.scaleheight - statusbar1.height exit suberr1: exit subend subprivate sub mnuexit_click() unload meend subprivate sub mnuinadd_click() statusbar1.panels(3).text = 添加進(jìn)庫(kù)單 inadd.show 1end subprivate sub mnuinedit_click() statusbar1.panels(3).text = 編輯進(jìn)庫(kù)單 inupdate.sho

13、w 1end subprivate sub mnumaterailinfo_click() statusbar1.panels(3).text = 材料基本信息管理 materialmanage.show 1end subprivate sub mnuoutadd_click() statusbar1.panels(3).text = 添加出庫(kù)單 outadd.show 1end subprivate sub mnuoutedit_click() statusbar1.panels(3).text = 編輯出庫(kù)單 outupdate.show 1end subprivate sub mnupr

14、ice_click() statusbar1.panels(3).text = 查詢材料的最高價(jià)和最低價(jià) pricequery.show 1end subprivate sub mnupricerepair_click() statusbar1.panels(3).text = 統(tǒng)計(jì)修理成本 totalrepair.show 1end subprivate sub mnupriceupdate_click() statusbar1.panels(3).text = 統(tǒng)計(jì)改造成本 totalrevise.show 1end subprivate sub mnupricework_click()

15、statusbar1.panels(3).text = 統(tǒng)計(jì)特定工程的成本 totalproject.show 1end subprivate sub mnuqin_click() statusbar1.panels(3).text = 查詢材料入庫(kù)信息 inquery.show 1end subprivate sub mnuqout_click() statusbar1.panels(3).text = 查詢材料出庫(kù)信息 outquery.show 1end subprivate sub mnuqsub_click() statusbar1.panels(3).text = 查詢倉(cāng)庫(kù)余額信息

16、 surplus.show 1end subprivate sub mnuretail_click() statusbar1.panels(3).text = 統(tǒng)計(jì)銷售額 totalsale.show 1end subprivate sub mnuuseradd_click() statusbar1.panels(3).text = 添加用戶 useradd.show 1end subprivate sub mnuuserdelete_click() statusbar1.panels(3).text = 刪除用戶 userdel.show 1end subprivate sub mnuuse

17、rupdata_click() statusbar1.panels(3).text = 修改密碼 userupdate.show 1end subprivate sub munchuku_click()statusbar1.panels(3).text = 打印物質(zhì)出庫(kù)報(bào)表datareport2.showdatareport2.printreport trueend subprivate sub munruku_click()statusbar1.panels(3).text = 打印物質(zhì)入庫(kù)報(bào)表datareport1.show 1datareport1.printreportend sub

18、5.2 用戶管理模塊的設(shè)計(jì)用戶管理模塊主要是實(shí)現(xiàn)l 修改密碼；l 添加用戶；l 刪除用戶；以下便是部分代碼的實(shí)現(xiàn)/添加用戶的代碼private sub command1_click() if trim(text1.text = ) then msgbox 用戶名不能為空，請(qǐng)輸入用戶名！, vbokonly + vbexclamation, 警告 text1.setfocus exit sub elseset myrs = mydb.openrecordset(select * from 登錄 where 用戶名= & trim(text1) & ) while (myrs.eof = fals

19、e)if trim(myrs.fields(0) = trim(text1) then msgbox 用戶已經(jīng)存在，請(qǐng)重新輸入用戶名！, vbokonly + vbexclamation, 警告 text1.setfocus text1.text = text2.text = text3.text = exit sub else myrs.movenext end if wend end if if trim(text2.text) trim(text3.text) then msgbox 兩次輸入的密碼不一樣，請(qǐng)確認(rèn)！, vbokonly + vbexclamation, 警告 text2.

20、setfocus text2.text = text3.text = exit sub else if text2.text = then msgbox 密碼不能為空！, vbokonly + vbexclamation, 警告 text2.setfocus text2.text = text3.text = else myrs.addnew myrs.fields(0) = trim(text1.text) myrs.fields(1) = trim(text2.text) myrs.update myrs.close mydb.close msgbox 添加用戶成功！, vbokonly

21、+ vbexclamation, 信息提示 unload me end if end ifend subprivate sub command2_click() mydb.close myws.close unload me project.statusbar1.panels(2).text = 就緒end subprivate sub form_load() set myws = dbengine.workspaces(0) set mydb = myws.opendatabase(app.path + logo.mdb)end subprivate sub text1_keydown(ke

22、ycode as integer, shift as integer) if keycode = 13 then text2.setfocus end ifend subprivate sub text2_keydown(keycode as integer, shift as integer) if keycode = 13 then text3.setfocus end ifend subprivate sub text3_keydown(keycode as integer, shift as integer) if keycode = 13 then command1.setfocus

23、 end ifend sub/修改用戶密碼private sub command1_click() set myrs = mydb.openrecordset(select * from 登錄 where 用戶名= + trim(list1) + and 密碼= + trim(text1) + ) if myrs.eof = true then msgbox 舊密碼不正確，請(qǐng)重新輸入！, vbokonly + vbexclamation, 警告 text1.setfocus text1.text = text2.text = text3.text = exit sub end if if tr

24、im(text2.text) trim(text3.text) then msgbox 兩次輸入的密碼不一樣，請(qǐng)確認(rèn)！, vbokonly + vbexclamation, 警告 text2.setfocus text2.text = text3.text = exit sub else if text2.text = then msgbox 密碼不能為空！, vbokonly + vbexclamation, 警告 text2.setfocus text2.text = text3.text = else myrs.edit myrs.fields(1) = trim(text2.text)

25、 myrs.update myrs.close mydb.close msgbox 密碼修改成功！, vbokonly + vbexclamation, 信息提示 unload me end if end ifend subprivate sub command2_click() mydb.close myws.close unload me project.statusbar1.panels(2).text = 就緒end subprivate sub form_load() dim mrc as recordset set myws = dbengine.workspaces(0) set

26、 mydb = myws.opendatabase(app.path + logo.mdb) set mrc = mydb.openrecordset(select * from 登錄) list1.clear mrc.movefirst do while not mrc.eof list1.additem trim(mrc.fields(0) mrc.movenext loop list1.listindex = 0 mrc.closeend sub5.3 倉(cāng)庫(kù)管理模塊的實(shí)現(xiàn)l 入庫(kù)信息；l 出庫(kù)信息； 以下便是部分代碼的實(shí)現(xiàn)/入庫(kù)信息 private sub cmdadd_click()

27、dim count as integer, i as integer dim sqlstring as string dim mrc as recordset, mrcc as recordset dim num as integer, price as single if text1.text = then msgbox 進(jìn)庫(kù)單號(hào)碼不能為空，請(qǐng)?zhí)顚懀? vbokonly + vbexclamation, 警告 text1.setfocus exit sub end if while myrs1.eof = false if myrs1.fields(進(jìn)庫(kù)單號(hào)碼) = text1.text t

28、hen msgbox 此進(jìn)庫(kù)單號(hào)碼已經(jīng)存在，請(qǐng)認(rèn)真核查！, vbokonly + vbexclamation, 警告 text1.text = text2.text = text3.text = text4.text = text5.text = text1.setfocus exit sub else myrs1.movenext end if wend if text2.text = then msgbox 發(fā)票號(hào)碼不能為空，請(qǐng)?zhí)顚懀? vbokonly + vbexclamation, 警告 text2.setfocus exit sub end if if text3.text = t

29、hen msgbox 進(jìn)庫(kù)日期不能為空，請(qǐng)?zhí)顚懀? vbokonly + vbexclamation, 警告 text3.setfocus exit sub else if isdate(text3.text) then text3 = format(text3, yyyy-mm-dd) else msgbox 進(jìn)庫(kù)時(shí)間格式應(yīng)為：yyyy-mm-dd, vbokonly + vbexclamation, 警告 text3.text = text3.setfocus exit sub end if end if if msflexgrid1.rows 1 then myrs1.addnew my

30、rs1.fields(進(jìn)庫(kù)單號(hào)碼) = text1.text myrs1.fields(發(fā)票號(hào)碼) = text2.text myrs1.fields(進(jìn)庫(kù)日期) = text3.text if text4.text = then myrs1.fields(經(jīng)辦人) = null else myrs1.fields(經(jīng)辦人) = text4.text end if if text5.text = then myrs1.fields(保管人) = null else myrs1.fields(保管人) = text5.text end if myrs1.update count = msflex

31、grid1.rows for i = 1 to (count - 1) myrs2.addnew myrs2.fields(進(jìn)庫(kù)單號(hào)碼) = text1.text myrs2.fields(材料編碼) = msflexgrid1.textmatrix(i, 0) myrs2.fields(數(shù)量) = val(msflexgrid1.textmatrix(i, 4) if msflexgrid1.textmatrix(i, 5) = then myrs2.fields(單價(jià)) = null else myrs2.fields(單價(jià)) = val(msflexgrid1.textmatrix(i,

32、 5) end if myrs2.fields(金額) = val(msflexgrid1.textmatrix(i, 6) if msflexgrid1.textmatrix(i, 7) = then myrs2.fields(備注) = null else myrs2.fields(備注) = msflexgrid1.textmatrix(i, 7) end if myrs2.update sqlstring = select * from msurplus where 材料編碼= & msflexgrid1.textmatrix(i, 0) & set mrc = mydb.openre

33、cordset(sqlstring) 如果材料余額表中沒有當(dāng)前材料編碼的記錄，就添加 if mrc.eof = true then mrc.close sqlstring = select * from msurplus set mrcc = mydb.openrecordset(sqlstring) mrcc.addnew mrcc.fields(材料編碼) = msflexgrid1.textmatrix(i, 0) mrcc.fields(數(shù)量) = 0 if msflexgrid1.textmatrix(i, 5) = then mrcc.fields(單價(jià)) = null else

34、mrcc.fields(單價(jià)) = msflexgrid1.textmatrix(i, 5) end if mrcc.fields(金額) = 0 mrcc.fields(備注) = null mrcc.update mrcc.close else mrc.close end if num = val(msflexgrid1.textmatrix(i, 4) price = val(msflexgrid1.textmatrix(i, 6) sqlstring = update msurplus set 數(shù)量=數(shù)量+ + cstr(num) + ,金額=金額+ + cstr(price) + w

35、here 材料編碼= & msflexgrid1.textmatrix(i, 0) & mydb.execute (sqlstring) next i unload me project.statusbar1.panels(2).text = 就緒 exit subelsemsgbox 進(jìn)庫(kù)單中必須至少包含一項(xiàng)材料明細(xì)。 & vbcrlf & 此進(jìn)庫(kù)單中未填寫材料信息，請(qǐng)?zhí)顚憽? vbokonly + vbexclamation, 警告 exit sub end ifend subprivate sub cmdaddrecord_click() project.statusbar1.panel

36、s(2).text = 添加進(jìn)庫(kù)信息 info.show 1end subprivate sub cmdeditrecord_click() dim c as integer dim r as integer c = 1 r = 1 text6.left = msflexgrid1.left + msflexgrid1.colpos(c) text6.top = msflexgrid1.top + msflexgrid1.rowpos(r) if msflexgrid1.appearance = 1 then text6.left = text6.left + 2 * screen.twips

37、perpixelx text6.top = text6.top + 2 * screen.twipsperpixely end if text6.width = msflexgrid1.colwidth(c) text6.height = msflexgrid1.rowheight(r) text6.visible = true text6.setfocus text6.text = msflexgrid1.textend subprivate sub form_activate() project.statusbar1.panels(2).text = 添加進(jìn)庫(kù)單end subprivate

38、 sub form_load() msflexgrid1.cols = 8 msflexgrid1.rows = 1 msflexgrid1.row = 0 msflexgrid1.col = 0 msflexgrid1.text = 材料編碼 msflexgrid1.col = 1 msflexgrid1.text = 材料名稱 msflexgrid1.col = 2 msflexgrid1.text = 規(guī)格型號(hào) msflexgrid1.col = 3 msflexgrid1.text = 計(jì)量單位 msflexgrid1.col = 4 msflexgrid1.text = 數(shù)量 msf

39、lexgrid1.col = 5 msflexgrid1.text = 單價(jià) msflexgrid1.col = 6 msflexgrid1.text = 金額 msflexgrid1.col = 7 msflexgrid1.text = 備注 text6.visible = false cmddelrecord.enabled = false cmdcancel.enabled = false text3.text = date set myws = dbengine.workspaces(0) set mydb = myws.opendatabase(app.path + store.md

40、b) set myrs1 = mydb.openrecordset(select * from inlib) set myrs2 = mydb.openrecordset(select * from inlibdetail)end sub/出庫(kù)信息private sub cmdadd_click() dim count as integer, i as integer dim mrc as recordset dim sqlstring as string, str as string dim num as integer dim price as single if text1.text =

41、 then msgbox 出庫(kù)單號(hào)碼不能為空，請(qǐng)?zhí)顚懀? vbokonly + vbexclamation, 警告 text1.setfocus exit sub end if while myrs1.eof = false if myrs1.fields(0) = text1.text then msgbox 此出庫(kù)單號(hào)碼已經(jīng)存在，請(qǐng)認(rèn)真核查！, vbokonly + vbexclamation, 警告 text1.text = text2.text = text3.text = text4.text = text5.text = text6.text = combo1.listindex

42、= 0 text1.setfocus exit sub else myrs1.movenext end if wend if text2.text = then msgbox 發(fā)票號(hào)碼不能為空，請(qǐng)?zhí)顚懀? vbokonly + vbexclamation, 警告 text2.setfocus exit sub end if if text4.text = then msgbox 出庫(kù)日期不能為空，請(qǐng)?zhí)顚懀? vbokonly + vbexclamation, 警告 text4.setfocus exit sub else if isdate(text4.text) then text4 = format(text4, yyyy-mm-dd) else msgbox 出庫(kù)時(shí)間格式應(yīng)為：yyyy-mm-dd, vbokonly + vbexclamation, 警告 text4.text =