ungysb.~pas

商品入库

unit UNGYSB;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, DBGrids, DBCtrls, Mask,
  IdBaseComponent, IdComponent, IdTCPConnection;

type
  TFMGYSB = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBMemo1: TDBMemo;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    GroupBox1: TGroupBox;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label24: TLabel;
    Label26: TLabel;
    Edit1: TEdit;
    Label9: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FMGYSB: TFMGYSB;

implementation
uses UNGYSBD, UNGYSBO;
{$R *.dfm}

procedure TFMGYSB.BitBtn1Click(Sender: TObject);
begin

FMGYSBD.QGYSB.Append;

DBEdit1.SetFocus;
end;

procedure TFMGYSB.BitBtn2Click(Sender: TObject);
begin
IF (DBEdit1.Text<>'') THEN
BEGIN
FMGYSBD.QGYSB.FieldByName('GYSNO').AsString:=DBEdit1.Text;
FMGYSBD.QGYSB.FieldByName('GYSNA').AsString:=DBEdit2.Text;
FMGYSBD.QGYSB.FieldByName('ENGNAM').AsString:=DBEdit3.Text;
FMGYSBD.QGYSB.FieldByName('GYSKI').AsString:=DBEdit4.Text;
FMGYSBD.QGYSB.FieldByName('FZREN').AsString:=DBEdit5.Text;
FMGYSBD.QGYSB.FieldByName('LXREN').AsString:=DBEdit6.Text;
FMGYSBD.QGYSB.FieldByName('YWREN').AsString:=DBEdit7.Text;
FMGYSBD.QGYSB.FieldByName('GSTEL1').AsString:=DBEdit8.Text;

FMGYSBD.QGYSB.FieldByName('GSFAX1').AsString:=DBEdit10.Text;

FMGYSBD.QGYSB.FieldByName('GSADD').AsString:=DBEdit12.Text;
FMGYSBD.QGYSB.FieldByName('WEIQK').AsString:=DBEdit13.Text;
FMGYSBD.QGYSB.FieldByName('YJYJE').AsString:=DBEdit14.Text;
FMGYSBD.QGYSB.FieldByName('ZJJYDA').AsString:=DBEdit15.Text;
FMGYSBD.QGYSB.FieldByName('JDDATE').AsString:=DBEdit16.Text;
FMGYSBD.QGYSB.FieldByName('BEIZHU').AsString:=DBMemo1.Text;

FMGYSBD.QGYSB.Post;
ShowMessage('存盘成功');
END else ShowMessage('供应商编号不能为空');
end;

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

DBEdit10.Text:='';

DBEdit12.Text:='';
DBEdit13.Text:='';
DBEdit14.Text:='';
DBEdit15.Text:='';
DBEdit16.Text:='';
DBMemo1.Text:='';
ShowMessage('删除成功');

end;
end;

