仓库管理系统delphi源码（DOC68页）6293.docx

《仓库管理系统delphi源码（DOC68页）6293.docx》由会员分享，可在线阅读，更多相关《仓库管理系统delphi源码（DOC68页）6293.docx（132页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、unitt Unnit11;inteerfaaceusess Wiindoows, Meessaagess, SSysUUtills, Varriannts, Cllassses, Grraphhicss, CConttrolls, Forrms, Diialoogs, SttdCttrlss, DDB, ADOODB, jppeg, ExxtCttrlss;typee TFFormm1 = cllasss(TFFormm) ADOOConnnecctioon1: TAADOCConnnecttionn; ADOOQueery11: TTADOOQueery; Ediit1: TEEditt;

2、 Ediit2: TEEditt; Butttonn1: TBuuttoon; Butttonn2: TBuuttoon; ADOOTabble11: TTADOOTabble; Imaage11: TTImaage; Labbel11: TTLabbel; Labbel22: TTLabbel; Labbel33: TTLabbel; Labbel44: TTLabbel; Butttonn3: TBuuttoon; proocedduree Buuttoon1CClicck(SSendder: TOObjeect); proocedduree Buuttoon2CClicck(SSendd

3、er: TOObjeect); proocedduree Buuttoon3CClicck(SSendder: TOObjeect); prrivaate PPrivvatee deeclaarattionns puubliic couunt:inttegeer; PPubllic decclarratiionss ennd;var Foorm11: TTForrm1;impllemeentaatioonusess Unnit112,UUnitt19;$R *.ddfmprocceduure TFoorm11.Buuttoon1CClicck(SSendder: TOObjeect); vva

4、r yonnghuu:sttrinng;begiin yyongghu:=trrim(ediit1.Texxt);/ttrimm去除字字符串空空格 coountt:=ccounnt+11;/登陆次次数 wiith adooqueery11 doo beeginn Cllosee; SQQL.CCleaar; SQQL.ttextt:=sellectt * frrom 用户户信息表表 whheree 用户户名=+yonnghuu+; oppen; iff (aadoQQuerry1.ReccorddCouunt0) annd (ediit2.Texxt) annd (adooQueery11.F

5、iielddByNNamee(密密码).AssStrringg= eeditt2.TTextt) tthenn beeginn iff addoQuueryy1.FFielldByyNamme(是否管管理员).AAsSttrinng =Trrue thhen beeginn foorm112.SSpeeedBuuttoon1.Vissiblle:=truue; foorm112.BButtton113.VVisiiblee:=ttruee; apppliicattionn.MeessaageBBox(密码码正确，即即将进入入系统。,提提示,mb_ok); foorm11.Hiide; foor

6、m112.SShoww; ennd ellse beggin foorm112.SSpeeedBuuttoon1.Vissiblle:=fallse; foorm112.BButtton113.VVisiiblee:=ffalsse; apppliicattionn.MeessaageBBox(密码码正确，即即将进入入系统。,提提示,mb_ok); foorm11.Hiide; foorm112.SShoww; ennd; ennd ellse beeginn iff (ccounnt=11) tthenn beeginn apppliicattionn.MeessaageBBox(用户户名或

7、密密码错误误,还剩剩2次机机会,提示示,mmb_ook); eddit11.SeetFoocuss;/光标是是向左对对齐的 也就是是在编辑辑框的最最左边 ennd; iff(coountt=2) thhen beggin aappllicaatioon.MMesssageeBoxx(您您还有最最后一次次机会,请仔细细核对用用户名和和密码,提提示,mb_ok); eeditt1.CCleaar; eeditt2.ccleaar; eeditt1.SSetFFocuus; eend; iif (couunt=3) theen beggin aappllicaatioon.MMesssageeBox

8、x(密密码错误误超过三三次系统统即将关关闭,提示示,mmb_ook); aappllicaatioon.TTermminaate;/退退出程序序 endd; ennd; ennd;end;procceduure TFoorm11.Buuttoon2CClicck(SSendder: TOObjeect);begiin apppliccatiion.Terrminnatee;end;procceduure TFoorm11.Buuttoon3CClicck(SSendder: TOObjeect);begiin fformm19.ShoowMoodall;end;End.unitt Unnit2

