upd.~dfm

存储过程脚本程序源码

object frmPD: TfrmPD
  Left = 249
  Top = 176
  Width = 748
  Height = 480
  Caption = 'frmPD'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 600
    Top = 8
    Width = 81
    Height = 13
    AutoSize = False
    Caption = #23384#20648#36807#31243#21069#32512
  end
  object Splitter1: TSplitter
    Left = 193
    Top = 0
    Width = 2
    Height = 453
  end
  object gbTableList: TGroupBox
    Left = 0
    Top = 0
    Width = 193
    Height = 453
    Align = alLeft
    Caption = #34920
    TabOrder = 0
    object lvTable: TListView
      Left = 2
      Top = 15
      Width = 189
      Height = 436
      Align = alClient
      Checkboxes = True
      Columns = <
        item
          Caption = #36873#25321
          Width = 40
        end
        item
          Caption = #34920#21517
          Width = 140
        end>
      GridLines = True
      MultiSelect = True
      ReadOnly = True
      RowSelect = True
      TabOrder = 0
      ViewStyle = vsReport
      OnClick = lvTableClick
      OnCustomDrawItem = lvTableCustomDrawItem
    end
  end
  object gbFieldList: TGroupBox
    Left = 195
    Top = 0
    Width = 393
    Height = 453
    Align = alLeft
    Caption = #23383#27573#21015#34920
    TabOrder = 1
    object lvField: TListView
      Left = 2
      Top = 15
      Width = 389
      Height = 436
      Align = alClient
      Checkboxes = True
      Columns = <
        item
          Caption = #36873#25321
          Width = 37
        end
        item
          Caption = #23383#27573#21517
          Width = 55
        end
        item
          Caption = #25968#25454#31867#22411
          Width = 70
        end
        item
          Caption = #38271#24230
          Width = 40
        end
        item
          Caption = #20801#35768#31354
        end
        item
          Caption = #22791#27880
          Width = 130
        end>
      GridLines = True
      ReadOnly = True
      SortType = stText
      TabOrder = 0
      ViewStyle = vsReport
      OnChange = lvFieldChange
      OnClick = lvFieldClick
      OnSelectItem = lvFieldSelectItem
    end
  end
  object gbType: TGroupBox
    Left = 601
    Top = 58
    Width = 122
    Height = 369
    Caption = #23384#20648#36807#31243#31867#22411
    TabOrder = 2
    object btnADD: TButton
      Left = 17
      Top = 24
      Width = 89
      Height = 25
      Caption = #26032#22686
      TabOrder = 0
      OnClick = btnADDClick
    end
    object btnUpdate: TButton
      Left = 17
      Top = 64
      Width = 89
      Height = 25
      Caption = #26356#26032
      TabOrder = 1
    end
    object btnAlter: TButton
      Left = 18
      Top = 104
      Width = 89
      Height = 25
      Caption = #20462#25913
      TabOrder = 2
      OnClick = btnAlterClick
    end
    object btnAllCheck: TButton
      Left = 9
      Top = 152
      Width = 113
      Height = 25
      Caption = #36873#20013#25152#26377#23383#27573
      Enabled = False
      TabOrder = 3
      OnClick = btnAllCheckClick
    end
  end
  object edtPrefixion: TEdit
    Left = 600
    Top = 28
    Width = 121
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152
    TabOrder = 3
  end
  object table: TADOTable
    Left = 368
    Top = 58
  end
end