sqldriverediteh.dfm

EhLib v4.3.21 (完整源码) Ehlib 是著名的数据库连接控制

                  000098300000E7DBD500E4D7D0000030F800B7A2930069473100FF00FF00C3AE
                  9F00FFFFFF0098300000FEFEFD00B66C4A0098300000EBDAD200E4CEC3009830
                  000098300000EBE2DD0098300000E4D7D000B7A2930069473100FF00FF00C3AE
                  9F00FFFFFF00FFFFFF00FFFFFF00BD7A5B0098300000D8B2A100F0E7E1009830
                  000098300000EEE6E10098300000E9DED800B7A2930069473100FF00FF00C3AE
                  9F00FFFFFF0098300000FFFFFF00F6ECE800C2846700A85027009B3608009830
                  000098300000F1EAE600EEE6E100EBE2DD00B7A2930069473100FF00FF00C3AE
                  9F00FFFFFF0098300000FFFFFF00FFFFFF00FFFFFF00FEFEFD00EAD5CB009830
                  00009F3F1300F3EEEA0098300000EEE6E100B7A2930069473100FF00FF00C3AE
                  9F00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A3471C009830000098300000A850
                  2700DBB9A800F6F2EF0098300000F1EAE600B7A2930069473100FF00FF00C3AE
                  9F00FFFFFF0098300000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FEFE
                  FD00FCFAF900F9F6F400F6F2EF00F3EEEA00B7A2930069473100FF00FF00C3AE
                  9F00FFFFFF0098300000FFFFFF009830000098300000FFFFFF00983000009830
                  0000FFFFFF009830000098300000F7F4F100B7A2930069473100FF00FF00C3AE
                  9F00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FDFCFB00FAF8F600F7F4F10069473100FF00FF00FF00
                  FF00C3AE9F00C3AE9F00C3AE9F00C3AE9F00C3AE9F00C3AE9F00C3AE9F00C3AE
                  9F00C3AE9F00C3AE9F00C3AE9F00C3AE9F00C3AE9F00FF00FF00FF00FF00FF00
                  FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
                  FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
              end
              object bExecute: TButton
                Left = 0
                Top = 2
                Width = 77
                Height = 24
                Caption = '&Execute'
                TabOrder = 0
                OnClick = bExecuteClick
              end
              object bCheck: TButton
                Left = 77
                Top = 2
                Width = 77
                Height = 24
                Caption = 'C&heck'
                TabOrder = 1
              end
              object bQueryPlan: TButton
                Left = 154
                Top = 2
                Width = 77
                Height = 24
                Caption = 'Query &plan'
                TabOrder = 2
                OnClick = bQueryPlanClick
              end
            end
          end
          object Panel9: TPanel
            Left = 536
            Top = 1
            Width = 16
            Height = 16
            Anchors = [akTop, akRight]
            Caption = 'Panel8'
            TabOrder = 2
            object SpeedButton2: TSpeedButton
              Left = 1
              Top = 1
              Width = 14
              Height = 15
              Anchors = [akLeft, akTop, akRight, akBottom]
              Flat = True
              Glyph.Data = {
                B6000000424DB600000000000000760000002800000010000000080000000100
                0400000000004000000000000000000000001000000000000000000000000000
                8000008000000080800080000000800080008080000080808000C0C0C0000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
                FFFFFFFF0FFFFFF0FFFFFFF00FFFFFF00FFFFF000FFFFFF000FFFF000FFFFFF0
                00FFFFF00FFFFFF00FFFFFFF0FFFFFF0FFFFFFFFFFFFFFFFFFFF}
              NumGlyphs = 2
              Transparent = False
              OnClick = sbHideShowClick
            end
          end
        end
        object TabSheet2: TTabSheet
          Caption = 'Insert'
          ImageIndex = 1
          inline FrameInsertSQL: TSQLEditFrame
            Width = 553
            Height = 249
            Align = alClient
            inherited Panel1: TPanel
              Width = 553
              Height = 249
              inherited Splitter2: TSplitter
                Left = 342
                Height = 249
              end
              inherited Panel4: TPanel
                Width = 342
                Height = 249
                inherited RichEdit1: TRichEdit
                  Width = 342
                  Height = 224
                end
                inherited Panel5: TPanel
                  Width = 342
                end
              end
              inherited Panel3: TPanel
                Left = 348
                Height = 249
                inherited gridParams: TDBGridEh
                  Height = 357
                  FooterFont.Name = 'Tahoma'
                  TitleFont.Name = 'Tahoma'
                end
              end
            end
            inherited Panel8: TPanel
              Left = 534
            end
          end
        end
        object TabSheet3: TTabSheet
          Caption = 'Update'
          ImageIndex = 2
          inline FrameUpdateSQL: TSQLEditFrame
            Width = 553
            Height = 249
            Align = alClient
            inherited Panel1: TPanel
              Width = 553
              Height = 249
              inherited Splitter2: TSplitter
                Left = 342
                Height = 249
              end
              inherited Panel4: TPanel
                Width = 342
                Height = 249
                inherited RichEdit1: TRichEdit
                  Width = 342
                  Height = 224
                end
                inherited Panel5: TPanel
                  Width = 342
                end
              end
              inherited Panel3: TPanel
                Left = 348
                Height = 249
                inherited gridParams: TDBGridEh
                  Height = 357
                  FooterFont.Name = 'Tahoma'
                  TitleFont.Name = 'Tahoma'
                end
              end
            end
            inherited Panel8: TPanel
              Left = 534
            end
          end
        end
        object TabSheet4: TTabSheet
          Caption = 'Delete'
          ImageIndex = 3
          inline FrameDeleteSQL: TSQLEditFrame
            Width = 553
            Height = 249
            Align = alClient
            inherited Panel1: TPanel
              Width = 553
              Height = 249
              inherited Splitter2: TSplitter
                Left = 342
                Height = 249
              end
              inherited Panel4: TPanel
                Width = 342
                Height = 249
                inherited RichEdit1: TRichEdit
                  Width = 342
                  Height = 224
                end
                inherited Panel5: TPanel
                  Width = 342
                end
              end
              inherited Panel3: TPanel
                Left = 348
                Height = 249
                inherited gridParams: TDBGridEh
                  Height = 357
                  FooterFont.Name = 'Tahoma'
                  TitleFont.Name = 'Tahoma'
                end
              end
            end
            inherited Panel8: TPanel
              Left = 534
            end
          end
        end
        object TabSheet5: TTabSheet
          Caption = 'GetRec'
          ImageIndex = 4
          inline FrameGetRecSQL: TSQLEditFrame
            Width = 553
            Height = 249
            Align = alClient
            inherited Panel1: TPanel
              Width = 553
              Height = 249
              inherited Splitter2: TSplitter
                Left = 342
                Height = 249
              end
              inherited Panel4: TPanel
                Width = 342
                Height = 249
                inherited RichEdit1: TRichEdit
                  Width = 342
                  Height = 224
                end
                inherited Panel5: TPanel
                  Width = 342
                end
              end
              inherited Panel3: TPanel
                Left = 348
                Height = 249
                inherited gridParams: TDBGridEh
                  Height = 357
                  FooterFont.Name = 'Tahoma'
                  TitleFont.Name = 'Tahoma'
                end
              end
            end
            inherited Panel8: TPanel
              Left = 534
            end
          end
        end
        object tsSpecParams: TTabSheet
          Caption = 'Other'
          ImageIndex = 5
          object Panel11: TPanel
            Left = 274
            Top = 0
            Width = 279
            Height = 249
            Align = alRight
            BevelOuter = bvNone
            TabOrder = 0
            object Label1: TLabel
              Left = 10
              Top = 187
              Width = 63
              Height = 13
              Caption = 'Update fields'
            end
            object Label2: TLabel
              Left = 10
              Top = 116
              Width = 46
              Height = 13
              Caption = 'Key fields'
            end
            object Bevel1: TBevel
              Left = 80
              Top = 192
              Width = 193
              Height = 2
            end
            object Bevel2: TBevel
              Left = 63
              Top = 123
              Width = 210
              Height = 2
            end
            object Label3: TLabel
              Left = 10
              Top = 72
              Width = 62
              Height = 13
              Caption = 'Update table'
            end
            object Bevel3: TBevel
              Left = 80
              Top = 79
              Width = 192
              Height = 2
            end
            object Bevel5: TBevel
              Left = 4
              Top = 6
              Width = 2
              Height = 352
            end
            object MemoUpdateFields: TMemo
              Left = 10
              Top = 202
              Width = 263
              Height = 50
              Anchors = [akLeft, akTop, akBottom]
              ScrollBars = ssVertical
              TabOrder = 0
            end
            object MemoKeyFields: TMemo
              Left = 10
              Top = 133
              Width = 264
              Height = 47
              ScrollBars = ssVertical
              TabOrder = 1
            end
            object dbeUpdateTable: TDBEditEh
              Left = 10
              Top = 89
              Width = 263
              Height = 21
              EditButtons = <>
              ShowHint = True
              TabOrder = 2