Einzelnen Beitrag anzeigen

hirsch

Registriert seit: 29. Jan 2008
Ort: Tuttlingen
88 Beiträge
 
Delphi 2007 Professional
 
#15

AW: SQL-Abfrage Interbase 6.0

  Alt 24. Okt 2011, 16:03
Jetzt werde ich bestimmt in der Luft zerrissen.
Das ist noch nicht fertig.
Das wird eine Auswertung.

Delphi-Quellcode:
unit ExcelAuswertung;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids;

type
  TExcel = class(TForm)
    BuExit: TButton;
    DBGrid1: TDBGrid;
    procedure BuExitClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Excel: TExcel;
  msql : String;

implementation
uses DataModul, Unit1;
{$R *.dfm}

procedure TExcel.BuExitClick(Sender: TObject);
begin
  with Datamodul.DataModule1 do
  begin
    if SQLDSWHis.active= True then SQLDSWHis.active:=False;
    if CDSWHis.active=True then CDSWHis.active:=False;
    SQLDSWHis.CommandText:=msql; //Gemerkte Abfrage wieder einsetzen
    CDSWHis.active:=True;
    SQLDSWHis.active:=True;
  end;
  Excel.Hide;
  Form1.show;

end;

procedure TExcel.FormShow(Sender: TObject);
var sql :String;
begin
  with Datamodul.DataModule1 do
  begin
    if SQLDSWHis.active= True then SQLDSWHis.active:=False;
    if CDSWHis.active=True then CDSWHis.active:=False;
    msql:=SQLDSWHis.CommandText; //Aktive Abfrage merken
    sql:='SELECT werkzg_nr, art_num, sum(intervall) as summe FROM WZG_HIST WHERE (werkzg_nr > 0) AND (intervall > 0) group by art_num, werkzg_nr order by art_num';
    SQLDSWHis.CommandText:=sql;
    CDSWHis.active:=True;
    SQLDSWHis.active:=True;
    showmessage(intToStr(CDSWHis.RecordCount));
  end;
end;

end.
und im Oi:

Delphi-Quellcode:

unit DataModul;

interface

uses
  SysUtils, Classes, DBXpress, FMTBcd, DB, DBClient, Provider, SqlExpr,
  DBTables, IBCustomDataSet, IBDatabase;