procedure TFMGYSB.BitBtn4Click(Sender: TObject);
begin
WITH FMGYSBD.QGYSB DO
BEGIN
  CLOSE;
  SQL.Clear;
  IF ((Edit1.Text='') AND (Edit2.Text='') AND (Edit3.Text='') AND (Edit4.Text='') AND (Edit5.Text='') AND (Edit6.Text='') AND (Edit7.Text='') AND (Edit8.Text='')) THEN
  BEGIN
  SQL.Add('SELECT * FROM GYSB');
  SQL.Add('WHERE GYSNO IS NOT NULL');
  SQL.Add('ORDER BY GYSNO');
  OPEN;
  END
  /////////////////////////////////////////////////
  ELSE IF ((Edit1.Text<>'') AND (Edit2.Text='') AND (Edit3.Text='') AND (Edit4.Text='') AND (Edit5.Text='') AND (Edit6.Text='') AND (Edit7.Text='') AND (Edit8.Text='')) THEN
  BEGIN
  SQL.Add('SELECT * FROM GYSB');
  SQL.Add('WHERE GYSNO IS NOT NULL');
  SQL.Add('AND GYSNO="'+Edit1.Text+'"');
  SQL.Add('ORDER BY GYSNO');
  OPEN;
  END
  /////////////////////////////////////////////////
  ELSE IF ((Edit1.Text<>'') AND (Edit2.Text<>'') AND (Edit3.Text='') AND (Edit4.Text='') AND (Edit5.Text='') AND (Edit6.Text='') AND (Edit7.Text='') AND (Edit8.Text='')) THEN
  BEGIN
  SQL.Add('SELECT * FROM GYSB');
  SQL.Add('WHERE GYSNO IS NOT NULL');
  SQL.Add('AND GYSNO BETWEEN "'+Edit1.Text+'" AND "'+Edit2.Text+'"');
  SQL.Add('ORDER BY GYSNO');
  OPEN;
  END
  ////////////////////////////////////////////////
  ELSE IF ((Edit1.Text<>'') AND (Edit2.Text<>'') AND (Edit3.Text<>'') AND (Edit4.Text<>'') AND (Edit5.Text<>'') AND (Edit6.Text<>'') AND (Edit7.Text<>'') AND (Edit8.Text<>'')) THEN
  BEGIN
  SQL.Add('SELECT * FROM GYSB');
  SQL.Add('WHERE GYSNO IS NOT NULL');
  SQL.Add('AND GYSNO BETWEEN "'+Edit1.Text+'" AND "'+Edit2.Text+'"');
  SQL.Add('AND GYSNA="'+Edit3.Text+'"');
  SQL.Add('AND GYSKI="'+Edit4.Text+'"');
  SQL.Add('AND FZREN="'+Edit5.Text+'"');
  SQL.Add('AND GSTEL1="'+Edit6.Text+'"');
  SQL.Add('AND GSFAX1="'+Edit7.Text+'"');
  SQL.Add('AND GSADD="'+Edit8.Text+'"');
  SQL.Add('ORDER BY GYSNO');
  OPEN;
  END
  //////////////////////////////////////////////////
  ELSE IF ((Edit1.Text='') AND (Edit2.Text='') AND (Edit3.Text<>'') AND (Edit4.Text='') AND (Edit5.Text='') AND (Edit6.Text='') AND (Edit7.Text='') AND (Edit8.Text='')) THEN
  BEGIN
  SQL.Add('SELECT * FROM GYSB');
  SQL.Add('WHERE GYSNO IS NOT NULL');

  SQL.Add('AND GYSNA="'+Edit3.Text+'"');

  SQL.Add('ORDER BY GYSNO');
  OPEN;
  END
  ///////////////////////////////////////////////////////
  ELSE IF ((Edit1.Text='') AND (Edit2.Text='') AND (Edit3.Text='') AND (Edit4.Text<>'') AND (Edit5.Text='') AND (Edit6.Text='') AND (Edit7.Text='') AND (Edit8.Text='')) THEN
  BEGIN
  SQL.Add('SELECT * FROM GYSB');
  SQL.Add('WHERE GYSNO IS NOT NULL');


  SQL.Add('AND GYSKI="'+Edit4.Text+'"');

  SQL.Add('ORDER BY GYSNO');
  OPEN;
  END
  //////////////////////////////////////////////
  ELSE IF ((Edit1.Text='') AND (Edit2.Text='') AND (Edit3.Text='') AND (Edit4.Text='') AND (Edit5.Text<>'') AND (Edit6.Text='') AND (Edit7.Text='') AND (Edit8.Text='')) THEN
  BEGIN
  SQL.Add('SELECT * FROM GYSB');
  SQL.Add('WHERE GYSNO IS NOT NULL');


  SQL.Add('AND FZREN="'+Edit5.Text+'"');

  SQL.Add('ORDER BY GYSNO');
  OPEN;
  END
  ///////////////////
  ELSE IF ((Edit1.Text='') AND (Edit2.Text='') AND (Edit3.Text='') AND (Edit4.Text='') AND (Edit5.Text='') AND (Edit6.Text<>'') AND (Edit7.Text='') AND (Edit8.Text='')) THEN
  BEGIN
  SQL.Add('SELECT * FROM GYSB');
  SQL.Add('WHERE GYSNO IS NOT NULL');

  SQL.Add('AND GSTEL1="'+Edit6.Text+'"');

  SQL.Add('ORDER BY GYSNO');
  OPEN;
  END
  ///////////////
  ELSE IF ((Edit1.Text='') AND (Edit2.Text='') AND (Edit3.Text='') AND (Edit4.Text='') AND (Edit5.Text='') AND (Edit6.Text='') AND (Edit7.Text<>'') AND (Edit8.Text='')) THEN
  BEGIN
  SQL.Add('SELECT * FROM GYSB');
  SQL.Add('WHERE GYSNO IS NOT NULL');

  SQL.Add('AND GSFAX1="'+Edit7.Text+'"');

  SQL.Add('ORDER BY GYSNO');
  OPEN;
  END
  //////////////
  ELSE IF ((Edit1.Text='') AND (Edit2.Text='') AND (Edit3.Text='') AND (Edit4.Text='') AND (Edit5.Text='') AND (Edit6.Text='') AND (Edit7.Text='') AND (Edit8.Text<>'')) THEN
  BEGIN
  SQL.Add('SELECT * FROM GYSB');
  SQL.Add('WHERE GYSNO IS NOT NULL');

  SQL.Add('AND GSADD="'+Edit8.Text+'"');
  SQL.Add('ORDER BY GYSNO');
  OPEN;
  END
  /////////////****
  ELSE IF ((Edit1.Text<>'') AND (Edit2.Text<>'') AND (Edit3.Text<>'') AND (Edit4.Text='') AND (Edit5.Text='') AND (Edit6.Text='') AND (Edit7.Text='') AND (Edit8.Text='')) THEN
  BEGIN
  SQL.Add('SELECT * FROM GYSB');
  SQL.Add('WHERE GYSNO IS NOT NULL');
  SQL.Add('AND GYSNO BETWEEN "'+Edit1.Text+'" AND "'+Edit2.Text+'"');
  SQL.Add('AND GYSNA="'+Edit3.Text+'"');

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

  SQL.Add('AND GYSKI="'+Edit4.Text+'"');

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

  SQL.Add('AND FZREN="'+Edit5.Text+'"');

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

  SQL.Add('AND GSTEL1="'+Edit6.Text+'"');

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

  SQL.Add('AND GSFAX1="'+Edit7.Text+'"');

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

  SQL.Add('AND GSADD="'+Edit8.Text+'"');
  SQL.Add('ORDER BY GYSNO');
  OPEN;
  END;
  ////////////////////

END;
end;

procedure TFMGYSB.BitBtn5Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
Edit7.Clear;
Edit8.Clear;
end;

procedure TFMGYSB.BitBtn6Click(Sender: TObject);
begin
FMGYSBO.QUICKREP1.PREVIEW;
end;

procedure TFMGYSB.BitBtn7Click(Sender: TObject);
begin
FMGYSBO.QUICKREP1.Print;
end;

end.