庫存管理系統(tǒng)軟件開發(fā)VBSQL

1、XX大學課程設計報告題目庫存管理系統(tǒng)課程名稱 數(shù)據(jù)庫應用程序課程設計院部名稱信息技術(shù)學院專業(yè)計算機科學與技術(shù)班級組號課程設計地點課程設計學時指導教師XX大學教務處制數(shù)據(jù)庫應用程序課程設計:組員及任務分配表：學號組員任務分配成績王彪初期設置模塊劉亮貨品管理模塊袁凱查詢統(tǒng)計模塊趙海數(shù)據(jù)報表模塊邵向宇系統(tǒng)維護模塊項目背景隨著現(xiàn)代工業(yè)的發(fā)展， 計算機信息管理系統(tǒng)越來越受到企業(yè)重視。 本文主要分析了庫存 管理系統(tǒng)的一些基本功能和組成情況， 包括系統(tǒng)的需求分析、 系統(tǒng)結(jié)構(gòu)， 功能模塊劃分以及 數(shù)據(jù)庫模式分析等， 重點對應用程序的實際開發(fā)實現(xiàn)作了介紹。 達到了數(shù)據(jù)的一致性和安全 性，且應用程序功能完備，符合

2、了庫存管理系統(tǒng)作為典型的信息管理系統(tǒng)（MIS）的要求。同時簡單介紹了 Visual Basic編程環(huán)境和SQL2000數(shù)據(jù)庫管理系統(tǒng)的功能特點，庫存管理系統(tǒng) 是企業(yè)物流管理中不可或缺的一部分。二、需求分析1、系統(tǒng)設計的目的：庫存管理系統(tǒng)是一個企事業(yè)單位不可缺少的一部分,它的內(nèi)容對于企業(yè)的決策者和管理者來說都是至關(guān)重要的， 因此， 庫存管理系統(tǒng)應該能夠為用戶提供充足的信息和快捷的查詢 手段， 但一直以來人們使用傳統(tǒng)的人工方式管理庫存， 這種管理方式存在著許多缺點， 諸如 效率低，保密性差等，而且時間一長，將產(chǎn)生大量的文件和數(shù)據(jù)，這對于查找、更新和維護 都帶來了不少的困難。隨著科學技術(shù)的不斷提高，

3、計算機科學不斷發(fā)展，其強大的功能已經(jīng)被人們深刻認識， 它已經(jīng)進入了人類社會的各個領域并發(fā)揮著越來越重要的作用。作為計算機應用的一部分， 使用計算機對產(chǎn)品庫存信息進行管理，具有著人工管理無法比擬的優(yōu)點， 它檢索迅速、 查找方便、可靠性高、 存儲量大、保密性好、 壽命長、成本低等， 可減少更多的人力物力， 這些都能夠極大地提高貨品庫存的管理效率，也是企業(yè)庫存管理科學化、正規(guī)化，與世界接軌的重要條件。因此，開發(fā)一個庫存管理系統(tǒng)是很有必要的，具有 其特有的技術(shù)意義和管理意義。2、功能模塊的描述：1. 初期設置包括創(chuàng)庫設置，供應商信息維護，初期庫存設置等；2. 庫存管理貨品入庫：貨品入庫進行登記，入庫登

4、記人員信息，入庫商品信息； 貨品出庫：貨品出庫登記，出庫登記人員信息，出庫商品信息； 庫存盤點：對盤存貨品信息的盤存錄入； 貨品借出：貨品借出登記，包括貨品借出單位，數(shù)量等基本信息，借出人員； 貨品歸還：貨品歸還登記，包括貨品歸還單位，歸還數(shù)量，歸還人，登記員等；3. 查詢統(tǒng)計入庫登記管理：能對貨品的入庫登記，刪除，更改等； 入庫期間統(tǒng)計：貨品入庫期間年度的統(tǒng)計； 供貨單位期間供貨金額統(tǒng)計：對貨品供應的金額進行統(tǒng)計；4. 數(shù)據(jù)報表對貨品出庫期間的年度統(tǒng)計，出庫，庫存報表打印等；5. 系統(tǒng)維護包括用戶管理， 密碼管理， 關(guān)閉系統(tǒng)， 以及數(shù)據(jù)的備份與恢復， 可以根據(jù)需要對整個數(shù)據(jù)庫進行備份，以確保

