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

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,DB,ADODB,jpeg,ExtCtrls;typeTForm1=class(TForm)ADOConnection1:TADOConnection;ADOQuery1:TADOQuery;Edit1:TEdit;Edit2:TEdit;Button1:TButton;Button2:TButton;ADOTable1:TADOTable;Image1:TImage;Label1:TLabel;Label2:TLabel;Label3:TLabel;Label4:TLabel;Button3:TButton;procedureButton1Click(Sender:TObject);procedureButton2Click(Sender:TObject);procedureButton3Click(Sender:TObject);private{Privatedeclarations}publiccount:integer;{Publicdeclarations}end;varForm1:TForm1;implementationusesUnit12,Unit19;{$R*.dfm}procedureTForm1.Button1Click(Sender:TObject);varyonghu:string;beginyonghu:=trim(edit1.Text);//trim去除字符串空格count:=count+1;//登陆次数withadoquery1dobeginClose;SQL.Clear;SQL.text:='select*from用户信息表where用户名='''+yonghu+'''';open;if(adoQuery1.RecordCount0)and(edit2.Text'')and(adoQuery1.FieldByName('密码').AsString=edit2.Text)thenbeginifadoQuery1.FieldByName('是否管理员').AsString='True'thenbeginform12.SpeedButton1.Visible:=true;form12.Button13.Visible:=true;application.MessageBox('密码正确，即将进入系统。','提示',mb_ok);form1.Hide;form12.Show;endelsebeginform12.SpeedButton1.Visible:=false;form12.Button13.Visible:=false;application.MessageBox('密码正确，即将进入系统。','提示',mb_ok);form1.Hide;form12.Show;end;endelsebeginif(count=1)thenbeginapplication.MessageBox('用户名或密码错误,还剩2次机会','提示',mb_ok);edit1.SetFocus;//光标是向左对齐的也就是在编辑框的最左边end;if(count=2)thenbeginapplication.MessageBox('您还有最后一次机会,请仔细核对用户名和密码','提示',mb_ok);edit1.Clear;edit2.clear;edit1.SetFocus;end;if(count=3)thenbeginapplication.MessageBox('密码错误超过三次系统即将关闭','提示',mb_ok);application.Terminate;//退出程序end;end;end;end;procedureTForm1.Button2Click(Sender:TObject);beginapplication.Terminate;end;procedureTForm1.Button3Click(Sender:TObject);beginform19.ShowModal;end;End.unitUnit2;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,Grids,DBGrids,jpeg,ExtCtrls,DB,ADODB;typeTForm2=class(TForm)Image1:TImage;Label1:TLabel;GroupBox1:TGroupBox;DBGrid1:TDBGrid;Button1:TButton;GroupBox2:TGroupBox;GroupBox3:TGroupBox;GroupBox4:TGroupBox;Label3:TLabel;Label4:TLabel;Edit1:TEdit;Edit2:TEdit;Label5:TLabel;RadioButton1:TRadioButton;RadioButton2:TRadioButton;Button2:TButton;Label6:TLabel;Label7:TLabel;Edit3:TEdit;RadioButton3:TRadioButton;RadioButton4:TRadioButton;Button3:TButton;ADOConnection1:TADOConnection;ADOTable1:TADOTable;ADOQuery1:TADOQuery;ADOQuery2:TADOQuery;DataSource1:TDataSource;procedureButton1Click(Sender:TObject);procedureButton2Click(Sender:TObject);procedureButton3Click(Sender:TObject);procedureFormShow(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm2:TForm2;implementation{$R*.dfm}procedureTForm2.Button1Click(Sender:TObject);beginifapplication.MessageBox('请确认是否要删除','超市仓库管理系统',mb_iconinformation+mb_yesno)=idyesthen//MB_ICONINFORMATION是显示出的对话框里会有一个“i”图标,mb_yesno同时显示确定和取消按钮，idyes单击”是“按钮ADOtable1.Delete;end;procedureTForm2.Button2Click(Sender:TObject);varyonghuming,mima:string;quanxian:boolean;beginif(edit1.Text'')and(edit2.Text'')and(radiobutton1.Checkedxorradiobutton2.Checked)thenbeginyonghuming:=edit1.Text;adoquery1.Close;adoquery1.SQL.Text:='select*from用户信息表where用户名='''+yonghuming+'''';adoquery1.open;ifnotadoquery1.Eofthen//判断表是否为空beginMessageBox(handle,'此用户名已存在!','提示',mb_IconInformation+mb_Ok);exit;end;mima:=edit2.Text;ifradiobutton1.Checked=truethenquanxian:=trueelsequanxian:=false;adotable1.InsertRecord([yonghuming,mima,quanxian]);adotable1.Close;//把ADOTable控件对应的数据源关闭adotable1.Open;//重新打开ADOTable控件对应的数据源，这样做的目的是刷新数据源showmessage('新建用户添加成功');edit1.Clear;edit2.Clear;radiobutton1.Checked:=false;radiobutton2.Checked:=false;endelseshowmessage('信息填写不全');end;procedureTForm2.Button3Click(Sender:TObject);varyonghuming:string;quanxian:boolean;beginif(edit3.Text'')and(radiobutton3.Checkedxorradiobutton4.Checked)thenbeginyonghuming:=edit3.Text;adoquery1.Close;adoquery1.SQL.Text:='select*from用户信息表where用户名='''+yonghuming+'''';adoquery1.open;ifadoquery1.RecordCount=0thenbeginshowmessage('不存在此用户，请重新输入');edit3.SetFocus;exit;end;ifradiobutton3.Checked=truethenquanxian:=trueelsequanxian:=false;ifapplication.MessageBox('请确认是否要修改','超市仓库管理系统',mb_iconinformation+mb_yesno)=idyesthenbeginadotable1.Locate('用户名',yonghuming,[]);adotable1.Edit;adotable1['是否管理员']:=quanxian;adotable1.Post;adotable1.Close;adotable1.Open;//更改一个已经从数据库中读取的数据库表格showmessage('修改成功');end;endelseshowmessage('信息填写不全');end;procedureTForm2.FormShow(Sender:TObject);beginadoconnection1:=TADOConnection.Create(nil);////动态创建ADO控件adoconnection1.LoginPrompt:=false;//如果不加这句的话，每次连接数据库时都会跳出一个身份验证对话框，要求你输入用户名和密码adoconnection1.Connected:=false;//释放连接adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;InitialCatalog=天天;DataSource=WIN-RNSK1TMAK9L';adoconnection1.Connected:=true;adotable1:=TADOTable.Create(nil);adotable1.Connection:=adoconnection1;adotable1.TableName:='用户信息表';adotable1.Open;datasource1.DataSet:=adotable1;adoquery1:=TADOQuery.Create(nil);adoqu