u_childq.pas

来自「小银行系统」· PAS 代码 · 共 92 行

unit U_ChildQ;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, CHILDWIN, ExtCtrls, DBCtrls, StdCtrls, Buttons, Grids, DBGrids,
  DB, ADODB, DosMove,fuct_server, DBGridEh;

type
  TF_ChildQ = class(TMDIChild)
    Splitter1: TSplitter;
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
    move:boolean;
  public
    mlog:integer;
    vdate:string;
    vadd,vedit,vdelete,vquery,vgetdata,vdatain,vdataout,vsave,vcancel:boolean;
    procedure set_btn(flag:boolean);
    procedure DoInsert;virtual;abstract;
    procedure DoEdit;virtual;abstract;
    procedure DoQuery;virtual;abstract;
    procedure DoDelete;virtual;abstract;
    procedure DoGetDate;virtual;abstract;
    procedure DoSave;virtual;abstract;
    procedure DoCancel;virtual;abstract;
    procedure DoCloseForm;virtual;abstract;
    procedure DoDataIn;virtual;abstract;
    procedure DoDataOut;virtual;abstract;

    { Public declarations }
  end;

var
  F_ChildQ: TF_ChildQ;
implementation

uses U_MAIN;

{$R *.dfm}

{ TF_Child }

procedure TF_ChildQ.set_btn(flag: boolean);
begin
    f_Main.B_Add.Enabled:=flag;
    f_Main.B_edit.Enabled:=flag;
    f_Main.B_delete.Enabled:=flag;
    f_Main.B_query.Enabled:=flag;
    f_Main.B_getdata.Enabled:=flag;
    f_Main.B_update.Enabled:=not flag;
    f_Main.B_cancel.Enabled:=not flag;
    vadd:=f_Main.B_Add.Enabled;
    vedit:=f_Main.B_edit.Enabled;
    vdelete:=f_Main.B_delete.Enabled;
    vquery:=f_Main.B_query.Enabled;
    vgetdata:=f_Main.B_getdata.Enabled;
    vsave:=f_Main.B_update.Enabled;
    vcancel:=f_Main.B_cancel.Enabled;
end;

procedure TF_ChildQ.FormCreate(Sender: TObject);
begin
  inherited;
  self.set_btn(true);
  vdate:=formatdatetime('YYYY/MM/DD',date);
  move:=true;  
end;

procedure TF_ChildQ.FormActivate(Sender: TObject);
begin
  inherited;
    //if  move then
    //begin
    //   if self.Top>10 then self.Top:=10;
    //   move:=false;
    //end;
    self.Top:=0;
    f_Main.B_Add.Enabled:=vadd;
    f_Main.B_edit.Enabled:=vedit;
    f_Main.B_delete.Enabled:=vdelete;
    f_Main.B_query.Enabled:=vquery;
    f_Main.B_getdata.Enabled:=vgetdata;
    f_Main.B_update.Enabled:=vsave;
    f_Main.B_cancel.Enabled:=vcancel;
end;

end.