u_login.pas

青年文明号管理系统

unit u_login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DB, ADODB, DBCtrls, Buttons, ComCtrls;

type
  Tlogin = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    pwd: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBLookupComboBox2: TDBLookupComboBox;
    Image1: TImage;
    Label3: TLabel;
    rq: TDateTimePicker;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBLookupComboBox2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  login: Tlogin;

implementation

uses u_dm, main_u, u_vardef, u_m;

{$R *.dfm}

procedure Tlogin.Button1Click(Sender: TObject);
begin{
year_month:=DBLookupComboBox1.Text;
if   year_month='' then
     begin
     showmsg('请选择月份');
     exit;
     end;
//DataModule1.bm:=edit1.Text;
if edit2.Text='888' then
    begin
    m.Show;
    login.Hide;
    login.Free;
    end
else
    showmsg('密码错误'); }
end;

procedure Tlogin.Button2Click(Sender: TObject);
begin
close;
end;

procedure Tlogin.FormShow(Sender: TObject);
begin
  //ADOTable1.Open;
  DataModule1.dw.Active:=true;
  rq.Date:=date;
end;

procedure Tlogin.Button3Click(Sender: TObject);
begin
//showmessage(inttostr(adotable1.RecordCount));
end;

procedure Tlogin.BitBtn1Click(Sender: TObject);
var
vPwd:string;
vSQL:string;
begin
g_dwmc:=DBLookupComboBox2.text;
if g_dwmc='' then
     begin
     showmsg('请选择单位');
     exit;
     end
else
    g_dwbh:=DBLookupComboBox2.keyvalue;
    year_month:=formatdatetime('yyyy-mm-dd',rq.date);
    vLoginRq:=rq.Date;
    vSQL:='select pwd from dw where bh='+inttostr(g_dwbh);
    datamodule1.QryTmp.SQL.Clear;
    datamodule1.QryTmp.SQL.Text:=vSQL;
    datamodule1.QryTmp.Open;
    vPwd:=datamodule1.QryTmp.Fields[0].AsString;
if trim(vPwd)=pwd.Text then
    begin
    if not assigned(m) then
    m:=tm.Create(m);
    m.Show;
    login.Hide;
    //login.Free;
    end
else
    showmsg('密码错误');
end;

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

procedure Tlogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  //ADOTable1.close;
  DataModule1.dw.close;
end;

procedure Tlogin.DBLookupComboBox2Click(Sender: TObject);
begin
PWD.SetFocus;
end;

end.