object frm_sys_module: Tfrm_sys_module Left = 255 Top = 179 Width = 696 Height = 480 Align = alClient Caption = #26435#38480#27169#22359 Color = clBtnFace Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False OnClose = FormClose OnShow = FormShow PixelsPerInch = 96 TextHeight = 12 object Splitter1: TSplitter Left = 426 Top = 41 Width = 4 Height = 412 Cursor = crHSplit end object Splitter2: TSplitter Left = 145 Top = 41 Width = 8 Height = 412 Cursor = crHSplit end object Panel1: TPanel Left = 0 Top = 0 Width = 688 Height = 41 Align = alTop BevelOuter = bvNone Caption = #26435#38480#27169#22359#35774#32622 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 0 object BitBtn1: TBitBtn Left = 504 Top = 8 Width = 75 Height = 25 Caption = #20851#38381 TabOrder = 0 OnClick = BitBtn1Click end end object dxDBGrid1: TdxDBGrid Left = 430 Top = 41 Width = 258 Height = 412 Bands = < item end> DefaultLayout = True HeaderPanelRowCount = 1 KeyField = #26435#38480#20195#30721 ShowGroupPanel = True SummaryGroups = <> SummarySeparator = ', ' Align = alClient TabOrder = 1 DataSource = dsr_sys_code Filter.Criteria = {00000000} OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks] object dxDBGrid1Column1: TdxDBGridMaskColumn BandIndex = 0 RowIndex = 0 FieldName = #26435#38480#20195#30721 end object dxDBGrid1Column2: TdxDBGridMaskColumn BandIndex = 0 RowIndex = 0 FieldName = #19968#32423#27169#22359 end object dxDBGrid1Column3: TdxDBGridMaskColumn BandIndex = 0 RowIndex = 0 FieldName = #20108#32423#27169#22359 end object dxDBGrid1Column4: TdxDBGridMaskColumn BandIndex = 0 RowIndex = 0 FieldName = #26435#38480#21517#31216 end object dxDBGrid1fmoduleid: TdxDBGridMaskColumn BandIndex = 0 RowIndex = 0 FieldName = 'fmoduleid' end object dxDBGrid1Column6: TdxDBGridLookupColumn BandIndex = 0 RowIndex = 0 FieldName = #25152#23646#27169#22359 end end object dxDBGrid2: TdxDBGrid Left = 153 Top = 41 Width = 273 Height = 412 Bands = < item end> DefaultLayout = True HeaderPanelRowCount = 1 KeyField = 'fmoduleid' ShowGroupPanel = True SummaryGroups = <> SummarySeparator = ', ' Align = alLeft TabOrder = 2 DataSource = dsrmodule Filter.Criteria = {00000000} OptionsDB = [edgoCanAppend, edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks] object dxDBGrid2fmoduleid: TdxDBGridMaskColumn Width = 40 BandIndex = 0 RowIndex = 0 FieldName = 'fmoduleid' end object dxDBGrid2PID: TdxDBGridMaskColumn Width = 34 BandIndex = 0 RowIndex = 0 FieldName = 'PID' end object dxDBGrid2Column3: TdxDBGridMaskColumn Width = 59 BandIndex = 0 RowIndex = 0 FieldName = #27169#22359#21517#31216 end object dxDBGrid2Column4: TdxDBGridCheckColumn Width = 31 BandIndex = 0 RowIndex = 0 FieldName = #26159#21542#21551#29992 ValueChecked = 'True' ValueUnchecked = 'False' end object dxDBGrid2Column5: TdxDBGridMaskColumn Width = 35 BandIndex = 0 RowIndex = 0 FieldName = #26435#38480#20195#30721 end object dxDBGrid2Column6: TdxDBGridMaskColumn Width = 31 BandIndex = 0 RowIndex = 0 FieldName = #22791#27880 end object dxDBGrid2actionName: TdxDBGridMaskColumn Width = 26 BandIndex = 0 RowIndex = 0 FieldName = 'actionName' end object dxDBGrid2Column8: TdxDBGridMaskColumn Width = 36 BandIndex = 0 RowIndex = 0 FieldName = #26159#21542#26126#32454 end object dxDBGrid2Column9: TdxDBGridCheckColumn Sorted = csUp Width = 48 BandIndex = 0 RowIndex = 0 FieldName = #26159#21542#20844#29992 ValueChecked = 'True' ValueUnchecked = 'False' end object dxDBGrid2Column10: TdxDBGridColumn BandIndex = 0 RowIndex = 0 FieldName = 'forderid' end end object dxDBTreeView1: TdxDBTreeView Left = 0 Top = 41 Width = 145 Height = 412 ShowNodeHint = True DataSource = dsrmodule DisplayField = #27169#22359#21517#31216 KeyField = 'fmoduleid' ListField = #27169#22359#21517#31216 ParentField = 'PID' RootValue = Null SeparatedSt = ' - ' RaiseOnError = True Indent = 19 Align = alLeft ParentColor = False Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren] SelectedIndex = -1 TabOrder = 3 end object qry_sys_code: TADOQuery Connection = frm_main.db CursorType = ctStatic Parameters = <> SQL.Strings = ( 'select * from t_sys_code') Left = 368 Top = 240 end object dsr_sys_code: TDataSource DataSet = qry_sys_code Left = 520 Top = 248 end object qrymodule: TADOQuery Connection = frm_main.db CursorType = ctStatic Parameters = <> SQL.Strings = ( 'select * from t_sys_module') Left = 120 Top = 192 end object dsrmodule: TDataSource DataSet = qrymodule Left = 120 Top = 120 end end