updmod.~dfm

存储过程脚本程序源码

object frmPDMod: TfrmPDMod
  Left = 203
  Top = 180
  Width = 735
  Height = 484
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #29983#25104#23384#20648#36807#31243
  Color = clBtnFace
  DragKind = dkDock
  DragMode = dmAutomatic
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 44
    Width = 185
    Height = 413
    Align = alLeft
    TabOrder = 0
    object gbData: TGroupBox
      Left = 1
      Top = 1
      Width = 183
      Height = 411
      Align = alClient
      Caption = #25968#25454#39033
      TabOrder = 0
      object sbType: TSpeedButton
        Left = 1
        Top = 16
        Width = 181
        Height = 22
        Caption = #25968#25454#31867#22411
        OnClick = sbTypeClick
      end
      object sbMothd: TSpeedButton
        Left = 1
        Top = 56
        Width = 181
        Height = 22
        Caption = #26041#27861
        OnClick = sbMothdClick
      end
      object lvType: TListView
        Left = 2
        Top = 96
        Width = 179
        Height = 357
        Columns = <>
        Items.Data = {
          D80000000800000000000000FFFFFFFFFFFFFFFF000000000000000003696E74
          01000000FFFFFFFFFFFFFFFF000000000000000006626967696E7402000000FF
          FFFFFFFFFFFFFF0000000000000000046368617203000000FFFFFFFFFFFFFFFF
          0000000000000000077661726368617204000000FFFFFFFFFFFFFFFF00000000
          00000000046461746505000000FFFFFFFFFFFFFFFF0000000000000000047465
          787406000000FFFFFFFFFFFFFFFF0000000000000000076E756D657269630700
          0000FFFFFFFFFFFFFFFF0000000000000000056D6F6E6579}
        LargeImages = items
        ReadOnly = True
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnDragDrop = lvTypeDragDrop
        OnDragOver = lvTypeDragOver
        OnMouseDown = lvTypeMouseDown
        OnMouseMove = lvTypeMouseMove
        OnMouseUp = lvTypeMouseUp
      end
      object lvMothd: TListView
        Left = 24
        Top = 120
        Width = 145
        Height = 129
        Columns = <>
        Items.Data = {
          4F0000000200000008000000FFFFFFFFFFFFFFFF00000000000000001049662E
          2E2E5468656E2E2E2E456C736509000000FFFFFFFFFFFFFFFF00000000000000
          000D466F722E2E2E546F2E2E2E446F}
        LargeImages = items
        TabOrder = 1
        OnDragDrop = lvMothdDragDrop
        OnMouseDown = lvMothdMouseDown
        OnMouseMove = lvMothdMouseMove
        OnMouseUp = lvMothdMouseUp
      end
    end
  end
  object Panel2: TPanel
    Left = 185
    Top = 44
    Width = 542
    Height = 413
    Align = alClient
    TabOrder = 1
    object gbPDContant: TGroupBox
      Left = 1
      Top = 1
      Width = 540
      Height = 240
      Align = alTop
      Caption = #23384#20648#36807#31243#33050#26412
      TabOrder = 0
      object mContent: TMemo
        Left = 2
        Top = 15
        Width = 536
        Height = 223
        Align = alClient
        PopupMenu = PopupMemo
        ScrollBars = ssBoth
        TabOrder = 0
        OnClick = mContentClick
        OnDragOver = mContentDragOver
      end
    end
    object gbResult: TGroupBox
      Left = 1
      Top = 272
      Width = 540
      Height = 138
      Caption = #25191#34892#32467#26524
      TabOrder = 1
      Visible = False
      object GridResult: TStringGrid
        Left = 2
        Top = 15
        Width = 536
        Height = 121
        Align = alClient
        DefaultRowHeight = 17
        RowCount = 2
        TabOrder = 0
      end
    end
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 727
    Height = 44
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 40
        Width = 723
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 710
      Height = 40
      AutoSize = True
      ButtonHeight = 38
      ButtonWidth = 39
      Caption = 'ToolBar1'
      Flat = True
      Images = ImageTool
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 0
        Top = 0
        AutoSize = True
        ImageIndex = 0
      end
      object ToolButton2: TToolButton
        Left = 39
        Top = 0
        AutoSize = True
        ImageIndex = 1
        OnClick = ToolButton2Click
      end
      object ToolButton3: TToolButton
        Left = 78
        Top = 0
        AutoSize = True
        ImageIndex = 2
        OnClick = ToolButton3Click
      end
      object ToolButton7: TToolButton
        Left = 117
        Top = 0
        Width = 3
        Caption = 'ToolButton7'
        ImageIndex = 6
        Style = tbsSeparator
      end
      object ToolButton4: TToolButton
        Left = 120
        Top = 0
        AutoSize = True
        ImageIndex = 3
        OnClick = ToolButton4Click
      end
      object ToolButton8: TToolButton
        Left = 159
        Top = 0
        Width = 3
        Caption = 'ToolButton8'
        ImageIndex = 6
        Style = tbsSeparator
      end
      object ToolButton5: TToolButton
        Left = 162
        Top = 0
        AutoSize = True