childfrm.~pas

基于Interbase的图书管理系统

unit ChildFrm;

interface

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

type
 TChildForm = class(TForm)
    SBcommbtn: TSpeedButton;
    PMenuChild: TPopupMenu;
    PMenuN1: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure PMenuN1Click(Sender: TObject);
  private
    FAsChild: Boolean;
    FTempParent: TWinControl;
  protected
    changed:boolean;
    procedure CreateParams(var Params: TCreateParams); override;
    procedure Loaded; override;
  public
    constructor Create(AOwner: TComponent); overload; override;
    constructor Create(AOwner: TComponent; AParent: TWinControl); reintroduce; overload;
   //设虚方法，得到菜单，检索窗口是否改变
   // function GetFormMenu: TMainMenu; virtual; abstract;
    function GetformButton:Tpanel;virtual;abstract;
       //提示的方法
    function bookWarning(Acaption:string):integer;
    procedure bookError(Acaption:string);
    procedure bookInformation(Acaption:string);
    function bookConfirmation(Acaption:string):integer;
    function bookErrorYesNo(Acaption:string):integer;
 end;
var
    ChildForm: TChildForm;
    dataAliasName:string; //数据库别名变量
    borrowbooknum:integer; //默认一个人借书数量变量
    borrowbookday:integer; // 默认借书借期变量
    passdaybookcomm:integer;//默认借书过期一般扣点数变量
    passdayself:integer;    //默认借书过期特殊扣点数变量
    readercount:integer;    //记录读者流水号
    backuptime:tdatetime;   //备份提示时间
    checkusesdefaultday:boolean;//检验使用默认借书借期变量
const
 SX_MYMESSAGE=WM_USER+100;
 SY_MYMESSAGE=WM_USER+101;
 UP_READER=WM_USER+102;
 INI_WRITE=WM_USER+103;
 MY_LOGIN=WM_USER+104;

implementation

{$R *.DFM}
constructor TChildForm.Create(AOwner: TComponent);
begin
  FAsChild := False;
  changed:=false;
  inherited Create(AOwner);
end;

constructor TChildForm.Create(AOwner: TComponent; AParent: TWinControl);
begin
  FAsChild := True;
  FTempParent := aParent;
  changed:=false;
  inherited Create(AOwner);
end;

procedure TChildForm.Loaded;
begin
  inherited;
  if FAsChild then
  begin
    align := alClient;
    //BorderStyle := bsSingle;
    BorderStyle := bsToolwindow;
    BorderIcons := [biSystemMenu,biMaximize];
    Parent := FTempParent;
    Align:=alClient;
    Position := poDefault;
  end;
end;

procedure TChildForm.CreateParams(var Params: TCreateParams);
Begin
  Inherited CreateParams(Params);
  if FAsChild then
    Params.Style := Params.Style or WS_CHILD;
end;

procedure TChildForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   SBcommbtn.Parent:=self;
   Action:=caFree;
end;

function TChildForm.bookConfirmation(Acaption: string): integer;
begin
Result:=messagedlg(Acaption,mtConfirmation,[mbYes,mbNo],0);
end;

procedure TChildForm.bookError(Acaption: string);
var
bbok:integer;
begin
bbok:=messagedlg(Acaption,mtError,[mbOK],0);
if bbok=mrOK then exit;
end;

procedure TChildForm.bookInformation(Acaption: string);
var
bbok:integer;
begin
bbok:=messagedlg(Acaption,mtInformation,[mbOK],0);
if bbok=mrOK then exit;
end;

function TChildForm.bookWarning(Acaption: string): integer;
begin
Result:=messagedlg(Acaption,mtWarning,[mbYes,mbNo],0);
end;

function TChildForm.bookErrorYesNo(Acaption: string): integer;
begin
  Result:=messagedlg(Acaption,mtError,[mbYes,mbNo],0);
end;

procedure TChildForm.PMenuN1Click(Sender: TObject);
begin
close;
end;

end.