wagestat.pas

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

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.