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

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; 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(SSendder: 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); vvar 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.ReccorddCouunt<<>0) annd (ediit2.Texxt<>>'') annd (adooQueery11.FiielddByNNamee('密密码').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; foorm112.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('用户户名或密密码错误误,还剩剩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.MMesssageeBoxx('密密码错误误超过三三次系统统即将关关闭','提示示',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 Unnit22;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: TDBBGriid; Butttonn1: TBuuttoon; GrooupBBox22: TTGrooupBBox; GrooupBBox33: TTGrooupBBox; GrooupBBox44: TTGrooupBBox; Labbel33: TTLabbel; Labbel44: TTLabbel; Ediit1: TEEditt; Ediit2: TEEditt; Labbel55: TTLabbel; RaddioBButtton11: TTRaddioBButtton; RaddioBButtton22: TTRaddioBButtton; Butttonn2: TBuuttoon; Labbel66: TTLabbel; Labbel77: TTLabbel; Ediit3: TEEditt; RaddioBButtton33: TTRaddioBButtton; RaddioBButtton44: TTRaddioBButtton; Butttonn3: TBuuttoon; ADOOConnnecctioon1: TAADOCConnnecttionn; ADOOTabble11: TTADOOTabble; ADOOQueery11: TTADOOQueery; ADOOQueery22: TTADOOQueery; DattaSoourcce1: TDDataaSouurcee; proocedduree Buuttoon1CClicck(SSendder: TOObjeect); proocedduree Buuttoon2CClicck(SSendder: TOObjeect); proocedduree Buuttoon3CClicck(SSendder: TOObjeect); proocedduree FoormSShoww(Seendeer: TObbjecct); prrivaate PPrivvatee deeclaarattionns puubliic PPubllic decclarratiionss ennd;var Foorm22: TTForrm2;impllemeentaatioon$R *.ddfmprocceduure TFoorm22.Buuttoon1CClicck(SSendder: TOObjeect);begiin iff apppliicattionn.MeessaageBBox('请确确认是否否要删除除', '超市市仓库管管理系统统', mb_icooninnforrmattionn +mmb_yyesnno) = iidyees tthenn/MMB_IICONNINFFORMMATIION是是显示出出的对话话框里会会有一个个“i”图标,mb_yessno同同时显示示确定和和取消按按钮，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:=ediit1.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.Teext; iff raadioobutttonn1.CChecckedd=trrue theen quuanxxiann:=ttruee ellse qquannxiaan:=fallse; aadottablle1.InsserttReccordd(yyongghummingg,miima,quaanxiian); aadottablle1.Cloose; /把ADDOTaablee控件对对应的数数据源关关闭 aadottablle1.Opeen;/重新新打开AADOTTablle控件件对应的的数据源源，这样样做的目目的是刷刷新数据据源 sshowwmesssagge(''新建用用户添加加成功''); 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 (rradiiobuuttoon3.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('不不存在此此用户，请请重新输输入'); 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,); addotaablee1.EEditt; addotaablee1''是否管管理员'':=quaanxiian; addotaablee1.PPostt; addotaablee1.CClosse; addotaablee1.OOpenn;/更改一一个已经经从数据据库中读读取的数数据库表表格 shhowmmesssagee('修修改成功功'); ennd; ennd ellse shhowmmesssagee('信信息填写写不全'');end; proocedduree TFFormm2.FFormmShoow(SSendder: TOObjeect);begiinadocconnnecttionn1:=TADDOCoonneectiion.Creeatee(niil);/动态态创建AADO控控件adocconnnecttionn1.LLogiinPrromppt:=fallse;/如如果不加加这句的的话，每每次连接接数据库库时都会会跳出一一个身份份验证对对话框，要要求你输输入用户户名和密密码adocconnnecttionn1.CConnnectted:=faalsee;/释放连连接adocconnnecttionn1.CConnnecttionnStrringg:=''Proovidder=SQLLOLEEDB.1;PPerssistt Seecurrityy Innfo=Fallse;Useer IID=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:=TAADOQQuerry.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, 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; Butttonn3: 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; Ediit7: TEEditt; CommboBBox11: TTCommboBBox; CommboBBox22: TTCommboBBox; Labbel111: TLaabell; CommboBBox33: TTCommboBBox; Ediit8: TEEditt; Butttonn4: TBuuttoon; Butttonn5: TBuuttoon; Butttonn6: TBuuttoon; ADOOConnnecctioon1: TAADOCConnnecttionn; ADOOTabble11: TTADOOTabble; DattaSoourcce1: TDDataaSouurcee; ADOOQueery11: TTADOOQueery; proocedduree Buuttoon2CClicck(SSendder: TOObjeect); proocedduree Buuttoon1CClicck(SSendder: TOObjeect); proocedduree Buuttoon3CClicck(SSendder: TOObjeect); proocedduree Buuttoon4CClicck(SSendder: TOObjeect); proocedduree Buuttoon5CClicck(SSendder: TOObjeect); proocedduree 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:=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=winn-rnnsk11tmaak9ll'adocconnnecttionn1.CConnnectted:=trrue;adottablle1:=TAADOTTablle.CCreaate(nill);adottablle1.Connnecctioon:=adooconnnecctioon1;adottablle1.TabbleNNamee:=''商品信信息表''adottablle1.Opeen;dataasouurcee1.DDataaSett:=aadottablle1;adoqquerry1:=TAADOQQuerry.CCreaate(nill);adoqquerry1.Connnecctioon:=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(SSendder: 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 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.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.FFiltter:='商商品名称称 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; 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 (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) = 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('信息息未填全全');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: 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: