uhzqd2.~pas

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

      reset(Frmset.LstSet,'s_qrdetail','11','   location='''+'d'+'''  and  kc_cktag=  '+''''+'0001'+'''');
      dbgrideh1.DataSource :=nil;
      Seek(DBGridEh1,'s_qrdetail', '11','Sys_Cust_view','   location='''+'d'+'''  and  kc_cktag=  '+''''+'0001'+'''');
      dbgrideh1.DataSource :=datasource1;
         for i:=0 to dbgrideh1.Columns.Count-1 do
      begin
        if  dbgrideh1.Columns.Items[i].FieldName='nFsJine' then
        begin
         // DBGridEh1.Columns.Items[i].Footer.FieldName:='nFsCount';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        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;
      if (dbgrideh1.sumlist.active=false) then
      dbgrideh1.SumList.Active :=true;
   end;
   Frmset.free;
end;

procedure Tfrmhzqd2.SpeedButton3Click(Sender: TObject);
begin
   if frmnxcx=nil then
   frmnxcx:=Tfrmnxcx.Create(nil);
   frmnxcx.ShowModal ;
   if (frmnxcx.ModalResult=mrok)   then
   begin
           if (Frmhzqd2=nil) then
                 frmhzqd2:=Tfrmhzqd2.Create(nil);
            //frmhzqd2.Caption :=Frmckcon.DBLookupComboBox1.Text+'的库存情况' ;
           // frmhzqd2.Label2.caption:='库存量    单位：双';
            frmhzqd2.ADOStoredProc1.close;
            frmhzqd2.Label2.Caption:='时间：'+datetostr(frmnxcx.DateTimePicker1.date)+ ' 到 '+datetostr(frmnxcx.DateTimePicker2.date);
            frmhzqd2.ADOStoredProc1.Parameters.ParamByName('@nDate1').Value:=FormatDateTime('yyyy-mm-dd',frmnxcx.DateTimePicker1.DateTime);
            frmhzqd2.ADOStoredProc1.Parameters.ParamByName('@nDate2').value:=FormatDateTime('yyyy-mm-dd',frmnxcx.DateTimePicker2.DateTime);
            frmhzqd2.ADOStoredProc1.open;
            //frmhzqd.adoquery1.open;
            frmhzqd2.Show;
   end;
end;

procedure Tfrmhzqd2.SpeedButton5Click(Sender: TObject);
begin
    close;
end;

procedure Tfrmhzqd2.FormClose(Sender: TObject; var Action: TCloseAction);
begin

     frmhzqd2:=nil;
     action:=cafree;
          Frmmain.Outlook1.Visible :=true;
    frmmain.Panel1.Visible:=true;
    Frmmain.Panel2.Visible:=True;
end;

procedure Tfrmhzqd2.SpeedButton4Click(Sender: TObject);
begin
   frmfilter:=Tfrmfilter.create(nil);
   frmfilter.showmodal;
   
end;

procedure Tfrmhzqd2.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;
 end;
procedure Tfrmhzqd2.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;
end;

procedure Tfrmhzqd2.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(label2.caption);
  PrintDBGridEh1.Preview ;
end;

procedure Tfrmhzqd2.SpeedButton2Click(Sender: TObject);
begin
PrintDBGridEh1.Print ;
end;

end.