unitmessagedbase.dfm

delphi写的基于server和client的聊天源码 有参考意义

object messagedbase: Tmessagedbase
  OldCreateOrder = False
  Left = 65532
  Top = 65532
  Height = 580
  Width = 808
  object AQmain: TADOQuery
    Connection = Dm.ADOConn
    Parameters = <>
    Left = 32
    Top = 13
  end
  object Aqmain1: TADOQuery
    Connection = Dm.ADOConn
    Parameters = <>
    Left = 104
    Top = 13
  end
  object Aqmain2: TADOQuery
    Connection = Dm.ADOConn
    Parameters = <>
    Left = 176
    Top = 13
  end
  object Aqmain3: TADOQuery
    Connection = Dm.ADOConn
    Parameters = <>
    Left = 248
    Top = 13
  end
  object DProbase: TDataSetProvider
    DataSet = AQbase
    Constraints = True
    ResolveToDataSet = True
    Left = 32
    Top = 109
  end
  object DProbase1: TDataSetProvider
    DataSet = Aqbase1
    Constraints = True
    Left = 104
    Top = 109
  end
  object AQbase: TADOQuery
    Connection = Dm.ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 32
    Top = 61
  end
  object Aqbase1: TADOQuery
    Connection = Dm.ADOConn
    Parameters = <>
    Left = 104
    Top = 61
  end
  object DPromain: TDataSetProvider
    Constraints = True
    Left = 328
    Top = 13
  end
  object aqlmgl: TADOQuery
    Connection = Dm.ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from manager order by lmno')
    Left = 32
    Top = 165
  end
  object dsplmgl: TDataSetProvider
    DataSet = aqlmgl
    Constraints = True
    Left = 32
    Top = 213
  end
  object aqmessage: TADOQuery
    Connection = Dm.ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from showmessage')
    Left = 96
    Top = 165
  end
  object dspmessage: TDataSetProvider
    DataSet = aqmessage
    Constraints = True
    Left = 96
    Top = 213
  end
  object dsplmmx: TDataSetProvider
    DataSet = aqlmmx
    Constraints = True
    Left = 168
    Top = 213
  end
  object aqlmmx: TADOQuery
    Connection = Dm.ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from lmmx order by id')
    Left = 168
    Top = 165
  end
end