systemdisgnunit.pas

学籍管理

{                    =======================                           }
{                       服务端拥护选项设置                             }      
{                   =======================                            }
{                                    《学籍管理系统》--作者：贺广兵    }
{                                                                      }
{       调用主程序单元定义的读写 INI 文件的方法把用户的设置保存进 INI  }
{       文件。                                                         }
{                                                                      }
{**********************************************************************}
unit SystemDisgnUnit;

interface

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

type
  TfmSystemDisgn = class(TForm)
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    edtRecordCount: TEdit;
    UpDown1: TUpDown;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure UpDown1Changing(Sender: TObject; var AllowChange: Boolean);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmSystemDisgn: TfmSystemDisgn;

implementation

uses StudentMain1;

{$R *.DFM}

procedure TfmSystemDisgn.Button2Click(Sender: TObject);
begin
   fmSystemDisgn.Close;
end;

procedure TfmSystemDisgn.UpDown1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
   edtRecordCount.Text:=IntToStr(Updown1.Position);
end;

procedure TfmSystemDisgn.Button1Click(Sender: TObject);
begin
  if CheckBox1.Checked then
    WriteIniFile('系统选项设置','自动保存更新记录',True)
  else
    WriteIniFile('系统选项设置','自动保存更新记录',False);
  if CheckBox2.Checked then
    WriteIniFile('系统选项设置','自动保存登陆时间',True)
  else
    WriteIniFile('系统选项设置','自动保存登陆时间',False);
  if CheckBox3.checked then
    WriteIniFile('系统选项设置','程序启动时强制口令检查',True)
  else
    WriteIniFile('系统选项设置','程序启动时强制口令检查',False);
  WriteIniFile('系统选项设置','数据笔数',Updown1.Position);
  fmSystemDisgn.Close;
end;

procedure TfmSystemDisgn.FormShow(Sender: TObject);
var
  RecordSize:Integer;
begin
  if ReadIniFile('系统选项设置','自动保存更新记录',True) then
    CheckBox1.Checked:=True
  else
    CheckBox1.Checked:=False;
  if ReadIniFile('系统选项设置','自动保存登陆时间',True) then
    CheckBox2.Checked:=True
  else
    CheckBox2.Checked:=False;
  if ReadIniFile('系统选项设置','程序启动时强制口令检查',True) then
    CheckBox3.checked:=True
  else
    CheckBox3.Checked:=False;
  RecordSize:=ReadIniFile('系统选项设置','数据笔数',Updown1.Position);
  edtRecordCount.Text:=IntToStr(RecordSize);
end;

end.