home *** CD-ROM | disk | FTP | other *** search
- object FrmQueryDesigner: TFrmQueryDesigner
- Left = 62
- Top = 126
- Width = 625
- Height = 282
- Caption = 'Query Designer'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsMDIChild
- Icon.Data = {<image000.ico>}
- OldCreateOrder = True
- Position = poDefault
- Visible = True
- OnActivate = FormActivate
- OnClose = FormClose
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnDeactivate = FormDeactivate
- PixelsPerInch = 96
- TextHeight = 13
- object Splitter1: TSplitter
- Left = 0
- Top = 130
- Width = 617
- Height = 3
- Cursor = crVSplit
- Align = alTop
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 617
- Height = 25
- Align = alTop
- BevelInner = bvLowered
- TabOrder = 0
- object Label1: TLabel
- Left = 366
- Top = 5
- Width = 57
- Height = 15
- Caption = 'Table Path'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- end
- object BtnExecute: TButton
- Left = 56
- Top = 2
- Width = 50
- Height = 20
- Caption = 'E&xecute'
- TabOrder = 1
- OnClick = BtnExecuteClick
- end
- object BtnClose: TButton
- Left = 3
- Top = 2
- Width = 50
- Height = 20
- Caption = 'C&lose'
- TabOrder = 0
- OnClick = BtnCloseClick
- end
- object EdtTablePath: TEdit
- Left = 427
- Top = 2
- Width = 160
- Height = 21
- TabOrder = 4
- OnExit = EdtTablePathExit
- end
- object BtnOpenDirListBox: TButton
- Left = 592
- Top = 2
- Width = 20
- Height = 20
- Hint = 'Click To Select or Deselect Directory List'
- Caption = '...'
- TabOrder = 5
- OnClick = BtnOpenDirListBoxClick
- end
- object BtnPrevious: TButton
- Left = 109
- Top = 2
- Width = 50
- Height = 20
- Caption = '&Previous'
- Enabled = False
- TabOrder = 2
- OnClick = BtnPreviousClick
- end
- object BtnNext: TButton
- Left = 162
- Top = 2
- Width = 50
- Height = 20
- Caption = '&Next'
- Enabled = False
- TabOrder = 3
- OnClick = BtnNextClick
- end
- end
- object DBCustGrid1: TDBCustGrid
- Left = 0
- Top = 133
- Width = 617
- Height = 122
- Align = alClient
- DataSource = DataSource1
- Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete, dgCancelOnExit]
- TabOrder = 2
- TitleFont.Charset = DEFAULT_CHARSET
- TitleFont.Color = clWindowText
- TitleFont.Height = -11
- TitleFont.Name = 'MS Sans Serif'
- TitleFont.Style = []
- RowsMark = 10
- end
- object GroupBox1: TGroupBox
- Left = 0
- Top = 25
- Width = 617
- Height = 105
- Align = alTop
- Caption = 'SQL Command'
- TabOrder = 1
- object RichEdit1: TRichEdit
- Left = 2
- Top = 15
- Width = 613
- Height = 88
- Align = alClient
- TabOrder = 0
- OnKeyPress = RichEdit1KeyPress
- end
- end
- object DirectoryListBox1: TDirectoryListBox
- Left = 428
- Top = 23
- Width = 89
- Height = 90
- ItemHeight = 16
- TabOrder = 3
- Visible = False
- OnEnter = DirectoryListBox1Enter
- OnExit = DirectoryListBox1Exit
- end
- object Query1: TQuery
- Left = 352
- Top = 40
- end
- object DataSource1: TDataSource
- DataSet = Query1
- Left = 392
- Top = 40
- end
- end
-