unit_config.pas

航空人身保险信息管理系统使用SQL和DELHPI开发

unit Unit_config;

interface

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

type
    TFrmConfig = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Label5: TLabel;

    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmConfig: TFrmConfig;
  Ini: TIniFile;
  sqlIP:String;
  DataBaseName:String;
  sqlUserName:String;
  PassWord:String;
  MaxQuata:String;

implementation

{$R *.dfm}

procedure TFrmConfig.Button1Click(Sender: TObject);

begin
  Ini := TIniFile.Create( ChangeFileExt( Application.ExeName, '.INI' ) );
  try
    sqlIP:= Ini.ReadString( 'Server', 'IP', '.');
    DataBaseName:=Ini.ReadString('Server','DataBaseName','ddis');
    sqlUserName:=Ini.ReadString( 'Server', 'User', 'pxy');
    PassWord:=Ini.ReadString( 'Server', 'PSW', '123456' );
    MaxQuata:=Ini.ReadString('Server','MaxQuoata','5');
    edit1.text:=sqlIP;
    edit2.text:=sqlUserName;
    edit3.text:=Password;
    edit4.text:=DataBaseName;
    edit5.Text:=MaxQuata;
  finally
    Ini.Free;
  end;
end;

procedure TFrmConfig.Button2Click(Sender: TObject);
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create( ChangeFileExt(Application.ExeName, '.INI' ) );
  try
    Ini.WriteString( 'Server', 'IP', edit1.text);
    Ini.WriteString('Server','DataBaseName',edit4.text);
    Ini.WriteString( 'Server', 'User', edit2.text);
    Ini.WriteString( 'Server', 'PSW', edit3.text );
    Ini.WriteString('Server','MaxQuoata',edit5.text);
    
  finally
    Ini.Free;
  end;
end;
end.