datebase.dfm

车辆保险管理系统主要是针对车辆保险业务管理流程而开发的一套先进的计算机管理系统。车辆保险管理系统是专为车辆保险业务员开发的一套应用软件

      item
        Name = 'Bptel'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'Papertel'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'Email'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'Url'
        DataType = ftString
        Size = 30
      end>
    IndexDefs = <
      item
        Name = 'PersonIndex'
        Fields = 'No'
        Options = [ixPrimary, ixUnique]
      end>
    StoreDefs = True
    TableName = 'person.DB'
    Left = 72
    Top = 336
    object tbl_personNo: TAutoIncField
      FieldName = 'No'
      ReadOnly = True
    end
    object tbl_personName: TStringField
      FieldName = 'Name'
      Size = 8
    end
    object tbl_personCompany: TStringField
      FieldName = 'Company'
      Size = 50
    end
    object tbl_personAddress: TStringField
      FieldName = 'Address'
      Size = 50
    end
    object tbl_personCompanytel: TStringField
      FieldName = 'Companytel'
      Size = 15
    end
    object tbl_personHometel: TStringField
      FieldName = 'Hometel'
      Size = 15
    end
    object tbl_personHandtel: TStringField
      FieldName = 'Handtel'
      Size = 15
    end
    object tbl_personBptel: TStringField
      FieldName = 'Bptel'
      Size = 15
    end
    object tbl_personPapertel: TStringField
      FieldName = 'Papertel'
      Size = 15
    end
    object tbl_personEmail: TStringField
      FieldName = 'Email'
      Size = 30
    end
    object tbl_personUrl: TStringField
      FieldName = 'Url'
      Size = 30
    end
  end
  object ds_person: TDataSource
    DataSet = tbl_person
    Left = 144
    Top = 336
  end
  object mydatabase: TDatabase
    AliasName = 'Foi'
    DatabaseName = 'foi'
    Exclusive = True
    KeepConnection = False
    SessionName = 'Default'
    Left = 112
    Top = 72
  end
  object qry_yewu: TQuery
    AutoRefresh = True
    DatabaseName = 'Foi'
    SessionName = 'Default'
    SQL.Strings = (
      'select * from car.db A,baodan.db B'
      'where A.Carnum=A.Carnum and A.Baodanno=B.Baodanno')
    Left = 240
    Top = 176
    object qry_yewuBaodanno: TStringField
      DisplayLabel = '保单号'
      FieldName = 'Baodanno'
    end
    object qry_yewuCarnum: TStringField
      DisplayLabel = '车牌号'
      FieldName = 'Carnum'
      Size = 10
    end
    object qry_yewuCarcharge_total: TCurrencyField
      DisplayLabel = '保险总额'
      FieldName = 'Carcharge_total'
    end
    object qry_yewuName: TStringField
      DisplayLabel = '联系人'
      FieldName = 'Name'
      Size = 8
    end
    object qry_yewuCarname: TStringField
      DisplayLabel = '车名'
      FieldName = 'Carname'
    end
    object qry_yewuCartype: TStringField
      DisplayLabel = '车型'
      FieldName = 'Cartype'
    end
    object qry_yewuEndyear: TIntegerField
      DisplayLabel = '到期年'
      FieldName = 'Endyear'
    end
    object qry_yewuEndmonth: TIntegerField
      DisplayLabel = '到期月'
      FieldName = 'Endmonth'
    end
    object qry_yewuEnddate: TIntegerField
      DisplayLabel = '到期日'
      FieldName = 'Enddate'
    end
  end
  object ds_yewu: TDataSource
    DataSet = qry_yewu
    Left = 312
    Top = 176
  end
  object qry_mingpian: TQuery
    DatabaseName = 'Foi'
    SQL.Strings = (
      'select * from person.db')
    Left = 240
    Top = 296
    object qry_mingpianName: TStringField
      DisplayLabel = '姓名'
      FieldName = 'Name'
      Size = 8
    end
    object qry_mingpianCompany: TStringField
      DisplayLabel = '公司名'
      FieldName = 'Company'
      Size = 50
    end
    object qry_mingpianAddress: TStringField
      DisplayLabel = '公司地址'
      FieldName = 'Address'
      Size = 50
    end
    object qry_mingpianCompanytel: TStringField
      DisplayLabel = '公司电话'
      FieldName = 'Companytel'
      Size = 15
    end
    object qry_mingpianHandtel: TStringField
      DisplayLabel = '手机'
      FieldName = 'Handtel'
      Size = 10
    end
  end
  object ds_mingping: TDataSource
    DataSet = qry_mingpian
    Left = 312
    Top = 296
  end
  object qry_lipei: TQuery
    DatabaseName = 'Foi'
    SQL.Strings = (
      'select * from lipei.db')
    Left = 240
    Top = 240
    object qry_lipeiLipeino: TStringField
      DisplayLabel = '理赔号'
      FieldName = 'Lipeino'
    end
    object qry_lipeiGive_object: TCurrencyField
      DisplayLabel = '物损额'
      FieldName = 'Give_object'
    end
    object qry_lipeiGive_person: TCurrencyField
      DisplayLabel = '人损额'
      FieldName = 'Give_person'
    end
    object qry_lipeiGive_car: TCurrencyField
      DisplayLabel = '车损额'
      FieldName = 'Give_car'
    end
    object qry_lipeiGive_total: TCurrencyField
      DisplayLabel = '理赔总额'
      FieldName = 'Give_total'
    end
    object qry_lipeiAccident_year: TSmallintField
      DisplayLabel = '年'
      FieldName = 'Accident_year'
    end
    object qry_lipeiAccident_month: TSmallintField
      DisplayLabel = '月'
      FieldName = 'Accident_month'
    end
    object qry_lipeiAccident_date: TSmallintField
      DisplayLabel = '日'
      FieldName = 'Accident_date'
    end
    object qry_lipeiEnd_flag: TStringField
      DisplayLabel = '处理结果'
      FieldName = 'End_flag'
      Size = 10
    end
  end
  object ds_lipeiqry: TDataSource
    DataSet = qry_lipei
    Left = 312
    Top = 240
  end
  object dc_yewu: TDecisionCube
    DataSet = dqry_yewu
    DimensionMap = <
      item
        ActiveFlag = diInactive
        FieldType = ftInteger
        Fieldname = 'Beginyear'
        BaseName = 'A.Beginyear'
        Name = '年份'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binNone
        ValueCount = 1
        Active = False
      end
      item
        ActiveFlag = diActive
        FieldType = ftInteger
        Fieldname = 'Beginmonth'
        BaseName = 'A.Beginmonth'
        Name = '月份'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binNone
        ValueCount = 0
        Active = True
      end
      item
        ActiveFlag = diInactive
        FieldType = ftCurrency
        Fieldname = 'Carcharge_total'
        BaseName = 'B.Carcharge_total'
        Name = 'Carcharge_total'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binNone
        ValueCount = -1
        Active = False
      end
      item
        ActiveFlag = diActive
        FieldType = ftCurrency
        Fieldname = 'SUM OF Carcharge_total'
        BaseName = 'B.Carcharge_total'
        Name = '月保险总额'
        DerivedFrom = -1
        DimensionType = dimSum
        BinType = binNone
        ValueCount = -1
        Active = True
      end>
    ShowProgressDialog = True
    MaxDimensions = 1
    MaxSummaries = 1
    MaxCells = 0
    Left = 432
    Top = 240
  end
  object dds_yewu: TDecisionSource
    DecisionCube = dc_yewu
    ControlType = xtCheck
    SparseRows = False
    SparseCols = False
    Left = 432
    Top = 296
    DimensionCount = 1
    SummaryCount = 1
    CurrentSummary = 0
    SparseRows = False
    SparseCols = False
    DimensionInfo = (
      2
      0
      1
      0
      0)
  end
  object dqry_yewu: TDecisionQuery
    DatabaseName = 'foi'
    SQL.Strings = (
      
        'SELECT A.Beginyear, A.Beginmonth, B.Carcharge_total, SUM( B.Carc' +
        'harge_total )'
      'FROM "baodan.db" A'
      '   INNER JOIN "car.db" B'
      '   ON  (A.Baodanno = B.Baodanno)  '
      'GROUP BY A.Beginyear, A.Beginmonth, B.Carcharge_total')
    Left = 432
    Top = 184
  end
  object dc_lipei: TDecisionCube
    DataSet = dqry_lipei
    DimensionMap = <
      item
        ActiveFlag = diInactive
        FieldType = ftSmallint
        Fieldname = 'Accident_year'
        BaseName = '"lipei.db".Accident_year'
        Name = 'Accident_year'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binNone
        ValueCount = 1
        Active = False
      end
      item
        ActiveFlag = diActive
        FieldType = ftSmallint
        Fieldname = 'Accident_month'
        BaseName = '"lipei.db".Accident_month'
        Name = '月份'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binNone
        ValueCount = 3
        Active = True
      end
      item
        ActiveFlag = diInactive
        FieldType = ftCurrency
        Fieldname = 'Give_total'
        BaseName = '"lipei.db".Give_total'
        Name = 'Give_total'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binNone
        ValueCount = 3
        Active = False
      end
      item
        ActiveFlag = diActive
        FieldType = ftCurrency
        Fieldname = 'SUM OF Give_total'
        BaseName = '"lipei.db".Give_total'
        Name = '月理赔总额'
        DerivedFrom = -1
        DimensionType = dimSum
        BinType = binNone
        ValueCount = -1
        Active = True
      end>
    ShowProgressDialog = True
    MaxDimensions = 2
    MaxSummaries = 1
    MaxCells = 9
    Left = 504
    Top = 240
  end
  object dds_lipei: TDecisionSource
    DecisionCube = dc_lipei
    ControlType = xtCheck
    SparseRows = False
    SparseCols = False
    Left = 504
    Top = 296
    DimensionCount = 1
    SummaryCount = 1
    CurrentSummary = 0
    SparseRows = False
    SparseCols = False
    DimensionInfo = (
      2
      0
      1
      0
      -1)
  end
  object dqry_lipei: TDecisionQuery
    DatabaseName = 'foi'
    SQL.Strings = (
      
        'SELECT Accident_year, Accident_month, Give_total, SUM( Give_tota' +
        'l )'
      'FROM "lipei.db"'
      'GROUP BY Accident_year, Accident_month, Give_total')
    Left = 504
    Top = 184
  end
  object Session1: TSession
    SessionName = 's1'
    Left = 136
    Top = 32
  end
end