?? test.pas
字號:
{*******************************************************}
{ }
{ 牛仔布信息系統 }
{ }
{ 版權所有 (C) 2006 前進牛仔布有限公司 }
{ }
{使用說明:測試專用 }
{單元名稱:Test.pas }
{建立信息:由 管理員 于 2006-10-8 4:36:10 }
{工程名稱:JeansIM }
{*******************************************************}
unit Test;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Basic, ActnList, ImgList, RzPanel, RzButton, ExtCtrls,
DBGridEh, DBCtrls, RzDBCmbo, RzRadChk, StdCtrls, Mask, RzEdit, RzLabel,
RzTabs, Menus, RzBckgnd, Grids, ppEndUsr, ppBands, ppCache, ppClass,
ppProd, ppReport, ppDB, ppComm, ppRelatv, ppDBPipe;
type
TfrmTest = class(TfrmBasic)
plFind: TRzPanel;
cbFind1: TRzCheckBox;
cbbFind1: TRzDBLookupComboBox;
RzCheckBox1: TRzCheckBox;
RzDBLookupComboBox1: TRzDBLookupComboBox;
RzCheckBox2: TRzCheckBox;
RzDBLookupComboBox2: TRzDBLookupComboBox;
RzCheckBox3: TRzCheckBox;
dtpFind2: TRzDateTimeEdit;
lbl1: TRzLabel;
RzDateTimeEdit1: TRzDateTimeEdit;
plSplit: TRzPanel;
pgcTest: TRzPageControl;
tstOrder: TRzTabSheet;
tstList: TRzTabSheet;
tstTotal: TRzTabSheet;
RzCheckBox4: TRzCheckBox;
RzDateTimeEdit2: TRzDateTimeEdit;
RzLabel1: TRzLabel;
RzDateTimeEdit3: TRzDateTimeEdit;
RzCheckBox5: TRzCheckBox;
RzDateTimeEdit4: TRzDateTimeEdit;
RzLabel2: TRzLabel;
RzDateTimeEdit5: TRzDateTimeEdit;
dbgridList: TDBGridEh;
RzPanel1: TRzPanel;
RzPanel2: TRzPanel;
RzPanel3: TRzPanel;
RzPanel4: TRzPanel;
RzPanel5: TRzPanel;
RzPanel6: TRzPanel;
RzPanel7: TRzPanel;
RzPanel8: TRzPanel;
DBGridEh1: TDBGridEh;
RzPanel10: TRzPanel;
RzPanel11: TRzPanel;
RzPanel12: TRzPanel;
RzPanel13: TRzPanel;
DBGridEh3: TDBGridEh;
RzPanel14: TRzPanel;
DBGridEh2: TDBGridEh;
RzPanel9: TRzPanel;
spl1: TSplitter;
RzPanel15: TRzPanel;
pmDate: TPopupMenu;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
btnSelDate: TRzToolButton;
RzToolButton1: TRzToolButton;
RzToolButton2: TRzToolButton;
RzToolButton3: TRzToolButton;
RzToolButton4: TRzToolButton;
RzSeparator1: TRzSeparator;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmTest: TfrmTest;
implementation
uses MyPublic;
{$R *.dfm}
procedure TfrmTest.FormCreate(Sender: TObject);
begin
inherited;
_CurrentModule := '測試專用';
WindowState := wsMaximized;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -