unit13.pas

来自「数据库人寿保险通用系统 本系统主要负责保险资料的管理」· PAS 代码 · 共 43 行

unit Unit13;

interface

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

type
  TF_dbset = class(TForm)

    SpeedButton1: TSpeedButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    procedure SpeedButton1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_dbset: TF_dbset;

implementation

{$R *.dfm}
procedure TF_dbset.SpeedButton1Click(Sender: TObject);
var
  ini:tinifile;
begin
  ini:=Tinifile.Create(changefileext(application.ExeName,'.ini'));
  ini.WriteString('database','initial catalog',edit1.text);
  ini.WriteString('database','data source',edit2.Text);
  F_dbset.Close;
  ini.Free;
end;

end.