p_dataroad.pas

来自「图书出版行业 对于图书样稿/清样/样书/成书的质检环节控制」· PAS 代码 · 共 59 行

unit p_dataroad;

interface

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

type
  TF_dataroad = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_dataroad: TF_dataroad;
  myinifile:TInifile;
implementation

uses p_main;

{$R *.dfm}

procedure TF_dataroad.Button2Click(Sender: TObject);
begin
close;
end;

procedure TF_dataroad.Button1Click(Sender: TObject);
var
filename:string;
begin
filename:=ExtractFilePath(paramstr(0))+'myini.ini';
myinifile:=TInifile.Create(filename);
myinifile.writestring('数据库','服务器',edit1.Text);
myinifile.Destroy;
close;
end;



procedure TF_dataroad.FormShow(Sender: TObject);

begin
//edit1.Text:= myinifile.readstring('数据库','服务器','wyb.mdb');
//
end;

end.