dm.~dfm

1. 纯粹的合同管理,不涉及其它业务,独立成系统2. 简单明了,流程清析3. 合同条款可预定制4. 丰富强大的打印预览系统5. 实用的导入导出功能,可与excel交互使用6. 时刻追踪合同执行情况,包

object MyDM: TMyDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 260
  Top = 169
  Height = 462
  Width = 550
  object CustQuery: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Customer')
    Left = 168
    Top = 40
  end
  object CustSrc: TDataSource
    DataSet = CustQuery
    Left = 80
    Top = 40
  end
  object PolicyQuery: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Policy')
    Left = 168
    Top = 96
  end
  object PolicySrc: TDataSource
    DataSet = PolicyQuery
    Left = 80
    Top = 96
  end
  object BillQuery: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Bill')
    Left = 168
    Top = 152
  end
  object BillSrc: TDataSource
    DataSet = BillQuery
    Left = 80
    Top = 152
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Limis;Data Source=JUNX'
    Provider = 'SQLOLEDB.1'
    Left = 264
    Top = 24
  end
  object UserQuery: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Users')
    Left = 264
    Top = 128
  end
  object InsQuery: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Insurant')
    Left = 168
    Top = 216
  end
  object BeneQuery: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Beneficiary')
    Left = 168
    Top = 272
  end
  object BeneSrc: TDataSource
    DataSet = BeneQuery
    Left = 88
    Top = 216
  end
  object DataSource1: TDataSource
    Left = 88
    Top = 272
  end
  object ClassQuery: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Class')
    Left = 168
    Top = 328
  end
  object ClassSrc: TDataSource
    DataSet = ClassQuery
    Left = 88
    Top = 328
  end
  object Query: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select  a.Policy_ID,a.Policy_MOde,a.Policy_Money,a.Policy_Date,a' +
        '.Policy_Period,'
      '        b.*,c.*,d.*,e.*'
      
        '        from Policy as a,Customer as b,Insurant as c,Beneficiary' +
        ' as d,Class as e'
      ''
      'where   a.Policy_ID = '#39'bd00000001'#39' and '
      '        b.Cust_ID = a.Cust_ID and'
      '        c.Ins_ID = a.Ins_ID and'
      '        d.Bene_ID = a.Bene_ID and'
      '        e.Class_ID = a.Class_ID')
    Left = 296
    Top = 192
  end
  object ModeQuery: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from mode')
    Left = 256
    Top = 272
  end
  object ModeSrc: TDataSource
    DataSet = ModeQuery
    Left = 264
    Top = 328
  end
  object UserSrc: TDataSource
    DataSet = UserQuery
    Left = 328
    Top = 128
  end
  object InsSrc: TDataSource
    DataSet = InsQuery
    Left = 224
    Top = 216
  end
end