unit_dbini.pas

Delphi+ADO+SQLServer 登陆:superuser/密码为空 调试:打开企业管理器附加数据库 第三方控件:无

unit unit_Dbini;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, Buttons,inifiles;

type
  Tfrm_DBini = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    medt_password: TMaskEdit;
    Label3: TLabel;
    edt_UserId: TEdit;
    sbtn_sure: TSpeedButton;
    sbtn_close: TSpeedButton;
    Label4: TLabel;
    Edit_Dns: TEdit;
    procedure sbtn_closeClick(Sender: TObject);
    procedure sbtn_sureClick(Sender: TObject);
    procedure edt_UserIdKeyPress(Sender: TObject; var Key: Char);
    procedure medt_passwordKeyPress(Sender: TObject; var Key: Char);
    procedure Edit_DnsKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    logined,relogin:boolean;
    { Public declarations }
  end;

var
  frm_DBini: Tfrm_DBini;

implementation
{$R *.DFM}

procedure Tfrm_DBini.sbtn_closeClick(Sender: TObject);
begin
  close;
end;

procedure Tfrm_DBini.sbtn_sureClick(Sender: TObject);
var
  DBFile : Tinifile ;
begin
  if trim(edit_dns.Text) = '' then
  begin
    messagebox(application.Handle,'DNS不能为空!','提示',mb_ok+mb_iconinformation);
    edit_dns.SetFocus;
    exit ;
  end ;
  if trim(edt_userid.Text) = '' then
  begin
    messagebox(application.Handle,'用户名不能为空!','提示',mb_ok+mb_iconinformation);
    edt_userid.SetFocus;
    exit ;
  end ;
  if trim(medt_password.Text) = '' then
  begin
    messagebox(application.Handle,'密码不能为空!','提示',mb_ok+mb_iconinformation);
    medt_password.SetFocus;
    exit ;
  end ;
  DBFile := tinifile.Create(extractfilepath(application.ExeName)+ 'DBConn.ini');
  DBFile.writestring('MeiRong','DB_DNS',trim(edit_dns.Text));
  DBFile.writestring('MeiRong','DB_User',trim(edt_userid.Text));
  DBFile.writestring('MeiRong','DB_Password',trim(medt_password.Text));
  DBFile.Free;
  close;
end;

procedure Tfrm_DBini.edt_UserIdKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then medt_password.SetFocus;
end;

procedure Tfrm_DBini.medt_passwordKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then sbtn_sureClick(nil);
end;

procedure Tfrm_DBini.Edit_DnsKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then edt_UserId.SetFocus;
end;

procedure Tfrm_DBini.FormCreate(Sender: TObject);
var
  DBFile : Tinifile ;
begin
  DBFile := tinifile.Create(extractfilepath(application.ExeName)+ 'DBConn.ini');
  edit_dns.Text := DBFile.ReadString('MeiRong','DB_DNS','MeiRong');
  edt_userid.Text := DBFile.ReadString('MeiRong','DB_User','sa');
  medt_password.Text := DBFile.ReadString('MeiRong','DB_Password','1234546');
  DBFile.Free;
end;

end.