gzpreview.~pas

企业员工工资管理系统,用ACCESS和VB编写

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.