2023年-仓库管理系统delphi源码.docx

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

1、unit Unitl;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, jpeg, ExtCtrls;typeTForm 1 = class(TForm)ADOConnection 1: TADOConnection;ADOQuery 1: TADOQuery;Editl: TEdit;Edit2: TEdit;Button 1: TButton;Button2: TButton;ADOTablel: TADO

2、Table;Image 1: TImage;Label 1: TLabel;Label 2: TLabel;Label3: TLabel;Label4: TLabel;Button3: TButton;procedure Button 1 Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject);private Private declarations publiccount:integer; Public declarations end;var

3、Form 1: TForm 1;implementationuses Unitl2,Unitl9;$R*.dfmprocedure TForm 1 .Button 1 Click(Sender: TObject);varend;if (combobox3.Itemlndex= 1) thenbeginadotablel .Filtered:=false;/ 解除过滤temp:=trim(%+juti+%);adotable 1 .Filter:=商品名称 like n,+temp+n;adotable l.Filtered:=true;end;if (combobox3 .Itemlndex=

4、2) thenbeginadotable 1.Filtered:=false;adotable 1 .Filters型号二+juti+”“；adotable l.Filtered:=true;end;if (combobox3.1temlndex=3) thenbeginadotable l.Filtered:=false;adotablel .Filter:=仓库名称廿+juti+”；adotablel .Filtered:=true;end;end;end;procedure TForm3.Button5Click(Sender: TObject);beginadotable l.Filt

5、ered:=false;adotablel.Close;adotablel.Open;end;procedure TForm3.Button6Click(Sender: TObject);beginif (editl.Textn) and (edit2.Textn) and (edit3.Textn) and (edit4.Textn) and (edit5.Textn) and (edit6.Textn) and (edit7.Texton) and (combobox 1 .Textn) and (combobox2.TextH) thenbeginif application.Messa

6、geBox。确定要添加？超市仓库管理系统，mb_iconinformation + mb_yesno) = idyes thenbeginadotable 1 .InsertRecord(editl .Text,edit2.Text,edit3.Text,combobox 1 .Text,edit4.Text,edit5 .Text,co mbobox2.Text,edit6.Text,edit7.Text);adotablel.Close;adotablel.Open;showmessageC新商品添加成功);end;endelseshowmessage。信息未填全);end;end.uni

7、t Unit4;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ADODB, DB, StdCtrls, Grids, DBGrids, jpeg, ExtCtrls;typeTForm4 = class(TForm)Image 1: TImage;Label 1: TLabel;GroupBoxl: TGroupBox;GroupBox2: TGroupBox;DBGridkTDBGrid;DBGrid2: TDBGrid;Button 1: TB

8、utton;Button2: TButton;Button3: TButton;Button4: TButton;Editl: TEdit;Edit2: TEdit;Edit3: TEdit;Edit4: TEdit;Edit5: TEdit;DataSource 1: TDataSource;DataSource2: TDataSource;ADOConnection 1: TADOConnection;ADOTablel: TADOTable;ADOQueryl: TADOQuery;ADOQuery2: TADOQuery;ADOQuery3: TADOQuery;Label2: TLa

9、bel;Label 3: TLabel;Label4: TLabel;Label5: TLabel;Label6: TLabel;procedure Button 1 Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject);procedure Button4Click(Sender: TObject);procedure Edit3KeyUp(Sender: TObject; var Key: Word;Shift: TShiftState);p

10、rocedure DBGrid 1 CellClick(Column: TColumn);procedure FormShow(Sender: TObject);private Private declarations public Public declarations end;varForm4: TForm4;implementation$R*.dfmprocedure TForm4.Button 1 Click(Sender: TObject);beginif叩plication.MessageBoxf请确认是否要删除超市仓库管理系统，mb_iconinformation + mb_ye

11、sno) = idyes thenbeginadotablel .Delete;end;end;procedure TForm4.Button2Click(Sender: TObject);beginadotablel.Edit;end;procedure TForm4.Button3Click(Sender: TObject);beginadotablel.Post;showmessage(修改成功)；end;procedure TForm4.Button4Click(Sender: TObject);varcangku,dizhi,bianhaorstring;beginif (editl

12、 .Textn) and (edit2.Texton) and (edit3.Text) thenbegincangku:=editl .Text;dizhi:=edit2.Text;bianhao:=edit3.Text;adoqueryl.Close;adoqueryl.SQL.Text := Select * from 仓库信息表 where 仓库名称二+cangku+” ； adoqueryl.open;if not adoqueryl.Eof thenbeginMessageBox(handleJ此仓库名已存在!提示: mb_lconlnformation + mb_Ok);exit

