khdh.pas

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

procedure Tf_khdh.bzqlbDblClick(Sender: TObject);
begin
  bg.Cells[bzq,Row1]:= bzqlb.Items[bzqlb.itemIndex];
  bzqlb.Visible := False;
  bg.SetFocus;
end;

procedure Tf_khdh.bzqlbKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = Vk_Return then
    bzqlb.OnDblClick(Sender);
end;

procedure Tf_khdh.bzqlbExit(Sender: TObject);
begin
  bzqlb.Visible := False;
  bg.SetFocus;
  bg.Col := je;
  bg.Col := bzq;
end;

function Tf_khdh.EditIsNull: Boolean;
var
  i: Integer;
begin
  Result := False;
  For i := 0 to ControlCount-1 do
  begin
    if Controls[i] is TEdit then
    begin
      if Trim(TEdit(Controls[i]).Text)='' then
      begin
        Result := True;
        Exit;
      end;
    end
    else if Controls[i] is TComboBox then
    begin
      if Trim(TComboBox(Controls[i]).Text)='' then
      begin
        Result := True;
        Exit;
      end;
    end;
  end;
  For i :=0 to Panel2.ControlCount-1 do
  begin
    if Controls[i] is TEdit then
      if Trim(TEdit(Controls[i]).Text)='' then
      begin
        Result := True;
        Break;
      end;
  end;
end;


function Tf_khdh.GridIsNull: Boolean;
var
  c,r: Integer;
begin
  Result := False;
  For r := 1 to bg.RowCount-1 do
    For c := 0 to bg.ColCount-1 do
    if Trim(bg.Cells[c,r])='' then
    begin
      Result := True;
      Break;
    end;
end;

function Tf_khdh.GroupSum(spbh: String): Real;
var
  r: Integer;
begin
  Result := 0;
  For r := 1 to bg.RowCount-1 do
  begin
    if (Trim(spbh)=Trim(bg.Cells[spdm,r]))then
      Result := Result + StrToInt(bg.Cells[Num,r]);
  end;
end;

function Tf_khdh.IsGq: Boolean;
var
  r: Integer;
begin
  Result := False;
  For r := 1 to bg.RowCount-1 do
  begin
    if StrToDateTime(bg.Cells[bzq,r])<Trunc(Now)+1 then
    begin
      Result := True;
      Break;
    end;
  end;
end;

function Tf_khdh.CalculateCbj(spbh: String): real;
var
  sum: Integer;
  money: Real;
begin
  Result := 0;
  with Data.Query2 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select Sum(sl)as num,Sum(je)as Je from t_sprkjl where spdm = :a');
    ParamByName('a').AsString := Trim(spbh);
    Open;
  end;
  if Data.Query2.Fields[0].Value<>Null then
  begin
    Sum := Data.Query2.Fields[0].AsInteger;
    money := Data.Query2.Fields[1].AsFloat;
    Result := Money/sum;
  end;
end;

function Tf_khdh.GroupSum(spbh, kcmc, bzqx: String): Real;
var
  r: Integer;
begin
  Result := 0;
  For r := 1 to bg.RowCount-1 do
  begin
    if Trim(kcmc)=Trim(bg.Cells[ckmc,r]) then
      if (Trim(spbh)=Trim(bg.Cells[spdm,r]))then
        if (Trim(bzqx)= Trim(bg.Cells[bzq,r]))then
          Result := Result + StrToInt(bg.Cells[Num,r]);
  end;
end;

procedure Tf_khdh.tjClick(Sender: TObject);
var
  s,m: String;
  i: integer;
begin
  s:= 'PH'+ FormatDateTime('yyyymmdd',sj.Date);
  With Data.Query1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select max(dhph) as ss From t_dhph where sj>=:a and sj <:b');
    ParamByName('a').AsDate := Trunc(sj.Date);
    ParamByName('b').AsDate := Trunc(sj.Date)+1;
    Open;
  end;
  If Data.Query1.FieldByName('ss').Value = null then
    s := s + '001'
  else
  begin
    m:= Trim(Data.Query1.FieldByName('ss').Value) ;
    i:= StrToInt(Trim(Copy(m,11,8))) ;
    if i<9 then
      s:= s + '00'+ InttoStr(i +1)
    else if i<99 then
      s:= s + '0'+ InttoStr(i +1)
    else
      s:= s +InttoStr(i +1);
  end;
  xsph.Text := s;
  kh.SetFocus;
  sj.Enabled := False;
end;

procedure Tf_khdh.bcClick(Sender: TObject);
var
  r: Integer;
begin
  if EditIsNull  = False then
    if GridIsNull = False then
    begin
      Try
        if IsGq = True then
        begin
          Application.MessageBox('列表中有过期商品,不能完成订货.','提示',64);
          Exit;
        end;
        Data.Database.StartTransaction;
        With Data.Query1 do  //向订货票号表中插入数据
        begin
          Close;
          SQL.Clear;
          SQL.Add('insert t_dhph values(:a,:b,:c,:d,:e,:f,:g,:h,:i,:j,default)');
          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;
        For r := 1 to bg.RowCount-1 do
        begin
          With Data.Query1 do //向订货明细表中插入数据
          begin
            Close;
            SQL.Clear;
            SQL.Add('insert t_dhmx 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;
        end;
        Data.Database.Commit;
        Application.MessageBox('操作成功.','提示',64);
        self.qxClick(Sender);
      Except
        Data.Database.Rollback;
        Application.MessageBox('操作失败.','提示',64);
      end;
    end
    else
      Application.MessageBox('表格数据不能为空.','提示',64)
  else
    Application.MessageBox('数据项不能为空.','提示',64);
end;

procedure Tf_khdh.qxClick(Sender: TObject);
var
  c,r: Integer;
begin
  For r:=1 to bg.RowCount-1 do
    For c:=0 to bg.ColCount-1 do
      bg.Cells[c,r]:='';
  bg.RowCount:=2;
  Grid1.Visible := False;
  kh.Enabled := True;
  ksb.Enabled := True;
  lb.Visible := False;
  ksb.ItemIndex := 0;
  xsph.Clear;
  xszr.Text := '0.0';
  xsxj.Text:='0.0';
  xsse.Text := '0.0';
  zj.Text:= '0.0';
  Row1 := 1;
  Col1 := 0;
  sj.Enabled := True;
  ywy.Clear;
  kh.Clear;
  kh.SetFocus;
end;

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

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

procedure Tf_khdh.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_khdh.bgClick(Sender: TObject);
begin
  bg.Repaint;
end;

procedure Tf_khdh.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 ;
    printLeft('订货票号:  '+Trim(xsph.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.