9、2;inteerfaaceusess Wiindoows, Meessaagess, SSysUUtills, Varriannts, Cllassses, Grraphhicss, CConttrolls, Forrms, Diialoogs, SttdCttrlss, GGridds, DBGGridds, jpeeg, ExttCtrrls, DBB, AADODDB;typee TFFormm2 = cllasss(TFFormm) Imaage11: TTImaage; Labbel11: TTLabbel; GrooupBBox11: TTGrooupBBox; DBGGridd1

10、: TDBBGriid; Butttonn1: TBuuttoon; GrooupBBox22: TTGrooupBBox; GrooupBBox33: TTGrooupBBox; GrooupBBox44: TTGrooupBBox; Labbel33: TTLabbel; Labbel44: TTLabbel; Ediit1: TEEditt; Ediit2: TEEditt; Labbel55: TTLabbel; RaddioBButtton11: TTRaddioBButtton; RaddioBButtton22: TTRaddioBButtton; Butttonn2: TBuu

11、ttoon; Labbel66: TTLabbel; Labbel77: TTLabbel; Ediit3: TEEditt; RaddioBButtton33: TTRaddioBButtton; RaddioBButtton44: TTRaddioBButtton; Butttonn3: TBuuttoon; ADOOConnnecctioon1: TAADOCConnnecttionn; ADOOTabble11: TTADOOTabble; ADOOQueery11: TTADOOQueery; ADOOQueery22: TTADOOQueery; DattaSoourcce1: T

12、DDataaSouurcee; proocedduree Buuttoon1CClicck(SSendder: TOObjeect); proocedduree Buuttoon2CClicck(SSendder: TOObjeect); proocedduree Buuttoon3CClicck(SSendder: TOObjeect); proocedduree FoormSShoww(Seendeer: TObbjecct); prrivaate PPrivvatee deeclaarattionns puubliic PPubllic decclarratiionss ennd;var

13、 Foorm22: TTForrm2;impllemeentaatioon$R *.ddfmprocceduure TFoorm22.Buuttoon1CClicck(SSendder: TOObjeect);begiin iff apppliicattionn.MeessaageBBox(请确确认是否否要删除除, 超市市仓库管管理系统统, mb_icooninnforrmattionn +mmb_yyesnno) = iidyees tthenn/MMB_IICONNINFFORMMATIION是是显示出出的对话话框里会会有一个个“i”图标,mb_yessno同同时显示示确定和和取消按按钮，

14、iidyees单击击”是“按钮 ADOOtabble11.Deelette;end;procceduure TFoorm22.Buuttoon2CClicck(SSendder: TOObjeect);var yonnghuuminng,mmimaa:sttrinng; quaanxiian:boooleaan;begiin if (eddit11.Teext) aand (eddit22.Teext) aand (raadioobutttonn1.CChecckedd xoor rradiiobuuttoon2.Cheeckeed) thhen beggin yonnghuuminng:=e

15、diit1.Texxt; adooqueery11.Cllosee; adooqueery11.SQQL.TTextt := sseleect * ffromm 用户户信息表表 whheree 用户户名= +yoonghhumiing+ ; adooqueery11.oppen; if nott addoquueryy1.EEof theen/判断表表是否为为空 beggin MesssaggeBoox(hhanddle, 此此用户名名已存在在!, 提提示, mbb_IcconIInfoormaatioon + mbb_Okk); exiit; endd; miima:=eddit22.Tee

16、xt; iff raadioobutttonn1.CChecckedd=trrue theen quuanxxiann:=ttruee ellse qquannxiaan:=fallse; aadottablle1.InsserttReccordd(yyongghummingg,miima,quaanxiian); aadottablle1.Cloose; /把ADDOTaablee控件对对应的数数据源关关闭 aadottablle1.Opeen;/重新新打开AADOTTablle控件件对应的的数据源源，这样样做的目目的是刷刷新数据据源 sshowwmesssagge(新建用用户添加加成功);

