unspxxb.~pas

商品入库

unit UNSPXXB;

interface

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

type
  TFMSPXXB = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label17: TLabel;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBMemo1: TDBMemo;
    GroupBox1: TGroupBox;
    BitBtn2: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Label22: TLabel;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    Query1: TQuery;
    DataSource1: TDataSource;
    DBEdit9: TDBEdit;
    BitBtn7: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FMSPXXB: TFMSPXXB;

implementation

uses UNSPXXBD, UNSPXXBO, UNACBZBO;
{$R *.dfm}

procedure TFMSPXXB.BitBtn1Click(Sender: TObject);
begin
IF (DBEdit1.Text<>'') THEN
BEGIN

FMSPXXBD.QSPXXB.FieldByName('SPNO').AsString:=DBEdit1.Text;
FMSPXXBD.QSPXXB.FieldByName('SPNAM').AsString:=DBEdit2.Text;
FMSPXXBD.QSPXXB.FieldByName('SPKIN').AsString:=DBEdit3.Text;
FMSPXXBD.QSPXXB.FieldByName('BZJG').AsString:=DBEdit4.Text;
FMSPXXBD.QSPXXB.FieldByName('HYJG').AsString:=DBEdit5.Text;
FMSPXXBD.QSPXXB.FieldByName('PFJG').AsString:=DBEdit6.Text;
FMSPXXBD.QSPXXB.FieldByName('SAFCL').AsString:=DBEdit7.Text;
FMSPXXBD.QSPXXB.FieldByName('BDKCL').AsString:=DBEdit8.Text;

FMSPXXBD.QSPXXB.FieldByName('MORCB').AsString:=DBEdit10.Text;
FMSPXXBD.QSPXXB.FieldByName('SPGG').AsString:=DBEdit11.Text;
FMSPXXBD.QSPXXB.FieldByName('KCDW').AsString:=DBEdit12.Text;
FMSPXXBD.QSPXXB.FieldByName('SPCOL').AsString:=DBEdit13.Text;
FMSPXXBD.QSPXXB.FieldByName('SPSIZ').AsString:=DBEdit14.Text;


FMSPXXBD.QSPXXB.FieldByName('BEIZHU').AsString:=DBMemo1.Text;
FMSPXXBD.QSPXXB.Post;
ShowMessage('存盘成功');
END else ShowMessage('商品编号不能为空');
end;

procedure TFMSPXXB.BitBtn4Click(Sender: TObject);
begin
FMSPXXBD.QSPXXB.Append;

DBEdit1.SetFocus;
end;



procedure TFMSPXXB.BitBtn3Click(Sender: TObject);
begin
  WITH FMSPXXBD.QSPXXB DO
  BEGIN
      Delete;
      DBEdit1.Text:='';
DBEdit2.Text:='';
DBEdit3.Text:='';
DBEdit4.Text:='';
DBEdit5.Text:='';
DBEdit6.Text:='';
DBEdit7.Text:='';
DBEdit8.Text:='';

DBEdit10.Text:='';
DBEdit11.Text:='';
DBEdit12.Text:='';
DBEdit13.Text:='';
DBEdit14.Text:='';


DBMemo1.Text:='';
ShowMessage('删除成功');

end;
end;

procedure TFMSPXXB.BitBtn2Click(Sender: TObject);
begin
WITH FMSPXXBD.QSPXXB DO
  BEGIN
  CLOSE;
  SQL.Clear;
  SQL.Add('SELECT * FROM SPXXB');
  SQL.Add('WHERE SPNO IS NOT NULL');
  SQL.Add('AND BDKCL<=SAFCL');
  SQL.Add('ORDER BY BDKCL,SAFCL');
  OPEN;
  END;
end;

procedure TFMSPXXB.BitBtn5Click(Sender: TObject);
begin
 WITH FMSPXXBD.QSPXXB DO 
