www.cnzz.cn.txt

ADOTEST FOR DELPHI ADOTEST FOR DELPHI

      end
      object CancelUpdatesMidas1: TMenuItem
        Action = MidasCancelUpdates
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object ClearField1: TMenuItem
        Action = ClearField
      end
      object RefreshData1: TMenuItem
        Action = RefreshData
      end
    end
    object ViewMenu: TMenuItem
      Caption = '&View'
      object DisplayDetailTable1: TMenuItem
        Action = DisplayDetails
      end
      object BlobfieldasImage1: TMenuItem
        Action = BlobAsImage
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object ViewEvents1: TMenuItem
        Action = ViewEvents
      end
      object ClearEventLog1: TMenuItem
        Action = ClearEventLog
      end
    end
    object SettingsMenu: TMenuItem
      Caption = '&Settings'
      object UseClientCursorItem: TMenuItem
        Action = UseClientCursor
      end
      object UseadCmdTableDirect1: TMenuItem
        Action = UseTableDirect
      end
      object UseShapeProvider1: TMenuItem
        Action = UseShapeProvider
      end
      object CursorTypeItem: TMenuItem
        Caption = 'C&ursor Type'
        object CurTypeUnspecified: TMenuItem
          Caption = '&Unspecified'
          GroupIndex = 1
          RadioItem = True
          OnClick = RadioItemClick
        end
        object CurTypeForwardOnly: TMenuItem
          Caption = '&Forward Only'
          GroupIndex = 1
          RadioItem = True
          OnClick = RadioItemClick
        end
        object CurTypeKeyset: TMenuItem
          Caption = '&Keyset'
          Checked = True
          GroupIndex = 1
          RadioItem = True
          OnClick = RadioItemClick
        end
        object Dynamic1: TMenuItem
          Caption = '&Dynamic'
          GroupIndex = 1
          RadioItem = True
          OnClick = RadioItemClick
        end
        object CurTypeStatic: TMenuItem
          Caption = '&Static'
          GroupIndex = 1
          RadioItem = True
          OnClick = RadioItemClick
        end
      end
      object LockTypeItem: TMenuItem
        Caption = '&Lock Type'
        object LckTypeUnspecified: TMenuItem
          Caption = '&Unspecified'
          GroupIndex = 1
          RadioItem = True
          OnClick = RadioItemClick
        end
        object LckTypeReadOnly: TMenuItem
          Caption = '&Read Only'
          GroupIndex = 1
          RadioItem = True
          OnClick = RadioItemClick
        end
        object LckTypePessimistic: TMenuItem
          Caption = '&Pessimistic'
          GroupIndex = 1
          RadioItem = True
          OnClick = RadioItemClick
        end
        object LckTypeOptimistic: TMenuItem
          Caption = '&Optimistic'
          Checked = True
          GroupIndex = 1
          RadioItem = True
          OnClick = RadioItemClick
        end
        object LckTypeBatchOptimistic: TMenuItem
          Caption = '&Batch Optimistic'
          GroupIndex = 1
          RadioItem = True
          OnClick = RadioItemClick
        end
      end
      object MaxRecords1: TMenuItem
        Action = MaxRecords
      end
      object EnableBCD1: TMenuItem
        Action = EnableBCD
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object AsyncConnect1: TMenuItem
        Action = AsyncConnect
      end
      object AsyncExecute1: TMenuItem
        Action = AsyncExecute
      end
      object AsyncFetch1: TMenuItem
        Action = AsyncFetch
      end
    end
    object HelpMenu: TMenuItem
      Caption = '&Help'
      object HelpAboutItem: TMenuItem
        Action = HelpAbout
        Caption = '&About...'
      end
    end
  end
  object ActionList1: TActionList
    Images = ImageList1
    Left = 520
    Top = 134
    object BatchUpdate: TAction
      Category = 'Edit'
      Caption = '&Apply Batch Updates'
      Hint = 'Apply pending batch updates to the server'
      ImageIndex = 3
      ShortCut = 16450
      OnExecute = BatchUpdateExecute
      OnUpdate = EditActionsUpdate
    end
    object CancelBatch: TAction
      Category = 'Edit'
      Caption = '&Cancel Batch Updates'
      Hint = 'Cancel pending batch updates'
      ImageIndex = 14
      OnExecute = CancelBatchExecute
    end
    object OpenProcedure: TAction
      Category = 'File'
      Caption = 'Open &Procedure'
      Hint = 'Open stored procedure(s)'
      ImageIndex = 12
      ShortCut = 16464
      OnExecute = OpenProcedureExecute
    end
    object OpenTable: TAction
      Category = 'File'
      Caption = 'Open &Table'
      Hint = 'Open Table(s)'
      ImageIndex = 0
      ShortCut = 16468
      OnExecute = OpenTableExecute
    end
    object OpenQuery: TAction
      Category = 'File'
      Caption = 'Open &Query'
      Hint = 'Open Query(s)'
      ImageIndex = 1
      ShortCut = 16465
      OnExecute = OpenQueryExecute
    end
    object LoadFromFile: TAction
      Category = 'File'
      Caption = 'Load data from a file...'
      Hint = 'Load data from a file'
      ImageIndex = 10
      ShortCut = 16460
      OnExecute = LoadFromFileExecute
    end
    object CloseActiveDataSet: TAction
      Category = 'File'
      Caption = '&Close Active Dataset'
      Hint = 'Close the active dataset'
      ImageIndex = 2
      OnExecute = CloseActiveDataSetExecute
      OnUpdate = FileActionsUpdate
    end
    object SaveToFile: TAction
      Category = 'File'
      Caption = '&Save data to a file...'
      Hint = 'Save data to a file'
      ImageIndex = 11
      ShortCut = 16467
      OnExecute = SaveToFileExecute
    end
    object ExitApplication: TAction
      Category = 'File'
      Caption = 'E&xit'
      Hint = 'Exit the application'
      ShortCut = 32856
      OnExecute = ExitApplicationExecute
    end
    object ExecuteCommand: TAction
      Category = 'File'
      Caption = '&Execute Command'
      Hint = 'Execute the current query'
      ShortCut = 16453
      OnExecute = ExecSQLExecute
    end
    object StreamFormOut: TAction
      Category = 'File'
      Caption = 'Stream &Form Out...'
      Hint = 'Stream for to a form file'
      OnExecute = StreamFormOutClick
    end
    object StreamFormIn: TAction
      Category = 'File'
      Caption = 'Stream Form &In...'
      Hint = 'Stream in form file'
      OnExecute = StreamFormInClick
    end
    object ClearField: TAction
      Category = 'Edit'
      Caption = '&Clear Field'
      Hint = 'Set the current field to Null'
      ImageIndex = 6
      ShortCut = 24643
      OnExecute = ClearFieldExecute
    end
    object ViewEvents: TAction
      Category = 'View'
      Caption = '&Events'
      Hint = 'Display event information'
      OnExecute = ViewEventsExecute
    end
    object DisplayDetails: TAction
      Category = 'View'
      Caption = '&Display Detail Table'
      Checked = True
      Hint = 'Display detail or nested table in the lower grid'
      OnExecute = DisplayDetailsExecute
    end
    object RefreshData: TAction
      Category = 'Edit'
      Caption = 'Re&fresh Data'
      OnExecute = RefreshDataExecute
    end
    object ClearEventLog: TAction
      Category = 'View'
      Caption = '&Clear Event Log'
      Hint = 'Clear the event log'
      ImageIndex = 7
      OnExecute = ClearEventLogExecute
      OnUpdate = ClearEventLogUpdate
    end
    object HelpAbout: TAction
      Caption = 'HelpAbout'
      Hint = 'Display About Box'
      OnExecute = HelpAboutExecute
    end
    object PrevQuery: TAction
      Category = 'File'
      Hint = 'Display the previous query from the history list'
      OnExecute = PrevQueryExecute
      OnUpdate = PrevQueryUpdate
    end
    object NextQuery: TAction
      Category = 'File'
      Hint = 'Display the next query from the history list, or insert new one.'
      OnExecute = NextQueryExecute
    end
    object UseClientCursor: TAction
      Category = 'Settings'
      Caption = 'Use &Client Cursor'
      Checked = True
      Hint = 'Use client side cursor'
      OnExecute = BooleanActionExecute
    end
    object UseTableDirect: TAction
      Category = 'Settings'
      Caption = 'Use adCmd&TableDirect'
      Hint = 'Use the adCmdTableDirect command type'
      OnExecute = BooleanActionExecute
    end
    object UseShapeProvider: TAction
      Category = 'Settings'
      Caption = 'Use &Shape Provider'
      Hint = 'Use the Shape Provider'
      OnExecute = UseShapeProviderExecute
    end
    object CloseConnection: TAction
      Category = 'File'
      Caption = '&Close Connection'
      Hint = 'Close the current connection'
      OnExecute = CloseConnectionExecute
    end
    object AsyncConnect: TAction
      Category = 'Settings'
      Caption = 'AsyncConnect'
      Hint = 'Make the connection asynchronously'
      OnExecute = BooleanActionExecute
    end
    object AsyncExecute: TAction
      Category = 'Settings'
      Caption = 'AsyncExecute'
      Hint = 'Execute the command asynchronously'
      OnExecute = BooleanActionExecute
    end
    object AsyncFetch: TAction
      Category = 'Settings'
      Caption = 'AsyncFetch'
      Hint = 'Fetch records asynchronously'
      OnExecute = BooleanActionExecute
    end
    object MaxRecords: TAction
      Category = 'Settings'
      Caption = '&Max Records...'
      Hint = 'Specify the max number of records in a dataset'
      OnExecute = MaxRecordsExecute
    end
    object MidasApplyUpdates: TAction
      Category = 'Edit'
      Caption = 'Apply Updates (Midas)'
      Hint = 'Apply pending Midas updates'
      ImageIndex = 13
      ShortCut = 16449
      OnExecute = MidasApplyUpdatesExecute
    end
    object MidasCancelUpdates: TAction
      Category = 'Edit'
      Caption = 'Cancel Updates (Midas)'
      Hint = 'Cancel pending Midas updates'
      ImageIndex = 9
      OnExecute = MidasCancelUpdatesExecute
    end
    object EnableBCD: TAction
      Category = 'Settings'
      Caption = 'EnableBCD'
      Checked = True
      Hint = 'Configure datasets to use BCD fields for numeric field types'
      OnExecute = BooleanActionExecute
    end
    object DisconnectDataSet: TAction
      Category = 'File'
      Caption = '&Disconnect DataSet'
      Hint = 'Disconnect the dataset fromt he connection'
      OnExecute = DisconnectDataSetExecute
    end
    object BlobAsImage: TAction
      Category = 'View'
      Caption = '&Blob field as Image'
      Hint = 'View the current blob field in a DBImage'
      OnExecute = BlobAsImageExecute
      OnUpdate = BlobAsImageUpdate
    end
    object LoadBlobFromFile: TAction
      Category = 'Edit'
      Caption = '&Load Blob from file...'
      Hint = 'Load blob data from a file'
      OnExecute = LoadBlobFromFileExecute
    end
  end
  object ImageList1: TImageList
    Left = 555
    Top = 134
    Bitmap = {