db_login.pas

来自「xls2sql 将Microsoft的Excel文件导入MSSQL中」· PAS 代码 · 共 80 行

unit db_login;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, xls, Registry;

type
  Tw_db_login = class(TForm)
    Label2: TLabel;
    ed_user: TEdit;
    Label3: TLabel;
    ed_pass: TEdit;
    procedure ed_passKeyPress(Sender: TObject; var Key: Char);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure ed_userKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  w_db_login: Tw_db_login;

implementation

{$R *.DFM}

procedure Tw_db_login.FormCreate(Sender: TObject);
begin
  ed_user.Text :='sa' ;
  ed_pass.Text :='';
end;

procedure Tw_db_login.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#27 then w_db_login.ModalResult :=mrcancel;
end;

procedure Tw_db_login.ed_userKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then ed_pass.SetFocus ;
end;

procedure Tw_db_login.ed_passKeyPress(Sender: TObject; var Key: Char);
var wrong : boolean;
begin
  if key=#13 then begin
    xls.db_username :=ed_user.Text ;
    xls.db_pass     :=ed_pass.Text ;
    try
  xls.form1.whdb.Params.Values['USER NAME'] := db_username;
  xls.form1.whdb.Params.Values['PASSWORD']  := db_pass;
////      xls.form1.whdb.
      xls.Form1.whdb.Open ;
      wrong :=false;
    except
      application.MessageBox ('数据库连接失败，请确认用户名和密码后再试一次。','提示信息',$30);
      wrong :=true;
    end;
    if not wrong then begin
{      regini:=Treginifile.Create(whdb_regbootkey);
      try
        regini.WriteString(database_regkey, database_username, ed_user.Text);
        regini.writestring(database_regkey, database_password, datawin.setpassword(ed_pass.Text));
      finally
        regini.Free;
      end; }
      w_db_login.ModalResult :=mrok;
    end else begin
      ed_user.SetFocus ;
    end;
  end;
end;

end.