仓库管理系统delphi源码（DOC68页）-豆柴文库

您所在位置：网站首页 / 仓库管理系统delphi源码（DOC68页）.doc / 文档详情

免费试读已结束，剩余 63 页请下载文档后查看

10 金币

下载文档

/ 68

下载提示

如果您无法下载资料，请参考说明：

1、部分资料下载需要金币，请确保您的账户上有足够的金币

2、已购买过的文档，再次下载不重复扣费

3、资料包下载后请先用软件解压，在使用对应软件打开

文本预览

unitUnit1;

interface

uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls,DB,ADODB,jpeg,ExtCtrls;

type
TForm1=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}
public
count:integer;
{Publicdeclarations}
end;

var
Form1:TForm1;

implementation

usesUnit12,Unit19;

{$R*.dfm}

procedureTForm1.Button1Click(Sender:TObject);
var
yonghu:string;
begin
yonghu:=trim(edit1.Text);//trim去除字符串空格
count:=count+1;//登陆次数
withadoquery1do
begin
Close;
SQL.Clear;
SQL.text:='select*from用户信息表where用户名='''+yonghu+'''';
open;
if(adoQuery1.RecordCount<>0)and(edit2.Text<>'')and(adoQuery1.FieldByName('密码').AsString=edit2.Text)then
begin
ifadoQuery1.FieldByName('是否管理员').AsString='True'then
begin
form12.SpeedButton1.Visible:=true;
form12.Button13.Visible:=true;
application.MessageBox('密码正确，即将进入系统。','提示',mb_ok);
form1.Hide;
form12.Show;
end
else
begin
form12.SpeedButton1.Visible:=false;
form12.Button13.Visible:=false;
application.MessageBox('密码正确，即将进入系统。','提示',mb_ok);
form1.Hide;
form12.Show;
end;
end
else
begin
if(count=1)then
begin
application.MessageBox('用户名或密码错误,还剩2次机会','提示',mb_ok);
edit1.SetFocus;//光标是向左对齐的也就是在编辑框的最左边
end;
if(count=2)then
begin
application.MessageBox('您还有最后一次机会,请仔细核对用户名和密码','提示',mb_ok);
edit1.Clear;
edit2.clear;
edit1.SetFocus;
end;
if(count=3)then
begin
application.MessageBox('密码错误超过三次系统即将关闭','提示',mb_ok);
application.Terminate;//退出程序
end;
end;
end;
end;

procedureTForm1.Button2Click(Sender:TObject);
begin
application.Terminate;
end;


procedureTForm1.Button3Click(Sender:TObject);
begin
form19.ShowModal;
end;

End.
unitUnit2;

interface

uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms