wxp_dm.dfm

主要是介绍DELPHI三层应用以及分布式数据库的应用

object dm_wxp: Tdm_wxp
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 242
  Top = 243
  Height = 309
  Width = 602
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=zxjx'
    DefaultDatabase = 'zxjx'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 128
    Top = 116
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 128
    Top = 30
  end
  object Database1: TDatabase
    AliasName = 'zxjx'
    DatabaseName = 'zxjx'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=sa'
      'password=')
    SessionName = 'Default'
    Left = 34
    Top = 48
  end
  object Table_contract: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    AfterScroll = Table_contractAfterScroll
    Parameters = <>
    SQL.Strings = (
      'select * from pub_z_contract')
    Left = 430
    Top = 26
  end
  object Query_contract_machine: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx'
    RequestLive = True
    SQL.Strings = (
      'select * '
      'from pub_z_contract_machine '
      'where '#21512#21516#21495' = :hth'
      '')
    Left = 235
    Top = 201
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'hth'
        ParamType = ptUnknown
      end>
  end
  object ds_contract_machine: TDataSource
    DataSet = Query_contract_machine
    Left = 406
    Top = 147
  end
  object ds_contract_z: TDataSource
    DataSet = Table_contract
    Left = 197
    Top = 63
  end
  object ds_contract_money: TDataSource
    DataSet = Query_contract_money
    Left = 338
    Top = 68
  end
  object Query_contract_money: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx'
    RequestLive = True
    SQL.Strings = (
      'select * '
      'from pub_z_contract_payment_before'
      'where '#21512#21516#21495' = :hth')
    Left = 74
    Top = 220
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'hth'
        ParamType = ptUnknown
      end>
  end
end