unit19.pas

进销存管理系统jxc

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.