unit11.pas

这是一个学藉管理系统

unit Unit11;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, XPMenu, Buttons,implemntation,IniFiles;

type
  TOpertion = class(TForm)
    XPMenu1: TXPMenu;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    CheckBox1: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    TabSheet2: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    CheckBox2: TCheckBox;
    Edit1: TEdit;
    BitBtn4: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Opertion: TOpertion;
  ini_config:Tinifile;



implementation

{$R *.dfm}

procedure TOpertion.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=VK_Escape then close;
end;

procedure TOpertion.FormCreate(Sender: TObject);
begin
 ini_config:=Tinifile.create(Product_Dir+'config.ini');
 if ini_config.readstring('initialization','login_user','None')='do_not_login' then checkbox1.Checked:=false else checkbox1.Checked:=true;
 checkbox3.Checked:=ini_config.readbool('initialization','state_bar',state_bar);
 edit1.Text:=pchar(ini_config.readstring('backup','bakup_num',inttostr(bakup_num)));
 checkbox2.Checked:=ini_config.readbool('backup','start_bakup',start_bakup);
 checkbox4.Checked:=ini_config.readbool('initialization','start_log',start_log);

 ini_config.Free;        //释放
 end;

procedure TOpertion.BitBtn6Click(Sender: TObject);
begin
ini_config:=Tinifile.create(Product_Dir+'config.ini');
if checkbox1.Checked then ini_config.writestring('initialization','login_user','MustBeLogin') else ini_config.writestring('initialization','login_user','do_not_login');
ini_config.writebool('initialization','state_bar',checkbox3.Checked);
ini_config.writestring('backup','bakup_num',edit1.Text);
ini_config.writebool('backup','start_bakup',checkbox2.Checked);
ini_config.writebool('initialization','start_log',checkbox4.Checked);
ini_config.Free;        //释放

end;

procedure TOpertion.BitBtn3Click(Sender: TObject);
begin
checkbox3.Checked:=false;
checkbox1.Checked:=true;
edit1.Text:='5';
checkbox2.Checked:=true;
checkbox4.Checked:=true;

BitBtn6Click(sender);
end;

procedure TOpertion.BitBtn4Click(Sender: TObject);
begin
close;
end;

procedure TOpertion.Edit1Exit(Sender: TObject);
begin
if strtoint(edit1.Text)>20 then
begin
showmessage('最大值不要超过20，否则会占用大量磁盘空间');
edit1.Text:='20';
edit1.SetFocus;
end;
end;

end.