report.pas

来自「人事管理系统 开发工具是VB+access 比较简单」· PAS 代码 · 共 63 行

unit report;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, QuickRpt, QRCtrls, DB, ADODB, ppModule, raCodMod,
  ppDB, ppBands, ppCache, ppClass, ppProd, ppReport, ppViewr, ppComm,
  ppRelatv, ppDBPipe, ppPrnabl, ppStrtch, ppSubRpt, ppCtrls, daDataView,
  daQueryDataView, daADO, daDataModule, RM_class, RM_dset, RM_dbset,
  StdCtrls;

type
  TForm3 = class(TForm)
    sel: TADOQuery;
    RMDBDataSet1: TRMDBDataSet;
    RMDBDataSet2: TRMDBDataSet;
    RMDBDataSet3: TRMDBDataSet;
    RMDBDataSet4: TRMDBDataSet;
    rmwork: TRMReport;
    rmstu: TRMReport;
    rmpa: TRMReport;
    rmjc: TRMReport;
    RMDBDataSet5: TRMDBDataSet;
    rmfz: TRMReport;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation
uses DMFrom;
{$R *.dfm}

procedure TForm3.FormCreate(Sender: TObject);
begin
dm.self.Close;
dm.self.Open;
dm.work.close;
dm.work.Open;
dm.pa.Close;
dm.pa.Open;
dm.jc.Close;
dm.jc.Open;
dm.stu.Close;
dm.stu.Open;

end;

procedure TForm3.Button1Click(Sender: TObject);
begin
//ShowMessage(ExtractFilePath(Application.ExeName));

end;

end.