5、數(shù)據(jù)的安全性。3、數(shù)據(jù)流程圖：庫存管理系統(tǒng)業(yè)務流程圖：三、結(jié)構(gòu)設計階段(1) E-R 圖傳真電運；.供應供應商倉庫商品0(W)數(shù)據(jù)字典(2)F面給出主要數(shù)據(jù)字典用戶p銷善(W)購貨商名稱產(chǎn)品編號描述唯一標識產(chǎn)品編號定義產(chǎn)品編號=字符串位置tb_inTb_outTb_hpinTb_hpout名稱貨品名稱描述產(chǎn)品名稱定義貨品名稱=字符串位置tb_inTb_out Tb_hpin Tb_hpout名稱：入庫 ID 號描述：進入庫存唯一的編號定義入庫ID號=字符串位置： tb_inTb_outTb_hpinTb_hpout名稱：貨品規(guī)格描述：貨品質(zhì)量的好壞定義：貨品規(guī)格 =字符串 位置： tb_inT

6、b_outTb_hpinTb_hpout名稱：計量單位描述：貨品數(shù)量單位定義：計量單位 =字符串 位置： tb_inTb_outTb_hpinTb_hpout名稱：數(shù)量描述：貨品數(shù)量定義：貨品數(shù)量 =數(shù)字 位置： tb_inTb_outTb_hpinTb_hpout名稱：單價描述：貨品單個數(shù)量價格定義：單價 =數(shù)字 位置： tb_inTb_outTb_hpinTb_hpout名稱： 名稱： 描述： 定義： 位置：金額入庫日期產(chǎn)品入庫時間入庫日期 =日期/時間 tb_inTb_outTb_hpinTb_hpout名稱： 描述： 定義： 位置：經(jīng)受人 記入信息人 經(jīng)受人 =字符串 tb_in名稱：

7、 描述： 定義： 位置：備注 對物品信息標注 備注 =字符串 tb_in Tb_out Tb_hpin Tb_hpout名稱： 描述： 定義： 位置：出庫編號 貨品出庫編號 出庫編號 =字符串 TB_OUT名稱： 描述： 定義： 位置：出庫日期貨品出庫時間出庫日期 =日期/時間 TB_OUT名稱： 描述： 定義： 位置：提貨單位 貨品提貨單位 提貨單位 =字符串 TB_OUT名稱： 描述： 定義： 位置：提貨人 貨品提貨人姓名 提貨人 =字符串 TB_OUT名稱：借貨編號 描述：物品被借出編號定義：借貨編號=字符串位置：TB_HPOUT名稱：借出日期描述：物品借出日期 定義：借出日期=日期/時

8、間位置：TB_HPOUT名稱：歸還日期描述：物品歸還時間定義：歸還日期=日期/時間位置：TB_HPIN四、總體模塊設計系統(tǒng)的總體結(jié)構(gòu)圖査詢統(tǒng)訃數(shù)攥很去系魏承護毎品管理JB出專出廡報我出入用貨胡口統(tǒng)計 用存盤點 歸胡借舊 期剖味供應商祐息護護111111出品 借 出 住 詢據(jù) 備數(shù) 據(jù) 淸 門五、根據(jù)項目的任務分配王彪初期設置模塊劉亮貨品管理模塊袁凱查詢統(tǒng)計模塊趙海數(shù)據(jù)報表模塊邵向宇系統(tǒng)維護模塊六、各模塊詳細設計（1）初期設計模塊初期設置模塊包括：初期庫存設置、倉庫設置、供應商信息維護1、初期庫存設置1）概述初期庫存設置主要功能是保存期初貨品的入庫信息。包括編號、貨品名稱、貨品規(guī)格、計量單位、期

9、初數(shù)量、單價、備注。2）設計思路：初期設置窗體中添加 Frame控件、Text控件數(shù)組、標簽控件、Adodc控件、DataGrid控件CommandButton等控件。添加完控件的窗體如下圖所示。ADODC1控件鏈接數(shù)據(jù)庫字符串SQL需要建立 adodc；3 ）相關(guān)代碼如下:* “添加"貨品期初譚貴茁事件過程林*Private Sub Cmd Add Click0For i = 0 To"5 -'濟空文本框中的內(nèi)咨Textl(i).Text ="“Next iAdodcl. RecordSourct = s«l«ct * £r

