unit11.dfm

人寿保险的管理信息系统

object mydm: Tmydm
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 280
  Top = 207
  Height = 437
  Width = 731
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=ghyy'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 48
    Top = 8
  end
  object policyquery: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select*from policy')
    Left = 136
    Top = 112
  end
  object insquery: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select *from insurant')
    Left = 136
    Top = 166
  end
  object policysrc: TDataSource
    DataSet = policyquery
    Left = 48
    Top = 112
  end
  object inssrc: TDataSource
    DataSet = insquery
    Left = 48
    Top = 168
  end
  object query: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select a.*,b.*,c.*,d.* from policy as a,customer as b,insurant a' +
        's c,beneficiary as d'
      
        'where a.cust_id=b.cust_id and a.inst_id=c.inst_id and a.bene_id=' +
        'd.bene_id'
      '')
    Left = 136
    Top = 328
  end
  object DataSource1: TDataSource
    DataSet = query
    Left = 200
    Top = 270
  end
  object benesrc: TDataSource
    DataSet = beneQuery
    Left = 48
    Top = 216
  end
  object beneQuery: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select*from beneficiary')
    Left = 136
    Top = 216
  end
  object clasQuery: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select*from class')
    Left = 136
    Top = 272
  end
  object classrc: TDataSource
    DataSet = clasQuery
    Left = 48
    Top = 272
  end
  object userQuery: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select*from users')
    Left = 256
    Top = 68
  end
  object usersrc: TDataSource
    DataSet = userQuery
    Left = 48
    Top = 325
  end
  object cust1query: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select*from customer')
    Left = 136
    Top = 64
  end
  object cust1src: TDataSource
    DataSet = cust1query
    Left = 48
    Top = 64
  end
  object custquery: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select*from customer')
    Left = 200
    Top = 64
  end
  object custsrc: TDataSource
    DataSet = custquery
    Left = 200
    Top = 166
  end
  object billQuery: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select*from bill')
    Left = 200
    Top = 112
  end
  object Billsrc: TDataSource
    DataSet = billQuery
    Left = 200
    Top = 216
  end
  object fanQuery: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select*from fan')
    Left = 136
    Top = 16
  end
  object fansrc: TDataSource
    DataSet = fanQuery
    Left = 200
    Top = 16
  end
  object back: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 256
    Top = 16
  end
  object guo: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select*from guo')
    Left = 488
    Top = 96
  end
  object guosrc: TDataSource
    DataSet = guo
    Left = 200
    Top = 322
  end
  object find: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 488
    Top = 144
  end
  object jpQuery: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from jiaoper')
    Left = 336
    Top = 24
  end
  object jpsrc: TDataSource
    DataSet = jpQuery
    Left = 424
    Top = 24
  end
  object bpQuery: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from baoper')
    Left = 336
    Top = 80
  end
  object bpsrc: TDataSource
    DataSet = bpQuery
    Left = 424
    Top = 80
  end
  object reQuery: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from relation')
    Left = 336
    Top = 136
  end
  object resrc: TDataSource
    DataSet = reQuery
    Left = 424
    Top = 136
  end
  object empQuery: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from employee')
    Left = 336
    Top = 192
  end
  object empsrc: TDataSource
    DataSet = empQuery
    Left = 424
    Top = 192
  end
  object compQuery: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from compensation')
    Left = 336
    Top = 256
  end
  object compsrc: TDataSource
    DataSet = compQuery
    Left = 424
    Top = 256
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select a.*,cust_name,bene_name'
      'from policy as a,customer,beneficiary'
      
        'where a.cust_id=customer.cust_id and a.bene_id=beneficiary.bene_' +
        'id')
    Left = 336
    Top = 320
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery1
    Left = 432
    Top = 320
  end
  object comprepQuery: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select a.*,b.*,cust_name,bene_name'
      'from compensation as a,policy as b,customer,beneficiary'
      'where a.policy_id=b.policy_id and b.cust_id=customer.cust_id and'
      '      b.bene_id=beneficiary.bene_id')
    Left = 560
    Top = 16
  end
  object comprepsrc: TDataSource
    DataSet = comprepQuery
    Left = 632
    Top = 16
  end
  object comp1Query: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select a.*,cust_name,bene_name,policy_date'
      
        'from compensation as a,policy as b,customer as c,beneficiary as ' +
        'd'
      'where a.policy_id=b.policy_id and b.cust_id=c.cust_id and'
      '      b.bene_id=d.bene_id')
    Left = 568
    Top = 72
  end
  object comp1src: TDataSource
    DataSet = comp1Query
    Left = 632
    Top = 72
  end
  object baochaquery: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select policy_Id,Class_ID,Policy_Mode,Policy_Money,Policy_Date,'
      'Poli_valityDate,Policy_Period,Poli_jiaoper,Poli_status,'
      'Poli_operater,Cust_name,Inst_Name,Bene_Name'
      'from policy as a,customer as b,insurant as c,beneficiary as d'
      
        'where a.cust_id=b.cust_id and a.Inst_id=c.Inst_id and a.Bene_id=' +
        'd.Bene_id')
    Left = 560
    Top = 128
  end
  object baochasrc: TDataSource
    DataSet = baochaquery
    Left = 632
    Top = 144
  end
  object billsumQuery: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select sum(Bill_Money)from bill')
    Left = 560
    Top = 200
  end
  object billsumsrc: TDataSource
    DataSet = billsumQuery
    Left = 560
    Top = 272
  end
  object billbaoQuery: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select Policy_id, bill_id,sum(bill_money) from bill '
      'group by Policy_id')
    Left = 256
    Top = 128
  end
end