【delphi开源代码栏目提醒】:网学会员delphi开源代码为您提供LogOn.pas参考,解决您在LogOn.pas学习中工作中的难题,参考学习。
unit LogOn; //软件登录界面窗体项目
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, Mask, DBCtrls;
type
TLogOnFrm = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
DBComboBox1: TDBComboBox;
procedure BitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
LogOnFrm: TLogOnFrm;
times:integer;
implementation
uses DataModule,Main;
{$R *.dfm}
procedure TLogOnFrm.BitBtn1Click(Sender: TObject);
var
s:string;
begin
with DM.ADOQuery1 do
begin
close;
SQl.Clear;
SQL.Add('Select User_Popedom,User_Password from Archives_User where'+' User_ID='+DBComboBox1.Text+' and'+' User_Password'+'='+Edit1.text);
open;
end;
times:=times+1;
if DM.ADOQuery1.RecordCount<1 then
begin
MessageDlg('密码不对',mtWarning,[mbOk],0);
edit1.Clear;
edit1.SetFocus;
if times>3 then
begin
showmessage('密码不对!请联系管理员获取密码再登录!');
LogOnFrm.Close;
end;
end
else
if DM.ADOQuery1.FieldValues['User_Popedom']<>'A' then
begin
showmessage('密码正确!你是合法用户!你具有访问和修改个人资料的权限!');
//将数据库的位置定位到用户资料
// PersonnelData.Personnel_infoADOTable.Locate('EmployeeID',DBComboBox1.Text,[]);
// if MainFrm=nil then
// Application.CreateForm(TMainFrm, MainFrm); //创建窗口
// MainFrm.Show;
end
else
begin
s:='密码正确!你拥有管理员的权限,可以增加用户、删除用户';
showmessage(s);
if MainFrm=nil then
Application.CreateForm(TMainFrm, MainFrm); //创建窗口
MainFrm.Show;
end;
end;
procedure TLogOnFrm.FormCreate(Sender: TObject);
begin
times:=1;
end;
procedure TLogOnFrm.BitBtn2Click(Sender: TObject);
begin
LogOnFrm.Close;
end;
end.
上一篇:
Globlefun.cpp
下一篇:
还记得,那年的风车吗?