gzpreview.pas

来自「工资管理系统」· PAS 代码 · 共 84 行

unit gzPreview;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, ADODB, cxGridLevel, cxClasses,
  cxControls, cxGridCustomView, cxGrid, RM_Class, RM_DsgGridReport,
  RM_Dataset, RM_Common, RM_GridReport;

type
  TFrmWagePreview = class(TForm)
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    DataSource1: TDataSource;
    ADODataSet1: TADODataSet;
    cxGrid1DBTableView1: TcxGridDBTableView;
    cxGrid1Level1: TcxGridLevel;
    cxGrid1: TcxGrid;
    cxGrid1DBTableView1DBColumn: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn1: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn2: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn3: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn4: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn5: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn6: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn7: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn11: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn21: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn8: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn9: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn10: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn12: TcxGridDBColumn;
    cxStyleRepository1: TcxStyleRepository;
    HeadStyle: TcxStyle;
    N3: TMenuItem;
    RMGridReport1: TRMGridReport;
    RMDBDataSet1: TRMDBDataSet;
    ADODataSet2: TADODataSet;
    RMGridReportDesigner1: TRMGridReportDesigner;
    procedure FormCreate(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmWagePreview: TFrmWagePreview;

implementation

{$R *.dfm}
uses Data;

procedure TFrmWagePreview.FormCreate(Sender: TObject);
begin
  //
    datasource1.DataSet.Active:=true;
end;

procedure TFrmWagePreview.N1Click(Sender: TObject);
begin
  //

   RMGridReport1.LoadFromFile('基本工资.rls');
     RmGridReport1.ShowReport;

end;

procedure TFrmWagePreview.N3Click(Sender: TObject);
begin
  //
   RMGridReport1.LoadFromFile('基本工资.rls');
     RmGridReport1.DesignReport;
end;

end.