13、;end;adoqueryl.Close;adoquery 1 .SQL.Text := select * from 员工信息表 where 编号=+bianhao+”;adoqueryl.open;if adoquery 1 .RecordCount = 0 thenbeginshowmessage,不存在此用户，请重新输入)；edit3.SetFocus;exit;end;if application.MessageBox(确定要添加新仓库？超市仓库管理系统，mb_iconinformation + mb_yesno) = idyes thenbeginadotablel .InsertR

14、ecord(cangku,dizhi,bianhao);adotablel.Close;adotablel.Open;showmessageC新仓库添加成功)；end;endelseshowmessage(信息未填全)；end;procedure TForm4.Edit3KeyUp(Sender: TObject; var Key: Word;Shift: TShiftState);varbianhao:string;beginbianhaoedit3.Text;with adoquery2 dobeginclose;sql.clear;sql.add(!select 姓名 from 员工信息

15、表 where 编号=+bianhao+)；open;edit4.Text:二Fieldbyname。姓名)AsString;close;sql.clear;sql.addCelect 电话 from 员工信息表 where 编号=+bianhao+)；open;edit5.Text:=Fieldbyname(电话)AsString;end;end;procedure TForm4.DBGrid 1 CellClick(Column: TColumn);vartemp:variant;workerld:string;begintemp:二DataSourcel. DataSet. FieldV

16、alues负责人编号workerlD:=VarToStr(temp);adoquery3.Close;adoquery3.SQL.Clear;adoquery3.SQL.Text:=，select编号，姓名，性别，电话，地址，出生日期，部门，职务from员工信息 表 where 编号=+workerid+”;adoquery3.Open;dbgrid2.Columns0.Width:=100;dbgrid2.Columns 1 .Width:=100;dbgrid2.Columns2 .Width:=100;dbgrid2.Columns3.Width:=100;dbgrid2.Columns

17、 4 .Width:=l 00;dbgrid2.Columns5.Width:=100;dbgrid2.Columns6.Width:=100;dbgrid2.Columns7.Width:=100;end;procedure TForm4.FormShow(Sender: TObject);beginadoconnection 1 TADOConnection.Create(nil);adoconnectionl.LoginPrompt:=false;adoconnection 1 .Connected:=false;adoconnection 1 .ConnectionString:=,P

18、rovider=SQLOLEDB.l ;Password=411114;Persist SecurityInfo=True;User ID=sa;Initial Catalog=天天；Data Source=win-rnskltmak91;Use Procedure for Prepare= 1;Auto Translate=True;Packet Size=4096;Workstation ID=WIN-RNSK 1TMAK9L1; adoconnection 1 .Connected:=true;adotablel:=TADOTable.Create(nil);adotablel .Con

19、nection:=adoconnectionl;adotable 1 .TableN ame:二仓库信息表； adotablel.Open;datasource 1 .DataSet:=adotablel;adoquery 1 :=TADOQuery.Create(nil);adoquery 1 .Connection:=adoconnection 1;adoquery2:=TADOQuery.Create(nil);adoquery2.Connection:=adoconnection 1;adoquery3.Connection:=adoconnectionl; end;end.unit

20、Unit5;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, ComCtrls, DBCtrls, DB, ADODBJPEG, ExtCtrls;typeTForm5 = class(TForm) GroupBoxl: TGroupBox;Label 1: TLabel;DBGridkTDBGrid;Buttonl: TButton;GroupBox2: TGroupBox;Label2: TLab

21、el;Editl: TEdit;Label 3: TLabel;RadioButton 1: TRadioButton;RadioButton2: TRadioButton;Label4: TLabel;Edit2: TEdit;Label5: TLabel;Edit3: TEdit;Label6: TLabel;DateTimePickerl: TDateTimePicker;Label?: TLabel;ComboBoxl: TComboBox;Label8: TLabel;Edit4: TEdit;Label9: TLabel;GroupBox3: TGroupBox;Label 10:

22、 TLabel;ComboBox2: TComboBox;Edit5: TEdit;Button2: TButton;Button3: TButton;ADOConnection 1: TADOConnection;ADOTablel:TADOTable;DataSource 1: TDataSource;OpenDialogl: TOpenDialog;Button5: TButton;Button6: TButton;Edit6: TEdit;Image 1: TImage;Image2: TImage;Label 11: TLabel;Button4: TButton;Button?:

23、TButton;procedure Button5Click(Sender: TObject);procedure FormShow(Sender: TObject);procedure Button6Click(Sender: TObject);procedure Button 1 Click(Sender: TObject);procedure DBGrid 1 CellClick(Column: TColumn);procedure Button4Click(Sender: TObject);procedure Button7Click(Sender: TObject);procedur

