login.pas

一个下设单位的局部网络终端数据录入软件。

unit Login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxButtons, dxCore, StdCtrls, ExtCtrls,DD;

type
  Tdlform = class(TForm)
    Label1: TLabel;
    EdtPwd: TEdit;
    BtnOk: TdxButton;
    BtnCancel: TdxButton;
    Label2: TLabel;
    Bevel1: TBevel;
    Image1: TImage;
    dlcombox: TComboBox;
    Label3: TLabel;
    procedure dxToolButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BtnOkClick(Sender: TObject);
    procedure BtnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dlform: Tdlform;

  dim:integer;


implementation

{$R *.dfm}

procedure Tdlform.dxToolButton1Click(Sender: TObject);
begin
  close;
end;

procedure Tdlform.FormCreate(Sender: TObject);
var
   ss:string;
begin
       dim:=0;
       ss:='';
       With DataModuleSCH.Query1 do begin
          if active then close;
          SQL.Clear;
          SQL.Text:='select SN,NAME from SCH_LOGIN order by SN';
          Open;
          while not EOF    do begin
              ss:=trim(FieldbyName('NAME').asstring); 
              if ss<>'' then
                dlcombox.Items.Add(ss);
              next;
         end;
         
     end;
end;

procedure Tdlform.BtnOkClick(Sender: TObject);
begin
      with datamodulesch.Query1 do begin
           if active then close;
           sql.Clear;
           sql.Text:='select * from sch_login where NAME=';
           sql.Add(''''+dlcombox.Text+''''+'and PWD=');
           sql.Add(''''+trim(edtpwd.Text)+'''');
           open;
           if isempty then begin
               dim:=dim+1;
               label3.Caption:='登陆'+inttostr(dim)+'次错误，三次退出。';
               if dim>3 then  begin
                  showmessage('三次登陆错误,软件将关闭.');
                  Application.Terminate;
               end;
               EdtPwd.Text :='';
           end
           else
               begin
                  //showmessage(edtpwd.Text);
                  label3.Caption:='信息管理中心承建开发';
                  ModalResult:=mrOK;
               end;
      end;
end;

procedure Tdlform.BtnCancelClick(Sender: TObject);
begin
     close;
     Application.Terminate;
end;

end.