库存管理系统软件开发VBSQL

1、XX大学课程设计报告题目库存管理系统课程名称 数据库应用程序课程设计院部名称信息技术学院专业计算机科学与技术班级组号课程设计地点课程设计学时指导教师XX大学教务处制数据库应用程序课程设计:组员及任务分配表：学号组员任务分配成绩王彪初期设置模块刘亮货品管理模块袁凯查询统计模块赵海数据报表模块邵向宇系统维护模块项目背景随着现代工业的发展， 计算机信息管理系统越来越受到企业重视。 本文主要分析了库存 管理系统的一些基本功能和组成情况， 包括系统的需求分析、 系统结构， 功能模块划分以及 数据库模式分析等， 重点对应用程序的实际开发实现作了介绍。 达到了数据的一致性和安全 性，且应用程序功能完备，符合

2、了库存管理系统作为典型的信息管理系统（MIS）的要求。同时简单介绍了 Visual Basic编程环境和SQL2000数据库管理系统的功能特点，库存管理系统 是企业物流管理中不可或缺的一部分。二、需求分析1、系统设计的目的：库存管理系统是一个企事业单位不可缺少的一部分,它的内容对于企业的决策者和管理者来说都是至关重要的， 因此， 库存管理系统应该能够为用户提供充足的信息和快捷的查询 手段， 但一直以来人们使用传统的人工方式管理库存， 这种管理方式存在着许多缺点， 诸如 效率低，保密性差等，而且时间一长，将产生大量的文件和数据，这对于查找、更新和维护 都带来了不少的困难。随着科学技术的不断提高，

3、计算机科学不断发展，其强大的功能已经被人们深刻认识， 它已经进入了人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分， 使用计算机对产品库存信息进行管理，具有着人工管理无法比拟的优点， 它检索迅速、 查找方便、可靠性高、 存储量大、保密性好、 寿命长、成本低等， 可减少更多的人力物力， 这些都能够极大地提高货品库存的管理效率，也是企业库存管理科学化、正规化，与世界接轨的重要条件。因此，开发一个库存管理系统是很有必要的，具有 其特有的技术意义和管理意义。2、功能模块的描述：1. 初期设置包括创库设置，供应商信息维护，初期库存设置等；2. 库存管理货品入库：货品入库进行登记，入库登

4、记人员信息，入库商品信息； 货品出库：货品出库登记，出库登记人员信息，出库商品信息； 库存盘点：对盘存货品信息的盘存录入； 货品借出：货品借出登记，包括货品借出单位，数量等基本信息，借出人员； 货品归还：货品归还登记，包括货品归还单位，归还数量，归还人，登记员等；3. 查询统计入库登记管理：能对货品的入库登记，删除，更改等； 入库期间统计：货品入库期间年度的统计； 供货单位期间供货金额统计：对货品供应的金额进行统计；4. 数据报表对货品出库期间的年度统计，出库，库存报表打印等；5. 系统维护包括用户管理， 密码管理， 关闭系统， 以及数据的备份与恢复， 可以根据需要对整个数据库进行备份，以确保

5、数据的安全性。3、数据流程图：库存管理系统业务流程图：三、结构设计阶段(1) E-R 图传真电运；.供应供应商仓库商品0(W)数据字典(2)F面给出主要数据字典用户p销善(W)购货商名称产品编号描述唯一标识产品编号定义产品编号=字符串位置tb_inTb_outTb_hpinTb_hpout名称货品名称描述产品名称定义货品名称=字符串位置tb_inTb_out Tb_hpin Tb_hpout名称：入库 ID 号描述：进入库存唯一的编号定义入库ID号=字符串位置： tb_inTb_outTb_hpinTb_hpout名称：货品规格描述：货品质量的好坏定义：货品规格 =字符串 位置： tb_inT

6、b_outTb_hpinTb_hpout名称：计量单位描述：货品数量单位定义：计量单位 =字符串 位置： tb_inTb_outTb_hpinTb_hpout名称：数量描述：货品数量定义：货品数量 =数字 位置： tb_inTb_outTb_hpinTb_hpout名称：单价描述：货品单个数量价格定义：单价 =数字 位置： tb_inTb_outTb_hpinTb_hpout名称： 名称： 描述： 定义： 位置：金额入库日期产品入库时间入库日期 =日期/时间 tb_inTb_outTb_hpinTb_hpout名称： 描述： 定义： 位置：经受人 记入信息人 经受人 =字符串 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四、总体模块设计系统的总体结构图査询统讣数攥很去系魏承护毎品管理JB出專出廡报我出入用货胡口统计 用存盘点 歸胡借旧 期剖味供应商祐息护护111111出品 借 出 住 询据 备数 据 淸 門五、根据项目的任务分配王彪初期设置模块刘亮货品管理模块袁凯查询统计模块赵海数据报表模块邵向宇系统维护模块六、各模块详细设计（1）初期设计模块初期设置模块包括：初期库存设置、仓库设置、供应商信息维护1、初期库存设置1）概述初期库存设置主要功能是保存期初货品的入库信息。包括编号、货品名称、货品规格、计量单位、期