24、e Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject);private Private declarations public Public declarations end;varForm5: TForm5;implementationvarmyjpeg,myjpeg 1 :TJpegImage;tempstream,tempstream 1 :TMemoryStream;$R*.dfmprocedure TForm5.Button5Click(Sender: TObject);varbianhao,yu

25、angong,dianhua,dizhi,bumen,zhiwu,chusheng:string;xingbie:string;max:integer;beginif (editl.Textn) and (edit2.Textn)and (edit3.Texton) and (edit4.Texton) and(radiobutton 1 .Checked xor radiobutton2.Checked) and(combobox l.Textn) thenbeginyuangong:=editl .Text;bianhao:=edit6.Text;dianhua:=edit2.Text;d

26、izhi:=edit3.Text;bumen:=combobox 1 .Text;zhiwu:=edit4.Text;chusheng:= datetostr(datetimepickerl.date);if radiobutton 1 .Checked=true thenxingbie:=男elsexingbie:=女；adotablel.InsertRecord(bianhao,yuangong,xingbie,dianhua,NULL,dizhi,chusheng,bumen,zhiwu )；adotablel.Edit;tempstream.Clear;myj peg .S aveTo

27、Stream(tempstream);tblobfield(adotablel.FieldByName(,H?t ,).LoadFromStream(tempstream);adotablel.Post;showmessage,新建用户添加成功)max:=0;adotablel .First; /返回到表格第一行while not adotable 1 .Eof do 如果表格还没到最后行beginif adotablel.FieldByName(编号)Aslnteger max thenmax:= adotable LFieldByNameC 编号).AsInteger;adotable 1

28、 .Next;/下一行end;max:二max+1;edit6.Text:=format(1%.5d,max);/格式化输出函数 格式指令必须以%开始，不区分大小 写adotablel.Close;adotablel.Open;editl.Clear;edit2.Clear;edit3.Clear;edit4.Clear;combobox 1.Clear;radiobutton 1 .Checked:=false;radiobutton2.Checked:=false;endelseshowmessage(信息填写不全);end;procedure TForm5.FormShow(Sender

29、: TObject);varmax integer;beginmax-0;adotablel.First;while not adotablel.Eof dobeginif adotablelFieldByName(编号)AsInteger max thenmax- adotablel .FieldByName，编号)Aslnteger;adotablel.Next;end;maxmax+l;edit6.Text:=format(%.5d,max);adoconnection 1 :=TADOConnection.Create(nil);adoconnection 1 .LoginPrompt

30、:=faIse;adoconnection 1 .Connected:=false;adoconnection 1 .ConnectionString-Provider=SQLOLEDB.l ;Password=411114;Persist SecurityInfo=True;User ID=sa;Initial Catalog二天天;Data Source=WIN-RNSK 1TMAK9L*;adoconnection 1 .Connected:=true;adotable 1 :=TADOTable.Create(nil);adotable 1 .Connection:=adoconnec

31、tion 1;adotable 1 .TableN ame:=，员工信息表:adotablel.Open;datasource 1 .DataSetadotabIe 1;tempstream:=TMemoryStream.Create;myjpeg:=TJpeg!mage.Create;tempstream 1 :=TMemoryStream.Create;myjpeg 1 TJpegImage.Create;image! .Visible:=true;image2.visible:=true;combobox 1 .Items. Add，宣传部)；combobox 1 .Items. Add

32、(财务部)；combobox 1 .Items. Add。活动部，)；combobox 1 .Items. Add(办公室)；end;procedure TForm5.Button6Click(Sender: TObject);beginopendialog l.Filter:=,(*.jpg)|*.jpg,;if OpenDialog 1 .Execute thenbeginmyjpeg.LoadFromFile(opendialog l.FileName);image2.Picture.Bitmap.Assign(myjpeg);image2.Visible:=true;end;end;p

33、rocedure TForm5.ButtonlClick(Sender: TObject);varmax: integer;beginif叩plication.MessageBoxC请确认是否要删除超市仓库管理系统；mb_iconinformation + mb_yesno) = idyes thenbeginadotablel.Delete;max:=0;adotablel.First;while not adotablel.Eof dobeginif adotablel .FieldByName，编号)AsInteger max thenmax:= adotable 1 .FieldByN