10、g tb_kcxx order by kc.ID" Adodcl. RefreshIf Adodcl. Recordset. RecordCount > 0 ThenAdodcl. Recordset. MoveLastStrMum = Vtl (Adodcl. Rtcordstl. Fi«lds CkcJED*) + 1"編號加 1STrld = Vai (Mid(Adodcl. Recordset. Fields rKcIDs"), 2, Len(Adodcl. Recordset. Fields CKcJDs*) Select Case Le

11、n(Trim (STrld)，位數(shù)不定者辛卜0Cast 1StrTemp = "00000*Case 2StrTemp = "0000"Cast 3StrTemp = FOO"Case 4StrTemp = "00*Case 5StrTemp = 0Cs沁GStrTemp ="End SelectSTrld = STrld + 1STrld = "J" & Trim (StrTemp) & Trim (Str (STrld)Text!©). Text = StrHiwElseSTrld =

12、 "LD00001"'給出蓉編號瞋一士初值Textl (O).Text = 1'給編鑼一翠初值End IfTextl (1). SetFocusCmc_save. Enabled = TrueSrbPrivate Sub Cmd.exit.ClickOUnload MeEnd Srb'泉存”貨品期初設査的事件過程* Private Sub C><Ls*v«-ClickOrtn = SetW>ndoyPoSG?e hniid, % 0, 0, 0, 0, 3)'運用API函炕SetWindxPos,二實班取消阪木爸敢

13、夠史能.Adodc. RecordSource = "select “ froo tb_kcxx where kc丄h + StrCTextl (O).Text) " '的記?!nS在計宦庫中是否樣在Adodc. RefreshIf Adodcl. R«cordz«t. R«cordCount > 0 Th«nnox "該(E月已坯存?LfS息保卒不惑功”，"保存信息報示“Us«c =存該信且嗎k, 33, 保存信息提示")If c = vbOK TbgIf Textl (1) T

14、ext = * Or Textl (3) Text = " Or Textl (4) Text = " ThenIkcBox”貨品魏里、單價或名稱不能為空值48. 保存佶息12示，ElseVMmwcfL勒用于判斷輸入的信建是否為加fig?炊樞，關(guān)于該因前的貝體用法靑發(fā)閱明日公司BEc債理詢典中的函裁危用芻 If Kot Izlfuiftric CTftxtl (3). Taxt) Or Kot Idfm«ric CT«xtl (<5. Taxt) Then入的貨品敎墮或單們必須腳值型數(shù)提'，48,書存信月握示“Els«C«

15、;ll TK«freshcm 加 Ksld 二 ValGhdCNxllOD TxQ, 2, UnHext! (0) Text) Prices = Yal (TexU G) Text) ” Vai CT ext 1 (4) Text) '僅存期初貨品入庫信皂Set adoRs = idoCon. Ixecite Cinsert into tb kcxx (kcJID, kc JDs kc.Nwe. kc_SPEC. kcJJMH. kcjffxw, kc/rice. kc_Rsark) x 氏少ox 信見保存應功“."保存信感理示C»d zv4 Enable

16、d Fols«Cal" TR«fr«shdoCon. CloseEnd If End IfElse End XfEn4 I£C<11 TRefrerh'iffl 用過程End SubPrivate Sub Conbol KayDvn(Kayod« Az Intag«r, Shi ft A: Intgar)If KtyCoda = 13*Th«nT«:tl G) SetFocnsEnd :f_JM_SshPrivate Sub Datridl.ClickOCall ZnB心iffl用數(shù)攜反綁定

17、過程C*d_stve. Enabled = Folse夠ISjMBTPrivate Sub DT?ick«rl DropDovnO If K«yod« = 13 Thin "xll G) StlFoait End :fPnr| C.APriv-at* Sub DTPi ck®rI_BropDoifii()If 鼬yCoh = 13 Th缶Testi (5). SelFocusEnd I fEnd SubPriviii.te Sub Form_Loft.d ()rtn = SetffindflifFcis iMe- hwnd. TQ 0, 6 0

18、 3)'運用 AFIlWSetlf a ndiwPos i 來實現(xiàn)使苗1 車 35前的功能'利用優(yōu)碼洼接勘據(jù)匡Adcbdel. C«aiL«t1.ihStmL£ =derNi crus eft. Jet OLEDB. 4. O.Dla. Storc*=-' & App. F 鎭h 4 dbcgl. mdb, Persist Security In£o=FalstffAodcl Elecord£ourc>E = "aelest * from tb_kciKrt' I至播庫存信息數(shù)據(jù)裘Adad

19、cl .bfr ash辰 Ufl - (Scrsfln 1 idth - He fidth) / 2'便畜體居中Me.Tcp - (Sereen Height = He.Keisht) f ZEadSuPrivate SuL T&tlJKeyllQWE (JndeH As. In.ttger3 KeyCodt As Iiittg«r3 Shift i.s Integftr)If K«yCad.a - 13 Thfinrtn =弘櫛i胡wFrffih hwn< 壇 Q工6 0 3)運用時1酬気tKmd卅Fm,來實現(xiàn)取消苗休匿前的功能If Index -

20、0 ThenAdo del. Records 4uree = rstltel 電 fr«n> Ibkcatit where kt_III=ff + Str©) Ttst) +""krLoiicl. RtfreshOn Error R& etui a HextIf Ad«dcL Rttcardsttt > 0 ThenTextl (1). Tent = dodcl. Recordset. Fields (Fkcjn3ne*l©J-Ttal = Aduitl. Eterisel. Fitldt CSFEC*)C omb

