zfrm_login.pas

专业的评标管理系统

{
'┌───────────────────────────────────┐
'│**********************************************************************│
'│*** 文件名称：zfrm_login                                             *│
'│*** 功能描述：                                                       *│
'│*** 编写人员：朱华　　　　　　　　　　　　　　　      　　　　       *│
'│*** 编写日期：2001-06-06　　　　　　　　　　　　　　　      　       *│
'│*** 修改人员：　　　　　　　　　　　　　　　　　　      　           *│
'│*** 修改日期：                                                       *│
'│**********************************************************************│
'└───────────────────────────────────┘
}

unit zfrm_login;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, jpeg, ExtCtrls, Db, DBTables;

type
  Tzfrm_Logins = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    Query2: TQuery;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zfrm_Logins: Tzfrm_Logins;

implementation

uses zfrm_MainBiddingU, zmod_commonDateU, zmod_CommonFuncProcU;

{$R *.DFM}

procedure Tzfrm_Logins.Button2Click(Sender: TObject);
begin
  // 退出系统
  if Self.Caption = '用户注册' then
     zfrm_MainBidding.Close ;
  Self.Close ;
  //
end;

procedure Tzfrm_Logins.Button1Click(Sender: TObject);
begin
  // 检验密码
  if Trim(Edit1.Text) ='' then
  begin
    Edit1.SetFocus ;
    Exit ;
  end;

  if Trim(Edit2.Text) ='' then
  begin
    Edit2.SetFocus ;
    Exit;
  end;

  // 检测用户
  try  {try <1> S}
    zh_Select_SQL :='select * from tm_customerinfo where ci_loginname=' + '''' + Trim(Edit1.Text) + '''';
    Query2.Close ;
    Query2.SQL.Clear ;
    Query2.SQL.Add(zh_Select_SQL);
    Query2.Prepare ;
    Query2.Open ;
    //Query2.First ;
  except
      // 数据库错
      Application.MessageBox(
      '数据库连接错误，请您检查或系统管理员联系',
      '数据库错',
      MB_OK+MB_ICONError) ;
      Exit ;
  end; {try <1> E}

  if Query2.RecordCount = 0 then
  begin
    // 数据库错
    Edit1.Text := '' ;
    Edit2.Text := '' ;
      Application.MessageBox(
      '校验用户错误,请重新输入',
      '校验错误',
      MB_OK+MB_ICONError) ;
    Exit ;
  end;
  zh_ci_id        := Query2.FieldByName('g_ci_id').AsInteger ;
  zh_ci_loginname := Query2.FieldByName('ci_loginname').AsString ;
  zh_ci_password  := Query2.FieldByName('ci_password').AsString ;
  zh_ci_name      := Query2.FieldByName('ci_name').AsString ;
  zh_ci_level     := Query2.FieldByName('ci_level').AsString ;
  if zh_ci_password <> Trim(Edit2.Text) then
  begin
    // 密码校验错
    // Edit1.Text := '' ;
    Edit2.Text := '' ;
    Application.MessageBox(
      '校验用户密码错误,请重新输入',
      '校验错误',
      MB_OK+MB_ICONError) ;
    Exit ;
  end;


  zfrm_MainBidding.StatusBar1.Panels[1].Text := zh_ci_loginname ;
  zfrm_MainBidding.StatusBar1.Panels[2].Text := zh_ci_name ;
  zfrm_MainBidding.StatusBar1.Panels[3].Text := zh_ci_level ;

  // 功能设置
  zfrm_MainBidding.z_SetCustomerFunctionP ; //***//

  Self.Close ;
  //
end;

procedure Tzfrm_Logins.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  //
  if Key=#13 then
  begin
    Edit2.SetFocus ;
    Exit ;
  end;
  //
end;

procedure Tzfrm_Logins.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  //
  if Key=#13 then
  begin
    Button1.SetFocus ;
    Exit ;
  end;
  //
end;

procedure Tzfrm_Logins.FormShow(Sender: TObject);
begin
  //
  Edit1.Text := '' ;
  Edit2.Text := '' ;
  //
end;

end.