17、 eeditt1.CCleaar; eeditt2.CCleaar; rradiiobuuttoon1.Cheeckeed:=fallse; rradiiobuuttoon2.Cheeckeed:=fallse; ennd ellse shhowmmesssagee(信信息填写写不全);end;procceduure TFoorm22.Buuttoon3CClicck(SSendder: TOObjeect);var yonnghuuminng:sstriing; quaanxiian:boooleaan;begiin iff (eeditt3.TTextt) andd (rradiiobuu

18、ttoon3.Cheeckeed xxor raddiobbuttton44.Chheckked) thhen beeginn yoonghhumiing:=eddit33.Teext; addoquueryy1.CClosse; addoquueryy1.SSQL.Texxt := sellectt * froom 用用户信息息表 wwherre 用用户名= +yyongghummingg+ ; addoquueryy1.oopenn; iff addoquueryy1.RRecoordCCounnt = 0 theen beeginn shhowmmesssagee(不不存在此此用户，请请

19、重新输输入); eddit33.SeetFoocuss; exxit; ennd; iff raadioobutttonn3.CChecckedd=trrue theen quuanxxiann:=ttruee ellse quuanxxiann:=ffalsse; iff apppliicattionn.MeessaageBBox(请确确认是否否要修改改, 超市市仓库管管理系统统, mb_icooninnforrmattionn + mb_yessno) = idyyes theen beeginn addotaablee1.LLocaate(用户户名,yonnghuuminng,); ad

20、dotaablee1.EEditt; addotaablee1是否管管理员:=quaanxiian; addotaablee1.PPostt; addotaablee1.CClosse; addotaablee1.OOpenn;/更改一一个已经经从数据据库中读读取的数数据库表表格 shhowmmesssagee(修修改成功功); ennd; ennd ellse shhowmmesssagee(信信息填写写不全);end; proocedduree TFFormm2.FFormmShoow(SSendder: TOObjeect);begiinadocconnnecttionn1:=TADDO

21、Coonneectiion.Creeatee(niil);/动态态创建AADO控控件adocconnnecttionn1.LLogiinPrromppt:=fallse;/如如果不加加这句的的话，每每次连接接数据库库时都会会跳出一一个身份份验证对对话框，要要求你输输入用户户名和密密码adocconnnecttionn1.CConnnectted:=faalsee;/释放连连接adocconnnecttionn1.CConnnecttionnStrringg:=Proovidder=SQLLOLEEDB.1;PPerssistt Seecurrityy Innfo=Fallse;Useer II

22、D=ssa;IInittiall Caatallog=天天;Datta SSourrce=WINN-RNNSK11TMAAK9LL;adocconnnecttionn1.CConnnectted:=trrue;adottablle1:=TAADOTTablle.CCreaate(nill);adottablle1.Connnecctioon:=adooconnnecctioon1;adottablle1.TabbleNNamee:=用户信信息表;adottablle1.Opeen;dataasouurcee1.DDataaSett:=aadottablle1;adoqquerry1:=TAAD

23、OQQuerry.CCreaate(nill);adoqquerry1.Connnecctioon:=adooconnnecctioon1;adoqquerry2:=TAADOQQuerry.CCreaate(nill);adoqquerry2.Connnecctioon:=adooconnnecctioon1;end;end.unitt Unnit33;inteerfaaceusess Wiindoows, Meessaagess, SSysUUtills, Varriannts, Cllassses, Grraphhicss, CConttrolls, Forrms, Diialoogs,

24、 ADDODBB, DDB, StddCtrrls, Grridss, DDBGrridss, jjpegg, EExtCCtrlls;typee TFFormm3 = cllasss(TFFormm) GrooupBBox11: TTGrooupBBox; GrooupBBox22: TTGrooupBBox; GrooupBBox33: TTGrooupBBox; Imaage11: TTImaage; Labbel11: TTLabbel; DBGGridd1: TDBBGriid; Butttonn1: TBuuttoon; Butttonn2: TBuuttoon; Butttonn