21、ol Teit = Adodc I. E®cord=e t.Fi eldzEC_lfSlT")7*Ktl (3) Tasct -虹1右d.c j. Eftcord.5st. Fio-ld-E (*KC_JhjTi F.)T«xtl M) Tdxt 二 M«dc. Escerdsit. Fields (，rNC_fric*Jr)TeKtl (5). Tent =如iodM. Ehqit 血 El. FiElck rkfj&nark-)ElstN = eBo« 沒有儆的庫存信懇J 4乞円擔示信懇*Ini 1£Elstfelf In

22、d«»:二】ThmTeKtl(21 SetFocujsEl self Itideii = 2 ThttiCanbol StIF ocueELself Ind«x - 3 ThenMl SfltFQCUEEl5elf Iindes = 4 ThenTextl S). SeUoeusEnd. IfEnd ：£End Sub2、供應商信息維護概述：庫存貨品的進貨渠道是供應商。為了操作軟件的方便，在進行出入庫各種操作之前，必須對供應商信息進行維護，以提高員工的工作效率。在供應商信息維護窗體中，能夠添加、刪除、修改、和保存供應商信息。在添加供應商信息 的時候，供應

23、商編號自動生成。設計思路：在供應商信息維護窗體中添加Frame控件、text控件數(shù)組、標簽控件、Adodc控件、DataGrid控件和CommandButton控件。相關(guān)代碼如下ooaoooooooooooGYsaooao13)肛詼理”陽A總魄茂違記錄嗎r, as.改潔旦桿示TT£ £ = vbOi Th»n.If 7«Kt OJ.TeKt = 2 rh#nTri rfi OtrTemp) & Trim tr CStrNum)asjjctr* * 卡 T4iXtII t2).T&KllPrivate Sub Gmd_Add_Cl i ck

24、 ()On Error Resume NestFor i - 0 Tq STtwll (i) Twt ="Next iAdo de 1. Rec or dS oior c e = " selee t * from tb_gys order by gy Ado del. Refr eshIE Adodcl. Recordset. KecordCount 0 ThenAdodcl. Re cor d,3 e t. M o veLas tStrBujr = Vial (Adodcl . Re-crdset. Fields (gys_IDsrf)Sftlact Cut Ltn CT

25、rim (StrHum) Cftse 1Str TempCase 2StrTempCase 3StrTempCti4 4SlrTtmpCase 5StrTempCase 6StrTempEnd SelectTaxtl (). Text :ttHgBox "當前數(shù)拐庫中已經(jīng)溢有可刪除的記錄二昌屯”提示信息Call n4.LJi= Vai <11 J(TaxtL otl) 丁”b 2r 山的“訂 Set «d«Ex = kdCn EscecTLt« Eilc- tbC-YS (ffys.ads, fiys_a flTSJfw't, CXS J.

26、mt, eyajhne, E75_f«! E75_rfln-wls) rdiue:HSX r苗電性存成功：g, TS存估息益/Cvisiav1-*. EjiMbLd- = F遼wCall 丁民 Er“hText! (D). TextStrNum 1End IfTesctl (1). SetFocusCm d_s ave _ Enabl e d 二 TrueCmdel. Enabled = FialseCmd.tdi t Enabled = F«li«: . . Private Sub Gmd_del_Click ()r tn = SetWindowPos hwit

27、d. -206 03If Adodcl. Recordset. EOF Filze Then 匸二砧gE刪您確認要刪除該記錄嗎廠，1T,"刪除提示信息T If c = vbOK ThenAdodcl leccirdEtt.Ad&dcl. BtfrtihETamp = 1Call joinEZFor i = 0 To 5Txtl (i). Text =皿Nex t iCmd del. Enabled » FalseCall TRtfrtihEM IfEnd IfEn>d. Siih 一,一 _比 iwU Suht_CL i ck()LTnl oxd HaJ5&#

28、177;JrfL_Pri'Ti.tfl Sub Cni_= ft¥£_Cl i elk ()rta = S A LYjsiderwFQi. |)HV jiviid, 気 0 © 0. 03A矢矢I R®砂= Iwi.半 fs“ fb_gys- + 丁齊+1+ mAdodcl.If AdodclHtcoiidC-Duiit、0 Thin內(nèi)jk或w ma信口已經(jīng)存狂走總爍存不嗒功二若髦.保存?zhèn)淇偺崾?quot;n迪幅您確認蹇保存葭情恿嗎仁as.書存rsaffi示t IE c = vbDK 丁皿"T£ IbxIL CD. r-xl

