option.pas

针对快餐店的会员管理系统.具有详细的分类及管理作用

unit Option;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzTabs, ExtCtrls, RzPanel, RzRadGrp, RzDBRGrp, RzDlgBtn, IniFiles,
  RzButton, StdCtrls, RzCmboBx, RzDBCmbo, Mask, RzEdit, RzSpnEdt, RzLabel;

type
  TOptionForm = class(TForm)
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzPageControl1: TRzPageControl;
    TabSheet1: TRzTabSheet;
    TabSheet2: TRzTabSheet;
    SetWeek: TRzRadioGroup;
    RzLabel1: TRzLabel;
    TabSheet3: TRzTabSheet;
    TermSet: TRzGroupBox;
    RzLabel2: TRzLabel;
    RzSpinEdit1: TRzSpinEdit;
    TabSheet4: TRzTabSheet;
    Information: TRzRadioGroup;
    BackUpSet: TRzRadioGroup;
    Label1: TLabel;
    Mode: TRzComboBox;
    RzLabel3: TRzLabel;
    RzLabel4: TRzLabel;
    //导入设置
    procedure LoadSet;
    //保存设置
    procedure SaveSet;
    procedure RzBitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OptionForm : TOptionForm;
  Ini        : TIniFile;
implementation

{$R *.dfm}

procedure TOptionForm.LoadSet;
begin
//导入设置
   BackUpSet.ItemIndex:=ini.ReadInteger('BackUpSet','BackUp',1);
   Mode.ItemIndex:=ini.ReadInteger('BackUpSet','Set',3);
   SetWeek.ItemIndex:=ini.ReadInteger('SetWeek','Set',0);
   RzSpinEdit1.Value:=ini.ReadInteger('TermSet','Set',7);
   Information.ItemIndex:=ini.ReadInteger('Information','Set',0);
end;

procedure TOptionForm.SaveSet;
begin
//保存设置
   ini.WriteInteger('BackUpSet','BackUp',BackUpSet.ItemIndex);
   ini.WriteInteger('BackUpSet','Set',Mode.ItemIndex);
   ini.WriteInteger('SetWeek','Set',SetWeek.ItemIndex);
   ini.WriteInteger('TermSet','Set',RzSpinEdit1.IntValue);
   ini.WriteInteger('Information','Set',Information.ItemIndex);
end;

procedure TOptionForm.RzBitBtn1Click(Sender: TObject);
begin
   SaveSet;
   
end;

procedure TOptionForm.FormCreate(Sender: TObject);
begin
  ini:=TiniFile.Create(ExtractFilePath(paramstr(0))+'CRM.ini');
  LoadSet;
end;

procedure TOptionForm.FormDestroy(Sender: TObject);
begin
  Ini.Free;
end;

procedure TOptionForm.FormShow(Sender: TObject);
begin
   LoadSet;
end;

procedure TOptionForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   LoadSet;
end;

end.