25、3: TBuuttoon; Labbel22: TTLabbel; Labbel33: TTLabbel; Labbel44: TTLabbel; Labbel55: TTLabbel; Labbel66: TTLabbel; Labbel77: TTLabbel; Labbel88: TTLabbel; Labbel99: TTLabbel; Labbel110: TLaabell; Ediit1: TEEditt; Ediit2: TEEditt; Ediit3: TEEditt; Ediit4: TEEditt; Ediit5: TEEditt; Ediit6: TEEditt; Edi

26、it7: TEEditt; CommboBBox11: TTCommboBBox; CommboBBox22: TTCommboBBox; Labbel111: TLaabell; CommboBBox33: TTCommboBBox; Ediit8: TEEditt; Butttonn4: TBuuttoon; Butttonn5: TBuuttoon; Butttonn6: TBuuttoon; ADOOConnnecctioon1: TAADOCConnnecttionn; ADOOTabble11: TTADOOTabble; DattaSoourcce1: TDDataaSouurc

27、ee; ADOOQueery11: TTADOOQueery; proocedduree Buuttoon2CClicck(SSendder: TOObjeect); proocedduree Buuttoon1CClicck(SSendder: TOObjeect); proocedduree Buuttoon3CClicck(SSendder: TOObjeect); proocedduree Buuttoon4CClicck(SSendder: TOObjeect); proocedduree Buuttoon5CClicck(SSendder: TOObjeect); proocedd

28、uree Buuttoon6CClicck(SSendder: TOObjeect); prroceedurre FFormmShoow(SSendder: TOObjeect); prrivaate PPrivvatee deeclaarattionns puubliic PPubllic decclarratiionss ennd;var Foorm33: TTForrm3;impllemeentaatioon$R *.ddfm proocedduree TFFormm3.FFormmShoow(SSendder: TOObjeect);begiin addocoonneectiion11

29、:=TTADOOConnnecctioon.CCreaate(nill);adocconnnecttionn1.LLogiinPrromppt:=fallse;adocconnnecttionn1.CConnnectted:=faalsee;adocconnnecttionn1.CConnnecttionnStrringg:=Proovidder=SQLLOLEEDB.1;PPasssworrd=44111114;Perrsisst SSecuuritty IInfoo=Trrue;Useer IID=ssa;IInittiall Caatallog=天天;Datta SSourrce=win

30、n-rnnsk11tmaak9ll;adocconnnecttionn1.CConnnectted:=trrue;adottablle1:=TAADOTTablle.CCreaate(nill);adottablle1.Connnecctioon:=adooconnnecctioon1;adottablle1.TabbleNNamee:=商品信信息表;adottablle1.Opeen;dataasouurcee1.DDataaSett:=aadottablle1;adoqquerry1:=TAADOQQuerry.CCreaate(nill);adoqquerry1.Connnecctioo

31、n:=adooconnnecctioon1;adoqquerry1.Cloose;adoqquerry1.SQLL.Cllearr;adoqquerry1.SQLL.Teext:=sseleect 仓库名名称 ffromm 仓库库信息表表;adoqquerry1.Opeen; whhilee noot aadoqquerry1.Eoff doo beeginn coombooboxx2.IItemms.AAdd(adooqueery11仓仓库名称称); addoquueryy1.NNextt; ennd;end;procceduure TFoorm33.Buuttoon2CClicck(SSe

32、ndder: TOObjeect);begiin adootabble11.Eddit;end;procceduure TFoorm33.Buuttoon1CClicck(SSendder: TOObjeect);begiin iif aappllicaatioon.MMesssageeBoxx(确确定要删删除？, 超市仓仓库管理理系统, mmb_iiconninfformmatiion + mmb_yyesnno) = iidyees tthennbegiin adootabble11.Deelette; shoowmeessaage(删除除成功); endd;end;procceduure

