unit Unit19;

interface

uses
  Windows, Messages, Classes, SysUtils, Graphics, Controls, StdCtrls, Forms,
  Dialogs, DBCtrls, DB, Buttons, Mask, ExtCtrls;

type
  TF_ckmx = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    EditDBEdit: TDBEdit;
    EditDBEdit2: TDBEdit;
    EditDBEdit6: TDBEdit;
    EditDBEdit8: TDBEdit;
    EditDBEdit9: TDBEdit;
    Panel2: TPanel;
    Panel3: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label4: TLabel;
    Label5: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    Button1: TButton;
    procedure EditDBEdit2Exit(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure EditDBEdit6Enter(Sender: TObject);
    procedure EditDBEdit6Exit(Sender: TObject);
    procedure EditDBEdit8Exit(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  F_ckmx: TF_ckmx;

implementation
uses unit1, Unit14, Unit15, Unit12;
{$R *.DFM}

procedure TF_ckmx.EditDBEdit2Exit(Sender: TObject);
begin
with mainform.Q_kc_ck do
  begin
    close;
    sql.Clear;
    sql.Add('select * from 庫存');
    sql.Add('where 商品編號='+''''+(F_ckmx.EditDBEdit2.Text)+'''');
    open;
  end;
if (mainform.Q_kc_ck.eof=true) and (trim(F_ckmx.EditDBEdit2.Text)<>'') then
  begin
    application.MessageBox('沒有該商品編號,請重新輸入','系統信息',MB_OK+MB_Iconquestion);
    F_ckmx.EditDBEdit2.Text:='';
    F_ckmx.EditDBEdit2.SetFocus;
  end else
  begin
    mainform.A_ckmx.FieldByName('出庫價格').asfloat:=mainform.Q_kc_ck.fieldbyname('銷售價格').AsFloat;
  end;
end;

procedure TF_ckmx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
mainform.A_ckmx.Cancel;
end;

procedure TF_ckmx.BitBtn1Click(Sender: TObject);
VAR
  ckd_no:string;
begin
if (EditDBEdit2.Text='') or (EditDBEdit6.Text='') or (EditDBEdit8.Text='') then
 application.MessageBox('信息錄入不全，請重新輸入！','系統信息',MB_OK+MB_Iconstop)
 else begin
  mainform.A_ckmx.FieldByName('出庫明細.商品名稱').asstring:=F_Ckmx.DBEdit1.text;
  //mainform.A_ckmx.FieldByName('客戶名稱').asstring:=F_ckd_Z.EditDBEdit3.text;
  mainform.A_ckmx.post;
  ckd_no:=F_ckmx.EditDBEdit.text;
  mainform.A_ckd.Close;
  mainform.A_ckd.Open;
  mainform.A_ckd.locate('出庫單號',ckd_no,[loCaseInsensitive]);
  close;
 end;
end;

procedure TF_ckmx.Button1Click(Sender: TObject);
begin
custom_window:='c_ckd';
F_kc.BitBtn1.Visible:=true;
F_kc.showmodal;
end;

procedure TF_ckmx.EditDBEdit6Enter(Sender: TObject);
begin
if trim(F_ckmx.EditDBEdit2.Text)='' then
  begin
    application.MessageBox('商品編號不能為空，請重新輸入','系統信息',MB_OK+MB_Iconstop);
    F_ckmx.EditDBEdit2.SetFocus;
  end else F_ckmx.EditDBEdit6.Text:='1'

end;

procedure TF_ckmx.EditDBEdit6Exit(Sender: TObject);
begin
if (trim(F_ckmx.EditDBEdit8.Text)<>'') and (trim(F_ckmx.EditDBEdit6.Text)<>'') then
  begin
    mainform.A_ckmx.FieldByName('合計').asstring:=floattostr(strtofloat(F_ckmx.EditDBEdit8.Text)*strtofloat(F_ckmx.EditDBEdit6.Text));
  end;

end;

procedure TF_ckmx.EditDBEdit8Exit(Sender: TObject);
begin
if (trim(F_ckmx.EditDBEdit8.Text)<>'') and (trim(F_ckmx.EditDBEdit6.Text)<>'') then
  begin
    mainform.A_ckmx.FieldByName('合計').asstring:=floattostr(strtofloat(F_ckmx.EditDBEdit8.Text)*strtofloat(F_ckmx.EditDBEdit6.Text));
  end;
end;

procedure TF_ckmx.FormShow(Sender: TObject);
begin
with mainform.Q_kc_ck do
  begin
    close;
    sql.Clear;
    sql.Add('select * from 庫存');
    sql.Add('where ID<1');
    open;
  end;
F_ckmx.EditDBEdit2.setfocus;  
end;

end.