29、= “ Dr 7«xt Ta»l = "" Th«nn5 “供應商錦眼聯(lián)系鼻尊信宴科沙堆佰匚 幅 凈存佶懇徨示 Kls«Set 血 4.doCoEi. ExtcuieCBFBWE tb_gys SET eys_Km*s' * + T*xtl (i ).TAHl £T«iip = Q 匚QIX中旳 佶息tSSS喊ST B4.書眈信息攔示-Crid._«dj t. Enkblad - 5«15« A.JbCdti.亡1如C«ll TFUfriSThFrivite Sub

30、Ji. onBack C)On ErrorKextDim SLen As IntegerIf Adodcl. Beccrdsfit. RscrdCount > 0 ThenStrUum = Vai (Adodcl. Rccrdset. Fields (gysTE) SLen = Len CTr (StrNuni)Select Cas* SLnCa詐1StrTmp = *00000"2S+rTemp = *0000*Case 3StrTemp = *000*4StrTsmp = r，005StrTmp =6StrTemp =""End SelectTaitl

31、(OD . Text = Ado del. Recordset (CTtxll (1). T«:t = kdodel Kscords t (2) Textl (21. TsMt = Adolcl. Kecordset (3Ttxtl B) . Taxt = Ado del Kacor dstt (4)Taitl (4J . Tsxt = Adodcl. Kecordst (5 Taxtl(5).= Ado del Kscordset(6End IfEnd Svib.Frivate Sub Testi KeyB own Qiulai Ai Intcar KayCodft Ai Ijit

32、agarJ Shi ft Ax Int 歹jr) If KfiyC»d« = l3Th4nIf Ind«x = 1 ThenTtKtl )，StFocusElself Index = 2 TkenT«xtl 3). StFoeusElself Ind«x = 3 ThenTevtl (4). StFocusElself Index = 4 Tk&nT«wtl C5). StFoeusElself Ind«x = 5 ThfenCall Cmd_save_Cli ckCmd kdd. SetraciisEnd 1CEn

33、d If.End Sub. Frivate Sub TRefr eshC)Adodcl. Rerdource = "select * f?姉 tl_gys srdr ly gyz_nTAdodcl. Re fr e shEnd Sub.Frivate Sub FarnJUiilo&dCancel Ax Integer)£r_mai a Chilled = TraaEnd Sub(2) 貨品管理模塊在使用Visual Basic開發(fā)數(shù)據(jù)庫管理模塊主要包括以下幾個控件： Data控件； ADO Data 控件； DataList 控件 /DataCombo 控件； Da

34、taGrid 控件；Data控件當與 Data 控件相連接時，DataList、DataCombo DataGrid 和 MSHFIexGrid 控件都能管理記錄集合。所有這些控件都允許一次顯示或操作幾個記錄。 內(nèi)部的 Picture、Label、TextBox、CheckBox Image OLE ListBox 和 ComboBoX控件也是數(shù)據(jù)覺察的，能和由Data控件管理的Recordset對象的某個字段相連接ADO Data 控件ADO Data控件與內(nèi)部 Data控件以及Remote Data控件(RDC相似。用尸 可以使用ADO Data控件快速地創(chuàng)建一個到數(shù)據(jù)庫的連接。DataL

35、ist 控件 /DataCombo 控件DataList控件是一個數(shù)據(jù)綁定列表框，它可以自動地由一個附加數(shù)據(jù)源中 的一個字段充填，并且可選擇地更新另一個數(shù)據(jù)源中一個相關(guān)表的一個字段。 DataCombc控件的功能與DataList控件完全相同，只不過DataCombc控件是 個組合框。DataGrid 控件表格顯示要借助于DaatGrid控件。用戶可以設置 DataGrid控件的DataSource屬性為一個 ADO Data控件，從而將 ADO Data中的數(shù)據(jù)自動地填充 到 DataGrid表格中。這個DataGrid控件實際上是一個固定的列集合，每一列的行數(shù)都是不確定的。下面是各個部件設

36、計主要界面哄豳孵供應商名弾(1) 入庫設計：物件進入庫存進行的記錄統(tǒng)計。銅a申淖加I 片際 空 去囲計塑單伍： 就里： 單怕：口 h庫曰期：入庫設計包括供應商編號，供應商名稱，入庫編號，貨品編號，貨品規(guī)格，計量單位，數(shù)量，單價，入庫時間，備注，以及添加，刪除，保存，關(guān)閉等按鈕。(2) 出庫設計：物品出庫進行的統(tǒng)計。出庫設計包括出貨編號，貨品編號，貨品名稱，計量單位，數(shù)量，單價，出庫日期,備注，以及出庫，刪除，保存關(guān)閉等按鈕，還需要提貨人，單位等信息文本框。(3) 貨品借出設計：物品借出進行記錄。貨品借出設計包括編號，貨品編號，貨品名稱，計量單位，借出數(shù)量，單價，借出 日期，備注，以及添加刪除，

37、保存關(guān)閉等按鈕，還需要借貨人，借貨單位等文本框。(4)貨品歸還設計：物品歸還進行統(tǒng)計。貨品歸還包括編號，借貨編號，貨品編號，貨品名稱，歸還數(shù)量，未還數(shù)量，歸還日期，備注，以及添加保存關(guān)閉等按鈕，還有歸還人姓名。（5）庫存盤點：對整個庫存進行統(tǒng)計盤點。庫存盤點包括盤點編號，盤點貨品，貨品規(guī)格，計量單位，數(shù)量，單價，盤點日期， 備注，以及添加保存修改關(guān)閉等按鈕，還需要盤點人姓名， 有無異常情況選擇，以及異常數(shù)量輸入。對于以上5個小模塊的貨品信息的瀏覽，主要采用了MSFIexGrid控件，它是一種Active控件，該控件提供了表格式界面，處理數(shù)據(jù)相當靈活，具有只讀數(shù)據(jù)綁定、對表 格數(shù)據(jù)進行顯示和操作

38、、數(shù)據(jù)分組排序、Data控件賦值、文本自動換行等功能。但它無法對數(shù)據(jù)進行動態(tài)輸入，只能提供瀏覽功能。（3）查詢統(tǒng)計模塊查詢模塊包括：貨品歸還查詢，貨品借出查詢，入庫信息查詢，庫存信息查詢， 出庫信息查詢，出入庫日統(tǒng)計，出入庫現(xiàn)金統(tǒng)計數(shù)據(jù)，出入庫現(xiàn)金統(tǒng)計。1） 貨品歸還查詢設計；（1）概述貨品歸還查詢是對歸還的貨品的信息進行查詢。（2）設計思想在貨品歸還窗體中添加 Frame控件、Text控件數(shù)組、標簽控件、Adodc控件、DataGrid控件CommandButton等控件。添加完控件的窗體如下圖所示。通過Text控件事件，在標簽中輸入要查詢的關(guān)鍵字，就能查出查詢結(jié)果，實現(xiàn)代碼如下;f'

39、;r ivat t Sub f om_Loal ()rtix = SetlindwFdi iMe -10, 0. Q Cb 3)運用AH函數(shù)宮RtYjndowFos 來實現(xiàn)便劉豐適審的也能利用代碼連捋數(shù)裾庫Liidcl Cgdti«cIi DTiStrng - Provinrijseft Jet. OQIlB. '1 0 :Pat- Somc«= & pp. Pith. & "Xdh_kcgl ndh ; P«3*ej Security 1口£滬FOw kdcdcl RecordSource - select + zrc

40、n lb hrin''空犒貨品I片還極據(jù)表Ldodcl KafrthMe Left 二Sare«n Vidth - Me faith.) f 2'便奩體居申Me. Ta> = (Sfeeet.lftight -矗 HiighO / 2：nd SilI卑茶辭辭呻網(wǎng)來泌她禍那 還倍息進行刪韓whiire P_Nme like 第"* Teiftl. Teit + '暫"Private Sub TextlChinge QOn Err &r R.4Ewn« bfx t収行膛刪査憎Adadcl. React dSoii

41、r-fe = "select * ftomATodtR, Refresh!ud Subrivfctfl Sub F orn_IJnl o ad 0Z uieo-1 Ale Inter ) franain. Snaibled = True£nd Su.li2） 貨品借出查詢設計1）概述貨品借出查詢是對借出的貨品的信息進行查詢。2）設計思想在貨品借出窗體中添加Frame控件、Text控件數(shù)組、標簽控件、Adodc控件、DataGrid控件CommandButton等控件。添加完控件的窗體如下圖所示。就能查出查詢結(jié)果，實現(xiàn)代碼如下;通過Text控件事件，在標簽中輸入要查詢的關(guān)鍵字

42、,Priv-at* :Safe Forn_Lcii.d () rtn =弘皿應葉氏wfll.hEd, Q Q © 3)'運用址I函加弘卅m血寸來實珊樓裔體査前的功能!利用代碼逵接數(shù)踞庫AdoTul C«nn«ctii= "frovidsrLStrflSQft J(H ULJEBB 4 O:DataA Aj»p Fath 尬"db_kcslSeciirity Info=Fal7eMqAqI尺宅曙帖心曲山罪=t * frw tb_hp*Q廣"連接貨品借iii埶IE黑Adodcl 險 Fir旺hMe Left = (Scr

