test

jacky_xdai

[PHP]
unit MainForm;

interface

uses
  Business.System, Business.Forms, Business.Model, Business.Data,
  Business.System.TypInfo, CommonComponentLibrary, DocConsts;

type
  TMainForm = class(TForm)
    BizTreeView: TBizTreeView;
    Splitter1: TSplitter;
    Panel1: TPanel;
    Query1: TQuery;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Memo1: TMemo;
    Splitter2: TSplitter;
    Memo2: TMemo;
    Memo3: TMemo;
    InfoBroker1: TInfoBroker;
    FuncBroker1: TFuncBroker;
    DSBDataDict: TDataSetBroker;
    DSBFields: TDataSetBroker;
    DSBAutoFill: TDataSetBroker;
    DSBLookup: TDataSetBroker;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    SaveDialog: TSaveDialog;
    DSBZDMBZB: TDataSetBroker;
    DSBZDMB_Field: TDataSetBroker;
    DSBZDMB_AutoFill: TDataSetBroker;
    DSBZDMB_Lookup: TDataSetBroker;
    DSBZDMB_UseField: TDataSetBroker;
    DSBYWYSZB: TDataSetBroker;
    DSBYWYSCB: TDataSetBroker;
    DSBYWYSCB_ZD: TDataSetBroker;
    ToolBar2: TToolBar;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    QryDatabase: TQuery;
    QryTableFolder: TQuery;
    QryFieldTempletGroup: TQuery;
    QryelementGroup: TQuery;
    QryparamGroup: TQuery;
    QryoperationGroup: TQuery;
    Qrylibrary: TQuery;
    QrySpaceFolder: TQuery;
    QrySubSpaceFolder: TQuery;
    QryRef: TQuery;
    Query: TQuery;
    procedure BizFormCreate(Sender: TObject);
    procedure BizFormDestroy(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
  private
    FKind: TBizObjectKind;
    FSelectNode: TTreeNode;
    FEditStyles: TStringList;
    FPATH: String;

    procedure LoadSourceCode(ASpace, AID, AType: string; AMemo: TMemo; ATabIndex: Integer);
    procedure AddTableDeftoDataSet(ANode: TTreeNode);
    procedure AddFieldtoDataSet(ABizField: TBizFieldDef);
    function RemovePath(AFullName: string): string;
    procedure AddAutoFilltoDataSet(ATableName, AFieldName: string; AAutoFillDef: TFieldFillDef; AFillDataSet, ALookupDataSet: TUserDataSet);
    //procedure AddLookuptoDataSet(ABizField: TBizFieldDef; IsAutoFill: Boolean);
    procedure AddLookuptoDataSet(ATableName, AFieldName: string; ALookupDef: TLookupDef; ADataSet: TUserDataSet; IsAutoFill: Boolean);
    procedure AddFieldTempletGrouptoDataSet(ANode: TTreeNode);
    procedure AddFieldTemplettoDataSet(ANode: TTreeNode);
    procedure AddUseFieldTempletFields(ATableID: string; AFieldTemplet: TBizFieldTemplet);
    procedure AddElementGrouptoDataSet(ANode: TTreeNode);
    procedure AddElementtoDataSet(ANode: TTreeNode);
    procedure AddUseElementFields(AParentID: string; AElement: TBizElement);

    {private declarations}
  public
[/PHP]