【delphi开源代码栏目提醒】:本文主要为网学会员提供Fdataset.pas,希望对需要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.