9、初数量、单价、备注。2）设计思路：初期设置窗体中添加 Frame控件、Text控件数组、标签控件、Adodc控件、DataGrid控件CommandButton等控件。添加完控件的窗体如下图所示。ADODC1控件链接数据库字符串SQL需要建立 adodc；3 ）相关代码如下:* “添加"货品期初谭贵茁事件过程林*Private Sub Cmd Add Click0For i = 0 To"5 -'濟空文本框中的内咨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)，位数不定者辛卜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?炊枢，关于该因前的貝体用法靑發阅明日公司BEc債理询典中的函裁危用刍 If Kot Izlfuiftric CTftxtl (3). Taxt) Or Kot Idfm«ric CT«xtl (<5. Taxt) Then入的货品敎堕或单们必须脚值型数提'，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用数攜反绑定

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 来实现使苗1 车 35前的功能'利用优码洼接勘据匡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至播库存信息数据裘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,来实现取消苗休匿前的功能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控件数组、标签控件、Adodc控件、DataGrid控件和CommandButton控件。相关代码如下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 "当前数拐库中已经溢有可删除的记录二昌屯”提示信息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內jk或w ma信口已经存狂走总爍存不嗒功二若髦.保存備总提示"n迪幅您确认蹇保存葭情恿吗仁as.书存rsaffi示t IE c = vbDK 丁皿"T£ IbxIL CD. r-xl

29、= “ Dr 7«xt Ta»l = "" Th«nn5 “供应商锦眼联系鼻尊信宴科沙堆佰匚 幅 净存佶恳徨示 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开发数据库管理模块主要包括以下几个控件： Data控件； ADO Data 控件； DataList 控件 /DataCombo 控件； Da

34、taGrid 控件；Data控件当与 Data 控件相连接时，DataList、DataCombo DataGrid 和 MSHFIexGrid 控件都能管理记录集合。所有这些控件都允许一次显示或操作几个记录。 内部的 Picture、Label、TextBox、CheckBox Image OLE ListBox 和 ComboBoX控件也是数据觉察的，能和由Data控件管理的Recordset对象的某个字段相连接ADO Data 控件ADO Data控件与内部 Data控件以及Remote Data控件(RDC相似。用尸 可以使用ADO Data控件快速地创建一个到数据库的连接。DataL

35、ist 控件 /DataCombo 控件DataList控件是一个数据绑定列表框，它可以自动地由一个附加数据源中 的一个字段充填，并且可选择地更新另一个数据源中一个相关表的一个字段。 DataCombc控件的功能与DataList控件完全相同，只不过DataCombc控件是 个组合框。DataGrid 控件表格显示要借助于DaatGrid控件。用户可以设置 DataGrid控件的DataSource属性为一个 ADO Data控件，从而将 ADO Data中的数据自动地填充 到 DataGrid表格中。这个DataGrid控件实际上是一个固定的列集合，每一列的行数都是不确定的。下面是各个部件设

36、计主要界面哄豳孵供应商名弾(1) 入库设计：物件进入库存进行的记录统计。銅a申淖加I 片际 空 去囲计塑单伍： 就里： 单怕：口 h库曰期：入库设计包括供应商编号，供应商名称，入库编号，货品编号，货品规格，计量单位，数量，单价，入库时间，备注，以及添加，删除，保存，关闭等按钮。(2) 出库设计：物品出库进行的统计。出库设计包括出货编号，货品编号，货品名称，计量单位，数量，单价，出库日期,备注，以及出库，删除，保存关闭等按钮，还需要提货人，单位等信息文本框。(3) 货品借出设计：物品借出进行记录。货品借出设计包括编号，货品编号，货品名称，计量单位，借出数量，单价，借出 日期，备注，以及添加删除，

37、保存关闭等按钮，还需要借货人，借货单位等文本框。(4)货品归还设计：物品归还进行统计。货品归还包括编号，借货编号，货品编号，货品名称，归还数量，未还数量，归还日期，备注，以及添加保存关闭等按钮，还有归还人姓名。（5）库存盘点：对整个库存进行统计盘点。库存盘点包括盘点编号，盘点货品，货品规格，计量单位，数量，单价，盘点日期， 备注，以及添加保存修改关闭等按钮，还需要盘点人姓名， 有无异常情况选择，以及异常数量输入。对于以上5个小模块的货品信息的浏览，主要采用了MSFIexGrid控件，它是一种Active控件，该控件提供了表格式界面，处理数据相当灵活，具有只读数据绑定、对表 格数据进行显示和操作

38、、数据分组排序、Data控件赋值、文本自动换行等功能。但它无法对数据进行动态输入，只能提供浏览功能。（3）查询统计模块查询模块包括：货品归还查询，货品借出查询，入库信息查询，库存信息查询， 出库信息查询，出入库日统计，出入库现金统计数据，出入库现金统计。1） 货品归还查询设计；（1）概述货品归还查询是对归还的货品的信息进行查询。（2）设计思想在货品归还窗体中添加 Frame控件、Text控件数组、标签控件、Adodc控件、DataGrid控件CommandButton等控件。添加完控件的窗体如下图所示。通过Text控件事件，在标签中输入要查询的关键字，就能查出查询结果，实现代码如下;f'

39、;r ivat t Sub f om_Loal ()rtix = SetlindwFdi iMe -10, 0. Q Cb 3)运用AH函數宫RtYjndowFos 来实现便劉丰适审的也能利用代码连捋数裾库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片还極据表Ldodcl KafrthMe Left 二Sare«n Vidth - Me faith.) f 2'便奩体居申Me. Ta> = (Sfeeet.lftight -矗 HiighO / 2：nd SilI卑茶辭辭呻网来泌她祸那 还倍息进行删韩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控件数组、标签控件、Adodc控件、DataGrid控件CommandButton等控件。添加完控件的窗体如下图所示。就能查出查询结果，实现代码如下;通过Text控件事件，在标签中输入要查询的关键字

