?? wagestat.~pas
字號(hào):
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.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -