login.pas

此程序可供初学者学习参考

unit login;

interface

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

type
  TLoginFrm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    btnok: TSpeedButton;
    btncancel: TSpeedButton;
    Image1: TImage;
    ADOQuery1: TADOQuery;
    procedure FormShow(Sender: TObject);
    procedure btncancelClick(Sender: TObject);
    procedure btnokClick(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LoginFrm: TLoginFrm;

implementation

uses Data,Main;

{$R *.dfm}

procedure TLoginFrm.FormShow(Sender: TObject);
var
str : string;
begin
    Datafrm.con.ConnectionString :=
            'FILE NAME='+ExtractFilePath(Application.ExeName)+'connect.udl';
      // showmessage(Datafrm.con.ConnectionString);
         Datafrm.CON.Connected :=True;
    //-------------------------     
    str:=datetostr(date());
    with ADOQuery1 do
    begin
    close;
    sql.Text:='select comtime,comdocument,combeep from clientdetails where comtime='''+Str+''' and combeep= ''1'' ';
    //showmessage(sql.Text);
    open;
    if ADOQuery1.RecordCount>0 then
    begin
        with  ADOQuery1 do
        begin
           while not Eof do
           begin
           showmessage(fieldbyname('comdocument').AsString);
           Next
           end;
        end;
    end;
    
    end;


end;

procedure TLoginFrm.btncancelClick(Sender: TObject);
begin
    Application.Terminate;
end;

procedure TLoginFrm.btnokClick(Sender: TObject);
var
   systemini :TIniFile ;
   name,pass :String ;
begin
   systemini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'system.ini');
   name:=systemini.Readstring('user','name','');
   pass:=systemini.Readstring('user','pass','');
   if (trim(Edit1.Text)<>name) then
        showmessage('输入的用户不正确!请重新输入!')
   else
       if (trim(Edit2.Text)<>pass)  then
       begin
       showmessage('输入的密码错误,请确认密码!') ;
       edit2.Clear;
       end
           else
           begin
           MainFrm.Show;
           LoginFrm.Hide;
           end;

end;

procedure TLoginFrm.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
   begin
   key:=#0;
   btnok.Click;
   end;
end;

procedure TLoginFrm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
   begin
   key:=#0;
   edit2.SetFocus;
   end;
end;

end.