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.