wagestat.~pas

来自「企业员工工资管理系统,用ACCESS和VB编写」· ~PAS 代码 · 共 70 行

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;

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;
    procedure FormCreate(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmwagestat: Tfrmwagestat;

implementation

{$R *.dfm}
uses Data,DBCOnnect,Unit4;

procedure Tfrmwagestat.FormCreate(Sender: TObject);
begin
  //
   datasource1.DataSet.Active:=true;
end;

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

procedure Tfrmwagestat.N2Click(Sender: TObject);
begin
//
end;

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

end.