?? u_login.pas
字號:
unit U_login;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, Buttons, DB, ADODB, DosMove;
type
TF_login = class(TForm)
ScrollBox1: TScrollBox;
ScrollBox2: TScrollBox;
StaticText1: TStaticText;
StaticText2: TStaticText;
StaticText3: TStaticText;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
MaskEdit1: TMaskEdit;
MaskEdit2: TMaskEdit;
MaskEdit3: TMaskEdit;
ADODataSet1: TADODataSet;
DosMove1: TDosMove;
ScrollBox3: TScrollBox;
StaticText4: TStaticText;
StaticText5: TStaticText;
MaskEdit4: TMaskEdit;
MaskEdit5: TMaskEdit;
StaticText6: TStaticText;
MaskEdit6: TMaskEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtn3Click(Sender: TObject);
procedure MaskEdit3Enter(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure MaskEdit1Enter(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
flag,flag1:boolean;
end;
var
F_login: TF_login;
vflag:boolean;
implementation
uses U_main,UDM;
{$R *.dfm}
procedure TF_login.FormClose(Sender: TObject; var Action: TCloseAction);
begin
F_login:=nil;
end;
procedure TF_login.BitBtn3Click(Sender: TObject);
begin
//close;
flag:=true;
flag1:=true;
end;
procedure TF_login.MaskEdit3Enter(Sender: TObject);
begin
SELF.ADODataSet1.Active:=FALSE;
SELF.ADODataSet1.Active:=TRUE;
IF not ADODataSet1.Locate('user_no',self.MaskEdit1.Text,[]) THEN
BEGIN
SHOWMESSAGE('用戶編號輸入錯誤!');
SELF.MaskEdit1.SetFocus;
SELF.MaskEdit2.Text:='';
END
ELSE
begin
SELF.MaskEdit2.Text:=SELF.ADODataSet1.FIELDBYNAME('USER_NM').AsString;
self.BitBtn1.Enabled:=true;
self.BitBtn2.Enabled:=true;
end;
end;
procedure TF_login.BitBtn1Click(Sender: TObject);
begin
if vflag then
begin
if self.ADODataSet1.FieldByName('password').AsString<>self.MaskEdit3.Text then
begin
showmessage('對不起密碼輸入錯誤!');
self.MaskEdit3.SetFocus;
flag:=false;
flag1:=false;
exit;
end
else
begin
flag:=true;
flag1:=false;
f_main.vuser_no:=self.MaskEdit1.Text;
f_main.vuser_nm:=self.ADODataSet1.fieldbyname('user_nm').AsString;
f_main.vfac_no:=self.ADODataSet1.fieldbyname('fac_no').AsString;
f_main.vadministrator:=self.ADODataSet1.fieldbyname('administrator').AsString;
end;
end
else
begin
if self.ADODataSet1.FieldByName('password').AsString<>self.MaskEdit6.Text then
begin
showmessage('對不起密碼輸入錯誤!');
self.MaskEdit6.SetFocus;
flag:=false;
flag1:=false;
exit;
end;
if self.MaskEdit4.Text<>self.MaskEdit5.Text then
begin
showmessage('更改密碼前后不一致!');
self.MaskEdit5.SetFocus;
exit;
end;
try
self.ADODataSet1.Edit;
self.ADODataSet1.FieldByName('password').Value:=self.MaskEdit4.Text;
self.ADODataSet1.UpdateBatch(arall);
self.ScrollBox3.Visible:=false;
vflag:=true;
self.BitBtn2.Caption:='修改密碼';
self.MaskEdit3.Text:=self.MaskEdit4.Text;
except
showmessage('密碼更新失敗!');
end;
end;
end;
procedure TF_login.FormCreate(Sender: TObject);
begin
flag:=false;
flag1:=false;
self.ScrollBox3.Visible:=false;
vflag:=true;
end;
procedure TF_login.MaskEdit1Enter(Sender: TObject);
begin
self.BitBtn1.Enabled:=false;
self.BitBtn2.Enabled:=false;
end;
procedure TF_login.BitBtn2Click(Sender: TObject);
begin
if vflag then
begin
self.BitBtn2.Caption:='取消';
self.ScrollBox3.Top:=0;
self.ScrollBox3.Left:=0;
self.ScrollBox3.Visible:=true;
vflag:=false;
self.MaskEdit6.SetFocus;
end
else
begin
self.ScrollBox3.Visible:=false;
self.BitBtn2.Caption:='更改密碼';
self.ScrollBox3.Visible:=false;
vflag:=true;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -