urdmserver.dfm

本文件采用了c/s结构的分布式应用系统

object rdmServer: TrdmServer
  OldCreateOrder = False
  Left = 392
  Top = 234
  Height = 457
  Width = 444
  object ADOConnLogin: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=admininfos;Data Source=glj'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 248
    Top = 72
  end
  object ADOLogin: TADOQuery
    Connection = ADOConnLogin
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'username'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end
      item
        Name = 'password'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      
        'select *from systemusers where username=:username and password=:' +
        'password')
    Left = 32
    Top = 16
  end
  object dspLogin: TDataSetProvider
    DataSet = ADOLogin
    ResolveToDataSet = True
    Options = [poAllowMultiRecordUpdates, poAutoRefresh, poAllowCommandText]
    Left = 104
    Top = 16
  end
  object ADOsystem: TADOQuery
    Connection = ADOConnLogin
    CursorType = ctStatic
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      'select *from systemusers')
    Left = 32
    Top = 80
  end
  object dspsystem: TDataSetProvider
    DataSet = ADOsystem
    ResolveToDataSet = True
    Options = [poAllowMultiRecordUpdates, poAutoRefresh, poAllowCommandText]
    UpdateMode = upWhereChanged
    Left = 168
    Top = 80
  end
  object Session1: TSession
    Active = True
    AutoSessionName = True
    Left = 200
    Top = 24
  end
  object dssystem: TDataSource
    DataSet = ADOsystem
    Left = 104
    Top = 80
  end
  object ADOHomeMaster: TADOQuery
    Connection = ADOConnLogin
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select *from homemasters')
    Left = 32
    Top = 152
  end
  object ADOMember: TADOQuery
    Connection = ADOConnLogin
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select *from othermembers')
    Left = 264
    Top = 160
  end
  object dspHomeMaster: TDataSetProvider
    DataSet = ADOHomeMaster
    ResolveToDataSet = True
    Options = [poAllowMultiRecordUpdates, poAutoRefresh, poAllowCommandText]
    UpdateMode = upWhereChanged
    Left = 184
    Top = 152
  end
  object dspMember: TDataSetProvider
    DataSet = ADOMember
    ResolveToDataSet = True
    Options = [poAllowMultiRecordUpdates, poAutoRefresh, poAllowCommandText]
    UpdateMode = upWhereChanged
    Left = 376
    Top = 160
  end
  object dshomemaster: TDataSource
    DataSet = ADOHomeMaster
    Left = 112
    Top = 144
  end
  object dsMember: TDataSource
    DataSet = ADOMember
    Left = 320
    Top = 152
  end
  object ADOInOut: TADOQuery
    Connection = ADOConnLogin
    Parameters = <>
    SQL.Strings = (
      'select *from inoutinfo')
    Left = 40
    Top = 232
  end
  object dsInOut: TDataSource
    DataSet = ADOInOut
    Left = 112
    Top = 232
  end
  object dspInOut: TDataSetProvider
    DataSet = ADOInOut
    ResolveToDataSet = True
    Options = [poAllowMultiRecordUpdates, poAutoRefresh, poAllowCommandText]
    UpdateMode = upWhereChanged
    Left = 200
    Top = 232
  end
  object ADOFix: TADOQuery
    Connection = ADOConnLogin
    Parameters = <>
    SQL.Strings = (
      'select *from fixinfos')
    Left = 32
    Top = 296
  end
  object dsFix: TDataSource
    DataSet = ADOFix
    Left = 112
    Top = 296
  end
  object dspFix: TDataSetProvider
    DataSet = ADOFix
    ResolveToDataSet = True
    Options = [poAllowMultiRecordUpdates, poAutoRefresh, poAllowCommandText]
    UpdateMode = upWhereChanged
    Left = 200
    Top = 296
  end
  object ADOFee: TADOQuery
    Connection = ADOConnLogin
    Parameters = <>
    SQL.Strings = (
      'select *from feesinfo')
    Left = 32
    Top = 360
  end
  object dsFee: TDataSource
    DataSet = ADOFee
    Left = 112
    Top = 368
  end
  object dspFee: TDataSetProvider
    DataSet = ADOFee
    ResolveToDataSet = True
    Options = [poAllowMultiRecordUpdates, poAutoRefresh, poAllowCommandText]
    UpdateMode = upWhereChanged
    Left = 200
    Top = 360
  end
end