fdataset.pas

进销存开发系统

unit Fdataset;

interface

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

type
  TF_dataset = class(TF_base)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_dataset: TF_dataset;
implementation

{$R *.dfm}

procedure TF_dataset.BitBtn1Click(Sender: TObject);
var
  filename:string;
  dminifile:Tinifile;
begin
  inherited;
  filename:=Extractfilepath(Application.ExeName)+'boot.ini';
  dminifile:=Tinifile.Create(filename);
  dminifile.WriteString('EMS','server',Trim(Edit1.Text));
  dminifile.WriteString('EMS','database',Trim(Edit2.Text));
  dminifile.Free;
  Application.MessageBox('配置已完成，请重新启动程序','提示',mb_ok);
  Application.Terminate;
end;

procedure TF_dataset.BitBtn2Click(Sender: TObject);
begin
  inherited;
  Application.Terminate;
end;

end.