43、een. Width - Me. Width) / Z"悽宙體居中Me Tep = tS<reen. Keiaht - Me. Height) / 2一 _ 一Prit.如T«U.CWet()齋字尹g%l晉:皿事件直曲地加昔出貿(mào)品苗島磁行懈搭洵卑搭鼬醫(yī)礦z"訂zAdodcl RccerdS OTiTCe - U 亡亡七 * £r*n lb_hpDul vhcr« Fame： like J %rt + Texll .Text + "営*'Ado del FLtfreshErid SubPrivate Sub Ft»

44、;rn_Unloa(i(C4iacel As XnttgerjtinTijaitiL el Enkbl&d = TmflEnd Sub入庫信息查詢設計3）概述入庫信息查詢是對入庫的貨品的信息進行查詢。4）設計思想在貨品入庫窗體中添加Frame控件、Text控件數(shù)組、標簽控件、Adodc控件、DataGrid控件CommandButton等控件。添加完控件的窗體如下圖所示。在新的貨品存入的時候可以通過Text控件事件，在標簽中輸入要查詢的關(guān)鍵字，就能查詢到新貨品的信息，實現(xiàn)代碼如下；匹用21畫數(shù)SuWm為曲皿來冥歡使笛休歪前的史龍Privatft Sub FormJjsaiO rtn =

45、(Nlo-. hwnd 1. 0. Q 0. 0.號)別用代碼醫(yī)務列厲匪Adodel.etionString =der=Mieiro50ft. Jet. DLEDB. 4. 0, Dita Soure*=* i Path. < "Idb_fccgl. ndt-.Frsi st SeearilyAbdul. El«card£ourc« = "s*l*ct * from tb_in'連攝覧品扎冏肓忌表A擊odd RfrtshMe. Left = ©ereen lidth - fle.Hidth) f 2使窗悴居中Me. To

46、p 二(ScreeEL Hen ght - He. Meigkt) / 2C han滬爭伴來動態(tài)覽對入庫持品信見也行摂頁，話dFrivate Sub Text !jChage ()Qh Enr«rSisi執(zhí)行模翔査詞”,_AdodcL Recmt菖曲rz 二 select 耳 frcm tb_in wher*Like '%+ T曾scU 丁時t + 鷲AdodcL RefreshEnd! SubFr i vat* Sub ?orm_Uiild nil (CaxicaL Jle Iritgr 1frmjnibn. Enabled 二 TrueEnJ Sub庫存信息查詢設計1）概

47、述3）庫存信息查詢是對庫存的貨品的信息進行查詢。2）設計思想在貨品庫存窗體中添加Frame控件、Text控件數(shù)組、標簽控件、Adodc控件、DataGrid控件CommandButton等控件。添加完控件的窗體如下圖所示。通過Text控件事件，在標簽中輸入要查詢的關(guān)鍵字，就能及時查詢最新的庫存情況， 實現(xiàn)代碼如下；''Downloadlillp , / J www. codefiris. nttPriv*t* Sub FDrn_Lsad ()rto =久兀研mW血也-L Q a a. 0. 3)運用甘f函埶常WlshImFo"來實理佟宙悻趕前的朝能通誼代瑪連桂數(shù)怫屋A

48、dodel.IkonS Irins - FreviderMiercs-oft. Jet. OLEBB. 4.0; Da la Source-* 散 Ayp. Path A 叭 db kejl. ffidh. P*rsisl SecurityAdodcl. Recordsoiirce - Tse-ltet * from tb_kcXx*，連菽庫存潔懇麵6恚Adodcl. R.«fr«x3kM« L«£t二占世嚴翻肥dth M#. Wi dtbJ / 2，梗苗俸居中Me Top = (Screen Heaaht - Me. Height) / 2訂

49、事性書動態(tài)地馬應存蝎殳信息進行桓抽查洞End :SqtFrigate Slab TelllClLiiLgt ()On. Error He suin & Nex t執(zhí)行很糊匿詢.,，”Adodcl二+ from tb.KCXX vkera kt_nan* like ' V 十 T«xU Taxt 十 nVAdodcl fresh.Private Sub Forn_Unload(CKTscel 4 Integer)ftnTi main SrLh.bl&d = Tmo-4） 出庫信息查詢設計1）概述出庫信息查詢是對庫出庫的貨品的信息進行查詢。2）設計思想在貨品出庫窗

50、體中添加Frame控件、Text控件數(shù)組、標簽控件、 Adodc控件、DataGrid控件CommandButton等控件。添加完控件的窗體如下圖所示。當貨品貨品有出貨記錄的時候，可以通過Text控件事件，在標簽中輸入要查詢的關(guān)鍵字，就能查出查出貨信息，實現(xiàn)代碼如下；Pravate Sub Tarm Loid()ru =-i, a Q 0, 6適用AH麵昶MinhwFg,來斗壩使窗津畫前的功就利用代耐世機數(shù)據(jù)庫Mo da Conn c 13 QT£tri ng = Frwi； der=Micr«-EQft. Jet OLEDB 4二-A App F 丸 lh 僅 rt

51、9;dl&_kcgli mdb:Fersiit Sscwj ty Txif 帖 Fils：© 呵dodel.EecordSaurce = p5elect * from tbeul"準掛起庫倍息.漸IE妄Ldijilel. EefrishMe. Lift = (Screen. Isdlk - Me TidSth) / 2使窗庫區(qū)中Na. Top - (Sc3r>k«rL K«i ght Ifii ght) / 2Ertd Siib ., .,FrivSt# Sb Tt_ChO謹口惠車韓娜h初肛辛件來動態(tài)地対入瞌童品信息進汙槓幗詢On Erro

52、r Reswe 險st Iu，Hlff faStS枷行牌糊克徊Ada-dlel. RefOtdS&urce = ' seleell * from lb.Dill where nut_name lik '鶯 * Textl. Test 專、'Ada del. Re fr e shEivd Subrivst# Siab Tctri»_Unltd(CsRcel 嘰w Integer)frm_maLn Enablfd = Trits'在關(guān)謝富你魚SM僱醱至窗傑可舟nd Sub5) 出入庫日統(tǒng)計設計1) 概述出入庫日統(tǒng)計是對庫出庫的貨品的日出入貨信息進行

