dbsetup_unit.pas

客户关系管理系统 DELPHI7下的

unit DBSetup_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, ADODB, IniFiles, Grids, ValEdit;

type
  TfrmDBSetup = class(TForm)
    btnOk: TBitBtn;
    btnCancel: TBitBtn;
    ValueListEditor1: TValueListEditor;
    procedure FormShow(Sender: TObject);
    procedure btnOkClick(Sender: TObject);
  private
    { Private declarations }
  public

  end;

var
  frmDBSetup: TfrmDBSetup;

implementation

uses DM_Unit;

{$R *.dfm}

procedure TfrmDBSetup.FormShow(Sender: TObject);
begin
  ValueListEditor1.Strings.LoadFromFile(ExtractFilePath(Application.ExeName) + 'DBConn.txt');
end;

procedure TfrmDBSetup.btnOkClick(Sender: TObject);
begin
  DM.SQLConn.Connected := False;
  ValueListEditor1.Strings.SaveToFile(ExtractFilePath(Application.ExeName) + 'DBConn.txt');
  if DM.SQLConn.Connected = False then
  try
    DM.SQLConn.Params.Clear;  
    DM.SQLConn.Params.LoadFromFile(ExtractFilePath(Application.ExeName) + 'DBConn.txt');
    DM.SQLConn.Connected := True;
    Close;
  except
    MessageDlg('打开数据库连接配置失败，请重新配置！', mtError, [mbOk], 0);
    Exit;
  end;
end;

end.