33、 TFoorm33.Buuttoon3CClicck(SSendder: TOObjeect);begiin addotaablee1.PPostt; shoowmeessaage(修改改成功);end;procceduure TFoorm33.Buuttoon4CClicck(SSendder: TOObjeect); varrtempp:sttrinng; jutti:sstriing;begiin jjutii:=eeditt8.TTextt; if(commbobbox33.Teext)annd(eeditt8.TTextt) theen beggin if (coombooboxx3

34、.IItemmInddex=0) theen/IteemInndexx=0列列表标号号从0开开始 beggin addotaablee1.FFilttereed:=fallse; addotaablee1.FFiltter:=商商品编号号=+jjutii+; addotaablee1.FFilttereed:=truue; endd; iff (ccombboboox3.IteemInndexx=1) thhen beggin addotaablee1.FFilttereed:=fallse;/ 解除过过滤 teemp:=trrim(%+juuti+%); addotaablee1.FFilt

35、ter:=商商品名称称 liike +teemp+; addotaablee1.FFilttereed:=truue; endd; if (coombooboxx3.IItemmInddex=2) theen beggin addotaablee1.FFilttereed:=fallse; addotaablee1.FFiltter:=型型号=+jutti+; addotaablee1.FFilttereed:=truue; endd; iff (ccombboboox3.IteemInndexx=3) thhen beggin addotaablee1.FFilttereed:=fallse

36、; addotaablee1.FFiltter:=仓仓库名称称=+jjutii+; addotaablee1.FFilttereed:=truue; endd; endd;end;procceduure TFoorm33.Buuttoon5CClicck(SSendder: TOObjeect);begiin adootabble11.Fiilteeredd:=ffalsse;adottablle1.Cloose;adottablle1.Opeen;end;procceduure TFoorm33.Buuttoon6CClicck(SSendder: TOObjeect);begiin iif

37、 (ediit1.Texxt) annd (ediit2.Texxt) annd (ediit3.Texxt) annd (ediit4.Texxt) annd (ediit5.Texxt) annd (ediit6.Texxt) annd (ediit7.Texxt) annd (commbobbox11.Teext) aand (coombooboxx2.TTextt) theen beggin iif aappllicaatioon.MMesssageeBoxx(确确定要添添加？, 超市仓仓库管理理系统, mmb_iiconninfformmatiion + mmb_yyesnno) =

38、 iidyees tthenn bbegiin aadottablle1.InsserttReccordd(eeditt1.TTextt,eddit22.Teext,ediit3.Texxt,ccombboboox1.Texxt,eeditt4.TTextt,eddit55.Teext,commbobbox22.Teext,ediit6.Texxt,eeditt7.TTextt); aadottablle1.Cloose; aadottablle1.Opeen; sshowwmesssagge(新商品品添加成成功); eend; endd elsse shoowmeessaage(信息息未填全

39、全);end;end.uniit UUnitt4;inteerfaaceusess Wiindoows, Meessaagess, SSysUUtills, Varriannts, Cllassses, Grraphhicss, CConttrolls, Forrms, Diialoogs, ADDODBB, DDB, StddCtrrls, Grridss, DDBGrridss, jjpegg, EExtCCtrlls;typee TFFormm4 = cllasss(TFFormm) Imaage11: TTImaage; Labbel11: TTLabbel; GrooupBBox11

40、: TTGrooupBBox; GrooupBBox22: TTGrooupBBox; DBGGridd1: TDBBGriid; DBGGridd2: TDBBGriid; Butttonn1: TBuuttoon; Butttonn2: TBuuttoon; Butttonn3: TBuuttoon; Butttonn4: TBuuttoon; Ediit1: TEEditt; Ediit2: TEEditt; Ediit3: TEEditt; Ediit4: TEEditt; Ediit5: TEEditt; DattaSoourcce1: TDDataaSouurcee; DattaSoourcce2: TDDataaSouurcee; ADOOConnnecctioon1: TAADOCConnnecttionn; ADOOTabble11: TTADOOTabble; ADOOQueery11: TTADOOQueery; ADOOQueery22: TTADOOQueery; ADOOQueery33: