www.cnzz.cn.txt

ADOTEST FOR DELPHI ADOTEST FOR DELPHI

      end
      object ADOButton: TRadioButton
        Left = 257
        Top = 8
        Width = 42
        Height = 17
        Caption = 'ADO'
        Checked = True
        TabOrder = 1
        TabStop = True
        OnClick = ADOButtonClick
      end
      object MidasButton: TRadioButton
        Left = 312
        Top = 8
        Width = 54
        Height = 17
        Caption = 'Midas'
        TabOrder = 2
        OnClick = MidasButtonClick
      end
    end
    object BlobCtrlPanel: TPanel
      Left = 315
      Top = 30
      Width = 185
      Height = 219
      Align = alRight
      BevelOuter = bvNone
      BorderWidth = 2
      TabOrder = 2
      Visible = False
      object Splitter1: TSplitter
        Left = 2
        Top = 107
        Width = 181
        Height = 2
        Cursor = crVSplit
        Align = alBottom
        Visible = False
      end
      object DBMemo1: TDBMemo
        Left = 2
        Top = 2
        Width = 181
        Height = 105
        Align = alClient
        DataSource = MasterDataSource
        MaxLength = 1024
        PopupMenu = PopupMenu1
        TabOrder = 0
      end
      object DBImage1: TDBImage
        Left = 2
        Top = 109
        Width = 181
        Height = 108
        Align = alBottom
        DataSource = MasterDataSource
        PopupMenu = PopupMenu1
        TabOrder = 1
      end
    end
    object GridPanel: TPanel
      Left = 1
      Top = 30
      Width = 314
      Height = 219
      Align = alClient
      BevelOuter = bvNone
      BorderWidth = 2
      TabOrder = 1
      object GridSplitter: TSplitter
        Left = 2
        Top = 107
        Width = 310
        Height = 2
        Cursor = crVSplit
        Align = alBottom
        Visible = False
      end
      object DetailGrid: TDBGrid
        Left = 2
        Top = 109
        Width = 310
        Height = 108
        Align = alBottom
        DataSource = DetailDataSource
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Visible = False
        OnColEnter = GridColEnter
        OnEnter = GridSetFocus
        OnTitleClick = GridTitleClick
      end
      object MasterGrid: TDBGrid
        Left = 2
        Top = 2
        Width = 310
        Height = 105
        Align = alClient
        DataSource = MasterDataSource
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnColEnter = GridColEnter
        OnColumnMoved = MasterGridColumnMoved
        OnEnter = GridSetFocus
        OnTitleClick = GridTitleClick
      end
      object DBEditScroller: TScrollBox
        Left = 2
        Top = 2
        Width = 303
        Height = 0
        TabOrder = 2
      end
    end
  end
  object Events: TListBox
    Left = 512
    Top = 50
    Width = 164
    Height = 381
    Anchors = [akTop, akRight, akBottom]
    ItemHeight = 13
    TabOrder = 3
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 680
    Height = 29
    BorderWidth = 1
    Caption = 'ToolBar1'
    Flat = True
    Images = ImageList1
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    object OpenTableButton: TToolButton
      Left = 0
      Top = 0
      Action = OpenTable
    end
    object OpenQueryButton: TToolButton
      Left = 23
      Top = 0
      Action = OpenQuery
    end
    object ToolButton1: TToolButton
      Left = 46
      Top = 0
      Action = OpenProcedure
    end
    object CloseActiveButton: TToolButton
      Left = 69
      Top = 0
      Action = CloseActiveDataSet
    end
    object Sep1: TToolButton
      Left = 92
      Top = 0
      Width = 14
      Caption = 'Sep1'
      ImageIndex = 11
      Style = tbsSeparator
    end
    object LoadPacketButton: TToolButton
      Left = 106
      Top = 0
      Action = LoadFromFile
    end
    object SavePacketButton: TToolButton
      Left = 129
      Top = 0
      Action = SaveToFile
    end
    object Sep2: TToolButton
      Left = 152
      Top = 0
      Width = 14
      Caption = 'Sep2'
      ImageIndex = 1
      Style = tbsDivider
    end
    object ClearFieldButton: TToolButton
      Left = 166
      Top = 0
      Action = ClearField
    end
    object Sep3: TToolButton
      Left = 189
      Top = 0
      Width = 14
      Caption = 'Sep3'
      ImageIndex = 1
      Style = tbsDivider
    end
    object BatchUpdateButton: TToolButton
      Left = 203
      Top = 0
      Action = BatchUpdate
    end
    object CancelBatchButton: TToolButton
      Left = 226
      Top = 0
      Action = CancelBatch
    end
    object Sep4: TToolButton
      Left = 249
      Top = 0
      Width = 14
      Caption = 'Sep4'
      ImageIndex = 21
      Style = tbsSeparator
    end
    object MidasApplyUpdatesButton: TToolButton
      Left = 263
      Top = 0
      Action = MidasApplyUpdates
    end
    object MidasCancelButton: TToolButton
      Left = 286
      Top = 0
      Action = MidasCancelUpdates
    end
    object ToolButton3: TToolButton
      Left = 309
      Top = 0
      Width = 14
      Caption = 'ToolButton3'
      ImageIndex = 9
      Style = tbsSeparator
    end
    object ClearEventsButton: TToolButton
      Left = 323
      Top = 0
      Action = ClearEventLog
    end
  end
  object ProgressBar: TProgressBar
    Left = 0
    Top = 438
    Width = 301
    Height = 22
    Min = 0
    Max = 100
    Step = 1
    TabOrder = 5
    Visible = False
  end
  object MasterDataSource: TDataSource
    OnStateChange = DataSourceStateChange
    OnDataChange = DataSourceDataChange
    OnUpdateData = DataSourceUpdateData
    Left = 19
    Top = 283
  end
  object OpenDialog: TOpenDialog
    DefaultExt = 'dtg'
    Filter = 
      'TableGram Files (*.dtg)|*.dtg|Delphi form (*.dfm)|*.dfm|All File' +
      's (*.*)|*.*'
    Title = 'Load Data File'
    Left = 555
    Top = 65
  end
  object SaveDialog: TSaveDialog
    DefaultExt = 'dtg'
    Filter = 
      'TableGram Files (*.dtg)|*.dtg|Delphi form (*.dfm)|*.dfm|All File' +
      's (*.*)|*.*'
    Options = [ofOverwritePrompt]
    Title = 'Save Data File'
    Left = 555
    Top = 99
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 520
    Top = 99
    object AssignField1: TMenuItem
      Caption = '&Assign Field'
      OnClick = FieldSelect
    end
  end
  object DetailDataSource: TDataSource
    OnStateChange = DataSourceStateChange
    OnDataChange = DataSourceDataChange
    OnUpdateData = DataSourceUpdateData
    Left = 19
    Top = 393
  end
  object MainMenu1: TMainMenu
    Left = 521
    Top = 66
    object FileMenu: TMenuItem
      Caption = '&File'
      OnClick = FileMenuClick
      object OpenTable1: TMenuItem
        Action = OpenTable
      end
      object OpenQuery1: TMenuItem
        Action = OpenQuery
      end
      object OpenProcedure1: TMenuItem
        Action = OpenProcedure
      end
      object FileReopen: TMenuItem
        Caption = 'Reopen'
        object ReopenHolder: TMenuItem
          Caption = 'PlaceHolder'
        end
      end
      object ExecuteQuery1: TMenuItem
        Action = ExecuteCommand
      end
      object CloseActiveDataset1: TMenuItem
        Action = CloseActiveDataSet
      end
      object DisconnectDataSet1: TMenuItem
        Action = DisconnectDataSet
      end
      object Disconnect1: TMenuItem
        Action = CloseConnection
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object LoadDatapacket1: TMenuItem
        Action = LoadFromFile
      end
      object SaveDataPacket1: TMenuItem
        Action = SaveToFile
      end
      object LoadBlobfromfile1: TMenuItem
        Action = LoadBlobFromFile
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Saveformtofile1: TMenuItem
        Action = StreamFormOut
      end
      object LoadFormfromFile1: TMenuItem
        Action = StreamFormIn
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Action = ExitApplication
      end
    end
    object EditMenu: TMenuItem
      Caption = '&Edit'
      object BatchUpdates1: TMenuItem
        Action = BatchUpdate
      end
      object CancelBatch1: TMenuItem
        Action = CancelBatch
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object ApplyUpdatesMidas1: TMenuItem
        Action = MidasApplyUpdates