qtsz_form.pas

delphi+sql2000实现的图书管理系统软件

unit QTSZ_Form;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TFlatSpeedButtonUnit, StdCtrls, TFlatEditUnit, TFlatGroupBoxUnit,
  TFlatButtonUnit, TFlatSpinEditUnit;

type
  TQTSZ_F = class(TForm)
    FlatGroupBox1: TFlatGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    DQLJ_FE: TFlatEdit;
    XLJ_FE: TFlatEdit;
    FlatSpeedButton1: TFlatSpeedButton;
    FlatGroupBox2: TFlatGroupBox;
    Label3: TLabel;
    CS_FSEI: TFlatSpinEditInteger;
    QD_FBtn: TFlatButton;
    Close_FBtn: TFlatButton;
    FlatGroupBox3: TFlatGroupBox;
    Label4: TLabel;
    FJ_FE: TFlatEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure Close_FBtnClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FlatSpeedButton1Click(Sender: TObject);
    procedure QD_FBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  QTSZ_F: TQTSZ_F;

implementation

{$R *.dfm}

Uses
   IniFiles, BFML_Form, Share_Unit;

procedure TQTSZ_F.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;
//***********************************************************************************
procedure TQTSZ_F.FormDestroy(Sender: TObject);
begin
  QTSZ_F:=nil;
end;
//***********************************************************************************
procedure TQTSZ_F.Close_FBtnClick(Sender: TObject);
begin
  close;
end;
//***********************************************************************************
procedure TQTSZ_F.FormShow(Sender: TObject);
var
  myini:TIniFile;
begin
  myini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'set.ini');
  DQLJ_FE.Text:=myini.ReadString('bakup','BakPath','');
  CS_FSEI.Value:=myini.ReadInteger('set','MaxCheckNum',0);
  FJ_FE.Text:=FloatToStr(myini.ReadFloat('set','FJDay',0.5));
  FreeAndNil(myini);
end;
//***********************************************************************************
procedure TQTSZ_F.FlatSpeedButton1Click(Sender: TObject);  //选择目录窗口
begin
  Share_FE:=XLJ_FE;
  with TBFML_F.Create(nil) do
    try
      ShowModal;
    finally
      Free;
    end;
end;
//***********************************************************************************
procedure TQTSZ_F.QD_FBtnClick(Sender: TObject);
var
  myini:TIniFile;
begin
  myini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'set.ini');
  if FJ_FE.Text<>'' then
    begin
      try
        StrToFloat(FJ_FE.Text);
      except
        MessageBox(handle,'罚金不是有效的实数','错误',MB_OK or MB_ICONERROR);
        FreeAndNil(myini);
        exit;
      end;
    end;
  if XLJ_FE.Text<>'' then myini.WriteString('bakup','BakPath',XLJ_FE.Text);
  myini.WriteInteger('set','MaxCheckNum',CS_FSEI.Value);
  myini.WriteFloat('set','FJDay',StrToFloat(FJ_FE.Text));
  MessageBox(handle,'你的修改已经设置成功','成功',MB_OK or MB_ICONINFORMATION);

end;

end.