login.~pas

delphi 生产管理系统 sql2000位后台数据库

unit login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  jpeg, ExtCtrls,StdCtrls,iniFiles;

type
  Tfrm_login = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    cbox_name: TComboBox;
    Label3: TLabel;
    Label4: TLabel;
    Button2: TButton;
    bsSkinButton2: TButton;
    Edit_pass: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure edit_passKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_login: Tfrm_login;

implementation

uses dm,main,share;

{$R *.dfm}

procedure Tfrm_login.Button2Click(Sender: TObject);
var inifile:Tinifile;
begin
try
   if Frm_DM.UserID.Active=false then Frm_DM.UserID.Active:=true;
   if Frm_DM.UserID.Locate('name',cbox_name.Text,[]) then
       begin
          if Frm_DM.UserID.FieldByName('pass').AsString=edit_pass.Text then
             begin
               Share.pop:=Frm_DM.UserID.FieldByName('pop').AsInteger;
               share.czy:=Frm_DM.UserID.FieldByName('name').asstring;
               IniFile:=TIniFile.Create(GetCurrentDir+'\ini\ODBC.ini');
               inifile.writeString('odbcconfig','Login',cbox_name.Text);
               inifile.Free ;
               ModalResult:=1;
               hide;
             end
          else
             begin
               application.MessageBox('密码错误,重新输入','提示',0);
               edit_pass.Text:='';
               edit_pass.setfocus;
             end;
       end;
except
exit;
end;
end;

procedure Tfrm_login.bsSkinButton2Click(Sender: TObject);
begin
close;
end;

procedure Tfrm_login.edit_passKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then Button2Click(Button2);
end;

procedure Tfrm_login.FormShow(Sender: TObject);
var
  i:Integer;
  IniFile:Tinifile;
begin
  IniFile:=TIniFile.Create(GetCurrentDir+'\ini\ODBC.ini');
  try
    Frm_dm.con.Connected :=false;
    Frm_dm.con.ConnectionString:=inifile.ReadString('odbcconfig','connectionstr','');
    inifile.Free ;
    Frm_dm.con.Connected :=true;
  except
    messagebox(0,'无法连接SQL Server 2000数据库！','提示',64);
    exit;
  end;
  Frm_DM.Userid.Active:=true;
  Frm_DM.Userid.First;
  cbox_name.Items.Clear;
  edit_pass.Clear ;
  for I := 0 to Frm_DM.Userid.RecordCount - 1 do    // Iterate
  begin
    cbox_name.Items.Add(Frm_DM.Userid.FieldValues['name']);
    Frm_DM.Userid.Next;
  end;    // for
//  cbox_name.ItemIndex:=0;

  IniFile:=TIniFile.Create(GetCurrentDir+'\ini\ODBC.ini');
  Cbox_name.ItemIndex:=Cbox_name.Items.IndexOf(inifile.ReadString('odbcconfig','Login','管理员'));
  inifile.Free ;

  edit_pass.SetFocus;


//*********************2006.4.4改动********************************************
{  IniFile:=TIniFile.Create(GetCurrentDir+'\ini\ODBC.ini');
  try
    Frm_DM.con.Connected :=false;
    Frm_DM.con.ConnectionString:=inifile.ReadString('odbcconfig','connectionstr','');
    inifile.Free ;
    Frm_DM.con.Connected :=true;
  except
    messagebox(0,'无法连接SQL Server 2000数据库！','提示',64);
    exit;
    application.Terminate ;
  end;  }
//****************************************************************
{  try
  except;
  exit;
  end; }
end;

end.