【delphi开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-Logon_pas.pas的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
unit Logon_pas;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, DB, ADODB, DBTables, Buttons, Mask, DBCtrls;
type
TLogon = class(TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Password: TEdit;
Button1: TButton;
Button2: TButton;
Panel1: TPanel;
Panel2: TPanel;
UserName: TComboBox;
procedure Button2Click(Sender: TObject);
procedure PasswordKeyPress(Sender: TObject; var Key: Char);
procedure Button1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure UserNameChange(Sender: TObject);
procedure UserNameDropDown(Sender: TObject);
private
iTimes: Integer; // 输入次数计数
year, month, day, Hour, Min, Sec, MSec: word; //记录当前的日期和时间
{ Private declarations }
public
{ Public declarations }
end;
var
Logon: TLogon;
implementation
uses Main, DMUnit, PublicFunction;
{$R *.dfm}
procedure TLogon.Button2Click(Sender: TObject);
begin
Application.Terminate; //结束该程序
end;
procedure TLogon.Pass
wordKeyPress(Sender: TObject; var Key: Char);
begin
if (key = #13) then //当输入完密码,敲入回车键,Button1执行单击操作
Button1Click(Sender);
end;
procedure TLogon.Button1Click(Sender: TObject);
begin
Inc(iTimes);
MainForm.Auser.UserID := DM.tbInput.FieldByName('UserID').AsString;
MainForm.Auser.UserName := DM.tbInput.FieldByName('UserName').AsString;
if DM.tbInput.FieldByName('UserID').AsString = '' then
MyInformation('没有存在用户,请预先设定好用户');
if Trim(Password.Text) = DM.tbInput.FieldByName('PasswordCode').AsString then
begin
Close;
MainForm.Caption := '商场进货渠道管理 ';
DecodeDate(now, year, month, day);
DecodeTime(Now, Hour, Min, Sec, MSec);
DM.UserLogin.Open;
DM.UserLogin.Append;
//记录登陆用户名
DM.UserLogin.FieldByName('UserName').AsString := MainForm.Auser.UserName;
//记录
登陆日期
DM.UserLogin.FieldByName('LoginDate').AsString := IntToStr(year) + '年' +
IntToStr(Month) + '月' + IntToStr(day) + '日';
DM.UserLogin.FieldByName('LoginTime').AsString := IntToStr(Hour) + '时' +
IntToStr(Min) + '分' + IntToStr(sec) + '秒';
DM.UserLogin.Post;
DM.UserLogin.Last
end
else
MyError('使用者代号或通行密码错误,请重新输入!' + #10#13 +
'并请确定您有进入的权限。');
if iTimes = 3 then
begin
MyError('您进行系统身份确认
程序错误已经超过3次,本
系统将停止执行!');
Application.Terminate;
end;
UserName.SetFocus;
end;
procedure TLogon.FormShow(Sender: TObject);
begin
UserName.SetFocus;
end;
procedure TLogon.UserNameChange(Sender: TObject);
begin
DM.tbInput.Locate('userName', UserName.text, [])
end;
procedure TLogon.UserNameDropDown(Sender: TObject);
var
i: Integer;
begin
UserName.Clear; //清除里面的内容
if (DM.tbInput.RecordCount > 0) then
DM.tbInput.First;
for i := 0 to DM.tbInput.recordcount - 1 do
begin //得到所有的客户名称
UserName.Items.Add(DM.tbInput.FieldByName('UserName').AsString);
DM.tbInput.Next;
end;
end;
end.