dailyreport.pas

用户名：SYSTEM 密码：空 第一次运行请先恢复数据库 DATABASE 到SQL服务器

unit DailyReport;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseChildForm, StdCtrls, Buttons, ExtCtrls,DataMod, ComCtrls,
  DB, ppDB, ppDBPipe, ppComm, ppRelatv, ppProd, ppClass, ppReport, ppCtrls,
  ppBands, ppPrnabl, ppCache, ADODB;

type
  TfLaterLeveEarlyDailyReport = class(TfBaseChildForm)
    Panel1: TPanel;
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    CheckBox1: TCheckBox;
    cobDepartMent: TComboBox;
    BitBtn1: TBitBtn;
    ppReport1: TppReport;
    ppDBPipeline1: TppDBPipeline;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppLabel1: TppLabel;
    ppLabel2: TppLabel;
    ppDBText1: TppDBText;
    ppGroup1: TppGroup;
    ppGroupHeaderBand1: TppGroupHeaderBand;
    ppGroupFooterBand1: TppGroupFooterBand;
    ppLine1: TppLine;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fLaterLeveEarlyDailyReport: TfLaterLeveEarlyDailyReport;

implementation

{$R *.dfm}

procedure TfLaterLeveEarlyDailyReport.FormCreate(Sender: TObject);
begin
  inherited;
  fdatamod.ListDepartMent(cobDepartMent.items);
  if cobDepartMent.Items.Count >0 then
     cobDepartMent.ItemIndex :=0;
end;

end.