spxs.~pas

已经给出使用的每个SQL Server数据库

  r: Integer;
  KcNum: Integer;//记录库存数量
  kcxx: Integer;//记录库存下限
begin
  if Trim(dhph.Text)='' then
    if EditIsNull  = True then
    begin
      Application.MessageBox('数据项不能为空.','提示',64);
      Exit;
    end;
  if GridIsNull = True then
  begin
    Application.MessageBox('表格数据不能为空.','提示',64);
    Exit;
  end;
  Try
    if IsGq = True then
    begin
      Application.MessageBox('列表中有过期商品,不能完成销售.','提示',64);
      Exit;
    end;
    For r := 0 to bg.RowCount-1 do //判断销售商品是否超出库存下限,库存数量
    begin
      With Data.Query1 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('select * from t_kc where kcmc = :a and spdm = :b');
        ParamByName('a').AsString := Trim(bg.Cells[ckmc,r]);
        ParamByName('b').AsString := Trim(bg.Cells[spdm,r]);
        Open;
      end;
      if Data.Query1.RecordCount>0 then
      begin
        kcxx := Data.Query1.FieldByName('kcxx').AsInteger;
        Kcnum := Data.Query1.FieldByName('kcsl').AsInteger;
        if kcxx >0 then //设置了库存下限
          if kcnum - GroupSum(Trim(bg.Cells[spdm,r]))<kcxx then
            if Application.MessageBox(pchar('商品代码为'+bg.Cells[spdm,r]+'的商品超出库存下限,还要销售吗?'),'提示',mb_YesNo)<>ID_Yes then
               Exit;
      end;
      With Data.Query1 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('select * from t_sprkjl where kcmc = :a and spdm = :b and (bzq>= :c and bzq<=:d)');
        ParamByName('a').AsString := Trim(bg.Cells[ckmc,r]);
        ParamByName('b').AsString := Trim(bg.Cells[spdm,r]);
        ParamByName('c').AsDate := Trunc(StrToDateTime(bg.Cells[bzq,Row1]));
        ParamByName('d').AsDate := Trunc(StrToDateTime(bg.Cells[bzq,Row1]))+1;
        Open;
      end;
      if Data.Query1.RecordCount>0 then
        if GroupSum(Trim(bg.Cells[spdm,r]),Trim(bg.Cells[ckmc,r]),Trim(bg.Cells[bzq,r]))>Data.Query1.FieldByName('sl').AsInteger then
        begin
          Application.MessageBox(pchar('商品代码为'+bg.Cells[spdm,r]+'的商品超出库存数量,不能完成销售任务.'),'提示',64);
          Exit;
        end;
    end;
    Data.Database.StartTransaction;
    if Trim(dhph.Text)='' then
    begin
      With Data.Query1 do  //向销售票号表中插入数据
      begin
        Close;
        SQL.Clear;
        SQL.Add('insert t_xsph values(:a,:b,:c,:d,:e,:f,:g,:h,:i,:j)');
        ParamByName('a').AsString := Trim(xsph.Text);
        ParamByName('b').AsString := Trim(ksb.Text);
        ParamByName('c').AsString := Trim(fktj.Text);
        ParamByName('d').AsString := Trim(ywy.Text);
        ParamByName('e').AsFloat := StrToFloat(xsxj.Text);
        ParamByName('f').AsFloat:= StrToFloat(xszr.Text);
        ParamByName('g').AsFloat :=StrToFloat(xsse.Text);
        ParamByName('h').AsFloat := StrToFloat(zj.Text);
        ParamByName('i').AsString := Trim(kh.Text);
        ParamByName('j').AsDate := sj.Date;
        ExecSQL;
      end;
    end
    else
    begin
      with Data.Query1 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('update t_dhph set bs = 1 where dhph = :a');
        ParamByName('a').AsString := Trim(dhph.Text);
        ExecSQL;
      end;
    end;
    For r := 1 to bg.RowCount-1 do
    begin
      if Trim(dhph.Text)='' then
        With Data.Query1 do //向销售明细表中插入数据
        begin
          Close;
          SQL.Clear;
          SQL.Add('insert t_xsmx values (:a,:b,:c,:d,:e,:f,:g,:h,:i,:j,:k,:l)');
          ParamByName('a').AsString := Trim(xsph.Text);
          ParamByName('b').AsString := Trim(bg.Cells[ckmc,r]);
          ParamByName('c').AsString := Trim(bg.Cells[spdm,r]);
          ParamByName('d').AsString := Trim(bg.Cells[jbdw,r]);
          ParamByName('e').AsInteger := StrToInt(bg.Cells[num,r]);
          ParamByName('f').AsFloat := StrToFloat(bg.Cells[dj,r]);
          ParamByName('g').AsFloat := StrToFloat(bg.Cells[zk,r]);
          ParamByName('h').AsFloat := StrToFloat(bg.Cells[sl,r]);
          ParamByName('i').AsFloat := StrToFloat(bg.Cells[se,r]);
          ParamByName('j').AsFloat := StrToFloat(bg.Cells[wzrje,r]);
          ParamByName('k').AsFloat := StrToFloat(bg.Cells[je,r]);
          ParamByName('l').AsDate := StrToDateTime(bg.Cells[bzq,r]);
          ExecSQL;
        end;
      with Data.Query1 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('update t_sprkjl set sl = sl -:a,je = je-:aa where kcmc = :b and spdm = :c and(bzq>=:d and bzq<= :e)');
        ParamByName('b').AsString := Trim(bg.Cells[ckmc,r]);
        paramByName('c').AsString := Trim(bg.Cells[spdm,r]);
        ParamByName('a').AsInteger:= StrToInt(bg.Cells[Num,r]);
        ParamByName('aa').AsFloat := CalculateCbj(Trim(bg.Cells[spdm,r]))*StrToInt(bg.Cells[Num,r]);
        ParamByName('d').AsDate := Trunc(StrToDateTime(bg.Cells[bzq,r]));
        ParamByName('e').AsDate := Trunc(StrToDateTime(bg.Cells[bzq,r]))+1;
        ExecSQL;
      end;
      with Data.Query1 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('update t_kc set kcsl = kcsl -:a  where kcmc = :b and spdm = :c');
        ParamByName('b').AsString := Trim(bg.Cells[ckmc,r]);
        paramByName('c').AsString := Trim(bg.Cells[spdm,r]);
        ParamByName('a').AsInteger:= StrToInt(bg.Cells[Num,r]);
        ExecSQL;
      end;
    end;
    With Data.Query1 do //修改厂商结款
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from t_khjk where khmc = :a');
      ParamByName('a').AsString := Trim(kh.Text);
      Open;
    end;
    if Data.Query1.RecordCount>0 then
    begin
      With Data.Query1 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('update t_khjk set ysje = ysje + :a where khmc = :b');
        ParamByName('a').AsFloat := StrToFloat(zj.Text);
        ParamByName('b').AsString := Trim(kh.Text);
        ExecSQL;
      end;
    end
    else
    begin
      With Data.Query1 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('Insert t_khjk values(:a,:b)');
        ParamByName('a').AsString := Trim(kh.Text);
        ParamByName('b').AsFloat := StrToFloat(zj.Text);
        ExecSQL;
      end;
    end;
    Data.Database.Commit;
    Application.MessageBox('操作成功.','提示',64);
    self.qxClick(Sender);
  Except
    Data.Database.Rollback;
    Application.MessageBox('操作失败.','提示',64);
  end;
