usp.pas

在打沙场用的最简单

      if   adoquery1.fieldbyname('ss6').Value<>NULL then
      grid.Columns[23].Title.caption:=adoquery1.fieldbyname('ss6').Value;
      if   adoquery1.fieldbyname('ss7').Value<>NULL then
      grid.Columns[25].Title.caption:=adoquery1.fieldbyname('ss7').Value;
      if   adoquery1.fieldbyname('ss8').Value<>NULL then
      grid.Columns[27].Title.caption:=adoquery1.fieldbyname('ss8').Value;
      if   adoquery1.fieldbyname('ss9').Value<>NULL then
      grid.Columns[29].Title.caption:=adoquery1.fieldbyname('ss9').Value;
      if   adoquery1.fieldbyname('ss10').Value<>NULL then
      grid.Columns[31].Title.caption:=adoquery1.fieldbyname('ss10').Value;
      if   adoquery1.fieldbyname('ss11').Value<>NULL then
      grid.Columns[33].Title.caption:=adoquery1.fieldbyname('ss11').Value;
      if   adoquery1.fieldbyname('ss12').Value<>NULL then
      grid.Columns[35].Title.caption:=adoquery1.fieldbyname('ss12').Value;
    end;   }
    end;
    adoquery1.First;
    while not adoquery1.Eof  do
    begin
    spbtnadd.Click;
    CdsSub.Append;
      GetsqlData(CDSselectsub,'Vitem','fid','fid='+vartosql(adoquery1.fieldbyname('fID').Value),1);
      if CDSselectsub.RecordCount > 0 then
        begin
          CDSsub['fitemid']:=adoquery1.fieldbyname('fID').Value;
          CDSsub['fcode']:=CDSselectsub['fcode'];
          CDSsub['fname']:=CDSselectsub['fname'];
          CDSsub['ftype'] :=CDSselectsub['ftype'];
          CDSsub['funit']:=CDSselectsub['funit'];
          CDSsub['zs']:=CDSselectsub['zs'];
          CDSsub['gno'] :=adoquery1.fieldbyname('gno').Value;
          CDSsub['colorno'] :=adoquery1.fieldbyname('colorno').Value;
          GetsqlData(CDSselectsub,'vfzsub','colorno','colorno='+vartosql(adoquery1.fieldbyname('colorno').Value),1);
         if CDSselectsub.RecordCount > 0 then
          CDSsub['color']:=CDSselectsub['color'];
          CDSsub['fqty'] :=    0;//  adoquery1.fieldbyname('fqty').Value;
          CDSsub['fprice'] := 0;//   adoquery1.fieldbyname('fprice').Value;
          CDSsub['total'] :=  0;// adoquery1.fieldbyname('total').Value;
          CDSsub['s1'] :=   0;// adoquery1.fieldbyname('s1').Value;
          CDSsub['s2'] :=  0;//  adoquery1.fieldbyname('s2').Value;
          CDSsub['s3'] :=  0;//  adoquery1.fieldbyname('s3').Value;
          CDSsub['s4'] := 0;//   adoquery1.fieldbyname('s4').Value;
          CDSsub['s5'] :=  0;//  adoquery1.fieldbyname('s5').Value;
          CDSsub['s6'] :=  0;//  adoquery1.fieldbyname('s6').Value;
          CDSsub['s7'] :=  0;//  adoquery1.fieldbyname('s7').Value;
          CDSsub['s8'] :=  0;//  adoquery1.fieldbyname('s8').Value;
          CDSsub['s9'] :=  0;//  adoquery1.fieldbyname('s9').Value;
          CDSsub['s10'] :=  0;//  adoquery1.fieldbyname('s10').Value;
          CDSsub['s11'] := 0;//   adoquery1.fieldbyname('s11').Value;
          CDSsub['s12'] := 0;//   adoquery1.fieldbyname('s12').Value;
          CDSsub['sw1'] := 0;//   adoquery1.fieldbyname('sw1').Value;
          CDSsub['sw2'] := 0;//   adoquery1.fieldbyname('sw2').Value;
          CDSsub['sw3'] := 0;//   adoquery1.fieldbyname('sw3').Value;
          CDSsub['sw4'] := 0;//   adoquery1.fieldbyname('sw4').Value;
          CDSsub['sw5'] := 0;//   adoquery1.fieldbyname('sw5').Value;
          CDSsub['sw6'] := 0;//   adoquery1.fieldbyname('sw6').Value;
          CDSsub['sw7'] := 0;//   adoquery1.fieldbyname('sw7').Value;
          CDSsub['sw8'] := 0;//   adoquery1.fieldbyname('sw8').Value;
          CDSsub['sw9'] := 0;//   adoquery1.fieldbyname('sw9').Value;
          CDSsub['sw10'] := 0;//   adoquery1.fieldbyname('sw10').Value;
          CDSsub['sw11'] := 0;//   adoquery1.fieldbyname('sw11').Value;
          CDSsub['sw12'] := 0;//   adoquery1.fieldbyname('sw12').Value;
        end;

    adoquery1.Next;
 end;
    if adoquery1.RecordCount>0 then
     BEGIN
    // CDSmaster.Append;
     CDSmaster['ss1'] :=    adoquery1.fieldbyname('ss1').Value;
     CDSmaster['s2'] :=     adoquery1.fieldbyname('ss2').Value;
     CDSmaster['s3'] :=     adoquery1.fieldbyname('ss3').Value;
     CDSmaster['s4'] :=     adoquery1.fieldbyname('ss4').Value;
     CDSmaster['s5'] :=     adoquery1.fieldbyname('ss5').Value;
     CDSmaster['s6'] :=     adoquery1.fieldbyname('ss6').Value;
     CDSmaster['s7'] :=     adoquery1.fieldbyname('ss7').Value;
     CDSmaster['s8'] :=     adoquery1.fieldbyname('ss8').Value;
     CDSmaster['s9'] :=     adoquery1.fieldbyname('ss9').Value;
     CDSmaster['s10'] :=    adoquery1.fieldbyname('ss10').Value;
     CDSmaster['s11'] :=    adoquery1.fieldbyname('ss11').Value;
     CDSmaster['s12'] :=    adoquery1.fieldbyname('ss12').Value;
    GetsqlData(CDSselectsub,'Vfz','frefno','frefno='+vartosql(adoquery1.fieldbyname('frefno').asstring),1);
    if cdsselectsub.RecordCount>0 then
    begin
    if  CDSselectsub['frefno']<>NULL then
    CDSmaster['fstoreno']:=CDSselectsub['frefno'];//searq.fieldbyname('fpurstore').asstring;//'货编号';
    if  CDSselectsub['fpurstore']<>NULL then
    CDSmaster['fpurstore']:=CDSselectsub['fpurstore'];//searq.fieldbyname('fpurstore').asstring;//'仓库';
    if CDSselectsub['fpurer']<>NULL then
    CDSmaster['fpurer']:=CDSselectsub['fpurer'];//searq.fieldbyname('fpurer').asstring;//'负责人';
    if  CDSselectsub['fprovider']<>null then
    CDSmaster['fprovider']:=CDSselectsub['fprovider'];//searq.fieldbyname('fprovider').asstring;//'供应商';
    if  CDSselectsub['fnote']<>null then
    CDSmaster['fnote']:=CDSselectsub['fnote'];//searq.fieldbyname('fnote').asstring;//'备注';
    if CDSselectsub['fdelivdate']<>null then
    CDSmaster['fdelivdate']:=CDSselectsub['fdelivdate'];//searq.fieldbyname('fdelivdate').asstring;//'交货日期';
    if  CDSselectsub['fcreauser']<>null then
    CDSmaster['fcreauser']:=CDSselectsub['fcreauser'];//searq.fieldbyname('fcreauser').asstring;//'创建人';
    if CDSselectsub['fcreadate'] <>null then
    CDSmaster['fcreadate']:=CDSselectsub['fcreadate'];//searq.fieldbyname('fcreadate').asstring;//'订货日期';
    if CDSselectsub['fkh'] <>null then
    CDSmaster['fkh']:=CDSselectsub['fkh'];//searq.fieldbyname('fcreadate').asstring;//'订货日期';
    if CDSselectsub['fks'] <>null then
    CDSmaster['fks']:=CDSselectsub['fks'];//searq.fieldbyname('fcreadate').asstring;//'订货日期';
    if CDSselectsub['fgx'] <>null then
    CDSmaster['fgx']:=CDSselectsub['fgx'];//searq.fieldbyname('fcreadate').asstring;//'订货日期';
    end;
    { CDSmaster['fstoreno']:=adoquery1.fieldbyname('frefno').Value;   //采购号
     CDSmaster['pno']:=adoquery1.fieldbyname('fpurno').Value;   //批号
     CDSmaster['fprovider']:=adoquery1.fieldbyname('fprovider').Value;   //
     CDSmaster['fpurer']:=adoquery1.fieldbyname('fpurer').Value;   //批号
     CDSmaster['fpurstore']:=adoquery1.fieldbyname('fpurstore').Value;   //批号
     CDSmaster['fdelivdate']:=adoquery1.fieldbyname('fdelivdate').Value;   //批号
     CDSmaster['fnote']:=adoquery1.fieldbyname('note2').Value;   //批号
     CDSmaster['fcreauser']:=adoquery1.fieldbyname('fcreauser').Value;   //批号
     CDSmaster['fprice']:=adoquery1.fieldbyname('price2').Value;   //批号   }
     END;
 //  Grid.SelectedIndex:=7;

end;

procedure Tfrmsp.p05Execute(Sender: TObject);
var
  excelid, mybook: variant;
  row, col, i, j, colcount, frow: integer;
  excelflg: boolean;
  rpstr: string;
  per_count,  datasum, dsum1, dsum2: integer;
  datas1, datas2, datas3: string;
begin
  //inherited;
  CDSsub.DisableControls;
  try
    excelid := createoleobject('excel.application');
    mybook := createoleobject('excel.sheet');
    mybook := excelid.workbooks.add;
    row := 1;
    col := 1;
    excelflg := true;
  except
    excelflg := false;
    application.MessageBox('请确定EXCEL是否正确安装!', '提示信息', mb_ok);
  end;
  if excelflg then
  begin
      colcount := 7;
      excelid.range['A' + inttostr(row), chr(64 + colcount) +
        inttostr(row)].merge();
      mybook.worksheets[1].cells.item[row, col] :=  '基本报表';
      mybook.worksheets[1].cells.item[row, col].font.size := 18;
      mybook.worksheets[1].cells.item[row, col].font.bold := true;
      mybook.worksheets[1].cells.item[row, col].HorizontalAlignment := xlcenter;
      row := row + 1;
      excelid.range['A' + inttostr(row), chr(64 + colcount) +
        inttostr(row)].merge();
      mybook.worksheets[1].cells.item[row, col] := '报表日期:' +
        datetostr(date);
      row := row + 1;
      frow := row;
      CDSsub.First;

        excelid.columns[1].ColumnWidth := Grid.Columns[0].Width / 8;
        excelid.columns[1].NumberFormatLocal := '@';
        mybook.worksheets[1].cells.item[row, 1] := grid.Columns[0].Title.Caption;

        excelid.columns[2].ColumnWidth := Grid.Columns[1].Width / 8;
        excelid.columns[2].NumberFormatLocal := '@';
        mybook.worksheets[1].cells.item[row, 2] := grid.Columns[1].Title.Caption;

        excelid.columns[3].ColumnWidth := Grid.Columns[2].Width / 8;
        excelid.columns[3].NumberFormatLocal := '@';
        mybook.worksheets[1].cells.item[row, 3] := grid.Columns[2].Title.Caption;

        excelid.columns[4].ColumnWidth := Grid.Columns[3].Width / 8;
        excelid.columns[4].NumberFormatLocal := '@';
        mybook.worksheets[1].cells.item[row, 4] := grid.Columns[3].Title.Caption;

        excelid.columns[5].ColumnWidth := Grid.Columns[4].Width / 8;
        excelid.columns[5].NumberFormatLocal := '@';
        mybook.worksheets[1].cells.item[row, 5] := grid.Columns[4].Title.Caption;

        excelid.columns[6].ColumnWidth := Grid.Columns[5].Width / 8;
        excelid.columns[6].NumberFormatLocal := '@';
        mybook.worksheets[1].cells.item[row, 6] := grid.Columns[5].Title.Caption;

        excelid.columns[7].ColumnWidth := Grid.Columns[6].Width / 8;
        excelid.columns[7].NumberFormatLocal := '@';
        mybook.worksheets[1].cells.item[row, 7] := grid.Columns[6].Title.Caption;
      row := row + 1;
      while not CDSsub.Eof do
      begin

          mybook.worksheets[1].cells.item[row, 1] :=CDSsub['fid'];
          mybook.worksheets[1].cells.item[row, 2] := CDSsub['fcode'];
          mybook.worksheets[1].cells.item[row, 3] := CDSsub['fname'];
          mybook.worksheets[1].cells.item[row, 4] := CDSsub['funit'];
          mybook.worksheets[1].cells.item[row, 5] := CDSsub['fqty'];
          mybook.worksheets[1].cells.item[row, 6] := CDSsub['unitqty'];
          mybook.worksheets[1].cells.item[row, 7] := CDSsub['total'];


          row := row + 1;
          CDSsub.Next;
      end;
      excelid.range['A' + inttostr(row), chr(64 + colcount) +
        inttostr(row)].merge();
      mybook.worksheets[1].cells.item[row, col].font.size := 12;
      mybook.worksheets[1].cells.item[row, col].font.bold := true;
      mybook.worksheets[1].cells.item[row, col].HorizontalAlignment := xlcenter;
      mybook.worksheets[1].cells.item[row, col] := '总记录数:' +
       inttostr(CDssub.RecordCount) + '条';
      row := row + 1;
      rpstr := '报表条件:';
      excelid.range['A' + inttostr(row), chr(64 + colcount) +
        inttostr(row)].merge();
      mybook.worksheets[1].cells.item[row, col] := rpstr;
      row := row + 1;
      excelid.range[chr(65) + inttostr(frow), chr(64 + colcount) + inttostr(row
        - 1)].Borders[1].LineStyle := xlContinuous;
      excelid.range[chr(65) + inttostr(frow), chr(64 + colcount) + inttostr(row
        - 1)].Borders[2].LineStyle := xlContinuous;
      excelid.range[chr(65) + inttostr(frow), chr(64 + colcount) + inttostr(row
        - 1)].Borders[3].LineStyle := xlContinuous;
      excelid.range[chr(65) + inttostr(frow), chr(64 + colcount) + inttostr(row
        - 1)].Borders[4].LineStyle := xlContinuous;
    excelid.visible := true;
  end;
  CDSsub.EnableControls;  
end;

procedure Tfrmsp.acaddExecute(Sender: TObject);
begin
  inherited;
   wwDBLookupCombo1.Text:='亿溢';
end;

procedure Tfrmsp.GridColExit(Sender: TObject);
begin
  inherited;
  case grid.SelectedIndex of
  0,1,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35:begin
  if  CDSsub.State in [dsEdit,dsinsert] then
  begin
     GetsqlData(CDSselectsub,'Vitem','fid','fcode='+vartosql(CDSsub['fcode']),1);
       if CDSselectsub.RecordCount > 0 then
       begin
       CDSsub['fitemid']:=CDSselectsub['fid'] ;
       CDSsub['fname']:=CDSselectsub['fname'];
       CDSsub['fcode']:=CDSselectsub['fcode'];
       CDSsub['ftype'] :=CDSselectsub['ftype'];
       CDSsub['funit']:=CDSselectsub['funit'];
       CDSsub['zs']:=CDSselectsub['zs'];
       CdSsub['total']:=CDSsub['s1']+CDSsub['s2']+CDSsub['s3']+CDSsub['s4']+CDSsub['s5']+CDSsub['s6']+
                        CDSsub['s7']+CDSsub['s8']+CDSsub['s9']+CDSsub['s10']+CDSsub['s11']+CDSsub['s12'];
       CdSsub['fqty'] :=CDSsub['sw1']+CDSsub['sw2']+CDSsub['sw3']+CDSsub['sw4']+CDSsub['sw5']+CDSsub['sw6']+
                        CDSsub['sw7']+CDSsub['sw8']+CDSsub['sw9']+CDSsub['sw10']+CDSsub['sw11']+CDSsub['sw12'];
//       CDSsub['fqty'] :=CDSsub['js']*CDSsub['avgh']/CDSsub['qtyunit']*(1+CDSsub['rs']+CDSsub['dps']+CDSsub['zz']);
       end else
       begin
        MessageDlg('没找到相应的资料 ? ',mtWarning,[MBOK],0);
       end;
   end;    
  end;
  end;
end;

procedure Tfrmsp.wwDBEdit6Change(Sender: TObject);
begin
  inherited;
  grid.Columns[13].Title.caption:=wwDBEdit6.Text;
end;

procedure Tfrmsp.wwDBEdit7Change(Sender: TObject);
begin
  inherited;
grid.Columns[15].Title.caption:=wwDBEdit7.Text;
end;

procedure Tfrmsp.wwDBEdit9Change(Sender: TObject);
begin
  inherited;
grid.Columns[17].Title.caption:=wwDBEdit9.Text;
end;

procedure Tfrmsp.wwDBEdit10Change(Sender: TObject);
begin
  inherited;
grid.Columns[19].Title.caption:=wwDBEdit10.Text;
end;

procedure Tfrmsp.wwDBEdit11Change(Sender: TObject);
begin
  inherited;
grid.Columns[21].Title.caption:=wwDBEdit11.Text;
end;

procedure Tfrmsp.wwDBEdit12Change(Sender: TObject);
begin
  inherited;
grid.Columns[23].Title.caption:=wwDBEdit12.Text;
end;

procedure Tfrmsp.wwDBEdit13Change(Sender: TObject);
begin
  inherited;
grid.Columns[25].Title.caption:=wwDBEdit13.Text;
end;

procedure Tfrmsp.wwDBEdit14Change(Sender: TObject);
begin
  inherited;
grid.Columns[27].Title.caption:=wwDBEdit14.Text;
end;

procedure Tfrmsp.wwDBEdit15Change(Sender: TObject);
begin
  inherited;
grid.Columns[29].Title.caption:=wwDBEdit15.Text;
end;

procedure Tfrmsp.wwDBEdit16Change(Sender: TObject);
begin
  inherited;
grid.Columns[31].Title.caption:=wwDBEdit16.Text;
end;

procedure Tfrmsp.wwDBEdit17Change(Sender: TObject);
begin
  inherited;
grid.Columns[33].Title.caption:=wwDBEdit17.Text;
end;

procedure Tfrmsp.wwDBEdit18Change(Sender: TObject);
begin
  inherited;
grid.Columns[35].Title.caption:=wwDBEdit18.Text;
end;

procedure Tfrmsp.CDSsubBeforePost(DataSet: TDataSet);
begin
  inherited;
  if cdssub.State in [dsedit,dsinsert] then
  begin
    CdSsub['total']:=CDSsub['s1']+CDSsub['s2']+CDSsub['s3']+CDSsub['s4']+CDSsub['s5']+CDSsub['s6']+
                     CDSsub['s7']+CDSsub['s8']+CDSsub['s9']+CDSsub['s10']+CDSsub['s11']+CDSsub['s12'];
    CdSsub['fqty']:=CDSsub['sw1']+CDSsub['sw2']+CDSsub['sw3']+CDSsub['sw4']+CDSsub['sw5']+CDSsub['sw6']+
                    CDSsub['sw7']+CDSsub['sw8']+CDSsub['sw9']+CDSsub['sw10']+CDSsub['sw11']+CDSsub['sw12'];
  end;                    
end;

procedure Tfrmsp.GridKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
 if grid.SelectedIndex=0 then 
 if  char(key)='p' then 
 if cdssub.State in [dsedit,dsinsert] then
  Selectsub;
end;

end.