udatapathf.pas

一套功能非常丰富的图书管理系统

unit uDataPathF;

interface

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

type
  TDataPathF = class(TFrame)
    Panel1: TPanel;
    StaticText1: TStaticText;
    Panel2: TPanel;
    Button1: TButton;
    Button2: TButton;
    GroupBox1: TGroupBox;
    StaticText2: TStaticText;
    Edit1: TEdit;
    Edit2: TEdit;
    StaticText3: TStaticText;
    GroupBox2: TGroupBox;
    StaticText4: TStaticText;
    StaticText5: TStaticText;
    StaticText6: TStaticText;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    constructor Create(AOwner : TComponent);override;
  end;

var
  DataPathF : TDataPathF;

implementation

uses uMainF,uGloabVar;

{$R *.DFM}

{ TDataPathF }

constructor TDataPathF.Create(AOwner: TComponent);
begin
  inherited;
  Edit1.Text := DBName;
  Edit2.Text := DBName;
  Edit3.Text := IntToStr(OutDay);
  Edit4.Text := FloatToStr(FineDay);
  Edit5.Text := IntToStr(PrintLinesCount);
  if (MainF.Loged =0) or (MainF.Loged =1) then
  begin
    Edit3.Enabled := True;
    Edit4.Enabled := True;
    Edit5.Enabled := True;
    Edit3.Color := clWindow;
    Edit4.Color := clWindow;
    Edit5.Color := clWindow;
  end
  else begin
    Edit3.Enabled := False;
    Edit4.Enabled := False;
    Edit5.Enabled := False;
    Edit3.Color := clBtnFace;
    Edit4.Color := clBtnFace;
    Edit5.Color := clBtnFace;
  end;

end;

procedure TDataPathF.Button2Click(Sender: TObject);
begin
  Parent := nil;
  MainF.Caption := '图书管理系统';
end;

procedure TDataPathF.Button1Click(Sender: TObject);

begin
  DBName := Edit2.Text;
  try
    StrToInt(Edit3.Text);
    StrToFloat(Edit4.Text);
    StrToInt(Edit5.Text);
    OutDay := StrToInt(Edit3.Text);
    FineDay := StrToFloat(Edit4.Text);
    PrintLinesCount := StrToInt(Edit5.Text);
    if PrintLinesCount<5 then
      PrintLinesCount := 5;
  except
    MessageDlg('参数输入错误',mtError,[mbok],0);
    Exit;
  end;
  Button2Click(Sender);
end;

end.