unit15.~pas

进销存管理系统jxc

unit Unit15;

interface

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

type
  TF_kc = class(TForm)
    Panel2: TPanel;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    Panel4: TPanel;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    Edit1: TEdit;
    Label13: TLabel;
    BitBtn1: TBitBtn;
    DBEdit1: TDBEdit;
    DBGrid2: TDBGrid;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure DBEdit1Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  F_kc: TF_kc;

implementation
uses unit1, Unit16, Unit14, Unit19;
{$R *.DFM}

procedure TF_kc.BitBtn2Click(Sender: TObject);
begin
  mainform.Q_kc.append;
  F_kc_add.showmodal;
end;

procedure TF_kc.BitBtn1Click(Sender: TObject);
begin
if custom_window='c_rkd' then
  begin
    mainform.Q_rkmx.FieldByName('入库明细.商品编号').AsString:=mainform.Q_kcxz.fieldbyname('商品编号').asstring;
    F_rkmx.editdbedit2.SetFocus;
    close;
  end;
if custom_window='c_ckd' then
  begin
    mainform.A_ckmx.FieldByName('出库明细.商品编号').AsString:=mainform.Q_kcxz.fieldbyname('商品编号').asstring;
    F_Ckmx.editdbedit2.SetFocus;
    close;
  end;

end;

procedure TF_kc.BitBtn3Click(Sender: TObject);
begin
  mainform.Q_kc.edit;
  F_kc_add.showmodal;
end;

procedure TF_kc.DBEdit1Change(Sender: TObject);
var
  sp_name:string;
begin
if trim(edit1.Text)='' then sp_name:='where 商品类别='+''''+DBEdit1.Text+''''
  else sp_name:='where 商品类别='+''''+DBEdit1.Text+''''+' and 商品名称 like '+''''+'%'+edit1.Text+'%'+'''';
with mainform.Q_kcxz do
  begin
    close;
    sql.Clear;
    sql.Add('SELECT * from 库存');
    sql.Add(sp_name);
    open;
  end;
end;

procedure TF_kc.FormShow(Sender: TObject);
begin
mainform.A_sqlba.Close;
mainform.A_sqlba.Open;
edit1.Text:='';
end;

procedure TF_kc.Edit1Change(Sender: TObject);
var
  sp_name:string;
begin
if trim(edit1.Text)='' then sp_name:='where 商品类别='+''''+DBEdit1.Text+''''
  else sp_name:='where 商品类别='+''''+DBEdit1.Text+''''+' and 商品名称 like '+''''+'%'+edit1.Text+'%'+'''';
with mainform.Q_kcxz do
  begin
    close;
    sql.Clear;
    sql.Add('SELECT * from 库存');
    sql.Add(sp_name);
    open;
  end;

end;

end.