type
  TDataModule1 = class(TDataModule)
    SQLConS2ATDB: TSQLConnection;
    SQLDSTDB: TSQLDataSet;
    DSPTDB: TDataSetProvider;
    CDSTDB: TClientDataSet;
    DSTDB: TDataSource;
    SQLDSTDBART_GR: TStringField;
    SQLDSTDBART_NR: TStringField;
    SQLDSTDBART_BZ: TStringField;
    SQLDSTDBDE: TFloatField;
    SQLDSTDBDI: TFloatField;
    SQLDSTDBTT: TFloatField;
    SQLDSTDBL0: TFloatField;
    SQLDSTDBF1: TFloatField;
    SQLDSTDBZN_NR: TStringField;
    SQLDSTDBAE_STAND: TStringField;
    SQLDSTDBAE_DAT: TDateField;
    CDSTDBART_GR: TStringField;
    CDSTDBART_NR: TStringField;
    CDSTDBART_BZ: TStringField;
    CDSTDBDE: TFloatField;
    CDSTDBDI: TFloatField;
    CDSTDBTT: TFloatField;
    CDSTDBL0: TFloatField;
    CDSTDBF1: TFloatField;
    CDSTDBZN_NR: TStringField;
    CDSTDBAE_STAND: TStringField;
    CDSTDBAE_DAT: TDateField;
    SQLDSAend: TSQLDataSet;
    DSPAend: TDataSetProvider;
    CDSAend: TClientDataSet;
    SQLDSAendART_GR: TStringField;
    SQLDSAendART_NR: TStringField;
    SQLDSAendAE_DAT: TDateField;
    SQLDSAendAE_STAND: TStringField;
    CDSAendART_GR: TStringField;
    CDSAendART_NR: TStringField;
    CDSAendAE_DAT: TDateField;
    CDSAendAE_STAND: TStringField;
    SQLDSArtikel: TSQLDataSet;
    DSPArtikel: TDataSetProvider;
    CDSArtikel: TClientDataSet;
    DSArtikel: TDataSource;
    SQLDSAdr: TSQLDataSet;
    DSPAdr: TDataSetProvider;
    CDSAdr: TClientDataSet;
    DSAdr: TDataSource;
    CDSAdrADR_KNA: TStringField;
    CDSAdrADR_NAM: TStringField;
    CDSAdrADR_FNA: TStringField;
    CDSAdrADR_STR: TStringField;
    CDSAdrADR_PLZ: TStringField;
    CDSAdrADR_ORT: TStringField;
    CDSAdrADR_LAN: TStringField;
    CDSAdrADR_RAD: TStringField;
    CDSAdrADR_MAT: TStringField;
    CDSAdrADR_WUS: TStringField;
    CDSAdrADR_GCD: TStringField;
    CDSAdrADR_TXT: TStringField;
    CDSAdrPOST_LAND: TStringField;
    SQLDSTol: TSQLDataSet;
    SQLDSTolBIS_D: TFloatField;
    SQLDSTolTOL_H12: TFloatField;
    SQLDSTolTOL_H14: TFloatField;
    SQLDSTolTOL_KOAX: TFloatField;
    SQLDSTolT_BIS: TFloatField;
    SQLDSTolT_PLUS: TFloatField;
    SQLDSTolT_MINUS: TFloatField;
    SQLDSTolT_L0_BIS: TFloatField;
    SQLDSTolL0_PLUS: TFloatField;
    SQLDSTolL0_MINUS: TFloatField;
    SQLDSTolT_F1_BIS: TFloatField;
    SQLDSTolF1_PLUS: TFloatField;
    SQLDSTolF1_MINUS: TFloatField;
    SQLDSTolF1RF_PLUS: TFloatField;
    SQLDSTolF1RF_MINUS: TFloatField;
    SQLDSArtikelKUNDEN_NR: TStringField;
    SQLDSArtikelART_GR: TStringField;
    SQLDSArtikelART_NR: TStringField;
    SQLDSArtikelART_BZ: TStringField;
    SQLDSArtikelZN_NR: TStringField;
    SQLDSArtikelAS_NR: TStringField;
    SQLDSArtikelAE_DAT: TDateField;
    SQLDSArtikelAE_STAND: TStringField;
    SQLDSArtikelORIG_ZEICH: TSmallintField;
    SQLDSArtikelK_PL_F: TSmallintField;
    SQLDSArtikelK_A: TSmallintField;
    SQLDSArtikelK_T: TSmallintField;
    SQLDSArtikelK_SCHL: TSmallintField;
    SQLDSArtikelK_S_FO: TSmallintField;
    SQLDSArtikelDE: TFloatField;
    SQLDSArtikelDE_O: TFloatField;
    SQLDSArtikelDE_U: TFloatField;
    SQLDSArtikelDI: TFloatField;
    SQLDSArtikelDI_O: TFloatField;
    SQLDSArtikelDI_U: TFloatField;
    SQLDSArtikelDS: TFloatField;
    SQLDSArtikelDS_O: TFloatField;
    SQLDSArtikelDS_U: TFloatField;
    SQLDSArtikelTT: TFloatField;
    SQLDSArtikelTS: TFloatField;
    SQLDSArtikelT_O: TFloatField;
    SQLDSArtikelT_U: TFloatField;
    SQLDSArtikelR2_4: TFloatField;
    SQLDSArtikelR1_3: TFloatField;
    SQLDSArtikelKOAX: TFloatField;
    SQLDSArtikelBSA: TFloatField;
    SQLDSArtikelBSA_O: TFloatField;
    SQLDSArtikelBSA_U: TFloatField;
    SQLDSArtikelBSG: TFloatField;
    SQLDSArtikelRSG: TFloatField;
    SQLDSArtikelRZ: TFloatField;
    SQLDSArtikelNS: TSmallintField;
    SQLDSArtikelMAT: TStringField;
    SQLDSArtikelMATNUM: TSmallintField;
    SQLDSArtikelBEARB: TStringField;
    SQLDSArtikelHR_C: TStringField;
    SQLDSArtikelOBFL: TStringField;
    SQLDSArtikelKUGELGESTR: TSmallintField;
    SQLDSArtikelF1: TFloatField;
    SQLDSArtikelF1P: TFloatField;
    SQLDSArtikelF1M: TFloatField;
    SQLDSArtikelL1: TFloatField;
    SQLDSArtikelF2: TFloatField;
    SQLDSArtikelF2P: TFloatField;
    SQLDSArtikelF2M: TFloatField;
    SQLDSArtikelL2: TFloatField;
    SQLDSArtikelSTZVLP: TFloatField;
    SQLDSArtikelN_PULS: TSmallintField;
    SQLDSArtikelBIS_L_X: TSmallintField;
    SQLDSArtikelL0: TFloatField;
    SQLDSArtikelL0_O: TFloatField;
    SQLDSArtikelL0_U: TFloatField;
    SQLDSArtikelL0_S_O: TFloatField;
    SQLDSArtikelL0_S_U: TFloatField;
    SQLDSArtikelEMP_N: TSmallintField;
    SQLDSArtikelEMP_DAT: TDateField;
    SQLDSArtikelEMP_NM: TStringField;
    SQLDSArtikelWZG_NM: TFloatField;
    SQLDSArtikelPRW_NM: TFloatField;
    SQLDSArtikelEMP_ANZ: TFloatField;
    SQLDSArtikelAUFTRAG: TStringField;
    SQLDSArtikelAUFTR_DAT: TDateField;
    SQLDSArtikelART_AUSG: TSmallintField;
    SQLDSArtikelK_SONDER: TSmallintField;
    SQLDSArtikelB_ANL_DI: TFloatField;
    SQLDSArtikelB_ANL_DE: TFloatField;
    SQLDSArtikelTOLO_AN_DI: TFloatField;
    SQLDSArtikelTOLU_AN_DI: TFloatField;
    SQLDSArtikelTOLO_AN_DE: TFloatField;
    SQLDSArtikelTOLU_AN_DE: TFloatField;
    SQLDSArtikelDAT_EMP: TDateField;
    SQLDSArtikelDAT_COC: TDateField;
    SQLDSArtikelDAT_ANZ: TDateField;
    SQLDSArtikelDAT_LSZ: TDateField;
    SQLDSArtikelDAT_FRZ: TDateField;
    SQLDSArtikelDAT_DIA: TDateField;
    SQLDSArtikelDAT_PRF: TDateField;
    SQLDSArtikelDAT_SPC: TDateField;
    SQLDSArtikelDAT_DEDI: TDateField;
    SQLDSArtikelDAT_LOG1: TDateField;
    SQLDSArtikelDAT_COCNEU: TDateField;
    SQLDSArtikelDRUCKEN: TStringField;
    SQLDSArtikelWZ_AUF_DAT: TDateField;
    SQLDSArtikelPW_AUF_DAT: TDateField;
    SQLDSArtikelTEIL_ART: TSmallintField;
    SQLDSArtikelF3: TFloatField;
    SQLDSArtikelF3P: TFloatField;
    SQLDSArtikelF3M: TFloatField;
    SQLDSArtikelL3: TFloatField;
    CDSArtikelKUNDEN_NR: TStringField;
    CDSArtikelART_GR: TStringField;
    CDSArtikelART_NR: TStringField;
    CDSArtikelART_BZ: TStringField;
    CDSArtikelZN_NR: TStringField;
    CDSArtikelAS_NR: TStringField;
    CDSArtikelAE_DAT: TDateField;
    CDSArtikelAE_STAND: TStringField;
    CDSArtikelORIG_ZEICH: TSmallintField;
    CDSArtikelK_PL_F: TSmallintField;
    CDSArtikelK_A: TSmallintField;
    CDSArtikelK_T: TSmallintField;
    CDSArtikelK_SCHL: TSmallintField;
    CDSArtikelK_S_FO: TSmallintField;
    CDSArtikelDE: TFloatField;
    CDSArtikelDE_O: TFloatField;
    CDSArtikelDE_U: TFloatField;
    CDSArtikelDI: TFloatField;
    CDSArtikelDI_O: TFloatField;
    CDSArtikelDI_U: TFloatField;
    CDSArtikelDS: TFloatField;
    CDSArtikelDS_O: TFloatField;
    CDSArtikelDS_U: TFloatField;
    CDSArtikelTT: TFloatField;
    CDSArtikelTS: TFloatField;
    CDSArtikelT_O: TFloatField;
    CDSArtikelT_U: TFloatField;
    CDSArtikelR2_4: TFloatField;
    CDSArtikelR1_3: TFloatField;
    CDSArtikelKOAX: TFloatField;
    CDSArtikelBSA: TFloatField;
    CDSArtikelBSA_O: TFloatField;
    CDSArtikelBSA_U: TFloatField;
    CDSArtikelBSG: TFloatField;
    CDSArtikelRSG: TFloatField;
    CDSArtikelRZ: TFloatField;
    CDSArtikelNS: TSmallintField;
    CDSArtikelMAT: TStringField;
    CDSArtikelMATNUM: TSmallintField;
    CDSArtikelBEARB: TStringField;
    CDSArtikelHR_C: TStringField;
    CDSArtikelOBFL: TStringField;
    CDSArtikelKUGELGESTR: TSmallintField;
    CDSArtikelF1: TFloatField;
    CDSArtikelF1P: TFloatField;
    CDSArtikelF1M: TFloatField;
    CDSArtikelL1: TFloatField;
    CDSArtikelF2: TFloatField;
    CDSArtikelF2P: TFloatField;
    CDSArtikelF2M: TFloatField;
    CDSArtikelL2: TFloatField;
    CDSArtikelSTZVLP: TFloatField;
    CDSArtikelN_PULS: TSmallintField;
    CDSArtikelBIS_L_X: TSmallintField;
    CDSArtikelL0: TFloatField;
    CDSArtikelL0_O: TFloatField;
    CDSArtikelL0_U: TFloatField;
    CDSArtikelL0_S_O: TFloatField;
    CDSArtikelL0_S_U: TFloatField;
    CDSArtikelEMP_N: TSmallintField;
    CDSArtikelEMP_DAT: TDateField;
    CDSArtikelEMP_NM: TStringField;
    CDSArtikelWZG_NM: TFloatField;
    CDSArtikelPRW_NM: TFloatField;
    CDSArtikelEMP_ANZ: TFloatField;
    CDSArtikelAUFTRAG: TStringField;
    CDSArtikelAUFTR_DAT: TDateField;
    CDSArtikelART_AUSG: TSmallintField;
    CDSArtikelK_SONDER: TSmallintField;
    CDSArtikelB_ANL_DI: TFloatField;
    CDSArtikelB_ANL_DE: TFloatField;
    CDSArtikelTOLO_AN_DI: TFloatField;
    CDSArtikelTOLU_AN_DI: TFloatField;
    CDSArtikelTOLO_AN_DE: TFloatField;
    CDSArtikelTOLU_AN_DE: TFloatField;
    CDSArtikelDAT_EMP: TDateField;
    CDSArtikelDAT_COC: TDateField;
    CDSArtikelDAT_ANZ: TDateField;
    CDSArtikelDAT_LSZ: TDateField;
    CDSArtikelDAT_FRZ: TDateField;
    CDSArtikelDAT_DIA: TDateField;
    CDSArtikelDAT_PRF: TDateField;
    CDSArtikelDAT_SPC: TDateField;
    CDSArtikelDAT_DEDI: TDateField;
    CDSArtikelDAT_LOG1: TDateField;
    CDSArtikelDAT_COCNEU: TDateField;
    CDSArtikelDRUCKEN: TStringField;
    CDSArtikelWZ_AUF_DAT: TDateField;
    CDSArtikelPW_AUF_DAT: TDateField;
    CDSArtikelTEIL_ART: TSmallintField;
    CDSArtikelF3: TFloatField;
    CDSArtikelF3P: TFloatField;
    CDSArtikelF3M: TFloatField;
    CDSArtikelL3: TFloatField;
    SQLDSKT: TSQLDataSet;
    SQLDSKTART_GRP: TStringField;
    SQLDSKTART_NUM: TStringField;
    SQLDSKTADR_KNA: TStringField;
    SQLDSKTTEILE_NR: TStringField;
    DSPKT: TDataSetProvider;
    CDSKT: TClientDataSet;
    CDSKTART_GRP: TStringField;
    CDSKTART_NUM: TStringField;
    CDSKTADR_KNA: TStringField;
    CDSKTTEILE_NR: TStringField;
    DSKT: TDataSource;
    SQLDSWHis: TSQLDataSet;
    SQLDSWzg: TSQLDataSet;
    SQLDSWHGr: TSQLDataSet;
    DSPWzg: TDataSetProvider;
    DSPWHis: TDataSetProvider;
    DSPWHGr: TDataSetProvider;
    CDSWzg: TClientDataSet;
    CDSWHis: TClientDataSet;
    CDSWHGr: TClientDataSet;
    DSWzg: TDataSource;
    DSWHis: TDataSource;
    DSWHGr: TDataSource;
    CDSWzgWERKZG_NR: TFloatField;
    CDSWzgDE: TFloatField;
    CDSWzgDI: TFloatField;
    CDSWzgX_FACH: TSmallintField;
    CDSWzgVORSCHUB: TFloatField;
    CDSWzgBAND: TFloatField;
    CDSWzgBAND2: TSmallintField;
    CDSWzgBAND3: TSmallintField;
    CDSWzgKUW: TSmallintField;
    CDSWzgLETZT_AEND: TDateField;
    CDSWzgADR_KNA: TStringField;
    CDSWzgBEMERKUNG: TStringField;
    CDSWzgDATHBN: TDateField;
    CDSWzgKUERZEL: TStringField;
    CDSWzgART_GRP: TStringField;
    CDSWzgART_NUM: TStringField;
    CDSWzgART_BEZ: TStringField;
    CDSWzgZEICHN_NR: TStringField;
    CDSWzgGR_ST_D: TFloatField;
    CDSWzgGR_BU_D: TFloatField;
    CDSWzgKL_ST_D: TFloatField;
    CDSWzgKL_BU_D: TFloatField;
    CDSWzgGR_ST_WST: TStringField;
    CDSWzgGR_BU_WST: TStringField;
    CDSWzgKL_ST_WST: TStringField;
    CDSWzgKL_BU_WST: TStringField;
    CDSWzgPRAEGESATZ: TStringField;
    CDSWzgPRAEGEWINK: TFloatField;
    CDSWzgR_PST: TSmallintField;
    CDSWzgDI_BEMERK: TStringField;
    CDSWzgGR_ST_WINK: TFloatField;
    CDSWzgR_SST: TSmallintField;
    CDSWzgFANGST_BEM: TStringField;
    CDSWzgFUEHRLEIST: TFloatField;
    CDSWzgL0: TFloatField;
    CDSWzgHAERTE_FA: TStringField;
    CDSWzgERODIER_FA: TStringField;
    CDSWzgPLAN_TERM: TDateField;
    CDSWzgLETZT_BEM: TStringField;
    CDSWzgLETZT_ANZ: TFloatField;
    CDSWzgGES_STCK: TFloatField;
    CDSWzgSTATUS: TStringField;
    CDSWzgART: TStringField;
    CDSWzgLPPS1: TFloatField;
    CDSWzgLPPS2: TFloatField;
    CDSWzgLPPS3: TFloatField;
    CDSWzgMARKIER: TStringField;
    CDSWHGrHWERKZG_NR: TFloatField;
    CDSWHGrHWERKZG_AL: TFloatField;
    CDSWHGrHDE: TFloatField;
    CDSWHGrHDE_ALT: TFloatField;
    CDSWHGrHDI: TFloatField;
    CDSWHGrHDI_ALT: TFloatField;
    CDSWHGrHX_FACH: TSmallintField;
    CDSWHGrHX_FACH_AL: TSmallintField;
    CDSWHGrHVORSCHUB: TFloatField;
    CDSWHGrHVORSCH_AL: TFloatField;
    CDSWHGrHBAND: TFloatField;
    CDSWHGrHB1_ALT: TFloatField;
    CDSWHGrHBAND2: TSmallintField;
    CDSWHGrHB2_ALT: TSmallintField;
    CDSWHGrHBAND3: TSmallintField;
    CDSWHGrHB3_ALT: TSmallintField;
    CDSWHGrHKUW: TSmallintField;
    CDSWHGrHKUW_ALT: TSmallintField;
    CDSWHGrHLETZT_AEN: TDateField;
    CDSWHGrHLE_AEN_AL: TDateField;
    CDSWHGrHKUNDE: TStringField;
    CDSWHGrHKUNDE_ALT: TStringField;
    CDSWHGrHBEMERKUNG: TStringField;
    CDSWHGrHBEM_ALT: TStringField;
    CDSWHGrHDATHBN: TDateField;
    CDSWHGrHDATHB_ALT: TDateField;
    CDSWHGrHKUERZEL: TStringField;
    CDSWHGrHKUERZ_ALT: TStringField;
    CDSWHGrHART_GRP: TStringField;
    CDSWHGrHART_GR_AL: TStringField;
    CDSWHGrHART_NUM: TStringField;
    CDSWHGrHART_NM_AL: TStringField;
    CDSWHGrHART_BEZ: TStringField;
    CDSWHGrHART_BZ_AL: TStringField;
    CDSWHGrHZEICHN_NR: TStringField;
    CDSWHGrHZNR_ALT: TStringField;
    CDSWHGrHGR_ST_D: TFloatField;
    CDSWHGrHGR_STD_AL: TFloatField;
    CDSWHGrHGR_BU_D: TFloatField;
    CDSWHGrHGR_BUD_AL: TFloatField;
    CDSWHGrHKL_ST_D: TFloatField;
    CDSWHGrHKL_STD_AL: TFloatField;
    CDSWHGrHKL_BU_D: TFloatField;
    CDSWHGrHKL_BUD_AL: TFloatField;
    CDSWHGrHGR_ST_WST: TStringField;
    CDSWHGrHGR_STW_AL: TStringField;
    CDSWHGrHGR_BU_WST: TStringField;
    CDSWHGrHGR_BUW_AL: TStringField;
    CDSWHGrHKL_ST_WST: TStringField;
    CDSWHGrHKL_STW_AL: TStringField;
    CDSWHGrHKL_BU_WST: TStringField;
    CDSWHGrHKL_BUW_AL: TStringField;
    CDSWHGrHPRAEGESAT: TStringField;
    CDSWHGrHPRAES_ALT: TStringField;
    CDSWHGrHPRAEGEWIN: TFloatField;
    CDSWHGrHPRAEW_ALT: TFloatField;
    CDSWHGrHR_PST: TSmallintField;
    CDSWHGrHR_PST_ALT: TSmallintField;
    CDSWHGrHDI_BEMERK: TStringField;
    CDSWHGrHDI_BEM_AL: TStringField;
    CDSWHGrHGR_ST_WIN: TFloatField;
    CDSWHGrHGR_SWI_AL: TFloatField;
    CDSWHGrHR_SST: TSmallintField;
    CDSWHGrHR_SST_ALT: TSmallintField;
    CDSWHGrHFANGST_BE: TStringField;
    CDSWHGrHFANGBM_AL: TStringField;
    CDSWHGrHFUEHRLEIS: TFloatField;
    CDSWHGrHFUEH_ALT: TFloatField;
    CDSWHGrHL0: TFloatField;
    CDSWHGrHL0_ALT: TFloatField;
    CDSWHGrHHAERTE_FA: TStringField;
    CDSWHGrHHAEFA_ALT: TStringField;
    CDSWHGrHERODIER_F: TStringField;
    CDSWHGrHEROFA_ALT: TStringField;
    CDSWHGrHPLAN_TERM: TDateField;
    CDSWHGrHPL_TM_ALT: TDateField;
    CDSWHGrHLETZT_BEM: TStringField;
    CDSWHGrHLEBEM_ALT: TStringField;
    CDSWHGrHLETZT_ANZ: TFloatField;
    CDSWHGrHLEANZ_ALT: TFloatField;
    CDSWHGrHAEND_DAT: TDateField;
    SQLDSWzgWERKZG_NR: TFloatField;
    SQLDSWzgDE: TFloatField;
    SQLDSWzgDI: TFloatField;
    SQLDSWzgX_FACH: TSmallintField;
    SQLDSWzgVORSCHUB: TFloatField;
    SQLDSWzgBAND: TFloatField;
    SQLDSWzgBAND2: TSmallintField;
    SQLDSWzgBAND3: TSmallintField;
    SQLDSWzgKUW: TSmallintField;
    SQLDSWzgLETZT_AEND: TDateField;
    SQLDSWzgADR_KNA: TStringField;
    SQLDSWzgBEMERKUNG: TStringField;
    SQLDSWzgDATHBN: TDateField;
    SQLDSWzgKUERZEL: TStringField;
    SQLDSWzgART_GRP: TStringField;
    SQLDSWzgART_NUM: TStringField;
    SQLDSWzgART_BEZ: TStringField;
    SQLDSWzgZEICHN_NR: TStringField;
    SQLDSWzgGR_ST_D: TFloatField;
    SQLDSWzgGR_BU_D: TFloatField;
    SQLDSWzgKL_ST_D: TFloatField;
    SQLDSWzgKL_BU_D: TFloatField;
    SQLDSWzgGR_ST_WST: TStringField;
    SQLDSWzgGR_BU_WST: TStringField;
    SQLDSWzgKL_ST_WST: TStringField;
    SQLDSWzgKL_BU_WST: TStringField;
    SQLDSWzgPRAEGESATZ: TStringField;
    SQLDSWzgPRAEGEWINK: TFloatField;
    SQLDSWzgR_PST: TSmallintField;
    SQLDSWzgDI_BEMERK: TStringField;
    SQLDSWzgGR_ST_WINK: TFloatField;
    SQLDSWzgR_SST: TSmallintField;
    SQLDSWzgFANGST_BEM: TStringField;
    SQLDSWzgFUEHRLEIST: TFloatField;
    SQLDSWzgL0: TFloatField;
    SQLDSWzgHAERTE_FA: TStringField;
    SQLDSWzgERODIER_FA: TStringField;
    SQLDSWzgPLAN_TERM: TDateField;
    SQLDSWzgLETZT_BEM: TStringField;
    SQLDSWzgLETZT_ANZ: TFloatField;
    SQLDSWzgGES_STCK: TFloatField;
    SQLDSWzgSTATUS: TStringField;
    SQLDSWzgART: TStringField;
    SQLDSWzgLPPS1: TFloatField;
    SQLDSWzgLPPS2: TFloatField;
    SQLDSWzgLPPS3: TFloatField;
    SQLDSWzgMARKIER: TStringField;
    SQLDSSaeulen: TSQLDataSet;
    DSPSaeulen: TDataSetProvider;
    CDSSaeulen: TClientDataSet;
    DSSaeulen: TDataSource;
    CDSSaeulenS_ART_GR: TStringField;
    CDSSaeulenS_ART_NR: TStringField;
    CDSSaeulenART_GR: TStringField;
    CDSSaeulenART_NR: TStringField;
    CDSSaeulenN: TIntegerField;
    CDSSaeulenI: TIntegerField;
    CDSSaeulenANF_MIT_DE: TStringField;
    CDSSaeulenF1: TFloatField;
    CDSSaeulenF1P: TFloatField;
    CDSSaeulenF1M: TFloatField;
    CDSSaeulenL1: TFloatField;
    CDSSaeulenF2: TFloatField;
    CDSSaeulenF2P: TFloatField;
    CDSSaeulenF2M: TFloatField;
    CDSSaeulenL2: TFloatField;
    CDSSaeulenF3: TFloatField;
    CDSSaeulenF3P: TFloatField;
    CDSSaeulenF3M: TFloatField;
    CDSSaeulenL3: TFloatField;
    CDSSaeulenF4: TFloatField;
    CDSSaeulenF4P: TFloatField;
    CDSSaeulenF4M: TFloatField;
    CDSSaeulenL4: TFloatField;
    CDSSaeulenF5: TFloatField;
    CDSSaeulenF5P: TFloatField;
    CDSSaeulenF5M: TFloatField;
    CDSSaeulenL5: TFloatField;
    CDSSaeulenF6: TFloatField;
    CDSSaeulenF6P: TFloatField;
    CDSSaeulenF6M: TFloatField;
    CDSSaeulenL6: TFloatField;
    SQLDSTDBKUNDEN_NR: TStringField;
    SQLDSTDBORIG_ZEICH: TSmallintField;
    CDSTDBKUNDEN_NR: TStringField;
    CDSTDBORIG_ZEICH: TSmallintField;
    SQLDSTDBDOK_VORH: TStringField;
    CDSTDBDOK_VORH: TStringField;
    SQLDSArtikelR3: TFloatField;
    SQLDSArtikelR4: TFloatField;
    SQLDSArtikelL0_FREI: TSmallintField;
    SQLDSArtikelTYP_R1: TStringField;
    SQLDSArtikelTYP_R2: TStringField;
    SQLDSArtikelTYP_R3: TStringField;
    SQLDSArtikelTYP_R4: TStringField;
    SQLDSArtikelDOK_VORH: TStringField;
    SQLDSArtikelOBFL_NR: TSmallintField;
    SQLDSArtikelHAERTE_ART: TStringField;
    SQLDSArtikelHAERT_UTOL: TFloatField;
    SQLDSArtikelHAERT_OTOL: TFloatField;
    CDSArtikelR3: TFloatField;
    CDSArtikelR4: TFloatField;
    CDSArtikelL0_FREI: TSmallintField;
    CDSArtikelTYP_R1: TStringField;
    CDSArtikelTYP_R2: TStringField;
    CDSArtikelTYP_R3: TStringField;
    CDSArtikelTYP_R4: TStringField;
    CDSArtikelDOK_VORH: TStringField;
    CDSArtikelOBFL_NR: TSmallintField;
    CDSArtikelHAERTE_ART: TStringField;
    CDSArtikelHAERT_UTOL: TFloatField;
    CDSArtikelHAERT_OTOL: TFloatField;
    SQLDSDokVerw: TSQLDataSet;
    DSPDokVerw: TDataSetProvider;
    CDSDokVerw: TClientDataSet;
    IBDBBlob: TIBDatabase;
    IBTransactionBlob: TIBTransaction;
    IBDSBlob: TIBDataSet;
    DSBlob: TDataSource;
    SQLDSArtikelDOK_NR: TIntegerField;
    SQLDSArtikelIN_DOM: TStringField;
    SQLDSArtikelCOPY_ART_GR: TStringField;
    SQLDSArtikelCOPY_ART_NR: TStringField;
    SQLDSArtikelIMDS_NR: TStringField;
    CDSArtikelDOK_NR: TIntegerField;
    CDSArtikelIN_DOM: TStringField;
    CDSArtikelCOPY_ART_GR: TStringField;
    CDSArtikelCOPY_ART_NR: TStringField;
    CDSArtikelIMDS_NR: TStringField;
    SQLDSDokVerwNR_DOK: TIntegerField;
    SQLDSDokVerwAKTIV: TStringField;
    CDSDokVerwNR_DOK: TIntegerField;
    CDSDokVerwAKTIV: TStringField;
    IBDSBlobLFD_NR: TIntegerField;
    IBDSBlobPFAD: TIBStringField;
    IBDSBlobTYP: TIBStringField;
    IBDSBlobDATUM: TDateTimeField;
    IBDSBlobORIENTIERUNG: TSmallintField;
    IBDSBlobENDG: TIBStringField;
    IBDSBlobDATEN: TMemoField;
    SQLDSLiefZeug: TSQLDataSet;
    DSPLiefZeug: TDataSetProvider;
    CDSLiefZeug: TClientDataSet;
    SQLDSLiefZeugRM: TFloatField;
    CDSLiefZeugRM: TFloatField;
    SQLDSArtikelLOESCH: TStringField;
    SQLDSArtikelREV_STAND: TStringField;
    SQLDSArtikelREV_DATUM: TDateField;
    SQLDSArtikelDE_LAS: TFloatField;
    SQLDSArtikelDI_LAS: TFloatField;
    SQLDSArtikelLAS_TOL: TFloatField;
    SQLDSArtikelRUND: TFloatField;
    CDSArtikelLOESCH: TStringField;
    CDSArtikelREV_STAND: TStringField;
    CDSArtikelREV_DATUM: TDateField;
    CDSArtikelDE_LAS: TFloatField;
    CDSArtikelDI_LAS: TFloatField;
    CDSArtikelLAS_TOL: TFloatField;
    CDSArtikelRUND: TFloatField;
    SQLDSArtWz: TSQLDataSet;
    DSPArtWz: TDataSetProvider;
    CDSArtWz: TClientDataSet;
    DSArtWz: TDataSource;
    SQLDSWzgRUEST_FAK: TFloatField;
    SQLDSWzgANG_PREIS: TFloatField;
    SQLDSWzgSTEMPELSATZ: TStringField;
    CDSWzgRUEST_FAK: TFloatField;
    CDSWzgANG_PREIS: TFloatField;
    CDSWzgSTEMPELSATZ: TStringField;
    SQLDSWzgSG: TStringField;
    CDSWzgSG: TStringField;
    SQLDSWHisWERKZG_NR: TFloatField;
    SQLDSWHisART_NUM: TStringField;
    SQLDSWHisINTERVALL: TFloatField; //<- hier ist das Feld
    CDSWHisWERKZG_NR: TFloatField;
    CDSWHisART_NUM: TStringField;
    CDSWHisINTERVALL: TFloatField; // <- hier das andere
    SQLDSWHisART_GRP: TStringField;
    SQLDSWHisART_BEZ: TStringField;
    SQLDSWHisPRAE_WIN: TFloatField;
    SQLDSWHisR_PST: TFloatField;
    SQLDSWHisGR_ST_WIN: TFloatField;
    SQLDSWHisR_SST: TFloatField;
    SQLDSWHisL0: TFloatField;
    SQLDSWHisL02: TFloatField;
    SQLDSWHisANZAHL: TFloatField;
    SQLDSWHisBEMERKUNG: TStringField;
    SQLDSWHisKUERZEL: TStringField;
    SQLDSWHisAEND_DAT: TDateField;
    SQLDSWHisPROD_AUF: TFloatField;
    SQLDSWHisGES_STCK: TFloatField;
    SQLDSWHisHUB: TFloatField;
    SQLDSWHisHUBZAHL: TFloatField;
    SQLDSWHisRM: TFloatField;
    SQLDSWHisROHM_ART_GRP: TStringField;
    SQLDSWHisROHM_ART_NUM: TStringField;
    SQLDSWHisROHM_ART_BEZ: TStringField;
    SQLDSWHisKST: TIntegerField;
    SQLDSWHisDRUCK: TFloatField;
    SQLDSWHisUHR: TFloatField;
    CDSWHisART_GRP: TStringField;
    CDSWHisART_BEZ: TStringField;
    CDSWHisPRAE_WIN: TFloatField;
    CDSWHisR_PST: TFloatField;
    CDSWHisGR_ST_WIN: TFloatField;
    CDSWHisR_SST: TFloatField;
    CDSWHisL0: TFloatField;
    CDSWHisL02: TFloatField;
    CDSWHisANZAHL: TFloatField;
    CDSWHisBEMERKUNG: TStringField;
    CDSWHisKUERZEL: TStringField;
    CDSWHisAEND_DAT: TDateField;
    CDSWHisPROD_AUF: TFloatField;
    CDSWHisGES_STCK: TFloatField;
    CDSWHisHUB: TFloatField;
    CDSWHisHUBZAHL: TFloatField;
    CDSWHisRM: TFloatField;
    CDSWHisROHM_ART_GRP: TStringField;
    CDSWHisROHM_ART_NUM: TStringField;
    CDSWHisROHM_ART_BEZ: TStringField;
    CDSWHisKST: TIntegerField;
    CDSWHisDRUCK: TFloatField;
    CDSWHisUHR: TFloatField;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  DataModule1 : TDataModule1;

implementation

{$R *.dfm}



end.
@mkinzler
na schon, wenn ich eine weitere Abfrage mache um die Anzahl des _Auftretens zu ermitteln.
Dann kann ich Durchnitt min, und max ermitteln.
Wolfgang Hirsch

Geändert von hirsch (24. Okt 2011 um 16:18 Uhr) Grund: Otho
  Mit Zitat antworten Zitat