datamodule.dfm

基于DELPHI的列车时刻查询系统设计与实现

object DataModule1: TDataModule1
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 192
  Top = 107
  Height = 480
  Width = 696
  object Conn: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data ' +
      'Source=E:\PROJECT\BookSystem\Student.mdb;Mode=Share Deny None;Ex' +
      'tended Properties="";Jet OLEDB:System database="";Jet OLEDB:Regi' +
      'stry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Typ' +
      'e=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial B' +
      'ulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Dat' +
      'abase Password="";Jet OLEDB:Create System Database=False;Jet OLE' +
      'DB:Encrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact' +
      '=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:' +
      'SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 48
    Top = 40
  end
  object qryExecsql: TADOQuery
    Connection = Conn
    Parameters = <>
    Left = 112
    Top = 112
  end
  object qrySelect: TADOQuery
    Connection = Conn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'SELECT Student.Num, Student.Birth, Student.Sex, Student.Address,' +
        ' Student.Post, Student.Phone, Student.Email, Student.Name AS Stu' +
        'dent_Name, Class.Name AS Class_Name, Department.Name AS Departme' +
        'nt_Name, Profess.Name AS Profess_Name '
      
        'FROM ((Department INNER JOIN Student ON Department.ID = Student.' +
        'DepID) INNER JOIN Profess ON Student.ProID = Profess.ID) INNER J' +
        'OIN Class ON Student.ClassID = Class.ID ')
    Left = 56
    Top = 112
  end
  object dsSelect: TDataSource
    DataSet = qrySelect
    Left = 176
    Top = 112
  end
  object qrySerchStudent: TADOQuery
    Connection = Conn
    Parameters = <>
    Left = 56
    Top = 200
  end
  object dsSerchStudent: TDataSource
    DataSet = qrySerchStudent
    Left = 112
    Top = 200
  end
end