uezaf004.pas

培训管理系统

unit uezaf004;

interface

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

type
  Tuezaf004f = class(Tobject_base)
    panleft: TPanel;
    pantop: TPanel;
    dataDBGrid: TwwDBGrid;
    Splitter1: TSplitter;
    panright: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label7: TLabel;
    prior_code: TDBEdit;
    prior_name: TDBEdit;
    prior_desc: TDBEdit;
    Label4: TLabel;
    Data_Masterprior_code: TStringField;
    Data_Masterprior_name: TStringField;
    Data_Masterprior_desc: TStringField;
    Label5: TLabel;
    default: TwwCheckBox;
    Data_Masterdefault: TBooleanField;
    Label1: TLabel;
    findkey: TwwIncrementalSearch;
    Label6: TLabel;
    findkey1: TwwIncrementalSearch;
    procedure savedata;override;
    procedure deletedata;override;
    procedure Btn_AppendClick(Sender: TObject);
    procedure Btn_SaveClick(Sender: TObject);
    procedure Btn_modifyClick(Sender: TObject);
    procedure Btn_CancelClick(Sender: TObject);
    procedure dataDBGridEnter(Sender: TObject);
    procedure dataDBGridExit(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Data_MasterNewRecord(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  uezaf004f: Tuezaf004f;

implementation

uses Pdlgloading;

{$R *.dfm}

procedure Tuezaf004f.Btn_AppendClick(Sender: TObject);
begin
   panleft.Enabled:=false;
   panright.Enabled:=true;
   inherited;
   prior_code.Enabled:=true;
   prior_code.SetFocus ;
end;

procedure Tuezaf004f.Btn_SaveClick(Sender: TObject);
begin
  if trim(prior_code.Text)='' then
  begin
    showmessage('代码不能为空');
    prior_code.SetFocus;
    abort;
  end;
  
  if trim(prior_name.Text)='' then
  begin
    showmessage('名称不能为空');
    prior_name.SetFocus;
    abort;
  end;

  inherited;

  if not btn_save.Enabled then begin
     panright.Enabled:=false;
     panleft.Enabled:=true;
  end;
end;


procedure Tuezaf004f.Btn_modifyClick(Sender: TObject);
begin
   panleft.Enabled:=false;
   panright.Enabled:=true;
  inherited;
   prior_code.Enabled:=false;
   prior_name.SetFocus;
end;

procedure Tuezaf004f.Btn_CancelClick(Sender: TObject);
begin
    inherited;
    panright.Enabled:=false;
    panleft.Enabled:=true;
end;

procedure Tuezaf004f.dataDBGridEnter(Sender: TObject);
begin
  inherited;
  keypreview:=false;
end;

procedure Tuezaf004f.dataDBGridExit(Sender: TObject);
begin
  inherited;
  keypreview:=true;
end;

procedure Tuezaf004f.FormShow(Sender: TObject);
begin
  inherited;
//  findkey.SearchField:=datadbgrid.Fields[0].FieldName;
end;

procedure Tuezaf004f.FormCreate(Sender: TObject);
begin
    inherited;
    datadbgrid.IniAttributes.FileName:=extractfilepath(application.ExeName)+'\ini\datadbgrid.ini';
    datadbgrid.IniAttributes.SectionName:=Name;    
    datadbgrid.LoadFromIniFile;
    with Dlgloading.Progress do Position:=Position+30;
    data_master.Open;
    with Dlgloading.Progress do Position:=Position+60;
end;

procedure Tuezaf004f.deletedata;
begin
  inherited;
  data_master.Delete;
end;

procedure Tuezaf004f.savedata;
begin
  inherited;
  data_master.post;
end;

procedure Tuezaf004f.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  datadbgrid.SaveToIniFile;
  inherited;
end;

procedure Tuezaf004f.Data_MasterNewRecord(DataSet: TDataSet);
begin
  inherited;
  dataset.FieldByName('default').AsBoolean:=false;
end;

end.