frame_setdatabase.pas

来自「企业信息管理系统程序框架」· PAS 代码 · 共 70 行

unit frame_setdatabase;

interface

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

type
  Tf_setdatabase = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Label4: TLabel;
    Edit4: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    path1: string;
  public
    { Public declarations }
    dbparamsession:string;
    mycaption:string;
  end;

var
  f_setdatabase: Tf_setdatabase;

implementation

{$R *.DFM}

procedure Tf_setdatabase.Button1Click(Sender: TObject);
var
linkstr:string;
begin
  linkstr:=readcfg(dbparamsession,'LinkStr','');
  writecfg(dbparamsession, 'datasource', edit1.text);
  writecfg(dbparamsession, 'initialcatalog', edit2.text);
  writecfg(dbparamsession, 'userid', edit3.text);
  writecfg(dbparamsession, 'password', EncrypStr(edit4.text));
  Application.messagebox('数据库参数配置完成，请重新运行程序！', '提示', mb_ok + mb_iconinformation);
  application.Terminate;
end;

procedure Tf_setdatabase.FormShow(Sender: TObject);
var inifile: tinifile;
begin
  if mycaption='' then
     caption:='数据库连接设置'
  else
     caption:= mycaption;
     
  if dbparamsession='' then
    dbparamsession:='database';

  edit1.text := readcfg(dbparamsession, 'datasource', '');
  edit2.text := readcfg(dbparamsession, 'initialcatalog', '');
  edit3.text :=readcfg(dbparamsession, 'userid', '');
  edit4.text := UncrypStr(ReadCfg(dbparamsession, 'password', ''));

end;

end.