wagestat.pas

企业工资管理系统的代码实现主要包括五个功能模块在此不一一列举

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.