unit PS_comwareahouse;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, DBCtrls, Mask, Menus;

type
  TF_comwarehouse = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    E_id: TDBEdit;
    E_name: TDBEdit;
    M_memo: TDBMemo;
    procedure E_idClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormActivate(Sender: TObject);
    procedure HaveRecord;
    procedure NoRecord;
    procedure beforeinsert;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_comwarehouse: TF_comwarehouse;
  firstappend:integer;

implementation

uses PS_db, PS_main;

{$R *.DFM}

//自定義函數部分
procedure TF_comwarehouse.NoRecord;
begin
  with tf_comwarehouse(f_main.activemdichild) do begin
    E_id.Enabled:=false;
    E_name.Enabled:=false;
    M_memo.Enabled:=false;
    end;
end;

procedure TF_comwarehouse.HaveRecord;
begin
  with tf_comwarehouse(f_main.activemdichild) do begin
    E_id.Enabled:=true;
    E_name.Enabled:=true;
    M_memo.Enabled:=true;
    end;
end;

procedure tf_comwarehouse.beforeinsert;
begin
  with tf_comwarehouse(f_main.activemdichild) do
    e_id.setfocus;
end;
//程序正體部分
procedure TF_comwarehouse.E_idClick(Sender: TObject);
begin
  tedit(sender).selectall;
end;

procedure TF_comwarehouse.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  with comdatabase do begin
   comwarehouse.close;
   end;
  f_main.currentTable:=nil;
  action:=cafree;
end;

procedure TF_comwarehouse.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  canclose:=f_main.savetocache;
end;

procedure TF_comwarehouse.FormActivate(Sender: TObject);
begin
  with comdatabase do begin
    comwarehouse.open;
    end;
  if comdatabase.comwarehouse.isempty then norecord;
  f_main.currentTable:=comdatabase.comwarehouse;
  f_main.TableName:=Rcomwarehouse;
  f_main.buttonstate;
end;

end.