login.pas

此功能是集资对付系统,为一单位要求而做,此能实现了实时对付

unit login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, PDJ_XPC, ExtCtrls, ComCtrls, PDJ_XPSpB, TFlatPanelUnit,
  DB, ADODB;

type
  TfrmLogin = class(TForm)
    PDJXPSpeedButton1: TPDJXPSpeedButton;
    PDJXPSpeedButton2: TPDJXPSpeedButton;
    FlatPanel1: TFlatPanel;
    shp1: TShape;
    edtMc: TPDJXPEdit;
    lbl2: TLabel;
    lbl1: TLabel;
    edtCode: TPDJXPEdit;
    dtp1: TDateTimePicker;
    aQry1: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure PDJXPSpeedButton2Click(Sender: TObject);
    procedure PDJXPSpeedButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure edtCodeChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
function LoginExecute(aFormClass: TFormClass): Boolean;
var
  frmLogin: TfrmLogin;
  bLogined: Boolean = false;
implementation
   uses CommonFunc,PubFunction,PubProCess,Variable,uProgress,udm,main;
{$R *.dfm}
function LoginExecute(aFormClass: TFormClass): Boolean;
begin
  with aFormClass.Create(Application) do
  begin
    bLogined := False;
    try
      showModal;
    finally
      free;
    end;
    result := bLogined;
  end;
end;
procedure TfrmLogin.FormCreate(Sender: TObject);
begin
dtp1.Date :=Date ;
end;

procedure TfrmLogin.PDJXPSpeedButton2Click(Sender: TObject);
begin
CurrentParam.blnload :=False ;
close;
end;

procedure TfrmLogin.PDJXPSpeedButton1Click(Sender: TObject);
begin
if Length(edtMc.Text)=0   then
begin
Application.MessageBox('请输入要查询的编号网点代码！', '提示', mb_iconInformation + mb_defbutton1);
edtMc.SetFocus ;
Exit;
end;
CurrentParam.blnload :=True ;
bLogined:=True;
frmMain.SB.Panels[1].Text :='网点：['+edtCode.Text+']'+edtMc.Text;
frmMain.SB.Panels[2].Text:='登记日期：'+DateToStr(dtp1.Date);
close;
end;

procedure TfrmLogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
AnimateWindow(handle,200,AW_HIDE or AW_BLEND);
Action := caFree;
frmLogin:=nil;
end;

procedure TfrmLogin.edtCodeChange(Sender: TObject);
var
ssql,code:string;
begin
edtMc.Text :='';
 code :=Trim(edtCode.Text);
  ssql :='SELECT dm,mc FROM 网点代码 where dm='+code;
  aQry1.Close ;
  aQry1.SQL.Clear ;
  aQry1.SQL.Add(ssql);
  aQry1.Open ;
  edtMc.Text :=Trim(aQry1.Fields[1].AsString);
  aQry1.SQL.Clear ;
  aQry1.Close ;


end;

end.