BEGIN
  CLOSE;
  SQL.Clear;
  IF ((Edit1.Text='') AND (Edit2.Text='') AND (Edit3.Text='') AND (Edit4.Text='') AND (Edit5.Text='')) THEN
  BEGIN
  SQL.Add('SELECT * FROM SPXXB');
  SQL.Add('WHERE SPNO IS NOT NULL');
  SQL.Add('ORDER BY SPNO');
  OPEN;
  END
  ///////////////////////////////////////////////////////
  ELSE IF ((Edit1.Text<>'') AND (Edit2.Text='') AND (Edit3.Text='') AND (Edit4.Text='') AND (Edit5.Text='')) THEN
  BEGIN
  SQL.Add('SELECT * FROM SPXXB');
  SQL.Add('WHERE SPNO="'+Edit1.Text+'"');
  SQL.Add('ORDER BY SPNO');
  OPEN;
  END
  /////////////////////////////////////////////////////////
  ELSE IF ((Edit1.Text<>'') AND (Edit2.Text<>'') AND (Edit3.Text='') AND (Edit4.Text='') AND (Edit5.Text='')) THEN
  BEGIN
  SQL.Add('SELECT * FROM SPXXB');
  SQL.Add('WHERE SPNO IS NOT NULL');
  SQL.Add('AND SPNO BETWEEN "'+Edit1.Text+'" AND "'+Edit2.Text+'"');
  SQL.Add('ORDER BY SPNO');
  OPEN;
  END
  //////////////////////////////////////////////////////////
  ELSE IF ((Edit3.Text<>'')) THEN
  BEGIN
  SQL.Add('SELECT * FROM SPXXB');
  SQL.Add('WHERE SPNO IS NOT NULL');

  SQL.Add('AND SPNAM="'+Edit3.Text+'"');
  SQL.Add('ORDER BY SPNO');
  OPEN;
  END
  /////////////////////////////////////////////////////
  ELSE IF ((Edit1.Text<>'') AND (Edit2.Text<>'') AND (Edit4.Text<>'') AND (Edit5.Text='') ) THEN
  BEGIN
  SQL.Add('SELECT * FROM SPXXB');
  SQL.Add('WHERE SPNO IS NOT NULL');
  SQL.Add('AND SPNO BETWEEN "'+Edit1.Text+'" AND "'+Edit2.Text+'"');
  SQL.Add('AND SPKIN="'+Edit4.Text+'"');
  SQL.Add('ORDER BY SPNO');
  OPEN;
  END
  //////////////////////////////////////////////////////
  ELSE IF ((Edit1.Text='') AND (Edit2.Text='') AND (Edit3.Text='') AND (Edit4.Text<>'') AND (Edit5.Text='')) THEN
  BEGIN
  SQL.Add('SELECT * FROM SPXXB');
  SQL.Add('WHERE SPNO IS NOT NULL');
  SQL.Add('AND SPKIN="'+Edit4.Text+'"');
  SQL.Add('ORDER BY SPNO');
  OPEN;
  END
  ////////////////////////////////////////////////
  ELSE IF ((Edit1.Text<>'') AND (Edit2.Text<>'') AND (Edit4.Text<>'') AND (Edit5.Text<>'')) THEN
  BEGIN
  SQL.Add('SELECT * FROM SPXXB');
  SQL.Add('WHERE SPNO IS NOT NULL');
  SQL.Add('AND SPNO BETWEEN "'+Edit1.Text+'" AND "'+Edit2.Text+'"');
  SQL.Add('AND SPKIN="'+Edit4.Text+'"');
  SQL.Add('AND GYSNO="'+Edit5.Text+'"');
  SQL.Add('ORDER BY SPNO');
  OPEN;
  END
  /////////////////////////////////////////////////////
  ELSE IF ((Edit1.Text<>'') AND (Edit2.Text<>'') AND (Edit4.Text='') AND (Edit5.Text<>'') ) THEN
  BEGIN
  SQL.Add('SELECT * FROM SPXXB');
  SQL.Add('WHERE SPNO IS NOT NULL');
  SQL.Add('AND SPNO BETWEEN "'+Edit1.Text+'" AND "'+Edit2.Text+'"');

  SQL.Add('AND GYSNO="'+Edit5.Text+'"');
  SQL.Add('ORDER BY SPNO');
  OPEN;
  END
  //////////////////////////////////////////////////////
  ELSE IF ((Edit4.Text<>'') AND (Edit5.Text<>'')) THEN
  BEGIN
  SQL.Add('SELECT * FROM SPXXB');
  SQL.Add('WHERE SPNO IS NOT NULL');
  SQL.Add('AND SPKIN="'+Edit4.Text+'"');
  SQL.Add('AND GYSNO="'+Edit5.Text+'"');
  SQL.Add('ORDER BY SPNO');
  OPEN;
  END
 END;
end;

procedure TFMSPXXB.BitBtn6Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;

end;

procedure TFMSPXXB.BitBtn8Click(Sender: TObject);
begin
FMSPXXBO.QUICKREP1.PREVIEW;
end;

procedure TFMSPXXB.BitBtn9Click(Sender: TObject);
begin
FMACBZ.QUICKREP1.PREVIEW;
end;

procedure TFMSPXXB.BitBtn7Click(Sender: TObject);
begin
FMACBZ.QUICKREP1.Print;
end;

procedure TFMSPXXB.BitBtn10Click(Sender: TObject);
begin
FMSPXXBO.QUICKREP1.Print;
end;

procedure TFMSPXXB.BitBtn11Click(Sender: TObject);
begin
CLOSE;
end;

end.