login.~pas

学习程序,用于初学进销存的参考代码学习程序,用于初学进销存的参考代码

unit login;

interface

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

type
  TfrmLogin = class(TForm)
    Ed_Pwd: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Ed_UserName: TComboBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    procedure SaveUserNameToIni();
  public
    { Public declarations }
  end;

var
  frmLogin: TfrmLogin;

implementation

uses unit_main_dm;

{$R *.dfm}

procedure TfrmLogin.Button1Click(Sender: TObject);
var adologin:TADOQuery;
    _sql:string;
begin
    adologin:=TADOQuery.Create(self);
    adologin.Connection:=main_dm.ADOConn;
    adologin.Close();
    adologin.SQL.Clear;
    _sql:='exec sp_cjh_systemlogin '''+Trim(Ed_UserName.Text)+''','''+Ed_Pwd.Text+'''';
    adologin.SQL.Add(_sql);
    adologin.Open;
    if( not adologin.IsEmpty)    then
    begin
    self.Close;
    SaveUserNameToIni();
    Main_DM.sCurrentUser:=Trim(Ed_UserName.Text);
    end
    else
    ShowMessage('用户名或密码不正确,请重新输入!');

end;
procedure TfrmLogin.SaveUserNameToIni();
var sPath,sUser:string;
     myIni:TiniFile;
begin
     sPath:=ExtractFilePath(Application.ExeName)+'Settings.ini';
     myIni:=TiniFile.Create(sPath);
     myIni.WriteString('DBConnection','lastusername',Ed_UserName.Text);
     myIni.Free;
end;
procedure TfrmLogin.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TfrmLogin.FormShow(Sender: TObject);
var sPath,sUser:string;
     myIni:TiniFile;
     tmpado:TADOQuery;
begin
     tmpado:=TADOQuery.Create(self);
     tmpado.Connection:=Main_DM.ADOConn;
     tmpado.Close;
     tmpado.SQL.Clear;
     Ed_UserName.Items.Clear;
     tmpado.SQL.Add('select employee_name from ms_employee');
     tmpado.Open;
     while not tmpado.Eof    do
     begin
        Ed_UserName.Items.Add(tmpado.FieldByName('employee_name').AsString);
        tmpado.Next;
     end;
     sPath:=ExtractFilePath(Application.ExeName)+'Settings.ini';
     myIni:=TiniFile.Create(sPath);
     Ed_UserName.Text:= myIni.ReadString('DBConnection','lastusername',Ed_UserName.Text);
     myIni.Free;
end;

end.