dialersetupform.pas

功能全面的商业财会系统源码,清晰,很有参考价值.扩展性强.

unit DialerSetupForm;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ComCtrls, ExtCtrls, Mask, IniFiles;

type
  TfrmDialerSetup = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    Panel3: TPanel;
    Panel2: TPanel;
    Panel4: TPanel;
    btnOK: TButton;
    btnCancel: TButton;
    TabSheet1: TTabSheet;
    radioPort: TRadioGroup;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmDialerSetup: TfrmDialerSetup;

implementation

{$R *.DFM}

procedure TfrmDialerSetup.FormShow(Sender: TObject);
var
  BS1ini: TIniFile;
  strPort: string;
begin
  BS1Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'BS1.ini');   //Get port.
  strPort := BS1Ini.ReadString('General', 'DialerPort', 'com1');
  BS1Ini.Free;
  if      strPort = 'com1' then radioPort.ItemIndex := 0
  else if strPort = 'com2' then radioPort.ItemIndex := 1
  else if strPort = 'com3' then radioPort.ItemIndex := 2
  else if strPort = 'com4' then radioPort.ItemIndex := 3;
end;

procedure TfrmDialerSetup.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TfrmDialerSetup.btnOKClick(Sender: TObject);
var
  BS1ini: TIniFile;
  strPort: string;
begin
  if      radioPort.ItemIndex = 0 then strPort := 'com1'
  else if radioPort.ItemIndex = 1 then strPort := 'com2'
  else if radioPort.ItemIndex = 2 then strPort := 'com3'
  else if radioPort.ItemIndex = 3 then strPort := 'com4';
  BS1Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'BS1.ini');   //Set port.
  BS1Ini.WriteString('General', 'DialerPort', strPort);
  BS1Ini.Free;
end;

end.