unitlogin.pas

DELPHI应用一则

unit UnitLOGIN;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, jpeg, dxCntner, dxEditor, dxEdLib, ActnList;

type
  TFormLOGIN = class(TForm)
    BBqd: TBitBtn;
    BBfq: TBitBtn;
    Label3: TLabel;
    Label2: TLabel;
    Label1: TLabel;
    Image1: TImage;
    EDczydm: TdxEdit;
    EDczykl: TdxEdit;
    ActionList1: TActionList;
    Action1: TAction;
    Label4: TLabel;
    procedure BBqdClick(Sender: TObject);
    procedure BBfqClick(Sender: TObject);
    procedure EDczydmEnter(Sender: TObject);
    procedure EDczydmKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EDczyklKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormLOGIN: TFormLOGIN;

implementation

uses UnitMain, Udm;

{$R *.DFM}

procedure TFormLOGIN.BBqdClick(Sender: TObject);
begin
  if EDczydm.Text<>'' then
  begin
    with DM.ADOtemp do                      
    begin
      close;
      with SQL do
      begin
        clear;
        add('SELECT czydm, czyxm, czykl FROM userpass');
        add('where czydm = :Vczydm');
        Parameters.ParamByName('Vczydm').Value:=EDczydm.Text;
      end;
      Prepared;
      open;
    end;
    if DM.ADOtemp.fields[0].AsString <> '' then
    begin
      if (DM.ADOtemp.fields[2].asstring=EDczykl.Text) then
      begin
        DM.Hczydm:=DM.ADOtemp.fields[0].asstring;
        DM.Hczy:=DM.ADOtemp.fields[1].asstring;

        FormLogin.Hide;
        FormMain.showmodal;
      end
      else
      begin
        messagebox(0,'操作员口令错误!!','系统提示',MB_OK+MB_iconinformation);
        EDczykl.Text:='';
        EDczykl.SetFocus;
      end;
    end
    else
    begin
      messagebox(0,'操作员代码未发现!!','系统提示',MB_OK+MB_iconinformation);
      EDczydm.SetFocus;
    end;
  end
  else
    Edczydm.SetFocus;
end;

procedure TFormLOGIN.BBfqClick(Sender: TObject);
begin
  application.Terminate;
end;

procedure TFormLOGIN.EDczydmEnter(Sender: TObject);
begin
  EDczydm.Text:='';
  EDczykl.Text:='';
end;

procedure TFormLOGIN.EDczydmKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=$0D then
    EDczykl.SetFocus;
end;

procedure TFormLOGIN.EDczyklKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
 BBqdClick(Sender);
end;

procedure TFormLOGIN.FormShow(Sender: TObject);
begin
 EDczydm.SetFocus;
end;

End.