34、ame(!).Aslnteger;adotablel.Next;end;max:=max+l;edit6.Text:=format(%.5d,max);end;end;procedure TForm5.DBGridlCellClick(Column: TColumn);begintempstream 1 .Clear;if not datasource 1 .DataSet.FieldByName，照片)IsNull thenbegin保存图像tblobfield(datasource 1 .DataSet.FieldBy Name(照片,).SaveToStream(tempstream 1

35、);yonghu:string;beginyonghu:=trim(edit 1 .Text);/trim 去除字符串空格count:=count+1 ;登陆次数with adoqueryl dobeginClose;SQL.Clear;SQL.text:二select * from 用户信息表 where 用户名二“+yonghu+;open;if (adoQuery 1 .RecordCountoO) and (edit2.TextoH) and (adoQueryl.FieldByName(密码 ).AsString= edit2.Text) thenbeginif adoQueryLF

36、ieldByNameC是否管理员)A理tring =True thenbeginform!2.SpeedButtonl.Visible:=true;forml2.Buttonl3.Visible:=true;application.MessageBox(密码正确，即将进入系统。？提示:mb_ok);form 1.Hide;form 12. Show;endelsebeginform 12,SpeedButton l.Visible:=false;form 12. B utton 13. Visible:=false;application.MessageBoxf密码正确,即将进入系统。？提示；

37、mb_ok);form 1.Hide;form 12.Show;end;endelsebeginif (count=l) thenbeginapplication.MessageBox，用户名或密码错误，还剩2次机会？提示;mb_ok);editl.SetFocus;/光标是向左对齐的 也就是在编辑框的最左边end;if(count=2) thenbeginapplication. MessageBox，您还有最后一次机会，请仔细核对用户名和密码？提示mb_ok);editl.Clear; edit2.clear;tempstream l.Position-0;myjpeg 1 .LoadFr

38、omStream(tempstream 1);image 1 .Picture.Bitmap. Assign(myjpeg 1);image 1 .Visibletrue;endelseapplication.MessageBoxC无照片!提示,MB_ICONWARNING); 警告图标 adotablel.Edit;end;procedure TForm5.Button4Click(Sender: TObject);beginadotablel.Edit;end;procedure TForm5.Button7Click(Sender: TObject);beginadotablel.Pos

39、t;showmessage(修改成功)；end;procedure TForm5.Button2Click(Sender: TObject);vartemp:string;juti:string;beginjuti:=edit5.Text;if(combobox2.TextH)and(edit5.TextM) thenbeginif (combobox2.1temlndex=0) thenbeginadotable l.Filtered:=false;adotablel. Filter:后编号廿+juti+”;adotable l.Filtered:=true;end;if (combobox

40、2.1temlndex= 1) thenbeginadotable l.Filtered:=false;temp:=trim(%+juti+%);adotable 1 .Filter:二姓名 like +temp+”;adotable l.Filtered:=true;end;if (combobox2.1temlndex=2) thenbeginadotable l.Filteredfalse;adotable 1 .Filter:=部门=+juti+”；adotable l.Filtered:=true;end;endelseshowmessage。请填写查询条件);end;procedu

41、re TForm5.Button3Click(Sender: TObject);beginadotable l.Filtered:=false;adotable 1.Close;adotable 1.Open;end;end.unit Unit6;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, jpeg, ExtCtrls, ADODB, DB;typeTForm6 = class(TForm)Im

42、age 1: TImage;Label 1: TLabel;GroupBoxl: TGroupBox;DBGridkTDBGrid;Button 1: TButton;Button2: TButton;Button3: TButton;GroupBox2: TGroupBox;Label 2: TLabel;Label3: TLabel;Label4: TLabel;Label5: TLabel;Label6: TLabel;Label?: TLabel;Label8: TLabel;Button4: TButton;Editl: TEdit;Edit2: TEdit;Edit3: TEdit

43、;Edit4: TEdit;Edit5: TEdit;Edit6: TEdit;Edit7: TEdit;GroupBox3: TGroupBox;Label9: TLabel;ComboBoxl: TComboBox;Edit8: TEdit;Button5: TButton;Button6: TButton;ADOConnection 1: TADOConnection;ADOTablel: TADOTable;DataSource 1: TDataSource;ADOQueryl: TADOQuery;procedure Button lClick(Sender: TObject);pr

44、ocedure Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject);procedure Button4Click(Sender: TObject);procedure Button5Click(Sender: TObject);procedure Button6Click(Sender: TObject);private Private declarations public Public declarations end;varForm6: TForm6;implementation$R*.dfmproc

45、edure TForm6.Button 1 Click(Sender: TObject); varmax: integer;beginif application.MessageBoxC确定要删除此供应商？；超市仓库管理系统mb_iconinformation + mb_yesno) = idyes thenadotablel.Delete;max:=0;adotablel.First;while not adotablel.Eof dobeginif adotablel.FieldByName，供应商编号).AsInteger max thenmax:= adotable 1 .FieldByName。供应商编号).Aslnteger;adotablel.Next;end;max-max+l;edit8.Text:=format(%.3d,max); /生成 3 位整数 end;procedure TForm6.Button2Clic