unitdatamodule.~dfm

来自「delphi基于工业控制的串口通讯」· ~DFM 代码 · 共 106 行

object frm_DataModule: Tfrm_DataModule
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Top = 112
  Height = 715
  Width = 1024
  object ADO_Connection: TADOConnection
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'SQLOLEDB.1'
    Left = 40
    Top = 8
  end
  object ADO_QueryInsert: TADOQuery
    Connection = ADO_Connection
    Parameters = <>
    Left = 40
    Top = 56
  end
  object ADO_QueryDelete: TADOQuery
    Connection = ADO_Connection
    Parameters = <>
    Left = 136
    Top = 56
  end
  object ADO_QueryUpdate: TADOQuery
    Connection = ADO_Connection
    Parameters = <>
    Left = 248
    Top = 56
  end
  object ADO_QuerySearch: TADOQuery
    Connection = ADO_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from [Equipment]')
    Left = 384
    Top = 64
  end
  object DataSource_Insert: TDataSource
    DataSet = ADO_QueryInsert
    Left = 41
    Top = 104
  end
  object DataSourceDelete: TDataSource
    DataSet = ADO_QueryDelete
    Left = 128
    Top = 112
  end
  object DataSourceUpdate: TDataSource
    DataSet = ADO_QueryUpdate
    Left = 248
    Top = 112
  end
  object DataSourceSearch: TDataSource
    Left = 384
    Top = 112
  end
  object ADO_QueryItem: TADOQuery
    Connection = ADO_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from [Equipment]')
    Left = 48
    Top = 184
  end
  object ADO_QueryOpen: TADOQuery
    Connection = ADO_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from [Equipment]')
    Left = 520
    Top = 64
  end
  object ADO_QueryClose: TADOQuery
    Connection = ADO_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from [Equipment]')
    Left = 640
    Top = 64
  end
  object ADO_QueryWarninfo: TADOQuery
    Connection = ADO_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from [Equipment]')
    Left = 384
    Top = 176
  end
  object ADO_QueryLogin: TADOQuery
    Connection = ADO_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from [Equipment]')
    Left = 520
    Top = 184
  end
end