uhzqd.pas

相关的销售服务管理行业的一个软件

    s:string;
    i:integer;
begin
      s:=Trim(frmckcon.DBEdit1.text);
      Seek(DBGridEh1,'s_qrdetail', '11','xs_rbd',' location='''+'d'+'''  and  kc_cktag=  '+''''+s+'''');
      for i:=0 to dbgrideh1.Columns.Count-1 do
      begin
        if  dbgrideh1.Columns.Items[i].FieldName='nFsCount' then
        begin
         DBGridEh1.Columns.Items[i].Footer.FieldName:='nFsCount';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        if  dbgrideh1.Columns.Items[i].FieldName='ncus1' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus1';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        if  dbgrideh1.Columns.Items[i].FieldName='ncus2' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus2';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        if  dbgrideh1.Columns.Items[i].FieldName='ncus3' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus3';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        if  dbgrideh1.Columns.Items[i].FieldName='ncus4' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus4';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        if  dbgrideh1.Columns.Items[i].FieldName='ncus5' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus5';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        if  dbgrideh1.Columns.Items[i].FieldName='ncus6' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus6';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
                if  dbgrideh1.Columns.Items[i].FieldName='ncus6' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus6';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        if  dbgrideh1.Columns.Items[i].FieldName='ncus7' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus7';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        if  dbgrideh1.Columns.Items[i].FieldName='ncus8' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus8';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        if  dbgrideh1.Columns.Items[i].FieldName='ncus9' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus9';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        if  dbgrideh1.Columns.Items[i].FieldName='ncus10' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus10';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        if  dbgrideh1.Columns.Items[i].FieldName='ncus11' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus11';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        if  dbgrideh1.Columns.Items[i].FieldName='ncus12' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus12';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        if  dbgrideh1.Columns.Items[i].FieldName='ncus13' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus13';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        if  dbgrideh1.Columns.Items[i].FieldName='ncus14' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus14';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        if  dbgrideh1.Columns.Items[i].FieldName='ncus15' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus15';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
         if  dbgrideh1.Columns.Items[i].FieldName='nGoodName' then
        begin
          //DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus15';
          dbgrideh1.columns.items[i].Footer.Value:='合计'; 
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtStaticText;

        end;
      end;
      dbgrideh1.SumList.Active :=true;


end;

procedure TFrmhzqd.SpeedButton1Click(Sender: TObject);
begin
  PrintDBGridEh1.PageHeader.CenterText.clear;
  PrintDBGridEh1.PageHeader.CenterText.Add('商场库存情况统计表');
  PrintDBGridEh1.PageHeader.CenterText.Add('');
  PrintDBGridEh1.PageHeader.CenterText.Add('');


  PrintDBGridEh1.PageHeader.LeftText.Clear;
  PrintDBGridEh1.PageHeader.LeftText.add('');
  PrintDBGridEh1.PageHeader.LeftText.add('');
  PrintDBGridEh1.PageHeader.LeftText.add(label1.caption+' '+ frmhzqd.Label4.Caption);
  PrintDBGridEh1.Preview ;




end;

procedure TFrmhzqd.ADOStoredProc1CalcFields(DataSet: TDataSet);
var i:integer;
    total:integer;
begin

  {   total:=0;
     total:= dataset.FieldByName('ncus1').Asinteger;
     total:=total+ dataset.FieldByName('ncus2').Asinteger;
     total:=total+ dataset.FieldByName('ncus3').Asinteger;
     total:=total+ dataset.FieldByName('ncus4').Asinteger;
     total:=total+ dataset.FieldByName('ncus5').Asinteger;
     total:=total+ dataset.FieldByName('ncus6').Asinteger;
     total:=total+ dataset.FieldByName('ncus7').Asinteger;
     total:=total+ dataset.FieldByName('ncus8').Asinteger;
     total:=total+ dataset.FieldByName('ncus9').Asinteger;
     total:=total+ dataset.FieldByName('ncus10').Asinteger;
     total:=total+ dataset.FieldByName('ncus11').Asinteger;
     total:=total+ dataset.FieldByName('ncus12').Asinteger;
     total:=total+ dataset.FieldByName('ncus13').Asinteger;
     total:=total+ dataset.FieldByName('ncus14').Asinteger;
     total:=total+ dataset.FieldByName('ncus15').Asinteger;
     ADOStoredProc1.fieldbyname('nfscount').AsInteger:=total;   }
end;

procedure TFrmhzqd.Edit1Change(Sender: TObject);
var i:integer;
    s,t:string;
begin
    if trim(edit1.text)='' then
    begin
        ADOStoredProc1.filtered:=false;
        t:='';
        exit;
    end
    else
       t:=trim(edit1.text);
    s:='ngoodName like '+''''+ t+'%'+'''';
     ADOStoredProc1.filtered:=false;
    ADOStoredProc1.filter:=s ;
    ADOStoredProc1.filtered:=true;
  //  for i:=0 to dm.pubqry.Recordcount-1 do
  //  begin
   //      if i>=1  then
  //       begin
  //        t:=t+ ' or ' +' ngoodcode '+' = '+dm.pubqry.fieldbyname('ngdcode').asstring;
  //       else
  ////       begin
  //         t:=' ngoodcode '+'  =  '+dm.pubqry.fieldbyname('ngdcode').asstring;
  //       end;
 //       dm.pubqry.next;
 //   end;

end;

procedure TFrmhzqd.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
begin
//     showmessage(INttostr(datacol));
end;

procedure TFrmhzqd.DBGridEh1TitleClick(Column: TColumnEh);


begin
   if b=false then
   begin
   ADOStoredProc1.Sort :=column.Field.Fieldname   +' ASC';
   b:=true;
   end
   else
   begin
    ADOStoredProc1.Sort :=column.Field.Fieldname   +' DESC';
    b:=false;

   end;
{ if  b=true then
 begin

  b:=false;
 end }
 // dbgrideh1.SortMarkedColumns.fieldna :=column.field.FieldName +' DESC';
 // else begin
 //   ADOStoredProc1.Sort :=column.field.FieldName  +' ASC';
 //   b:=true;
 // end;
end;

procedure TFrmhzqd.DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer;
  Column: TColumnEh);
begin
 ADOStoredProc1.Sort:='';
  case Column.Title.SortMarker of
    smNoneEh: begin
               ADOStoredProc1.Sort :=column.field.FieldName  +' DESC';
               Column.Title.SortMarker := smDownEh;
              end ;
    smDownEh: begin
              ADOStoredProc1.Sort :=column.field.FieldName  +' ASC';
              Column.Title.SortMarker := smUpEh;
             end;
    smUpEh:  begin
            ADOStoredProc1.Sort :=column.field.FieldName  +' DESC';
            Column.Title.SortMarker := smDownEh;
            end;
  end;


end;

end.