unit_login.pas

航空人身保险信息管理系统使用SQL和DELHPI开发

unit Unit_Login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;

type
  TFrmLogin = class(TForm)
    Label1: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    Edit2: TEdit;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Label4: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmLogin: TFrmLogin;
  islogn:integer;
  f:integer;
implementation

uses unit_DataM, Unit_Common, Unit_Main;



{$R *.dfm}

procedure TFrmLogin.Button2Click(Sender: TObject);
begin
  FrmLogin.Close;
  FrmMain.close;
end;

procedure TFrmLogin.Button1Click(Sender: TObject);
var sqlstring:string;
begin
    //Edit2.Text:='';
   //Edit1.Text:='';
   Edit2.SetFocus;
 sqlstring:='select *  from   Operator    where  loginname='
           +''''+trim(Edit2.Text)+'''' ;
           //+' and password='+''''
           //+trim(Edit1.Text)+'''';
 f:=Dtm.DataSetResultCount(sqlstring);
 if f=0  then
     begin
        // f:=Dtm.DataSetResultCount(sqlstring);
         MessageWarning('用户不存在,请重新输入用户名');
         Edit2.Text:='';
         Edit1.Text:='';
          Edit2.SetFocus;
     end;
 sqlstring:='select *  from   Operator    where  loginname='
           +''''+trim(Edit2.Text)+''''
           +' and password='+''''
           +trim(Edit1.Text)+'''';
   if f<>0 then
        begin
           if Dtm.DataSetResultCount(sqlstring)=1  then
               begin
                 gEmpID:=trim(Edit2.Text);
               // gNodeName:=
                 gDepartmentNo:= ComboBox1.Text;
                 //MessageInformation('登录成功');
                 FrmLogin.Close;
               end
           else
              begin
                MessageWarning('密码不正确，请重新输入');
                Edit1.Text:='';
                Edit1.SetFocus;
              end;
          end;
   {if dtm.Qry.FindField('LoginName')=Edit2.Text then
     begin

     dtmQry.Close;
    Qry.SQL.Text := SQLStr;
    Qry.Open;


     if dtm.Qry.FieldByName(pasword)<>Edit1.Text  then
         begin
                  MessageSure('非法登录');
                  Application.Terminate ;
          end
    else
      begin
         MessageSure('密码不正确，请重新输入');
         Edit1.Text ='';
         edit1.Text.focus;
      end;

      if Dtm.DataSetResultCount(sqlstring)=1 then
     begin
        MessageInformation('登录');
         FrmLogin.Close;
      end; }
 end;
procedure TFrmLogin.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
   Edit1.SetFocus;
end;

procedure TFrmLogin.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
 Button1.SetFocus;
end;

procedure TFrmLogin.FormCreate(Sender: TObject);
 var
 sqlstr:string;
begin
//Edit2.SetFocus ;
 islogn:=0;
 f:=0;
  sqlstr:='select DepartmentNo from Department order by DepartmentNo desc';
  combobox1.Items:=dtm.GetQryList(sqlstr);
   combobox1.ItemIndex:=0;
end;

procedure TFrmLogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 if islogn=0 then
  begin exit; FrmMain.Close ;
  end;
end;

procedure TFrmLogin.FormActivate(Sender: TObject);
begin
   Edit2.SetFocus ;
    Edit2.Text:='';
   Edit1.Text:='';
end;

end.