frmprograms.pas

IC卡饭堂售饭管理系统源码,内有相关说明,

unit FrmProgramS;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, TFlatButtonUnit,inifiles;

type
  TFrmProgramSetup = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    CheckBox1: TCheckBox;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label3: TLabel;
    ComboBox1: TComboBox;
    CheckBox2: TCheckBox;
    FlatButton1: TFlatButton;
    FlatButton2: TFlatButton;
    procedure FlatButton1Click(Sender: TObject);
    procedure FlatButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmProgramSetup: TFrmProgramSetup;

implementation

{$R *.dfm}

procedure TFrmProgramSetup.FlatButton1Click(Sender: TObject);
var WriteFile:TIniFile;
    FileName:String;
begin
  Filename:=ExtractFilePath(Application.ExeName)+'CardInfo.ini';
  WriteFile:=TIniFile.Create(FileName);
  with WriteFile do begin
    if CheckBox1.Checked  then
      WriteInteger('Setup','AutoRead',1)
    else
      WriteInteger('Setup','AutoRead',0);
    WriteString('Setup','AM',timetostr(DateTimePicker1.DateTime ));
    WriteString('Setup','PM',timetostr(DateTimePicker2.DateTime));
    WriteInteger('Setup','Backup',ComboBox1.Items.IndexOf(ComboBox1.Text)); 
  end;
  self.Release;
end;

procedure TFrmProgramSetup.FlatButton2Click(Sender: TObject);
begin
  self.Release;
end;

procedure TFrmProgramSetup.FormCreate(Sender: TObject);
var ReadInfo:TIniFile;
    FileName:String;
    Check:integer;
begin
  FileName:=ExtractFilePath(Application.ExeName)+'CardInfo.ini';
  ReadInfo:=TIniFile.Create(FileName);
  with ReadInfo do begin
  Check:=ReadInteger('Setup','AutoRead',0);
    if Check=1 then begin
      DateTimePicker1.DateTime:=StrToTime(ReadString('Setup','AM',''));
      DateTimePicker2.DateTime:=StrToTime(ReadString('Setup','PM',''));
    end;
    ComboBox1.ItemIndex:=ReadInteger('Setup','Backup',0);  
  end;
end;

end.