untrdmserver.dfm

关于书籍《Borland c++Builder工程实践》的源代码

object RDMServer: TRDMServer
  OldCreateOrder = False
  Left = 191
  Top = 144
  Height = 162
  Width = 336
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=MSDASQL.1;Password="";Persist Security Info=True;User I' +
      'D=sa;Data Source=exam'
    LoginPrompt = False
    Left = 40
    Top = 16
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'paramtestid'
        DataType = ftString
        Precision = 40
        Size = 40
        Value = Null
      end>
    SQL.Strings = (
      'select NUMBER,EXAMID,EQUIPNAME,SPECIFICATION from EQUIPMENT'
      'where EXAMID like :paramtestid'
      'order by EQUIPID asc')
    Left = 128
    Top = 16
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = ADOQuery1
    Constraints = True
    Left = 216
    Top = 16
  end
end