serial KeyCodesCNTs Default %Library.TMFormClass 60961,60242 60961,60241 %TMBevel %Library.String 30 %Library.Integer 5 %Library.TMForm %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel Sys.MaskedQuery $$$NULLOREF %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMPage %TMPage %TMSplitter %TMSplitter %Library.String 1 %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMBevel %TMCheckBox %TMCheckBox %TMCheckBox UI.Utils.MaskedQueryWizard.dlgAfterCacheCode UI.Utils.MaskedQueryWizard.dlgColumn $$$NULLOREF UI.Utils.MaskedQueryWizard.dlgExcelDefaultFmt $$$NULLOREF UI.Utils.MaskedQueryWizard.dlgExportToGlobal $$$NULLOREF UI.Utils.GroupDecode.MainForm $$$NULLOREF UI.Utils.MaskedQueryWizard.dlgInitExitCode $$$NULLOREF UI.Utils.MaskedQueryWizard.dlgLogging $$$NULLOREF UI.Utils.MaskedQueryWizard.dlgParam $$$NULLOREF UI.Utils.MaskedQueryWizard.dlgSQLOutput $$$NULLOREF UI.Utils.MaskedQueryWizard.dlgStringTemplates $$$NULLOREF UI.Utils.MaskedQueryWizard.dlgTable $$$NULLOREF UI.Utils.MaskedQueryWizard.dlgTypeEditor $$$NULLOREF %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMImageList %TMImageList %TMImageList %TMImageList %TMLabel %TMLabel %TMLabel %TMListView %TMListView %TMListView %TMMenuItem %TMMenuItem %Library.TMMenuItem %Library.TMMenuItem %Library.TMMenuItem %Library.TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMainMenu %TMMemo %TMMemo %TMMemo %TMMemo %TMNotebook %Library.Boolean 0 %TMPopupMenu %TMPopupMenu %TMPopupMenu %TMPopupMenu %TMPopupMenu %TMPopupMenu %TMPopupMenu %TMPopupMenu %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMPanel %TMPanel %TMPanel %TMPanel %TMPanel %TMPanel %TMPanel %TMPanel %TMPanel %TMPanel %TMPanel %TMPanel %TMRadioButton %TMRadioButton %TMRadioButton %TMSplitter %TMSplitter %TMSplitter %Library.String %TMTreeView %TMEdit %TMEdit initvalue:%String cache 0 %Status document literal cache 0 document literal ; HideSelection = False ; HotTrackStyles = [] ; MultiSelect = True ; ReadOnly = True ; RowSelect = True ; PopupMenu = pmTables ; TabOrder = 0 ; ViewStyle = vsReport ; OnDblClick = lvTablesDblClick ; end ; end ; end ; object pnlMainRight: CPanel ; Left = 268 ; Top = 2 ; Width = 755 ; Height = 782 ; Align = alClient ; BevelOuter = bvNone ; TabOrder = 0 ; object Splitter4: CSplitter ; Left = 0 ; Top = 433 ; Width = 755 ; Height = 3 ; Cursor = crVSplit ; Align = alTop ; ResizeStyle = rsUpdate ; end ; object pnlSubRightTop: CPanel ; Left = 0 ; Top = 0 ; Width = 755 ; Height = 433 ; Align = alTop ; BevelOuter = bvNone ; TabOrder = 0 ; object Splitter3: CSplitter ; Left = 0 ; Top = 193 ; Width = 755 ; Height = 3 ; Cursor = crVSplit ; Align = alTop ; Color = clAppWorkSpace ; ParentColor = False ; ResizeStyle = rsUpdate ; end ; object pnlSQL: CPanel ; Left = 0 ; Top = 0 ; Width = 755 ; Height = 193 ; Align = alTop ; TabOrder = 0 ; object Label1: CLabel ; Left = 1 ; Top = 1 ; Width = 753 ; Height = 24 ; Align = alTop ; AutoSize = False ; Caption = ' SQL Statement' ; Color = clSilver ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -13 ; Font.Name = 'MS Sans Serif' ; Font.Style = [fsBold] ; ParentColor = False ; ParentFont = False ; Layout = tlCenter ; end ; object btnFastOpen: CSpeedButton ; Left = 122 ; Top = 5 ; Width = 39 ; Height = 17 ; DropdownAlways = True ; DropdownMenu = pmOpen ; end ; object btnConditionals: CSpeedButton ; Left = 165 ; Top = 5 ; Width = 39 ; Height = 17 ; DropdownMenu = pmConditionals ; Caption = '#' ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [fsBold] ; ParentFont = False ; end ; object lblConditionals: CLabel ; Left = 212 ; Top = 7 ; Width = 350 ; Height = 13 ; Anchors = [akLeft, akTop, akRight] ; AutoSize = False ; Caption = 'Conditionals' ; Color = clSilver ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clBlue ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [] ; ParentColor = False ; ParentFont = False ; end ; object pnlSQLCtrls: CPanel ; Left = 1 ; Top = 159 ; Width = 753 ; Height = 33 ; Align = alBottom ; BevelOuter = bvLowered ; TabOrder = 0 ; object btnGetColumns: CSpeedButton ; Left = 4 ; Top = 4 ; Width = 103 ; Height = 25 ; Anchors = [akLeft, akBottom] ; Caption = 'Get &columns' ; Flat = False ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [] ; ParentFont = False ; OnClick = btnGetColumnsClick ; end ; object btnExecuteDefault: CSpeedButton ; Left = 441 ; Top = 4 ; Width = 95 ; Height = 25 ; Anchors = [akRight, akBottom] ; Caption = 'Execute &default' ; Flat = False ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [] ; ParentFont = False ; OnClick = btnExecuteXClick ; end ; object btnExecute: CSpeedButton ; Left = 649 ; Top = 4 ; Width = 95 ; Height = 25 ; Anchors = [akRight, akBottom] ; Caption = 'E&xecute ...' ; Flat = False ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [] ; ParentFont = False ; OnClick = btnExecuteClick ; end ; object btnGetParams: CSpeedButton ; Left = 116 ; Top = 4 ; Width = 103 ; Height = 25 ; Anchors = [akLeft, akBottom] ; Caption = 'Get ¶meters' ; Flat = False ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [] ; ParentFont = False ; OnClick = btnGetParamsClick ; end ; object btnExecuteCurrent: CSpeedButton ; Left = 545 ; Top = 4 ; Width = 95 ; Height = 25 ; Anchors = [akRight, akBottom] ; Caption = 'Execute c&urrent' ; Flat = False ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [] ; ParentFont = False ; OnClick = btnExecuteXClick ; end ; object chkViewRawSQL: CCheckBox ; Left = 230 ; Top = 8 ; Width = 97 ; Height = 17 ; Caption = 'View raw SQL' ; TabOrder = 0 ; Visible = False ; OnClick = chkViewRawSQLClick ; end ; end ; object nbSQLStatement: CNotebook ; Left = 1 ; Top = 25 ; Width = 753 ; Height = 134 ; Align = alClient ; PageIndex = 1 ; TabOrder = 1 ; object TPage ; Left = 0 ; Top = 0 ; Caption = 'nbpStatic' ; object Bevel1: CBevel ; Left = 0 ; Top = 0 ; Width = 753 ; Height = 134 ; Align = alClient ; end ; object Label4: CLabel ; Left = 10 ; Top = 12 ; Width = 54 ; Height = 13 ; Caption = 'Classname:' ; end ; object Label5: CLabel ; Left = 274 ; Top = 12 ; Width = 57 ; Height = 13 ; Caption = 'Queryname:' ; end ; object btnViewClassNames: CSpeedButton ; Left = 238 ; Top = 8 ; Width = 23 ; Height = 21 ; Caption = '...' ; Flat = False ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -13 ; Font.Name = 'Arial' ; Font.Style = [fsBold] ; ParentFont = False ; OnClick = btnViewClassNamesClick ; end ; object btnViewQueryNames: CSpeedButton ; Left = 502 ; Top = 8 ; Width = 23 ; Height = 21 ; Caption = '...' ; Flat = False ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -13 ; Font.Name = 'Arial' ; Font.Style = [fsBold] ; ParentFont = False ; OnClick = btnViewQueryNamesClick ; end ; object btnChangeDynamic: CSpeedButton ; Left = 643 ; Top = 8 ; Width = 95 ; Height = 21 ; Anchors = [akTop, akRight] ; Caption = '&Wijzig dynamisch' ; Flat = False ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [] ; ParentFont = False ; OnClick = btnChangeDynamicClick ; end ; object txtStatClassName: CEdit ; Left = 77 ; Top = 8 ; Width = 161 ; Height = 21 ; TabOrder = 0 ; OnChange = txtStatClassNameChange ; end ; object txtStatQueryName: CEdit ; Left = 341 ; Top = 8 ; Width = 161 ; Height = 21 ; ReadOnly = True ; TabOrder = 1 ; end ; object mmoStatSQL: CMemo ; Left = 11 ; Top = 36 ; Width = 734 ; Height = 90 ; Anchors = [akLeft, akTop, akRight, akBottom] ; Color = 15263976 ; Font.Charset = ANSI_CHARSET ; Font.Color = clBlack ; Font.Height = -11 ; Font.Name = 'Courier New' ; Font.Style = [] ; HideSelection = False ; Lines.Strings = ( ; '') ; ParentFont = False ; ReadOnly = True ; ScrollBars = ssVertical ; TabOrder = 2 ; WordWrap = False ; end ; end ; object TPage ; Left = 0 ; Top = 0 ; Caption = 'nbpDynamic' ; object pnlDynamicQuery: CPanel ; Left = 0 ; Top = 0 ; Width = 753 ; Height = 134 ; Align = alClient ; BevelOuter = bvLowered ; TabOrder = 0 ; object mmoDynSQL: CMemo ; Left = 8 ; Top = 9 ; Width = 735 ; Height = 118 ; Anchors = [akLeft, akTop, akRight, akBottom] ; Font.Charset = ANSI_CHARSET ; Font.Color = clBlack ; Font.Height = -11 ; Font.Name = 'Courier New' ; Font.Style = [] ; HideSelection = False ; ParentFont = False ; PopupMenu = pmDynSQL ; ScrollBars = ssVertical ; TabOrder = 0 ; WordWrap = False ; OnExit = mmoDynSQLExit ; end ; object mmoRawSQL: CMemo ; Left = 8 ; Top = 9 ; Width = 735 ; Height = 118 ; Anchors = [akLeft, akTop, akRight, akBottom] ; Color = 15263976 ; Font.Charset = ANSI_CHARSET ; Font.Color = clBlack ; Font.Height = -11 ; Font.Name = 'Courier New' ; Font.Style = [] ; HideSelection = False ; ParentFont = False ; PopupMenu = pmRawSQL ; ReadOnly = True ; ScrollBars = ssBoth ; TabOrder = 1 ; Visible = False ; WordWrap = False ; end ; end ; end ; end ; object chkDynamicQuery: CCheckBox ; Left = 672 ; Top = 5 ; Width = 73 ; Height = 17 ; Anchors = [akTop, akRight] ; Caption = 'Dynamisch' ; Color = clSilver ; ParentColor = False ; TabOrder = 2 ; OnClick = chkDynamicQueryClick ; end ; object chkCachedQuery: CCheckBox ; Left = 569 ; Top = 5 ; Width = 89 ; Height = 17 ; Anchors = [akTop, akRight] ; Caption = 'Cached query' ; Color = clSilver ; ParentColor = False ; TabOrder = 3 ; OnClick = chkCachedQueryClick ; end ; end ; object pnlOutput: CPanel ; Left = 0 ; Top = 196 ; Width = 755 ; Height = 237 ; Align = alClient ; TabOrder = 1 ; object lblSQLOutput: CLabel ; Left = 1 ; Top = 1 ; Width = 753 ; Height = 24 ; Align = alTop ; AutoSize = False ; Caption = ' SQL Output' ; Color = clSilver ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -13 ; Font.Name = 'MS Sans Serif' ; Font.Style = [fsBold] ; ParentColor = False ; ParentFont = False ; Layout = tlCenter ; end ; object btnMaxSQLOutput: CSpeedButton ; Left = 664 ; Top = 4 ; Width = 79 ; Height = 18 ; Anchors = [akTop, akRight] ; Caption = '&Maximize' ; Flat = False ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [] ; ParentFont = False ; OnClick = btnMaxSQLOutputClick ; end ; object mmoOutput: CMemo ; Left = 11 ; Top = 27 ; Width = 732 ; Height = 201 ; Anchors = [akLeft, akTop, akRight, akBottom] ; Color = 13434879 ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Courier New' ; Font.Style = [] ; ParentFont = False ; PopupMenu = pmOutputUtils ; ReadOnly = True ; ScrollBars = ssBoth ; TabOrder = 0 ; WordWrap = False ; end ; object rbExecSimple: CRadioButton ; Left = 435 ; Top = 5 ; Width = 57 ; Height = 17 ; Anchors = [akTop, akRight] ; Caption = 'Simple' ; Color = clSilver ; ParentColor = False ; TabOrder = 1 ; end ; object rbExecNormal: CRadioButton ; Left = 499 ; Top = 5 ; Width = 57 ; Height = 17 ; Anchors = [akTop, akRight] ; Caption = 'Normal' ; Checked = True ; Color = clSilver ; ParentColor = False ; TabOrder = 2 ; TabStop = True ; end ; object rbExecCache: CRadioButton ; Left = 563 ; Top = 5 ; Width = 97 ; Height = 17 ; Anchors = [akTop, akRight] ; Caption = 'Via cache table' ; Color = clSilver ; ParentColor = False ; TabOrder = 3 ; end ; end ; end ; object pnlSubRightBottom: CPanel ; Left = 0 ; Top = 436 ; Width = 755 ; Height = 346 ; Align = alClient ; BevelOuter = bvNone ; Caption = 'pnlSubRightBottom' ; TabOrder = 1 ; object splColsAndParams: CSplitter ; Left = 0 ; Top = 185 ; Width = 755 ; Height = 3 ; Cursor = crVSplit ; Align = alTop ; Color = clAppWorkSpace ; ParentColor = False ; ResizeStyle = rsUpdate ; end ; object pnlColumns: CPanel ; Left = 0 ; Top = 0 ; Width = 755 ; Height = 185 ; Align = alTop ; Caption = 'pnlColumns' ; TabOrder = 0 ; object Label6: CLabel ; Left = 1 ; Top = 1 ; Width = 753 ; Height = 24 ; Align = alTop ; AutoSize = False ; Caption = ' Columns' ; Color = clSilver ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -13 ; Font.Name = 'MS Sans Serif' ; Font.Style = [fsBold] ; ParentColor = False ; ParentFont = False ; Layout = tlCenter ; end ; object btnAddAndEditColumn: CSpeedButton ; Left = 577 ; Top = 4 ; Width = 55 ; Height = 18 ; Anchors = [akTop, akRight] ; Caption = 'Add' ; Flat = False ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [] ; ParentFont = False ; OnClick = btnAddAndEditColumnClick ; end ; object btnDeleteCol: CSpeedButton ; Left = 689 ; Top = 4 ; Width = 55 ; Height = 18 ; Anchors = [akTop, akRight] ; Caption = 'Delete' ; Flat = False ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [] ; ParentFont = False ; OnClick = btnDeleteColClick ; end ; object btnEditCol: CSpeedButton ; Left = 633 ; Top = 4 ; Width = 55 ; Height = 18 ; Anchors = [akTop, akRight] ; Caption = 'Edit' ; Flat = False ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [] ; NumGlyphs = 2 ; ParentFont = False ; OnClick = btnEditColClick ; end ; object btnColUp: CSpeedButton ; Left = 524 ; Top = 4 ; Width = 20 ; Height = 18 ; Anchors = [akTop, akRight] ; Flat = False ; Font.Charset = SYMBOL_CHARSET ; Font.Color = clBlue ; Font.Height = -13 ; Font.Name = 'Wingdings' ; Font.Style = [fsBold] ; ParentFont = False ; OnClick = btnColUpClick ; end ; object btnColDown: CSpeedButton ; Left = 545 ; Top = 4 ; Width = 20 ; Height = 18 ; Anchors = [akTop, akRight] ; Flat = False ; Font.Charset = SYMBOL_CHARSET ; Font.Color = clBlue ; Font.Height = -13 ; Font.Name = 'Wingdings' ; Font.Style = [fsBold] ; ParentFont = False ; OnClick = btnColDownClick ; end ; object lvColumns: CListView ; Left = 1 ; Top = 25 ; Width = 753 ; Height = 159 ; Align = alClient ; Checkboxes = True ; Columns = < ; item ; Caption = 'Name' ; Width = 200 ; end ; item ; Caption = 'Type' ; Width = 120 ; end ; item ; Caption = 'Caching Translation' ; Width = 250 ; end ; item ; Caption = 'Translation' ; Width = 250 ; end ; item ; Caption = 'Table' ; Width = 170 ; end> ; HideSelection = False ; HotTrackStyles = [] ; MultiSelect = True ; ReadOnly = True ; RowSelect = True ; PopupMenu = pmColumns ; SmallImages = ilColumns ; TabOrder = 0 ; ViewStyle = vsReport ; OnDblClick = lvColumnsDblClick ; OnKeyDown = lvColumnsKeyDown ; OnMouseDown = lvColumnsMouseDown ; end ; end ; object pnlParameters: CPanel ; Left = 0 ; Top = 188 ; Width = 755 ; Height = 158 ; Align = alClient ; Caption = 'pnlParameters' ; TabOrder = 1 ; object lblParamHdr: CLabel ; Left = 1 ; Top = 1 ; Width = 753 ; Height = 24 ; Align = alTop ; AutoSize = False ; Caption = ' Parameters' ; Color = clSilver ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -13 ; Font.Name = 'MS Sans Serif' ; Font.Style = [fsBold] ; ParentColor = False ; ParentFont = False ; Layout = tlCenter ; end ; object btnEditParam: CSpeedButton ; Left = 633 ; Top = 4 ; Width = 55 ; Height = 18 ; Anchors = [akTop, akRight] ; Caption = 'Edit' ; Flat = False ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [] ; NumGlyphs = 2 ; ParentFont = False ; OnClick = btnEditParamClick ; end ; object btnAddAndEditParam: CSpeedButton ; Left = 577 ; Top = 4 ; Width = 55 ; Height = 18 ; Anchors = [akTop, akRight] ; Caption = 'Add' ; Flat = False ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [] ; ParentFont = False ; OnClick = btnAddAndEditParamClick ; end ; object btnDeleteParam: CSpeedButton ; Left = 689 ; Top = 4 ; Width = 55 ; Height = 18 ; Anchors = [akTop, akRight] ; Caption = 'Delete' ; Flat = False ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [] ; ParentFont = False ; OnClick = btnDeleteParamClick ; end ; object lvParameters: CListView ; Left = 1 ; Top = 25 ; Width = 753 ; Height = 132 ; Align = alClient ; Columns = < ; item ; Caption = 'Name' ; Width = 100 ; end ; item ; Caption = 'Type' ; Width = 120 ; end ; item ; Caption = 'Translation' ; Width = 300 ; end ; item ; Caption = 'Default value' ; Width = 100 ; end ; item ; Caption = 'Current value' ; Width = 100 ; end> ; HideSelection = False ; HotTrackStyles = [] ; MultiSelect = True ; ReadOnly = True ; RowSelect = True ; SmallImages = ilParameters ; TabOrder = 0 ; ViewStyle = vsReport ; OnDblClick = lvParametersDblClick ; end ; end ; end ; end ; object ilMenu: CImageList ; Left = 48 ; Top = 43 ; Bitmap = 'FileNew.bmp,FileOpen.bmp,FileSave.bmp,COLMONO.BMP,DELETE2.BMP' ; end ; object ilTablesAndCols: CImageList ; Left = 79 ; Top = 49 ; Bitmap = 'BlueFolderClosed.bmp,DBTable.bmp,ticon45.bmp,ticon44.bmp' ; end ; object mmMain: CMainMenu ; Images = ilMenu ; Left = 21 ; Top = 42 ; object hmiBestand: TMenuItem ; Caption = '&Bestand' ; object miNieuw: TMenuItem ; Caption = '&Nieuw' ; ImageIndex = 0 ; ShortCut = 16462 ; OnClick = miNieuwClick ; end ; object miOpenen: TMenuItem ; Caption = '&Openen' ; ImageIndex = 1 ; ShortCut = 16463 ; OnClick = miOpenenClick ; end ; object miSluiten: TMenuItem ; Caption = '&Sluiten' ; OnClick = miSluitenClick ; end ; object miSep3: TMenuItem ; Caption = '-' ; end ; object miOpslaan: TMenuItem ; Caption = 'O&pslaan' ; ImageIndex = 2 q ]]> cache 0 MApplication document literal *' ; OnClick = pmiSwitchClick ; end ; object MenuItem3: TMenuItem ; Caption = '-' ; end ; object pmiAddHingeCol: TMenuItem ; Caption = 'Add [column]' ; end ; object pmiAddTablesStr: TMenuItem ; Caption = 'Add [TABLES]' ; OnClick = pmiAddTablesStrClick ; end ; object pmiAddParam: TMenuItem ; Caption = 'Add {Parameter}' ; end ; object MenuItem5: TMenuItem ; Caption = '-' ; end ; object pmiCreateConditional: TMenuItem ; Caption = 'Create conditional' ; OnClick = pmiCreateConditionalClick ; end ; end ; object pmTablesAndCols: CPopupMenu ; Images = ilTablesAndCols ; Left = 24 ; Top = 329 ; object pmiUseTable: TMenuItem ; Caption = 'Use table' ; ImageIndex = 1 ; OnClick = btnTabelToevoegenClick ; end ; object pmiUseColumn: TMenuItem ; Caption = 'Use column' ; OnClick = pmiUseColumnClick ; end ; object pmiUseColAsParam: TMenuItem ; Caption = 'Use column as parameter' ; OnClick = pmiUseColAsParamClick ; end ; object pmiSep1: TMenuItem ; Caption = '-' ; end ; object pmiAddColumn: TMenuItem ; Caption = 'Add column' ; ImageIndex = 2 ; OnClick = btnKolomToevoegenClick ; end ; object pmiSep2: TMenuItem ; Caption = '-' ; end ; object pmiCopyTableName: TMenuItem ; Caption = 'Copy tablename' ; OnClick = pmiCopyTableNameClick ; end ; object pmiCopyColumnName: TMenuItem ; Caption = 'Copy columnname' ; OnClick = pmiCopyColumnNameClick ; end ; object pmiCopyColNameAsParam: TMenuItem ; Caption = 'Copy columnname as parameter' ; OnClick = pmiCopyColNameAsParamClick ; end ; end ; object pmOutputUtils: CPopupMenu ; OnPopup = pmUtilsPopup ; Left = 287 ; Top = 243 ; object hmiFetchCount: TMenuItem ; Caption = 'Fetch count...' ; object miFC25: TMenuItem ; Tag = 25 ; Caption = '25' ; RadioItem = True ; OnClick = miFetchCountClick ; end ; object miFC100: TMenuItem ; Tag = 100 ; Caption = '100' ; RadioItem = True ; OnClick = miFetchCountClick ; end ; object miFC200: TMenuItem ; Tag = 200 ; Caption = '200' ; RadioItem = True ; OnClick = miFetchCountClick ; end ; object miFC300: TMenuItem ; Tag = 300 ; Caption = '300' ; RadioItem = True ; OnClick = miFetchCountClick ; end ; object miFC400: TMenuItem ; Tag = 400 ; Caption = '400' ; RadioItem = True ; OnClick = miFetchCountClick ; end ; object miFC500: TMenuItem ; Tag = 500 ; Caption = '500' ; RadioItem = True ; OnClick = miFetchCountClick ; end ; object MenuItem1: TMenuItem ; Caption = '-' ; end ; object miFCUserDefined: TMenuItem ; Caption = 'User defined (5)' ; Checked = True ; RadioItem = True ; OnClick = miFetchCountClick ; end ; end ; object hmiColWidth: TMenuItem ; Caption = 'Column width...' ; object miCW10: TMenuItem ; Tag = 10 ; Caption = '10' ; RadioItem = True ; OnClick = miColWidthClick ; end ; object miCW20: TMenuItem ; Tag = 20 ; Caption = '20' ; RadioItem = True ; OnClick = miColWidthClick ; end ; object miCW30: TMenuItem ; Tag = 30 ; Caption = '30' ; Checked = True ; RadioItem = True ; OnClick = miColWidthClick ; end ; object miCW40: TMenuItem ; Tag = 40 ; Caption = '40' ; RadioItem = True ; OnClick = miColWidthClick ; end ; object miCW50: TMenuItem ; Tag = 50 ; Caption = '50' ; RadioItem = True ; OnClick = miColWidthClick ; end ; object MenuItem2: TMenuItem ; Caption = '-' ; end ; object miCWUserDefined: TMenuItem ; Caption = 'User defined...' ; RadioItem = True ; OnClick = miColWidthClick ; end ; end ; object hmiOutput: TMenuItem ; Caption = 'Output...' ; object miColumns: TMenuItem ; Caption = 'Columns' ; Checked = True ; RadioItem = True ; ShortCut = 112 ; OnClick = miOutputClick ; end ; object miCSV: TMenuItem ; Caption = 'Comma seperated' ; RadioItem = True ; ShortCut = 113 ; OnClick = miOutputClick ; end ; end ; object pmiSep4: TMenuItem ; Caption = '-' ; end ; object pmiExecuteDefault: TMenuItem ; Caption = 'Execute default' ; OnClick = btnExecuteXClick ; end ; object pmiExecuteCurrent: TMenuItem ; Caption = 'Execute current' ; OnClick = btnExecuteXClick ; end ; object pmiExecute: TMenuItem ; Caption = 'Execute...' ; OnClick = btnExecuteClick ; end ; end ; object pmColumns: CPopupMenu ; Images = ilColumns ; OnPopup = pmColumnsPopup ; Left = 287 ; Top = 495 ; object pmiCopyCol: TMenuItem ; Caption = 'Copy' ; OnClick = pmiCopyColClick ; end ; object pmiPasteCol: TMenuItem ; Caption = 'Paste' ; OnClick = pmiPasteColClick ; end ; object pmiSep9: TMenuItem ; Caption = '-' ; end ; object pmiEnableAllCols: TMenuItem ; Caption = 'Enable all' ; OnClick = pmiEnableAllColsClick ; end ; object pmiDisableAllCols: TMenuItem ; Caption = 'Disable all' ; ImageIndex = 2 ; OnClick = pmiDisableAllColsClick ; end ; object pmiInvColEnable: TMenuItem ; Caption = 'Invert enable' ; OnClick = pmiInvColEnableClick ; end ; object pmiSep5: TMenuItem ; Caption = '-' ; end ; object pmiSelectAllCols: TMenuItem ; Caption = 'Select all' ; OnClick = pmiSelectAllColsClick ; end ; object pmiDeselectAllCols: TMenuItem ; Caption = 'Deselect all' ; OnClick = pmiDeselectAllColsClick ; end ; object pmiInvColSelection: TMenuItem ; Caption = 'Invert selection' ; OnClick = pmiInvColSelectionClick ; end ; object pmiSep7: TMenuItem ; Caption = '-' ; end ; object pmiSelectDisabled: TMenuItem ; Caption = 'Select disabled' ; OnClick = pmiSelectDisabledClick ; end ; object pmiSep8: TMenuItem ; Caption = '-' ; end ; object pmiColSpecs: TMenuItem ; Caption = 'Specs' ; object pmiSpecFetch: TMenuItem ; Caption = 'Fetch' ; ImageIndex = 3 ; OnClick = pmiSpecXClick ; end ; object pmiSpecShow: TMenuItem ; Caption = 'Show' ; ImageIndex = 0 ; OnClick = pmiSpecXClick ; end ; object pmiSpecFetchShow: TMenuItem ; Caption = 'Fetch and show' ; ImageIndex = 1 ; OnClick = pmiSpecXClick ; end ; object pmiSpecNone: TMenuItem ; Caption = '(none)' ; ImageIndex = 4 ; OnClick = pmiSpecXClick ; end ; end ; object pmiType: TMenuItem ; Caption = 'Type' ; end ; object pmiTable: TMenuItem ; Caption = 'Table' ; end ; end ; object ilParameters: CImageList ; Left = 303 ; Top = 682 ; Bitmap = 'colNone.ico,thelp1.bmp' ; end ; object ilColumns: CImageList ; Left = 320 ; Top = 496 ; Bitmap = ; 'tglass.bmp,colFetchAndShow.ico,CANCELX.BMP,colFetch.ico,colNone.' + ; 'ico' ; end ; object pmOpen: CPopupMenu ; OnPopup = pmOpenPopup ; Left = 390 ; Top = 34 ; end ; object pmRawSQL: CPopupMenu ; Left = 288 ; Top = 100 ; object pmiRefreshRawSQL: TMenuItem ; Caption = 'Refresh' ; OnClick = pmiRefreshRawSQLClick ; end ; end ; object pmTables: CPopupMenu ; Left = 9 ; Top = 724 ; object pmiLocateTable2: TMenuItem ; Caption = 'Locate table' ; OnClick = pmiLocateTable2Click ; end ; end ; object pmConditionals: CPopupMenu ; OnPopup = pmConditionalsPopup ; Left = 443 ; Top = 34 ; end ;end ]]> Args:%String cache 0 document literal cache 0 document literal initvalue:%String cache 0 MApplication document literal initvalue:%String cache 0 MApplication document literal *",$lb(%this,"pmiSwitchClick"))) d %this.MenuItem3.SetMultiProperty($lb("Caption"),$lb("-")) d %this.pmiAddHingeCol.SetMultiProperty($lb("Caption"),$lb("Add [column]")) d %this.pmiAddTablesStr.SetMultiProperty($lb("Caption","OnClick"),$lb("Add [TABLES]",$lb(%this,"pmiAddTablesStrClick"))) d %this.pmiAddParam.SetMultiProperty($lb("Caption"),$lb("Add {Parameter}")) d %this.MenuItem5.SetMultiProperty($lb("Caption"),$lb("-")) d %this.pmiCreateConditional.SetMultiProperty($lb("Caption","OnClick"),$lb("Create conditional",$lb(%this,"pmiCreateConditionalClick"))) s %this.pmTablesAndCols.Images=%this.ilTablesAndCols d %this.pmiUseTable.SetMultiProperty($lb("Caption","ImageIndex","OnClick"),$lb("Use table",1,$lb(%this,"btnTabelToevoegenClick"))) d %this.pmiUseColumn.SetMultiProperty($lb("Caption","OnClick"),$lb("Use column",$lb(%this,"pmiUseColumnClick"))) d %this.pmiUseColAsParam.SetMultiProperty($lb("Caption","OnClick"),$lb("Use column as parameter",$lb(%this,"pmiUseColAsParamClick"))) d %this.pmiSep1.SetMultiProperty($lb("Caption"),$lb("-")) d %this.pmiAddColumn.SetMultiProperty($lb("Caption","ImageIndex","OnClick"),$lb("Add column",2,$lb(%this,"btnKolomToevoegenClick"))) d %this.pmiSep2.SetMultiProperty($lb("Caption"),$lb("-")) d %this.pmiCopyTableName.SetMultiProperty($lb("Caption","OnClick"),$lb("Copy tablename",$lb(%this,"pmiCopyTableNameClick"))) d %this.pmiCopyColumnName.SetMultiProperty($lb("Caption","OnClick"),$lb("Copy columnname",$lb(%this,"pmiCopyColumnNameClick"))) d %this.pmiCopyColNameAsParam.SetMultiProperty($lb("Caption","OnClick"),$lb("Copy columnname as parameter",$lb(%this,"pmiCopyColNameAsParamClick"))) d %this.pmOutputUtils.SetMultiProperty($lb("OnPopup"),$lb($lb(%this,"pmUtilsPopup"))) d %this.hmiFetchCount.SetMultiProperty($lb("Caption"),$lb("Fetch count...")) d %this.miFC25.SetMultiProperty($lb("Tag","Caption","RadioItem","OnClick"),$lb(25,"25","True",$lb(%this,"miFetchCountClick"))) d %this.miFC100.SetMultiProperty($lb("Tag","Caption","RadioItem","OnClick"),$lb(100,"100","True",$lb(%this,"miFetchCountClick"))) d %this.miFC200.SetMultiProperty($lb("Tag","Caption","RadioItem","OnClick"),$lb(200,"200","True",$lb(%this,"miFetchCountClick"))) d %this.miFC300.SetMultiProperty($lb("Tag","Caption","RadioItem","OnClick"),$lb(300,"300","True",$lb(%this,"miFetchCountClick"))) d %this.miFC400.SetMultiProperty($lb("Tag","Caption","RadioItem","OnClick"),$lb(400,"400","True",$lb(%this,"miFetchCountClick"))) d %this.miFC500.SetMultiProperty($lb("Tag","Caption","RadioItem","OnClick"),$lb(500,"500","True",$lb(%this,"miFetchCountClick"))) d %this.MenuItem1.SetMultiProperty($lb("Caption"),$lb("-")) d %this.miFCUserDefined.SetMultiProperty($lb("Caption","Checked","RadioItem","OnClick"),$lb("User defined (5)","True","True",$lb(%this,"miFetchCountClick"))) d %this.hmiColWidth.SetMultiProperty($lb("Caption"),$lb("Column width...")) d %this.miCW10.SetMultiProperty($lb("Tag","Caption","RadioItem","OnClick"),$lb(10,"10","True",$lb(%this,"miColWidthClick"))) d %this.miCW20.SetMultiProperty($lb("Tag","Caption","RadioItem","OnClick"),$lb(20,"20","True",$lb(%this,"miColWidthClick"))) d %this.miCW30.SetMultiProperty($lb("Tag","Caption","Checked","RadioItem","OnClick"),$lb(30,"30","True","True",$lb(%this,"miColWidthClick"))) d %this.miCW40.SetMultiProperty($lb("Tag","Caption","RadioItem","OnClick"),$lb(40,"40","True",$lb(%this,"miColWidthClick"))) d %this.miCW50.SetMultiProperty($lb("Tag","Caption","RadioItem","OnClick"),$lb(50,"50","True",$lb(%this,"miColWidthClick"))) d %this.MenuItem2.SetMultiProperty($lb("Caption"),$lb("-")) d %this.miCWUserDefined.SetMultiProperty($lb("Caption","RadioItem","OnClick"),$lb("User defined...","True",$lb(%this,"miColWidthClick"))) d %this.hmiOutput.SetMultiProperty($lb("Caption"),$lb("Output...")) d %this.miColumns.SetMultiProperty($lb("Caption","Checked","RadioItem","ShortCut","OnClick"),$lb("Columns","True","True",112,$lb(%this,"miOutputClick"))) d %this.miCSV.SetMultiProperty($lb("Caption","RadioItem","ShortCut","OnClick"),$lb("Comma seperated","True",113,$lb(%this,"miOutputClick"))) d %this.pmiSep4.SetMultiProperty($lb("Caption"),$lb("-")) d %this.pmiExecuteDefault.SetMultiProperty($lb("Caption","OnClick"),$lb("Execute default",$lb(%this,"btnExecuteXClick"))) d %this.pmiExecuteCurrent.SetMultiProperty($lb("Caption","OnClick"),$lb("Execute current",$lb(%this,"btnExecuteXClick"))) d %this.pmiExecute.SetMultiProperty($lb("Caption","OnClick"),$lb("Execute...",$lb(%this,"btnExecuteClick"))) s %this.pmColumns.Images=%this.ilColumns d %this.pmColumns.SetMultiProperty($lb("OnPopup"),$lb($lb(%this,"pmColumnsPopup"))) d %this.pmiCopyCol.SetMultiProperty($lb("Caption","OnClick"),$lb("Copy",$lb(%this,"pmiCopyColClick"))) d %this.pmiPasteCol.SetMultiProperty($lb("Caption","OnClick"),$lb("Paste",$lb(%this,"pmiPasteColClick"))) d %this.pmiSep9.SetMultiProperty($lb("Caption"),$lb("-")) d %this.pmiEnableAllCols.SetMultiProperty($lb("Caption","OnClick"),$lb("Enable all",$lb(%this,"pmiEnableAllColsClick"))) d %this.pmiDisableAllCols.SetMultiProperty($lb("Caption","ImageIndex","OnClick"),$lb("Disable all",2,$lb(%this,"pmiDisableAllColsClick"))) d %this.pmiInvColEnable.SetMultiProperty($lb("Caption","OnClick"),$lb("Invert enable",$lb(%this,"pmiInvColEnableClick"))) d %this.pmiSep5.SetMultiProperty($lb("Caption"),$lb("-")) d %this.pmiSelectAllCols.SetMultiProperty($lb("Caption","OnClick"),$lb("Select all",$lb(%this,"pmiSelectAllColsClick"))) d %this.pmiDeselectAllCols.SetMultiProperty($lb("Caption","OnClick"),$lb("Deselect all",$lb(%this,"pmiDeselectAllColsClick"))) d %this.pmiInvColSelection.SetMultiProperty($lb("Caption","OnClick"),$lb("Invert selection",$lb(%this,"pmiInvColSelectionClick"))) d %this.pmiSep7.SetMultiProperty($lb("Caption"),$lb("-")) d %this.pmiSelectDisabled.SetMultiProperty($lb("Caption","OnClick"),$lb("Select disabled",$lb(%this,"pmiSelectDisabledClick"))) d %this.pmiSep8.SetMultiProperty($lb("Caption"),$lb("-")) d %this.pmiColSpecs.SetMultiProperty($lb("Caption"),$lb("Specs")) d %this.pmiSpecFetch.SetMultiProperty($lb("Caption","ImageIndex","OnClick"),$lb("Fetch",3,$lb(%this,"pmiSpecXClick"))) d %this.pmiSpecShow.SetMultiProperty($lb("Caption","ImageIndex","OnClick"),$lb("Show",0,$lb(%this,"pmiSpecXClick"))) d %this.pmiSpecFetchShow.SetMultiProperty($lb("Caption","ImageIndex","OnClick"),$lb("Fetch and show",1,$lb(%this,"pmiSpecXClick"))) d %this.pmiSpecNone.SetMultiProperty($lb("Caption","ImageIndex","OnClick"),$lb("(none)",4,$lb(%this,"pmiSpecXClick"))) d %this.pmiType.SetMultiProperty($lb("Caption"),$lb("Type")) d %this.pmiTable.SetMultiProperty($lb("Caption"),$lb("Table")) d %this.ilParameters.SetMultiProperty($lb("Bitmap"),$lb("colNone.ico,thelp1.bmp")) s %this.ilColumns.Bitmap="tglass.bmp,colFetchAndShow.ico,CANCELX.BMP,colFetch.ico,colNone.ico" d %this.pmOpen.SetMultiProperty($lb("OnPopup"),$lb($lb(%this,"pmOpenPopup"))) d %this.pmiRefreshRawSQL.SetMultiProperty($lb("Caption","OnClick"),$lb("Refresh",$lb(%this,"pmiRefreshRawSQLClick"))) d %this.pmiLocateTable2.SetMultiProperty($lb("Caption","OnClick"),$lb("Locate table",$lb(%this,"pmiLocateTable2Click"))) d %this.pmConditionals.SetMultiProperty($lb("OnPopup"),$lb($lb(%this,"pmConditionalsPopup"))) s MApplication.ClientState="Wait" q ]]> initvalue:%String cache 0 %Library.Status document literal cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal 0) && (MApplication.MessageBox(Question,..Form.Caption,$$$MBICONQUESTION+$$$MBOKCANCEL+$$$MBDEFBUTTON2)=$$$mrCancel)) ; OnExit simuleren... Do ..mmoDynSQLExit(Args) Set Sender.Enabled="False" Set MApplication.ScreenCursor=$$$crHourGlass Do MApplication.ProcessMessages() New GetSuccess ; DYNAMISCH If ..chkDynamicQuery.Checked="True" Do . Set GetSuccess=..MQuery.dynGetColumns() Else Do . Set GetSuccess=..MQuery.statGetColumns() If 'GetSuccess Do . Do MApplication.MessageBox(..MQuery.LastErrorMsg,..Form.Caption,$$$MBICONEXCLAMATION) Do ..dCOMPWRITElvColumns() Set MApplication.ScreenCursor=$$$crDefault Set Sender.Enabled="True" ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal 0) && (MApplication.MessageBox(Question,..Form.Caption,$$$MBICONQUESTION+$$$MBOKCANCEL+$$$MBDEFBUTTON2)=$$$mrCancel)) Set Sender.Enabled="False" Set MApplication.ScreenCursor=$$$crHourGlass Do MApplication.ProcessMessages() ; OnExit simuleren... Do ..mmoDynSQLExit(Args) New GetSuccess ; DYNAMISCH If ..chkDynamicQuery.Checked="True" Do . Set GetSuccess=..MQuery.dynGetParams() Else Do . Set GetSuccess=..MQuery.statGetParams() Do:('GetSuccess) MApplication.MessageBox(..MQuery.LastErrorMsg,..Form.Caption,$$$MBICONEXCLAMATION) Do ..dCOMPWRITElvParameters() Set MApplication.ScreenCursor=$$$crDefault Set Sender.Enabled="True" ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Node:%Library.TMTreeNode cache 0 document literal cache 0 document literal cache 0 %Library.Boolean document literal cache 0 %Library.Boolean document literal cache 0 %Library.Boolean document literal cache 0 document literal Memo:%Library.TMMemo cache 0 document literal (Width-2)) $E(Txt,1,Width-3)_"..." New tmpTxt Set tmpTxt=Txt_$J("",Width-$L(Txt)) Quit tmpTxt AddLines(Txt,Width) New tmpTxt ;Set $P(tmpTxt,"-",$L(Txt)+1)=$J("",Width-$L(Txt)) Set $P(tmpTxt,"-",Width+1)="" Quit tmpTxt ]]> cache 0 document literal cache 0 %Library.Boolean document literal Item:%Library.TMListItem,emColumn:Sys.MaskedQuery.ColumnDef cache 0 document literal Item:%Library.TMListItem,emParam:Sys.MaskedQuery.ParamDef cache 0 document literal Item:%Library.TMListItem,emTable:Sys.MaskedQuery.TableDef cache 0 document literal cache 0 document literal " Do . Set emColumn.Alias=$P(ColSeq,"->",$L(ColSeq,"->")) Else Do . Set emColumn.Info=##class(Sys.MaskedQuery.ColumnDef).GetDescription($TR(FullTableName,"_","."),ColSeq) New ColTypeId Set ColTypeId=##class(Sys.MaskedQuery.Type).GetIdViaCacheType(..tvGetColumnType(SelNode)) Do:(ColTypeId'=0) emColumn.TypeSetObjectId(ColTypeId) Set emColumn.TableAlias="" Set emColumn.Position=..lvColumns.Items.Count+1 Do ..MQuery.emColumns.Insert(emColumn) ;Interface New Key Set Key="" Do ..MQuery.emColumns.GetPrevious(.Key) ;Laatst toegevoegde key voor ListItem.Data New Loop For Loop=0:1:..lvColumns.Items.Count-1 Do . Set ..lvColumns.Items.GetItems(Loop).Selected="False" New tmpItem Set tmpItem=..lvColumns.Items.Add() Set tmpItem.Data=Key Set tmpItem.Checked=$$BoolToStr^vhLib(emColumn.Enabled) Do ..ecidUpdateCol(tmpItem,emColumn) Set tmpItem.Focused="True" Set tmpItem.Selected="True" Do tmpItem.MakeVisible("False") Quit ]]> cache 0 document literal cache 0 document literal cache 0 document literal Item:%Library.TMListItem=$$$NULLOREF cache 0 document literal dit terug verwijderen... .. Do Item.Delete() .. Do ..MQuery.emColumns.RemoveAt(..MQuery.emColumns.Count()) Quit ]]> Item:%Library.TMListItem=$$$NULLOREF cache 0 document literal dit terug verwijderen... .. Do Item.Delete() .. Do ..MQuery.emParams.RemoveAt(..MQuery.emParams.Count()) Quit ]]> Item:%Library.TMListItem=$$$NULLOREF,NewName:%Library.String="NewTable" cache 0 document literal dit terug verwijderen... .. Do Item.Delete() .. Do ..MQuery.emTables.RemoveAt(..MQuery.emTables.Count()) Quit ;------------------------------------------------------------------------------ GetPossibleAlias(Table) New Loop,Alias,AfterPoint Set Alias="" Set AfterPoint=1 For Loop=1:1:$L(Table) Do . If AfterPoint Do .. Set Alias=Alias_$E(Table,Loop) .. Set AfterPoint=0 . Else If "._"[$E(Table,Loop) Do .. Set AfterPoint=1 Quit Alias ]]> BaseItem:%Library.TMListItem,SwapDirection:%Library.Integer cache 0 document literal Item:%TMListItem,emColumn:Sys.MaskedQuery.ColumnDef cache 0 document literal cache 0 %Library.Boolean document literal cache 0 %Library.Boolean document literal Dynamic:%Boolean=0,SuggestGroup:%String="",SuggestSubGroup:%String="" cache 0 %Library.Boolean document literal Groep,SubGroep:%Library.String cache 0 %Library.Boolean document literal 10) ..aQueryHistory(OldestOpenTime) Else Do . Kill ..aQueryHistory(ReplaceOpenTime) ; Swizzlen kan modified=1 stellen... Do ..odSetModified(0) Quit 1 ;============================================================================== idoUpdateInterface() ; Global Set ..Form.Caption="Query Wizard - ["_..MQuery.GetIDAsName()_"]" Set ..pnlMainRight.Visible="True" Set ..pnlTreeView.Visible="False" Set ..miOpslaan.Enabled="True" Set ..miOpslaanAls.Enabled="True" Set ..miSluiten.Enabled="True" Set ..miVerwijderen.Enabled="True" Set ..miInitAndExitCode.Enabled="True" Set ..miAfterCacheTableCode.Enabled="True" Set ..miExportToGlobal.Enabled="True" Set ..miGeneralExcelFmt.Enabled="True" Do ..mmoOutput.Lines.BeginUpdate() Do ..mmoOutput.Lines.Clear() Do ..mmoOutput.Lines.EndUpdate() ; Object oriented Do ..UpdateInterfaceViaMQuery() Quit ]]> cache 0 %Library.Boolean document literal cache 0 %Library.Boolean document literal ListView:%Library.TMListView cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Table:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal 250 Do .. Set CW=250 . Set ..ColWidth=CW . Set Sender.Checked="True" . Set Sender.Caption="User defined ("_CW_")" Else Do . Set ..ColWidth=Sender.Tag . Set Sender.Checked="True" ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal 1000 Do .. Set FC=1000 . Set ..FetchCount=FC . Set Sender.Checked="True" . Set Sender.Caption="User defined ("_FC_")" Else Do . Set ..FetchCount=Sender.Tag . Set Sender.Checked="True" ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal cache 0 %Library.List document literal ID:%Library.String cache 0 %Library.List document literal Status:%Library.List cache 0 %Library.Boolean document literal EXIT OK Quit:(lbStatus=$$$lbsOk) 1 ; STATUS OK en MSG -> EXIT OK If lbStatus=$$$lbsOkAndMsg Do Quit 1 . Do MApplication.MessageBox($LI(Status,2),..Form.Caption,$LI(Status,3)) ; STATUS ERROR en MSG -> EXIT ERROR If lbStatus=$$$lbsError Do Quit 0 . Do MApplication.MessageBox($LI(Status,2),..Form.Caption,$LI(Status,3)) Quit 1 ]]> cache 0 %Library.Boolean document literal Groep,SubGroep:%Library.String cache 0 document literal cache 0 %Library.Boolean document literal cache 0 %Library.List document literal Groep,SubGroep:%Library.String cache 0 %Library.List document literal Groep,SubGroep:%Library.String cache 0 %Library.List document literal Value:%Library.Boolean cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal 0) ; PARAMs New Loop For Loop=(..pmiAddParam.Count()-1):-1:0 Do . Do ..pmiAddParam.Delete(Loop) New emParam,Key Set Key="" For Set emParam=..MQuery.emParams.GetNext(.Key) Quit:(Key="") Do . Do pdsp(..pmiAddParam,"{"_emParam.Name_"}") Set ..pmiAddParam.Enabled=$$BoolToStr^vhLib(..pmiAddParam.Count()>0) ;End of user code s Args=$lb(Sender) q ;------------------------------------------------------------------------------ pdsp(Parent,Caption,OnClick) New MI Set MI=##class(%TMMenuItem).%New($LB(Parent.Address,0)) If $G(Caption)="" Do . Set MI.Caption="-" Else Do . Set MI.Caption=Caption . Set MI.OnClick=$LB(%this,"pmiAddColOrParamClick") Do Parent.Add(MI) Quit ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal ","") Set MApplication.ClipboardText=":pa"_ColSeq ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal ' bevatten Set ColSeq=$TR(ColSeq,"->","") Set ..mmoDynSQL.SelText=":pa"_ColSeq Do ..mmoDynSQL.SetFocus() ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal Node:%Library.TMTreeNode cache 0 %Library.String document literal Node:%Library.String cache 0 %Library.String document literal Node:%Library.String cache 0 %Library.String document literal Node:%Library.String cache 0 %Library.String document literal Node:%Library.TMTreeNode cache 0 %Library.String document literal "_ColumnSequence . Else Do .. Set ColumnSequence=..tvGetColumnExName(Node)_"->"_ColumnSequence . Set Node=Node.ParentNode Quit ColumnSequence ]]> Node:%Library.String cache 0 %Library.String document literal Node:%Library.TMTreeNode cache 0 %Library.String document literal Args:%String cache 0 document literal 0: Table, Column en ColumnEx Set ..btnTabelToevoegen.Enabled=$$BoolToStr^vhLib(Node.Level>0) Set ..pmiUseTable.Enabled=..btnTabelToevoegen.Enabled Set ..pmiCopyTableName.Enabled=..btnTabelToevoegen.Enabled ; Alle levels > 1: Column en ColumnEx Set ..btnKolomToevoegen.Enabled=$$BoolToStr^vhLib(Node.Level>1) Set ..pmiAddColumn.Enabled=..btnKolomToevoegen.Enabled Set ..pmiUseColumn.Enabled=..btnKolomToevoegen.Enabled Set ..pmiUseColAsParam.Enabled=..btnKolomToevoegen.Enabled Set ..pmiCopyColumnName.Enabled=..btnKolomToevoegen.Enabled Set ..pmiCopyColNameAsParam.Enabled=..btnKolomToevoegen.Enabled ;End of user code s Args=$lb(Sender,Node) q ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal 2 1 4 3 0 1 0 2 3 0 1 3 4 5 1 2 %Library.CacheSerialState "%Library.TMFormClass" Address Form bvTop mmMain hmiBestand pnlBottom pnlTop Splitter1 pnlMainClient pnlMainTop TreeView1 pnlTreeView SpeedButton1 SpeedButton2 Panel1 Splitter2 Splitter3 pnlOutput pnlSQL pnlSubRight Label1 Label2 pnlSQLCtrls CheckBox1 SpeedButton3 Notebook1 NotebookPage1 Label3 SpeedButton4 SpeedButton5 chkDynamicQuery Edit1 Edit2 Label4 Label5 NotebookPage2 Memo1 Memo2 pnlDynamicQuery nbSQLStatement Bevel1 Memo3 SpeedButton6 Splitter4 pnlColumns Label6 Label7 pnlParameters SpeedButton7 SpeedButton8 SpeedButton9 CheckBox2 SpeedButton10 SpeedButton11 SpeedButton12 lvColumns lvParameters SpeedButton13 SpeedButton14 SpeedButton15 MenuItem2 miAfsluiten miNieuw miOpslaan miOpslaanAls miSep1 MQuery Bevel2 SpeedButton16 tvTablesAndCols miSep2 miVerwijderen miOpenen miSep3 miSluiten sbMsg ilMenu ilTablesAndCols btnTabelToevoegen mmoDynSQL mmoStatSQL btnKolomToevoegen btnAddAndEditColumn hmiBeeld btnRefreshTablesAndCols btnViewClassNames btnViewQueryNames txtStatClassName txtStatQueryName btnLoadStatQuery miBeeldCols miBeeldParams miBeeldSQLOut miBeeldSQLStat splColsAndParams btnGetParams lblParamHdr btnGetColumns btnDeleteCol btnChangeDynamic btnColDown btnColUp Button1 mmoOutput pmDynSQL pmiLocateTable frmColumn btnEditCol frmParam btnEditParam MenuItem3 pmTablesAndCols pmiAddColumn pmiUseColumn pmiUseTable btnDeleteParam btnAddAndEditParam btnExecute btnExecuteCurrent btnExecuteDefault pmiAddColAsParam pmiSep1 pmiUseColAsParam pmiCopyColNameAsParam pmiCopyColumnName pmiCopyTableName pmiSep2 chkViewRawSQL mmoRawSQL ColWidth FetchCount MenuItem1 hmiColWidth hmiFetchCount hmiOutput miCSV miCW10 miCW20 miCW30 miCW40 miCW50 miCWUserDefined miColumns miFC100 miFC200 miFC25 miFC300 miFC400 miFC500 miFCUserDefined pmOutputUtils pmiSQLAddGroupBy pmiSep3 pmiExecute pmiExecuteCurrent pmiExecuteDefault pmiSep4 pmColumns pmiDeselectAllCols pmiInvColSelection pmiSelectAllCols pmiSep5 pmiSep6 pmiSwitch pmiDisableAllCols pmiEnableAllCols pmiInvColEnable pmiSelectDisabled pmiSep7 frmSQLOutput btnMaxSQLOutput chkByPassEffects pmiInitAndExitCode hmiExtra miInitAndExitCode frmInitExitCode lblSQLOutput miBFRCode frmBFRCode rbExecCache rbExecNormal rbExecSimple frmACTCode miAfterCacheTableCode ilParameters ilColumns pnlMainLeft splLeft btnFastOpen pmOpen miSep4 miSetupTypes frmTypeEditor pmiSep8 pmiType pnlMainRight pnlSubRightBottom pnlSubRightTop Splitter5 lvTables pnlSubLeftBottom pnlSubLeftTop splSourceAndTables btnAddAndEditTable btnDeleteTable btnEditTable frmTable pmRawSQL pmiRefreshRawSQL chkCachedQuery pmiInsertTablesStr pmiTable miSetupFunctions pmiColSpecs pmiSpecFetch pmiSpecFetchShow pmiSpecNone pmiSpecShow frmStringTemplates miSetupTemplates pmTables pmiLocateTable2 pmiAddHingeCol pmiSQLAddOrderBy btnConditionals pmConditionals lblConditionals pmiAddParam pmiAddTablesStr MenuItem4 frmExportToGlobal miExportToGlobal MenuItem5 pmiCreateConditional frmGroupDecode miGroupDecodeEdit hmiLogging pmiViewLog frmLogging miViewLog MenuItem6 miDeleteTEMPQueries pReturnID pmiCopyCol pmiPasteCol pmiSep9 tmpCopyCol MenuItem7 miShowQueryPlan MenuItem9 frmExcelHdrFmt miGeneralExcelHdrFmt frmExcelDefaultFmt miGeneralExcelFmt