datamodule.dfm

实用的茶楼管理系统

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 273
  Top = 172
  Height = 340
  Width = 603
  object AdoConn: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\canyin\canyin\cy' +
      '.mdb;Persist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 24
    Top = 8
  end
  object queMenu: TADOQuery
    Connection = AdoConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from menu')
    Left = 24
    Top = 96
  end
  object Que: TADOQuery
    Connection = AdoConn
    Parameters = <>
    Left = 96
    Top = 8
  end
  object queTable: TADOQuery
    Connection = AdoConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from cTable')
    Left = 96
    Top = 96
  end
  object queDetail: TADOQuery
    Connection = AdoConn
    CursorType = ctStatic
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      
        'select tOrderDetail.ID,tOrderDetail.MenuID,Menu.Name, Menu.Price' +
        ',tOrder.cdate,torder.ctime '
      'from Menu ,tOrderDetail,torder'
      'where (Menu.ID=tOrderDetail.MenuID) and '
      
        'tOrderDetail.cTableID='#39'006'#39' and (tOrder.cTableID=tOrderDetail.cT' +
        'ableID) order by tOrderDetail.MenuID')
    Left = 168
    Top = 96
  end
  object queCOrder: TADOQuery
    Connection = AdoConn
    Parameters = <>
    Left = 232
    Top = 96
  end
end