end;

procedure Tf_spxs.tcClick(Sender: TObject);
begin
  Close;
end;

procedure Tf_spxs.bgDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  CellRect: TRect;
  zdmc: String;
  zdwidth,zdheight,i: integer;
begin
  if Arow = 0 then
  begin
   zdheight:= 12;
   For i := 0 to bg.ColCount-1 do
    begin
      CellRect := bg.CellRect(i,0);
      Case i of
        ckmc: zdmc := '仓库名称';
        cklb: zdmc := '仓库类别';
        spdm: zdmc := '商品代码';
        spmc: zdmc := '商品名称';
        jbdw: zdmc := '基本单位';
        num: zdmc := '数量';
        zk: zdmc := '折扣';
        dj: zdmc := '单价';
        sl: zdmc := '税率';
        se: zdmc := '税额';
        wzrje: zdmc := '无折让金额';
        je: zdmc := '交易金额';
        bzq: zdmc := '保质期';
      end;
      zdwidth := length(Trim(zdmc));
      bg.Canvas.Font.Color := clRed;
      bg.Canvas.Brush.Color := bg.FixedColor;
      if CellRect.Right <>0 then
      begin
        bg.Canvas.FillRect(CellRect);
        bg.Canvas.TextOut(CellRect.Left+Trunc((bg.ColWidths[i]-zdwidth*6)/2),CellRect.Top+Trunc((bg.RowHeights[0] -zdheight)/2),zdmc );
      end;
    end;
  end;
