unit2.pas

delphi实现的一个完全自动运行的数据库存取的软件保留30天日志记录

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons,iniFiles,FileCtrl;

type
  TFConfig = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    EServer: TEdit;
    EDbase: TEdit;
    EUid: TEdit;
    EPwd: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    ESAdress: TEdit;
    EPort: TEdit;
    BitOK: TBitBtn;
    BitCancel: TBitBtn;
    ESname: TEdit;
    lable: TLabel;
    procedure BitOKClick(Sender: TObject);
    procedure BitCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FConfig: TFConfig;

implementation

{$R *.dfm}

procedure TFConfig.BitOKClick(Sender: TObject);
var 
filename:string;
LvIni: TIniFile;
begin
     filename:=ExtractFilePath(paramstr(0))+'\ini\myini.ini';
     LvIni:=TInifile.Create(filename);
    try
      try
        //server
        LvIni.WriteString('server', 'Initial Catalog', EServer.Text);
        LvIni.WriteString('server', 'Data Source', EDbase.Text);
        LvIni.WriteString('server', 'User ID', EUid.Text);
        LvIni.WriteString('server', 'Password', EPwd.Text);

        //NetGate
        LvIni.WriteString('DataGate', 'GIP', ESAdress.Text);
        LvIni.WriteString('DataGate', 'GPort',EPort.Text);
        LvIni.WriteString('DataGate', 'GDG', ESname.Text);

      except
       showmessage('参数配置出现异常！！');
      end;
    finally
      LvIni.Free;
      Close;
    end;
end;

procedure TFConfig.BitCancelClick(Sender: TObject);
begin
 Close;
end;

end.