custom.~pas

来自「一个实用的房地产行业收费管理软件」· ~PAS 代码 · 共 98 行

unit custom;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TForm2 = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Image1: TImage;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses floor,maindata;

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
with DataModule1.loginq do
  begin
   sql.clear;
   sql.add('select * from login  where logid =:mlogid and password=:mp');
   parambyname('mlogid').asstring:=edit1.text;
   parambyname('mp').asstring:=edit3.text;
  end;
  datamodule1.loginq.open;
  if datamodule1.loginq.recordcount>0 then
   begin
   form1:=tform1.Create(self);
   form1.showmodal;
   end else
   showmessage('用户名或密码不对'); 
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure TForm2.Edit1Exit(Sender: TObject);
begin
with DataModule1.loginq do
  begin
   sql.clear;
   sql.add('select * from login  where logid =:mlogid ');
   parambyname('mlogid').asstring:=edit1.text;
  end;
  datamodule1.loginq.open;
  if datamodule1.loginq.recordcount>0 then
  begin
  edit2.Text:=datamodule1.loginq.fieldbyname('logname').asstring;
  end;
end;

procedure TForm2.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
    begin
    key:=#0;
    perform(WM_nextdlgctl,0,0);
    end;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
if date>strtodate('2005-12-1') then
   begin
   application.MessageBox('系统严重错误','提　示',mb_ok);
   form2.Close;
   end;
end;

end.