end;

procedure Tf_spxs.bgClick(Sender: TObject);
begin
  bg.Repaint;
end;

procedure Tf_spxs.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  Row1 := 1;
  Col1 := 0;
  SetWindowLong(tc.Handle,gwl_style,getwindowlong(tc.Handle,gwl_style)or bs_multiline);
  tc.Caption := '退'+ #13 +'出';
  Sumzdkd := 0;
  For i := 0 to zds-1 do
  begin
    Azdkd[i]:= 1;
    sumzdkd := Sumzdkd+ Azdkd[i];
  end;
  Rowzdkd := Cols*(Sumzdkd/zds);
end;

procedure Tf_spxs.dyClick(Sender: TObject);
begin
  Rprinter.Execute;
end;

procedure Tf_spxs.RprinterPrint(Sender: TObject);
var
  i,m,n,l,r: integer;
begin
  with Sender as TBaseRePort do
  begin
    zbj := (PageWidth-Rowzdkd)/2;
    SetFont('宋体',18);
    FontColor :=clred;
    ypos := 0.8;
    PrintCenter('商品销售单',PageWidth/2);
    setFont('宋体',10);
    FontColor := clblue;
    ypos := ypos+0.5 ;
    if Trim(xsph.Text)<>'' then
      printLeft('销售票号:  '+Trim(xsph.Text),zbj)
    else if Trim (dhph.Text)<>'' then
      printLeft('订货票号:  '+Trim(dhph.Text),zbj);
    printRight('时    间：'+FormatDateTime('yyyy-mm-dd',sj.DateTime),zbj+Rowzdkd);
    printCenter('客   户:  '+Trim(kh.Text),PageWidth/2);
    ypos := ypos+0.4;
    m:= zds mod Cols;
    n:= zds div Cols;
    if m<>0 then
      n:=n+1;//n记录需要折几行
    For i:=0 to n-1 do
    begin
      Cleartabs;
      setFont('宋体',12);
      FontColor := clBlue;
      setpen(clblack,pssolid,1,pmcopy);
      settab(zbj,pjcenter,Azdkd[Cols*i],0,boxlineall,0);//在折行时,第一个字段的宽度等于每行的列数*行号(第一行行号为0)
      if i <>n-1 then //不是最后一行
        if Cols = 1 then
          tab(-2,-2,-2,-2,10)
        else
          tab(-2,Na,-2,-2,10)
      else
      begin
        if m<>0 then
        begin
          if (Cols = 1) then  //每行只有一列
            tab(-2,-2,-2,-2,10)
          else if m=1 then
            tab(-2,-2,-2,-2,10)
          else
            tab(-2,na,-2,-2,10);
        end
        else
        begin
          if Cols = 1 then
            tab(-2,-2,-2,-2,10)
          else
            tab(-2,Na,-2,-2,10)
        end;
      end;
      Print(Azdmc[Cols*i]);
      if Cols<>1 then
        if m=0 then //折行时最后一行字段数等于指定的字段数
        begin
          For l:=1 to Cols-1 do
          begin
            settab(na,pjcenter,Azdkd[Cols*i+l],0,boxlineall,0);
              if l=Cols-1 then
                tab(na,-2,-2,-2,10)
              else
                tab(na,Na,-2,-2,10);
            Print(Azdmc[Cols*i+l]);
          end;
        end
        else //折行时最后一行字段数不等于指定的字段数
        begin
          if i= n-1 then //最后一行
            For l :=1 to m-1 do
            begin
              if m>0 then
              begin
                settab(na,pjcenter,Azdkd[Cols*i+l],0,boxlineall,0);
                  if l=m-1 then
                    tab(na,-2,-2,-2,10)
                  else
                    tab(na,Na,-2,-2,10);
                Print(Azdmc[Cols*i+l]);
              end;
            end
          else
          begin
            For l := 1 to Cols-1 do
            begin
              settab(na,pjcenter,Azdkd[Cols*i+l],0,boxlineall,0);
                if l=cols-1 then
                  tab(na,-2,-2,-2,10)
                else
                  tab(na,na,-2,-2,10);
              Print(Azdmc[Cols*i+l]);
            end;
          end;
        end;
      ClearTabs;
      setFont('宋体',10);
      settab(zbj,pjLeft,Azdkd[Cols*i],0,boxlineall,0);
      if Cols<>1 then
        if m=0 then //折行时最后一行字段数等于指定的字段数
        begin
          For l:=1 to Cols-1 do
          begin
            settab(na,pjLeft,Azdkd[Cols*i+l],0,boxlineall,0);
          end;
        end
        else //折行时最后一行字段数不等于指定的字段数
        begin
          if i= n-1 then //最后一行
          begin
            if m>1 then
              For l :=1 to m-1 do
                settab(na,pjLeft,Azdkd[Cols*i+l],0,boxlineall,0);
          end
          else
          begin
            For l := 1 to Cols-1 do
              settab(na,pjLeft,Azdkd[Cols*i+l],0,boxlineall,0);
          end;
        end;
      println('');
      For r:=1 to bg.RowCount-1 do
      begin
        if m = 0 then
        begin
          For l:=0 to Cols-1 do
          begin
            if l=0 then//第一列
              if Cols<>1 then
                Tab(-2,na,na,na,0)
              else
                Tab(-2,-2,na,na,0)
            else if l=Cols-1 then //最后一列
              Tab(na,-2,na,na,0)
            else
              Tab(na,na,na,na,0);
            Print(bg.Cells[i*Cols+l,r]);
          end;
        end
        else
        begin
          if i = n-1 then
          begin
            For l :=0 to m-1 do
            begin
              if l=0 then //第一列
                if m>1 then
                  Tab(-2,na,na,na,0)
                else
                  Tab(-2,-2,na,na,0)
              else if l=m-1 then //最后一列
                Tab(na,-2,na,na,0)
              else
                Tab(na,na,na,na,0);
              Print(bg.Cells[i*Cols+l,r]);
            end;
          end
          else
          begin
            For l :=0 to Cols-1 do
            begin
              if l=0 then //第一列
                Tab(-2,na,na,na,0)
              else if l=Cols-1 then //最后一列
                Tab(na,-2,na,na,0)
              else
                Tab(na,na,na,na,0);
              Print(bg.Cells[i*Cols+l,r]);
            end;
          end;
        end;
        Println('');
      end;
    end;
    Println('');
    printLeft('销售小计:  '+Trim(xsxj.Text),zbj);
    printcenter('销售折让:  '+Trim(xszr.Text)+'        销售税额: '+ Trim(xsse.Text),(pageWidth)/2);
    printright('总计:  '+Trim(zj.Text),zbj+Rowzdkd);
  end;
end;

end.