usetup.pas

家庭财账管理软件.zip 毕业设计 论文加代码

unit uSetup;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, ComCtrls,inifiles,tools;

type
  TfrmSetup = class(TForm)
    pageSetup: TPageControl;
    TabSheet1: TTabSheet;
    radShouZhi: TRadioGroup;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    radSort: TRadioGroup;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
	 { Public declarations }
  end;

var
  frmSetup: TfrmSetup;

implementation

{$R *.DFM}

procedure TfrmSetup.BitBtn1Click(Sender: TObject);
begin
	close;
end;

//1999.11.16.
procedure TfrmSetup.BitBtn2Click(Sender: TObject);
var
	iniFile:TINIFile;
begin
	iniFile:=TiniFile.create(GetAppPath+'money99.ini');

	inifile.WriteInteger('Show','ShouZhi',radShouZhi.ItemIndex);
	iniFile.WriteInteger('Show', 'Sort', radSort.ItemIndex);
	iniFile.Free;
	close;	
end;

procedure TfrmSetup.FormShow(Sender: TObject);
var
	iniFile:TIniFile;
begin
	iniFile := TiniFile.create(GetAppPath + 'money99.ini');
 //获得显示收支的类型
	 radShouZhi.ItemIndex := iniFile.ReadInteger('Show', 'ShouZhi', 0);
 //获得排序的类型
	 radSort.ItemIndex := iniFile.ReadInteger('Show', 'Sort', 0);		 
	iniFile.free;
end;

end.