moudle.dfm

毕业论文选题系统,用Delphi编的,希望对大家有帮助

object MyDataModule: TMyDataModule
  OldCreateOrder = False
  Left = 199
  Top = 147
  Height = 198
  Width = 497
  object ADOConnectionSTU: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=yr2005;Persist Security Info=True;U' +
      'ser ID=sa;Initial Catalog=20062107022'#37036#20025';Data Source=XG-SERVER2;U' +
      'se Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;' +
      'Workstation ID=XXGL43;Use Encryption for Data=False;Tag with col' +
      'umn collation when possible=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'SQLOLEDB.1'
    Left = 48
    Top = 24
  end
  object ADOQuerySTU: TADOQuery
    Active = True
    Connection = ADOConnectionSTU
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from student order by sno;')
    Left = 144
    Top = 24
  end
  object ADOQuerySUB: TADOQuery
    Active = True
    Connection = ADOConnectionSTU
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from course order by cno;')
    Left = 224
    Top = 24
  end
  object ADOQueryM: TADOQuery
    Active = True
    Connection = ADOConnectionSTU
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from test;')
    Left = 312
    Top = 24
  end
  object ADOQueryC: TADOQuery
    Connection = ADOConnectionSTU
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from code;')
    Left = 392
    Top = 24
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = ADOConnectionSTU
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tcode;')
    Left = 40
    Top = 96
  end
  object DataSource1: TDataSource
    DataSet = ADOQuerySTU
    Left = 232
    Top = 96
  end
  object DataSource2: TDataSource
    DataSet = ADOQuerySUB
    Left = 296
    Top = 96
  end
  object DataSource3: TDataSource
    DataSet = ADOQueryg
    Left = 360
    Top = 96
  end
  object ADOQueryg: TADOQuery
    Active = True
    Connection = ADOConnectionSTU
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from xuanti')
    Left = 104
    Top = 96
  end
  object ADOQueryT: TADOQuery
    Active = True
    Connection = ADOConnectionSTU
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from teacher;')
    Left = 176
    Top = 96
  end
  object DataSource4: TDataSource
    DataSet = ADOQueryT
    Left = 432
    Top = 96
  end
end