53、查詢。2) 設計思想在貨品出庫窗體中添加Frame控件、Text控件數(shù)組、標簽控件、Adodc控件、DataGrid控件CommandButton等控件。添加完控件的窗體如下圖所示。通過【統(tǒng)計】按鈕，就能實現(xiàn)日出入貨信息的查詢。實現(xiàn)代碼如下;'* *Pra rate Sub Cfrd.s L itjCli ck rlii = Si-tWibrnd.亠零 0, 0. 0.此'ill用廨甸嫌中埶姍曲程酣翻嫌軸漱Cdl 也Twp魚詢修皆口明柴件制記錄躺罷i Kg姑應中usru* = ttlttl ift_6inL feft_Fri a U_is *Kir* i&_dttt=

54、* Chr(36) + Str ©TPstktrI VUu+) + Chr C35) + A|d?1. R«fr*sh If 應R®吩附d*幽<l Q ThaaAddcl. Rte&rdx-tt - HortFirit * YL.t 1 a A4$Je1 aeatrd-EAt ED? =、，站放圻計捌吃141b衣卜詼山回戈A.dj»d.c2 Ro 亡昭超?？涨?AEdl<a ct wsli hdole邑 Edfr ash If A.dode2. KAeot*ds At. fiAeoir £ 6u.t0 Th4ii Din H

