test.pas

来自「delphi框架可以学习, 写的很好的」· PAS 代码 · 共 106 行

{*******************************************************}
{                                                       }
{       牛仔布信息系统                                  }
{                                                       }
{       版权所有 (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.