sqldriverediteh.dfm

最新的 DBGRIDEH4.0

              OnClick = sbHideShowClick
            end
          end
        end
        object TabSheet2: TTabSheet
          Caption = 'Insert'
          ImageIndex = 1
          inline FrameInsertSQL: TSQLEditFrame
            Width = 553
            Height = 357
            Align = alClient
            inherited Panel1: TPanel
              Width = 553
              Height = 357
              inherited Splitter2: TSplitter
                Left = 394
                Width = 3
                Height = 357
              end
              inherited Panel4: TPanel
                Width = 394
                Height = 357
                inherited RichEdit1: TRichEdit
                  Top = 23
                  Width = 394
                  Height = 334
                end
                inherited Panel5: TPanel
                  Width = 394
                  Height = 23
                  inherited Button3: TButton
                    Left = 3
                    Top = 2
                    Width = 56
                    Height = 19
                  end
                  inherited Check: TButton
                    Left = 61
                    Top = 2
                    Width = 55
                    Height = 19
                  end
                  inherited Button1: TButton
                    Left = 119
                    Top = 2
                    Width = 56
                    Height = 19
                  end
                end
              end
              inherited Panel3: TPanel
                Left = 397
                Width = 156
                Height = 357
                inherited gridParams: TDBGridEh
                  Width = 156
                  Height = 361
                  Columns = <
                    item
                      EditButtons = <>
                      FieldName = 'ParName'
                      Footers = <>
                      KeyList.Strings = ()
                      MRUList.Items.Strings = ()
                      PickList.Strings = ()
                      Title.Caption = 'Params|Name'
                      Width = 59
                    end
                    item
                      DropDownRows = 37
                      EditButtons = <>
                      FieldName = 'ParType'
                      Footers = <>
                      KeyList.Strings = ()
                      MRUList.Items.Strings = ()
                      PickList.Strings = (
                        'ftUnknown'
                        'ftString'
                        'ftFixedChar'
                        'ftMemo'
                        'ftAdt'
                        'ftSmallint'
                        'ftWord'
                        'ftAutoInc'
                        'ftInteger'
                        'ftTime'
                        'ftDate'
                        'ftDateTime'
                        'ftBCD'
                        'ftFMTBCD'
                        'ftCurrency'
                        'ftFloat'
                        'ftTimeStamp'
                        'ftBoolean'
                        'ftBytes'
                        'ftVarBytes'
                        'ftBlob'
                        'ftGraphic'
                        'ftTypedBinary'
                        'ftOraBlob'
                        'ftOraClob'
                        'ftArray'
                        'ftDataSet'
                        'ftReference'
                        'ftCursor')
                      Title.Caption = 'Params|Type'
                      Width = 51
                    end
                    item
                      EditButtons = <>
                      FieldName = 'ParValue'
                      Footers = <>
                      KeyList.Strings = ()
                      MRUList.Items.Strings = ()
                      PickList.Strings = ()
                      Title.Caption = 'Params|Value'
                      Width = 29
                    end>
                end
              end
            end
            inherited Panel8: TPanel
              Left = 400
              Width = 13
              Height = 14
              inherited SpeedButton2: TSpeedButton
                Width = 12
                Height = 13
              end
            end
          end
        end
        object TabSheet3: TTabSheet
          Caption = 'Update'
          ImageIndex = 2
          inline FrameUpdateSQL: TSQLEditFrame
            Width = 553
            Height = 357
            Align = alClient
            inherited Panel1: TPanel
              Width = 553
              Height = 357
              inherited Splitter2: TSplitter
                Left = 394
                Width = 3
                Height = 357
              end
              inherited Panel4: TPanel
                Width = 394
                Height = 357
                inherited RichEdit1: TRichEdit
                  Top = 23
                  Width = 394
                  Height = 334
                end
                inherited Panel5: TPanel
                  Width = 394
                  Height = 23
                  inherited Button3: TButton
                    Left = 3
                    Top = 2
                    Width = 56
                    Height = 19
                  end
                  inherited Check: TButton
                    Left = 61
                    Top = 2
                    Width = 55
                    Height = 19
                  end
                  inherited Button1: TButton
                    Left = 119
                    Top = 2
                    Width = 56
                    Height = 19
                  end
                end
              end
              inherited Panel3: TPanel
                Left = 397
                Width = 156
                Height = 357
                inherited gridParams: TDBGridEh
                  Width = 156
                  Height = 361
                  Columns = <
                    item
                      EditButtons = <>
                      FieldName = 'ParName'
                      Footers = <>
                      KeyList.Strings = ()
                      MRUList.Items.Strings = ()
                      PickList.Strings = ()
                      Title.Caption = 'Params|Name'
                      Width = 59
                    end
                    item
                      DropDownRows = 37
                      EditButtons = <>
                      FieldName = 'ParType'
                      Footers = <>
                      KeyList.Strings = ()
                      MRUList.Items.Strings = ()
                      PickList.Strings = (
                        'ftUnknown'
                        'ftString'
                        'ftFixedChar'
                        'ftMemo'
                        'ftAdt'
                        'ftSmallint'
                        'ftWord'
                        'ftAutoInc'
                        'ftInteger'
                        'ftTime'
                        'ftDate'
                        'ftDateTime'
                        'ftBCD'
                        'ftFMTBCD'
                        'ftCurrency'
                        'ftFloat'
                        'ftTimeStamp'
                        'ftBoolean'
                        'ftBytes'
                        'ftVarBytes'
                        'ftBlob'
                        'ftGraphic'
                        'ftTypedBinary'
                        'ftOraBlob'
                        'ftOraClob'
                        'ftArray'
                        'ftDataSet'
                        'ftReference'
                        'ftCursor')
                      Title.Caption = 'Params|Type'
                      Width = 51
                    end
                    item
                      EditButtons = <>
                      FieldName = 'ParValue'
                      Footers = <>
                      KeyList.Strings = ()
                      MRUList.Items.Strings = ()
                      PickList.Strings = ()
                      Title.Caption = 'Params|Value'
                      Width = 29
                    end>
                end
              end
            end
            inherited Panel8: TPanel
              Left = 400
              Width = 13
              Height = 14
              inherited SpeedButton2: TSpeedButton
                Width = 12
                Height = 13
              end
            end
          end
        end
        object TabSheet4: TTabSheet
          Caption = 'Delete'
          ImageIndex = 3
          inline FrameDeleteSQL: TSQLEditFrame
            Width = 553
            Height = 357
            Align = alClient
            inherited Panel1: TPanel
              Width = 553
              Height = 357
              inherited Splitter2: TSplitter
                Left = 394
                Width = 3
                Height = 357
              end
              inherited Panel4: TPanel
                Width = 394
                Height = 357
                inherited RichEdit1: TRichEdit
                  Top = 23
                  Width = 394
                  Height = 334
                end
                inherited Panel5: TPanel
                  Width = 394
                  Height = 23
                  inherited Button3: TButton
                    Left = 3
                    Top = 2
                    Width = 56
                    Height = 19
                  end
                  inherited Check: TButton
                    Left = 61
                    Top = 2
                    Width = 55
                    Height = 19
                  end
                  inherited Button1: TButton
                    Left = 119
                    Top = 2
                    Width = 56
                    Height = 19
                  end
                end
              end
              inherited Panel3: TPanel
                Left = 397
                Width = 156
                Height = 357
                inherited gridParams: TDBGridEh
                  Width = 156
                  Height = 361
                  Columns = <
                    item
                      EditButtons = <>
                      FieldName = 'ParName'
                      Footers = <>
                      KeyList.Strings = ()
                      MRUList.Items.Strings = ()
                      PickList.Strings = ()
                      Title.Caption = 'Params|Name'
                      Width = 59
                    end
                    item
                      DropDownRows = 37
                      EditButtons = <>
                      FieldName = 'ParType'
                      Footers = <>
                      KeyList.Strings = ()
                      MRUList.Items.Strings = ()
                      PickList.Strings = (
                        'ftUnknown'
                        'ftString'
                        'ftFixedChar'
                        'ftMemo'
                        'ftAdt'
                        'ftSmallint'
                        'ftWord'
                        'ftAutoInc'
                        'ftInteger'
                        'ftTime'
                        'ftDate'
                        'ftDateTime'
                        'ftBCD'
                        'ftFMTBCD'
                        'ftCurrency'
                        'ftFloat'
                        'ftTimeStamp'
                        'ftBoolean'
                        'ftBytes'
                        'ftVarBytes'
                        'ftBlob'
                        'ftGraphic'
                        'ftTypedBinary'
                        'ftOraBlob'
                        'ftOraClob'
                        'ftArray'
                        'ftDataSet'
                        'ftReference'