tkglserver_p.dfm

来自「考试系统,是一个简单的但是很经典的」· DFM 代码 · 共 228 行

object tkglserver: Ttkglserver
  OldCreateOrder = False
  OnCreate = RemoteDataModuleCreate
  OnDestroy = RemoteDataModuleDestroy
  Left = 299
  Top = 145
  Height = 472
  Width = 616
  object adodb: Tnewadodb
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=hwk19990109;Persist Security Info=T' +
      'rue;User ID=sa;Initial Catalog=tkgldata;Data Source='
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    AutoLoadCfg = True
    LocalIp = '127.0.0.1'
    Startpath = 'D:\'#32771#35797#31995#32479'\'
    LocalHostName = 'HWK'
    Left = 72
    Top = 16
  end
  object qry1: TADOQuery
    Connection = adodb
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from k_tkmcb order by tkbh')
    Left = 32
    Top = 120
  end
  object qry2: TADOQuery
    Connection = adodb
    Parameters = <>
    SQL.Strings = (
      'select * from k_stb order by tkbh,stbh')
    Left = 72
    Top = 120
  end
  object qry3: TADOQuery
    Connection = adodb
    Parameters = <>
    Left = 112
    Top = 120
  end
  object qry4: TADOQuery
    Connection = adodb
    Parameters = <>
    Left = 152
    Top = 120
  end
  object qry5: TADOQuery
    Connection = adodb
    Parameters = <>
    Left = 192
    Top = 120
  end
  object qry6: TADOQuery
    Connection = adodb
    Parameters = <>
    SQL.Strings = (
      'select * from k_ksmdb')
    Left = 232
    Top = 120
  end
  object qry7: TADOQuery
    Connection = adodb
    Parameters = <>
    Left = 272
    Top = 120
  end
  object qry8: TADOQuery
    Connection = adodb
    Parameters = <>
    Left = 312
    Top = 120
  end
  object qry9: TADOQuery
    Connection = adodb
    Parameters = <>
    Left = 352
    Top = 120
  end
  object qry10: TADOQuery
    Connection = adodb
    Parameters = <>
    Left = 392
    Top = 120
  end
  object qry11: TADOQuery
    Connection = adodb
    Parameters = <>
    Left = 432
    Top = 120
  end
  object qry12: TADOQuery
    Connection = adodb
    Parameters = <>
    SQL.Strings = (
      'select * from k_ksjlb')
    Left = 472
    Top = 120
  end
  object qry13: TADOQuery
    Connection = adodb
    Parameters = <>
    SQL.Strings = (
      'select * from x_yhb order by rybh')
    Left = 512
    Top = 120
  end
  object qry14: TADOQuery
    Connection = adodb
    Parameters = <>
    Left = 552
    Top = 120
  end
  object qry15: TADOQuery
    Connection = adodb
    Parameters = <>
    Left = 288
    Top = 24
  end
  object qry16: TADOQuery
    Connection = adodb
    Parameters = <>
    Left = 328
    Top = 24
  end
  object dsp1: TDataSetProvider
    DataSet = qry1
    Constraints = True
    Left = 32
    Top = 176
  end
  object dsp2: TDataSetProvider
    DataSet = qry2
    Constraints = True
    Left = 72
    Top = 176
  end
  object dsp3: TDataSetProvider
    DataSet = qry3
    Constraints = True
    Left = 112
    Top = 176
  end
  object dsp4: TDataSetProvider
    DataSet = qry4
    Constraints = True
    Left = 152
    Top = 176
  end
  object dsp5: TDataSetProvider
    DataSet = qry5
    Constraints = True
    Left = 192
    Top = 176
  end
  object dsp6: TDataSetProvider
    DataSet = qry6
    Constraints = True
    Left = 232
    Top = 176
  end
  object dsp7: TDataSetProvider
    DataSet = qry7
    Constraints = True
    Left = 272
    Top = 176
  end
  object dsp8: TDataSetProvider
    DataSet = qry8
    Constraints = True
    Left = 312
    Top = 176
  end
  object dsp9: TDataSetProvider
    DataSet = qry9
    Constraints = True
    Left = 352
    Top = 176
  end
  object dsp10: TDataSetProvider
    DataSet = qry10
    Constraints = True
    Left = 392
    Top = 176
  end
  object dsp11: TDataSetProvider
    DataSet = qry11
    Constraints = True
    Left = 432
    Top = 176
  end
  object dsp12: TDataSetProvider
    DataSet = qry12
    Constraints = True
    Left = 472
    Top = 176
  end
  object dsp13: TDataSetProvider
    DataSet = qry13
    Constraints = True
    Left = 512
    Top = 176
  end
  object dsp14: TDataSetProvider
    DataSet = qry14
    Constraints = True
    Left = 552
    Top = 176
  end
  object cds: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dsp1'
    Left = 32
    Top = 240
  end
  object CDS1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dsp1'
    Left = 72
    Top = 240
  end
end