pobject_pageform.pas

来自「培训管理系统」· PAS 代码 · 共 111 行

unit pobject_pageform;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, pobject_base, DBTables, ImgList, DB, Wwquery, Wwdatsrc,
  ExtCtrls, DBCtrls, ComCtrls, ToolWin, Grids, Wwdbigrd, Wwdbgrid;

type
  Tobject_pageform = class(Tobject_base)
    Panel2: TPanel;
    Panel3: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DBGrid_detail: TwwDBGrid;
    data_detail: TwwQuery;
    dts_detail: TwwDataSource;
    Upd_detail: TUpdateSQL;
    procedure DBGrid_detailKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure Btn_modifyClick(Sender: TObject);
    procedure Btn_RefreshClick(Sender: TObject);
    procedure DBGrid_detailExit(Sender: TObject);
    procedure DBGrid_detailEnter(Sender: TObject);
    procedure Btn_SaveClick(Sender: TObject);
    procedure Btn_CancelClick(Sender: TObject);
    procedure Btn_AppendClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  object_pageform: Tobject_pageform;

implementation

{$R *.dfm}

procedure Tobject_pageform.DBGrid_detailKeyPress(Sender: TObject;
  var Key: Char);
begin
  inherited;
  if (key<='z') and (key>='a') then key:=chr(ord(key)-32);
end;

procedure Tobject_pageform.FormCreate(Sender: TObject);
begin
  inherited;
  Panel2.Enabled:=false;
  Panel3.Enabled:=false;
  DBGrid_detail.ReadOnly:=true;  
end;

procedure Tobject_pageform.Btn_modifyClick(Sender: TObject);
begin
  inherited;
  panel2.Enabled:=True;
  panel3.Enabled:=True;
  DbGrid_Detail.ReadOnly:=False;
end;

procedure Tobject_pageform.Btn_RefreshClick(Sender: TObject);
begin
  inherited;
//close;open;基form写好了；
end;

procedure Tobject_pageform.DBGrid_detailExit(Sender: TObject);
begin
  inherited;
  keypreview:=true;
end;

procedure Tobject_pageform.DBGrid_detailEnter(Sender: TObject);
begin
  inherited;
  keypreview:=false;
end;

procedure Tobject_pageform.Btn_SaveClick(Sender: TObject);
begin
  inherited;
  if not btn_save.Enabled  then begin
     panel2.Enabled:=False;
     DbGrid_Detail.ReadOnly:=True;
     panel3.Enabled:=False;
  end;  
end;

procedure Tobject_pageform.Btn_CancelClick(Sender: TObject);
begin
  data_detail.cancelupdates;
  inherited;     //data_master的cancelupdate基form已经写了！
  panel2.Enabled:=False;
  panel3.Enabled:=False;
  DbGrid_Detail.ReadOnly:=True;
end;

procedure Tobject_pageform.Btn_AppendClick(Sender: TObject);
begin
  panel2.Enabled:=True;
  panel3.Enabled:=True;
  DbGrid_Detail.ReadOnly:=False;
  inherited;
end;

end.