unit uezaf003;

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
  Tuezaf003f = class(Tobject_base)
    panleft: TPanel;
    pantop: TPanel;
    dataDBGrid: TwwDBGrid;
    Splitter1: TSplitter;
    panright: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label7: TLabel;
    certificate_framecode: TDBEdit;
    certificate_framename: TDBEdit;
    Data_Mastercertificate_framecode: TStringField;
    Data_Mastercertificate_framename: TStringField;
    Label4: TLabel;
    Label1: TLabel;
    findkey: TwwIncrementalSearch;
    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
  uezaf003f: Tuezaf003f;

implementation

uses Pdlgloading;

{$R *.dfm}

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

procedure Tuezaf003f.Btn_SaveClick(Sender: TObject);
begin
  if trim(certificate_framecode.Text)='' then
  begin
    showmessage('機構代碼不能為空');
    certificate_framecode.SetFocus;
    abort;
  end;

  if trim(certificate_framename.Text)='' then
  begin
    showmessage('機構名稱不能為空');
    certificate_framename.SetFocus;
    abort;
  end;

  inherited;

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


procedure Tuezaf003f.Btn_modifyClick(Sender: TObject);
begin
   panleft.Enabled:=false;
   panright.Enabled:=true;
  inherited;
   certificate_framecode.Enabled:=false;
   certificate_framename.SetFocus;
end;

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

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

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

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

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

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

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

end.