login.pas

服务信息管理系统

unit login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, Buttons, DBTables, DB, StdCtrls, LbButton;
type
  Tloginform = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    DateTimePicker1: TDateTimePicker;
    czyQuery: TQuery;
    BitBtnOK: TLbButton;
    BitBtnCancel: TLbButton;
    procedure BitBtnCancelClick(Sender: TObject);
    procedure BitBtnOKClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Edit2Exit(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  loginform: Tloginform;
implementation
uses mainform;
{$R *.dfm}

procedure Tloginform.BitBtnCancelClick(Sender: TObject);
begin
  LoginFlag := False;
  Close;
end;

procedure Tloginform.BitBtnOKClick(Sender: TObject);
begin
  if Trim(Edit1.TEXT) = '' then
    begin
      MessageBox(handle, '用户名为空，请输入用户名', pchar('提示信息'), mb_IconInformation + mb_OK);
      Edit1.setfocus;
      exit;
    end
  else
    begin
      CzyQuery.Close;
      CzyQuery.SQL.Clear;
      CzyQuery.SQL.Add('Select czyy_bh,czyy_xm,czyy_mm,czyy_qx from czyxxk');
      CzyQuery.SQL.Add('Where czyy_bh=''' + Trim(Edit1.Text) + '''');
      CzyQuery.SQL.Add('And czyy_mm=''' + Trim(Edit2.Text) + '''');
      CzyQuery.Open;

      if (CzyQuery.RecordCount <> 1) or (Trim(Edit2.Text) <> Trim(CzyQuery.FieldValues['czyy_mm'])) then
        begin
          MessageBox(handle, '用户编号或口令不对', pchar('提示信息'), mb_IconInformation + mb_OK);
          Edit1.SetFocus;
        end
      else
        begin
          sys_czyqx := CzyQuery.FieldByName('czyy_qx').AsString;
          sys_czybh := CzyQuery.FieldByName('czyy_bh').AsString;
          sys_czyxm := CzyQuery.FieldByName('czyy_xm').AsString;
          sys_date := datetostr(DateTimePicker1.date);
          LoginFlag := True;
          Close;
        end;
    end;
end;

procedure Tloginform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure Tloginform.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    begin
      SelectNext(ActiveControl, True, True);
      Key := #0;
    end;
end;

procedure Tloginform.Edit2Exit(Sender: TObject);
begin
  if (Edit1.Text <> '') and (Edit2.Text <> '') then BitBtnOK.Click;
end;

procedure Tloginform.FormShow(Sender: TObject);
begin
  DateTimePicker1.date := date();
end;

end.