loginform.pas

这是一个实用的软件

//********************************//
//  模块:登录模块                 //
//  设计：杨凌      2005.06.20    //
//                                //
//********************************//
unit loginform;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, baseform, StdCtrls,  dxCntner, dxEditor, dxEdLib,
  ExtCtrls, Buttons, registry;

type
  Tfloginform = class(Tfbaseform)
    lbl1: TLabel;
    lbl: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Image1: TImage;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  floginform: Tfloginform;

implementation

uses fmmainform, dataform, hint, Global, pubdata;

{$R *.dfm}

procedure Tfloginform.BitBtn1Click(Sender: TObject);
begin
  inherited; 
if Edit1.Text<>'' then
   begin
    fData.Sqltmp.Close;
    fData.Sqltmp.SQL.Clear;
    fData.Sqltmp.SQL.Add('select * from qx_user where (User_code='+''''+Trim(Edit1.Text)+''''+')and (user_pas='+''''+trim(Edit2.Text)+''''+')');
    fData.Sqltmp.Open;
    if fData.Sqltmp.RecordCount=0 then
       begin
         MessageBox(0, '用户名或密码错误！请重新输入！', '提示', MB_OK +
           MB_ICONWARNING);
         Edit1.Text:='';
         Edit2.Text:='';
         Edit1.SetFocus;
       end
       else
       begin
         floginform.Close;
         //fMainform:=TfMainform.Create(Self);
         fMainform.stat1.Panels[0].Text:='用户:'+fData.Sqltmp['User_name'];
         fMainform.stat1.Panels[1].Text:='日期：'+DateToStr(date);
         fMainform.Show;
          fpubdata.ADOhint.Close;;
          fpubdata.ADOhint.SQL.Clear;
          fpubdata.ADOhint.SQL.Add('select * from cg_master where (Ma_enddate-Now())< 30*'+fpubdata.qrycount.fieldbyname('count').AsString);
          fpubdata.ADOhint.Open;
          if fpubdata.ADOhint.RecordCount>0 then
           begin
           fhint:=Tfhint.Create(Self);
           fhint.Show;
           end;
       end
   end
   else
   begin
    MessageBox(0, '用户名不能为空！', '提示', MB_OK + MB_ICONWARNING);
    Edit1.SetFocus;
   end;

end;

procedure Tfloginform.BitBtn2Click(Sender: TObject);
begin
  inherited;
Application.Terminate;
end;

end.