uezaf001.pas

培训管理系统

unit uezaf001;

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;

type
  Tuezaf001f = class(Tobject_base)
    panleft: TPanel;
    pantop: TPanel;
    Label1: TLabel;
    findkey: TwwIncrementalSearch;
    dataDBGrid: TwwDBGrid;
    Splitter1: TSplitter;
    panright: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label7: TLabel;
    certificate_typecode: TDBEdit;
    certificate_typename: TDBEdit;
    Data_Mastercertificate_typecode: TStringField;
    Data_Mastercertificate_typename: TStringField;
    Label4: TLabel;
    Label5: 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);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  uezaf001f: Tuezaf001f;

implementation

uses Pdlgloading;

{$R *.dfm}

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

procedure Tuezaf001f.Btn_SaveClick(Sender: TObject);
begin
  if trim(certificate_typecode.Text)='' then
  begin
    showmessage('类型代码不能为空');
    certificate_typecode.SetFocus;
    abort;
  end;

  if trim(certificate_typename.Text)='' then
  begin
    showmessage('类型描述不能为空');
    certificate_typename.SetFocus;
    abort;
  end;

  inherited;

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


procedure Tuezaf001f.Btn_modifyClick(Sender: TObject);
begin
   panleft.Enabled:=false;
   panright.Enabled:=true;
  inherited;
   certificate_typecode.Enabled:=false;
   certificate_typename.SetFocus;
end;

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

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

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

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

procedure Tuezaf001f.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 Tuezaf001f.deletedata;
begin
  inherited;
  data_master.Delete;
end;

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

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

end.