databaseset.pas

来自「相关的销售服务管理行业的一个软件」· PAS 代码 · 共 74 行

unit DatabaseSet;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, Mask, Db, DBTables, ADODB;

type
  TfrmDatabaseSet = class(Tform)
    Panel1: TPanel;
    Label1: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    edtServerName: TEdit;
    edtPassword: TMaskEdit;
    edtUserName: TEdit;
    Image1: TImage;
    btnYes: TBitBtn;
    btnNo: TBitBtn;
    procedure btnYesClick(Sender: TObject);
    procedure btnNoClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmDatabaseSet: TfrmDatabaseSet;
implementation

uses U_DM,udata;

{$R *.DFM}


procedure TfrmDatabaseSet.btnNoClick(Sender: TObject);
begin
  close;
end;

procedure TfrmDatabaseSet.FormShow(Sender: TObject);
begin
    readreg;
    edtServerName.Text := SServername;
    edtUserName.Text := SDatauser;
    edtPassword.Text :=Sdatapassword;
end;
procedure TfrmDatabaseSet.btnYesClick(Sender: TObject);
begin
    screen.cursor := -11;
    SServername := edtServerName.Text;
    Sdatauser := edtUserName.Text;
    Sdatapassword := edtPassword.Text;
    Connectdatabase;
    if ConSuccess = true then
      begin
        swritereg;
        Application.MessageBox('数据库连接成功!','连接数据库',MB_OK + MB_ICONINFORMATION);
        frmDatabaseSet.close;
      end
end;
procedure TfrmDatabaseSet.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  frmDatabaseSet:=nil;
  action:=cafree;
end;

end.