data.pas

DelphiHelper---Delphi帮助源代码

unit data;

interface

uses
  SysUtils, Classes, DB, ADODB, ppCtrls, ppVar, ppStrtch, ppRichTx, ppDB,
  ppPrnabl, ppClass, ppBands, ppCache, ppProd, ppReport, ppComm, ppRelatv,
  ppDBPipe, ppMemo;

type
  TDM = class(TDataModule)
    Conn1: TADOConnection;
    Query1: TADOQuery;
    Query2: TADOQuery;
    Query3: TADOQuery;
    DS_Query1: TDataSource;
    DS_Query2: TDataSource;
    DS_Query3: TDataSource;
    Set_Color: TADODataSet;
    DS_Color: TDataSource;
    Set_Colorcolor_id: TAutoIncField;
    Set_Colorcolor_name: TWideStringField;
    Set_Colorcolor_code: TWideStringField;
    Set_Colorcolor_value: TWideStringField;
    Set_Colorcolor_rgb: TWideStringField;
    Set_Arc_add: TADODataSet;
    Set_Arc_edit: TADODataSet;
    DS_Arc_add: TDataSource;
    DS_Arc_edit: TDataSource;
    Set_Func_add: TADODataSet;
    DS_Func_add: TDataSource;
    Query4: TADOQuery;
    DS_Query4: TDataSource;
    Query4fun_id: TAutoIncField;
    Query4fun_name: TWideStringField;
    Query4fun_exp: TMemoField;
    Set_Func_edit: TADODataSet;
    DS_Func_edit: TDataSource;
    Set_Colorcolor_r: TWideStringField;
    Set_Colorcolor_g: TWideStringField;
    Set_Colorcolor_b: TWideStringField;
    Set_Log: TADODataSet;
    DS_log: TDataSource;
    Query5: TADOQuery;
    DS_Query5: TDataSource;
    Set_Loglog_id: TAutoIncField;
    Set_Loglog_title: TWideStringField;
    Set_Loglog_date: TDateTimeField;
    Set_Loglog_text: TMemoField;
    ppDBPipeline1: TppDBPipeline;
    Set_Arc: TADODataSet;
    DS_Arc: TDataSource;
    ppDBPipeline2: TppDBPipeline;
    ppReport2: TppReport;
    ppHeaderBand2: TppHeaderBand;
    ppDetailBand2: TppDetailBand;
    ppFooterBand2: TppFooterBand;
    ppLabel3: TppLabel;
    ppLine3: TppLine;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppLine4: TppLine;
    ppSystemVariable2: TppSystemVariable;
    ppLabel4: TppLabel;
    ppDBMemo1: TppDBMemo;
    Set_Fun: TADODataSet;
    DS_Fun: TDataSource;
    ppDBPipeline3: TppDBPipeline;
    ppReport3: TppReport;
    ppHeaderBand3: TppHeaderBand;
    ppLabel5: TppLabel;
    ppLine5: TppLine;
    ppDetailBand3: TppDetailBand;
    ppDBText5: TppDBText;
    ppLine6: TppLine;
    ppDBMemo2: TppDBMemo;
    ppFooterBand3: TppFooterBand;
    ppSystemVariable3: TppSystemVariable;
    ppLabel6: TppLabel;
    ppReport1: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppLabel1: TppLabel;
    ppLine1: TppLine;
    ppDetailBand1: TppDetailBand;
    ppDBText1: TppDBText;
    ppDBText2: TppDBText;
    ppLine2: TppLine;
    ppDBMemo3: TppDBMemo;
    ppFooterBand1: TppFooterBand;
    ppSystemVariable1: TppSystemVariable;
    ppLabel2: TppLabel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.dfm}

end.