unit Usbb;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, XPMenu, dxExEdtr, dxEdLib, dxDBELib,
  dxCntner, dxEditor, ComCtrls, DBCtrls, Mask, jpeg, ExtCtrls;

type
  Tsbb = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    XPMenu1: TXPMenu;
    DBEdit1: TDBEdit;
    DBMemo1: TDBMemo;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    DBMemo2: TDBMemo;
    Label11: TLabel;
    Image1: TImage;
    Memo1: TMemo;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sbb: Tsbb;

implementation

uses Udm, u_vardef;

{$R *.dfm}

procedure Tsbb.BitBtn3Click(Sender: TObject);
begin
dm.t_sbb.Append;
dm.t_sbb.Edit;
end;

procedure Tsbb.BitBtn1Click(Sender: TObject);
var
vdwbh:string;
begin
vdwbh:=DM.t_sbb['dwbh'];
if Length(vdwbh)<>10 then begin
   showmsg('單位編號輸入錯誤！');
   exit;
end;

saveQ(dm.t_sbb);
dm.v_sbb.Close;
dm.v_sbb.Open;
close;
end;

procedure Tsbb.FormShow(Sender: TObject);
begin
dm.t_sbb.Open;
if visadd=1 then
  dm.t_sbb.Append
else
begin
  DBEdit1.Enabled:=false;
  dm.t_sbb.Parameters.ParamValues['vdwbh']:=dm.v_sbb['dwbh'];
  dm.t_sbb.Close;
  dm.t_sbb.Open;
end;
end;

procedure Tsbb.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Tsbb.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then { 判斷是按執行鍵}
    begin
        key:=#0;
        perform(WM_NEXTDLGCTL,0,0);{移動到下一個控件}
    end;
end;

end.