55、'2Tie. A.e Inl4g；47' ffina = IhME * i 叫轟敷噸觥龍駆接婢酈飜Sftt iAgRe - id.aC4ik. Emtcuta 1/iris*rt Lata tl_t4np v<Lu&s C強；'& AdodcL. 5；«cord.£At. Fields inan#1曲oCock.Clg.'關(guān)閉弱贏!逹揄End I f ikiiQiicE. KacorstC. HcvalTditLoopAddc2. f；AcordSUTCft 二 F£>kl6>El. dixttac

56、t taaiis：,T_noMy Erwi"Adodc2. F；«frtEtiC«1L GdNwiJ Eli« 血申 “當前檢紙犀申沒有笹合茶件弾立計航IF S4. 示值息Er.d Ifji-X隹腳pig遨sm圧如血"核urn再宵休査苗的也能,_於申審圈藪應陽部甘網(wǎng)址H敘(!嚴y.亡,i ji_Hoii4y) fron骨haF* iaiKai' "" + A-ddcL. AQrd.-G.6t. Fields (*jEnd. Gib *吋二乍倡盡號討WI那F*：甘I *吋Private Cnd_t fct s_Cli

57、ck 0 rtnSetYinio:slJVe. bund, -2, 0. 0, 0 3)C«ll tLTflr亙間苻弐.血&0&創(chuàng) Rac-o dEovu：-岫顯和RtfrtshIf 就胡機.R昶*r曲<jI ReeoidJ7(nUht、0 TheftAd-sdcl RecoriselHo Thale Ad«d.c Ktcords-et. S_lF - False-叵刼理i+針尿的扣，關(guān)于講函曲的且沽用湛AdoicZ. Eacor>i5>?tirc® = stlcct sxifi (DUTJIiir)Xdodc2. F；$Er 帖hIf A.d.o