dmmain.dfm

一个不错的源程序DELPHI开发的,功能比较好的客户管理系统

object dm_main: Tdm_main
  OldCreateOrder = False
  Left = 210
  Top = 184
  Height = 477
  Width = 739
  object SGZLS: TDataSource
    Left = 904
    Top = 536
  end
  object Txtpzb: TTable
    DatabaseName = 'db_vipdl'
    TableName = 'T_S_SYS'
    Left = 80
    Top = 12
  end
  object Queryjtyh: TQuery
    DatabaseName = 'db_vipdl'
    SQL.Strings = (
      'select * from jtyh where jtyhdm=:dm')
    Left = 156
    Top = 20
    ParamData = <
      item
        DataType = ftInteger
        Name = 'dm'
        ParamType = ptInput
      end>
  end
  object QueryZZC: TQuery
    DatabaseName = 'db_vipdl'
    Left = 194
    Top = 24
  end
  object Query_Pub: TQuery
    DatabaseName = 'db_vipdl'
    Left = 236
    Top = 28
  end
  object Databasedh: TDatabase
    Connected = True
    DatabaseName = 'db_vipdl'
    DriverName = 'ORACLE'
    LoginPrompt = False
    Params.Strings = (
      'SERVER NAME=doone03'
      'USER NAME=fjvip'
      'PASSWORD=fjvip')
    SessionName = 'Default'
    Left = 27
    Top = 17
  end
end