wagestat.pas

这是一个vc++的工资管理系统

unit wagestat;

interface

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

type
  Tfrmwagestat = class(TForm)
    cxGrid1DBTableView1: TcxGridDBTableView;
    cxGrid1Level1: TcxGridLevel;
    cxGrid1: TcxGrid;
    DataSource1: TDataSource;
    PopupMenu1: TPopupMenu;
    N2: TMenuItem;
    N3: TMenuItem;
    cxGrid1DBTableView1DBColumn: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn1: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn2: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn11: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn21: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn3: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn4: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn5: TcxGridDBColumn;
    N1: TMenuItem;
    RMGridReport1: TRMGridReport;
    RMDBDataSet1: TRMDBDataSet;
    RMGridReportDesigner1: TRMGridReportDesigner;
    ADOQuery1: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Refresh();
  end;

var
  frmwagestat: Tfrmwagestat;

implementation

{$R *.dfm}
uses Data,DBCOnnect,Unit4;
procedure Tfrmwagestat.Refresh();
begin
  self.DataSource1.DataSet.Active:=false;
  self.DataSource1.DataSet.Active:=true;
end;
procedure Tfrmwagestat.FormCreate(Sender: TObject);
begin
  //  datasource1.DataSet.Active:=true;
      self.DataSource1.DataSet.Active:=true;
end;

procedure Tfrmwagestat.N1Click(Sender: TObject);
begin
  //dm.ADODataSet1.Refresh;
  refresh();
end;

procedure Tfrmwagestat.N2Click(Sender: TObject);
begin
//
   RMGridReport1.LoadFromFile('部门汇总.rls');
     RmGridReport1.ShowReport;
end;

procedure Tfrmwagestat.N3Click(Sender: TObject);
begin
//

  RMGridReport1.LoadFromFile('部门汇总.rls');
     RmGridReport1.DesignReport;
end;

end.