42、,Priv-at* :Safe Forn_Lcii.d () rtn =弘皿应叶氏wfll.hEd, Q Q © 3)'运用址I函加弘卅m血寸来实珊楼裔体査前的功能!利用代码逵接數踞库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晋:皿事件直曲地加昔出贸品苗島磁行懈搭洵卑搭鼬醫矿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控件数组、标签控件、Adodc控件、DataGrid控件CommandButton等控件。添加完控件的窗体如下图所示。在新的货品存入的时候可以通过Text控件事件，在标签中输入要查询的关键字，就能查询到新货品的信息，实现代码如下；匹用21画数SuWm為曲皿来冥欢使笛休歪前的史龍Privatft Sub FormJjsaiO rtn =

45、(Nlo-. hwnd 1. 0. Q 0. 0.号)別用代码医務列厲匪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沪爭伴来动态览对入库持品信見也行摂页，話dFrivate Sub Text !jChage ()Qh Enr«rSisi执行模翔査词”,_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控件数组、标签控件、Adodc控件、DataGrid控件CommandButton等控件。添加完控件的窗体如下图所示。通过Text控件事件，在标签中输入要查询的关键字，就能及时查询最新的库存情况， 实现代码如下；''Downloadlillp , / J www. codefiris. nttPriv*t* Sub FDrn_Lsad ()rto =久兀研mW血也-L Q a a. 0. 3)运用甘f函埶常WlshImFo"来实理佟宙悻赶前的朝能通谊代玛连桂数怫屋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、事性书动态地馬应存蝎殳信息进行桓抽查洞End :SqtFrigate Slab TelllClLiiLgt ()On. Error He suin & Nex t执行很糊匿询.,，”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控件数组、标签控件、 Adodc控件、DataGrid控件CommandButton等控件。添加完控件的窗体如下图所示。当货品货品有出货记录的时候，可以通过Text控件事件，在标签中输入要查询的关键字，就能查出查出货信息，实现代码如下；Pravate Sub Tarm Loid()ru =-i, a Q 0, 6适用AH麵昶MinhwFg,来斗坝使窗津畫前的功就利用代耐世機數据库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使窗库區中Na. Top - (Sc3r>k«rL K«i ght Ifii ght) / 2Ertd Siib ., .,FrivSt# Sb Tt_ChO谨口惠車韩娜h初肛辛件来动态地対入瞌童品信息进汙槓帼询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'在关谢富你鱼SM僱醱至窗傑可舟nd Sub5) 出入库日统计设计1) 概述出入库日统计是对库出库的货品的日出入货信息进行

53、查询。2) 设计思想在货品出库窗体中添加Frame控件、Text控件数组、标签控件、Adodc控件、DataGrid控件CommandButton等控件。添加完控件的窗体如下图所示。通过【统计】按钮，就能实现日出入货信息的查询。实现代码如下;'* *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.'关闭弱赢!逹揄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再宵休査苗的也能,_於申审圈藪应陽部甘网址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&创 Rac-o dEovu：-岫显和RtfrtshIf 就胡机.R昶*r曲<jI ReeoidJ7(nUht、0 TheftAd-sdcl RecoriselHo Thale Ad«d.c Ktcords-et. S_lF - False-叵刼理i+針尿的扣，关于讲函曲的且沽用湛AdoicZ. Eacor>i5>?tirc® = stlcct sxifi (DUTJIiir)Xdodc2. F；$Er 帖hIf A.d.o