【delphi开源代码栏目提醒】:本文主要为网学会员提供Flash.pas,希望对需要Flash.pas网友有所帮助,学习一下!
unit Flash;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls, Buttons, RzPanel;
type
TPOSLoginForm = class(TForm)
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
RzGroupBox1: TRzGroupBox;
Label1: TLabel;
Label2: TLabel;
E_UserID: TEdit;
E_Password: TEdit;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
POSLoginForm: TPOSLoginForm;
implementation
uses inc, POSIIDM;
{$R *.dfm}
procedure TPOSLoginForm.SpeedButton1Click(Sender: TObject);
var
p:string;
begin
with DM.HumanResQuery do begin
Close;
SQL.Clear;
SQL.Add('select * from Employees where E_EXIST=0');
Open;
if Eof then begin
Append;
FieldValues['E_NAME']:='administrator';
FieldValues['E_POPEDOM']:='管理员';
FieldValues['E_SEX']:='男';
FieldValues['E_PASSWORD']:='';
FieldValues['E_PHONE']:='';
FieldValues['E_ADDR']:='';
FieldValues['E_AGE']:='';
FieldValues['E_EMAIL']:='';
FieldValues['E_INTRODUCTION']:='';
FieldValues['E_P_SCOPE']:='';
Post;
end;
Close;
SQL.Clear;
SQL.Add('select E_ID,E_POPEDOM from Employees where E_EXIST=0 AND E_NAME='''+E_UserID.Text+''' and E_PASSWORD='''+E_Pass
word.Text+'''');
Open;
if not Eof then begin
UserID :=FieldValues['E_ID'];
UserName:=E_UserID.Text;
Popedom :=FieldValues['E_POPEDOM'];
p:=DM.IndicateNum;
if p<>'' then
MessageDlg(p, mtInformation,[mbOk], 0);
end else begin
MessageDlg('你输入的用户和密码有错误,请重新输入!', mtInformation,[mbOk], 0);
Exit;
end;
end;
with DM.vADOQuery do begin
Close;
SQL.Clear;
SQL.Add('UPDATE Employees Set E_ONLINE=1 where E_ID='+UserID);
ExecSQL;
end;
Close;
end;
procedure TPOSLoginForm.SpeedButton2Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TPOSLoginForm.FormShow(Sender: TObject);
begin
//POSLoginForm.Caption :=POSLoginTitle;
end;
end.