unjh.~pas

商品入库

unit UNJH;

interface

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


type
  TFMJH = class(TForm)
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label13: TLabel;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Memo1: TMemo;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Label2: TLabel;
    Label4: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FMJH: TFMJH;

implementation

uses UNJHD,UNSPXXBD, UNJHBO;

{$R *.dfm}

procedure TFMJH.BitBtn2Click(Sender: TObject);
VAR
LOC1:BOOLEAN;
LOC2:BOOLEAN;
N:REAL;
Na:REAL;


STR1:STRING;
begin
IF (EDIT1.Text='') OR (EDIT2.Text='') THEN
   BEGIN
       SHOWMESSAGE('请输入商品编号和进货数量！');
       ABORT;
   END;
LOC1:=FMSPXXBD.TSPXXB.Locate('SPNO',EDIT1.Text,[LOCASEINSENSITIVE]);
IF LOC1=TRUE THEN
       BEGIN
           FMSPXXBD.TSPXXB.Edit;
           FMSPXXBD.TSPXXB.FieldByName('BDKCL').Value:=FMSPXXBD.TSPXXB.FieldByName('BDKCL').Value+STRTOINT(EDIT2.Text);
           FMSPXXBD.TSPXXB.Post;
           SHOWMESSAGE('新增商品数量成功！');
       END;

IF LOC1=FALSE THEN
       BEGIN
           IF (EDIT1.Text='') OR (EDIT2.Text='') OR (EDIT3.Text='') OR (EDIT4.Text='') OR (EDIT5.Text='') OR (EDIT6.Text='') OR (EDIT7.Text='') OR (EDIT8.Text='') OR (EDIT9.Text='') OR (EDIT10.Text='') OR (EDIT11.Text='') OR (EDIT12.Text='') THEN
               BEGIN
                  SHOWMESSAGE('新商品！请输入完全信息！');
                   abort;
               END ELSE
               BEGIN
               FMSPXXBD.TSPXXB.InsertRecord([EDIT1.Text,STRTOINT(EDIT2.Text),EDIT3.Text,STRTOFLOAT(EDIT4.Text),Edit6.TEXT,EDIT7.Text,STRTOFLOAT(EDIT8.Text),EDIT9.Text,EDIT10.Text,EDIT11.Text,EDIT12.Text]);
               SHOWMESSAGE('新增商品成功！');
               END;
        END;

 ////////////////////

BEGIN
LOC2:=FMJHD.TJHZB.Locate('SPNO',EDIT1.Text,[LOCASEINSENSITIVE]);
IF LOC2=FALSE THEN
    BEGIN
    FMJHD.TJHZB.Active:=TRUE;
    FMSPXXBD.TSPXXB.Active:=TRUE;
    FMJHD.TJHZB.InsertRecord([EDIT1.Text,STRTOINT(EDIT2.Text),EDIT3.Text,EDIT5.Text,Memo1.Text]);
    FMSPXXBD.TSPXXB.FindKey([EDIT1.Text]);
    N:=FMSPXXBD.TSPXXB.FieldByName('MORCB').AsFloat;
    STR1:=FMSPXXBD.TSPXXB.FieldByName('SPNAM').AsString;
    FMJHD.TJHZB.FindKey([EDIT1.Text]);
    FMJHD.TJHZB.Edit;
    FMJHD.TJHZB.FieldByName('JHXJ').AsFloat:=STRTOFLOAT(Edit2.Text)*N;
    FMJHD.TJHZB.FieldByName('SPNAM').Value:=STR1;

    FMJHD.TJHZB.Post;
    END;
IF LOC2=True THEN
    BEGIN
    FMJHD.TJHZB.Active:=TRUE;
    FMSPXXBD.TSPXXB.Active:=TRUE;
    FMSPXXBD.TSPXXB.FindKey([EDIT1.Text]);
    Na:=FMSPXXBD.TSPXXB.FieldByName('MORCB').AsFloat;

    FMJHD.TJHZB.FindKey([EDIT1.Text]);

    FMJHD.TJHZB.Edit;
    FMJHD.TJHZB.FieldByName('JHNUM').Value:=FMJHD.TJHZB.FieldByName('JHNUM').Value+STRTOINT(EDIT2.Text);
    FMJHD.TJHZB.FieldByName('JHXJ').AsFloat:=STRTOFLOAT(Edit2.Text)*Na+FMJHD.TJHZB.FieldByName('JHXJ').Value;
    END;
END;


end;

procedure TFMJH.BitBtn3Click(Sender: TObject);
 VAR
 STR3:STRING;
begin
 BEGIN
 STR3:=FMJHD.TJHZB.FIELDBYNAME('SPNO').AsString;
FMSPXXBD.TSPXXB.Active;
FMSPXXBD.TSPXXB.FindKey([ STR3]);
FMSPXXBD.TSPXXB.Edit;
FMSPXXBD.TSPXXB.FieldByName('BDKCL').AsFloat:=FMSPXXBD.TSPXXB.FieldValues['BDKCL']-FMJHD.TJHZB.FieldValues['JHNUM'];
FMSPXXBD.TSPXXB.Post;
 END;
WITH FMJHD.TJHZB DO
  BEGIN
      Delete;
 EDIT1.Text:='';
 EDIT2.Text:='';
 EDIT3.Text:='';
 EDIT4.Text:='';
 EDIT5.Text:='';
 EDIT6.Text:='';
 Memo1.Text:='';
 EDIT7.Text:='';
 EDIT8.Text:='';
 EDIT9.Text:='';
 EDIT10.Text:='';
 EDIT11.Text:='';
 EDIT12.Text:='';
ShowMessage('删除成功');

END;
end;

procedure TFMJH.BitBtn1Click(Sender: TObject);
begin
 EDIT1.Text:='';
 EDIT2.Text:='';
 EDIT3.Text:='';
 EDIT4.Text:='';
 EDIT5.Text:='';
 EDIT6.Text:='';
 Memo1.Text:='';
 EDIT7.Text:='';
 EDIT8.Text:='';
 EDIT9.Text:='';
 EDIT10.Text:='';
 EDIT11.Text:='';
 EDIT12.Text:='';
end;

procedure TFMJH.BitBtn4Click(Sender: TObject);
begin
FMJHBO.QUICKREP1.PREVIEW;
end;

procedure TFMJH.BitBtn5Click(Sender: TObject);
begin
FMJHBO.QUICKREP1.Print;
end;

procedure TFMJH.BitBtn6Click(Sender: TObject);
begin
close;
end;

end.