datebase.dfm

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

object dm: Tdm
  OldCreateOrder = False
  Left = 33
  Top = 65530
  Height = 479
  Width = 741
  object tbl_baodan: TTable
    DatabaseName = 'Foi'
    Filtered = True
    SessionName = 'Default'
    FieldDefs = <
      item
        Name = 'Baodanno'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Name'
        DataType = ftString
        Size = 8
      end
      item
        Name = 'Beginyear'
        DataType = ftSmallint
      end
      item
        Name = 'Beginmonth'
        DataType = ftSmallint
      end
      item
        Name = 'Begindate'
        DataType = ftSmallint
      end
      item
        Name = 'Endyear'
        DataType = ftSmallint
      end
      item
        Name = 'Endmonth'
        DataType = ftSmallint
      end
      item
        Name = 'Enddate'
        DataType = ftSmallint
      end
      item
        Name = 'OldName'
        DataType = ftString
        Size = 8
      end>
    IndexDefs = <
      item
        Name = 'BaodannoIndex'
        Fields = 'Baodanno'
        Options = [ixPrimary, ixUnique]
      end>
    StoreDefs = True
    TableName = 'baodan.DB'
    Left = 72
    Top = 136
    object tbl_baodanBaodanno: TStringField
      FieldName = 'Baodanno'
    end
    object tbl_baodanName: TStringField
      FieldName = 'Name'
      Size = 8
    end
    object tbl_baodanBeginyear: TSmallintField
      FieldName = 'Beginyear'
    end
    object tbl_baodanBeginmonth: TSmallintField
      FieldName = 'Beginmonth'
    end
    object tbl_baodanBegindate: TSmallintField
      FieldName = 'Begindate'
    end
    object tbl_baodanEndyear: TSmallintField
      FieldName = 'Endyear'
    end
    object tbl_baodanEndmonth: TSmallintField
      FieldName = 'Endmonth'
    end
    object tbl_baodanEnddate: TSmallintField
      FieldName = 'Enddate'
    end
  end
  object ds_baodan: TDataSource
    DataSet = tbl_baodan
    Left = 144
    Top = 136
  end
  object tbl_car: TTable
    DatabaseName = 'Foi'
    SessionName = 'Default'
    FieldDefs = <
      item
        Name = 'Carno'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Carnum'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'Carname'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Cartype'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Carcharacter'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Carcharge_bad'
        DataType = ftCurrency
      end
      item
        Name = 'Carcharge_steal'
        DataType = ftCurrency
      end
      item
        Name = 'Carcharge_windows'
        DataType = ftCurrency
      end
      item
        Name = 'Carcharge_three'
        DataType = ftCurrency
      end
      item
        Name = 'Carcharge_else'
        DataType = ftCurrency
      end
      item
        Name = 'Carelse'
        DataType = ftString
        Size = 200
      end
      item
        Name = 'Baodanno'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Pidanno'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Carcharge_total'
        DataType = ftCurrency
      end
      item
        Name = 'Carcharge_profit'
        DataType = ftFloat
      end
      item
        Name = 'Carcharge_duty'
        DataType = ftCurrency
      end
      item
        Name = 'OldCarnum'
        DataType = ftString
        Size = 10
      end>
    IndexDefs = <
      item
        Name = 'tbl_carIndex1'
        Fields = 'Carno'
        Options = [ixPrimary, ixUnique]
      end
      item
        Name = 'Baodanno'
        Fields = 'Baodanno'
      end
      item
        Name = 'bycarnum'
        Fields = 'Carnum'
        Options = [ixCaseInsensitive]
      end>
    StoreDefs = True
    TableName = 'car.DB'
    Left = 72
    Top = 208
    object tbl_carBaodanno: TStringField
      FieldName = 'Baodanno'
    end
    object tbl_carCarno: TStringField
      FieldName = 'Carno'
    end
    object tbl_carCarnum: TStringField
      FieldName = 'Carnum'
      Size = 10
    end
    object tbl_carCarname: TStringField
      FieldName = 'Carname'
    end
    object tbl_carCartype: TStringField
      FieldName = 'Cartype'
    end
    object tbl_carCarcharacter: TStringField
      FieldName = 'Carcharacter'
    end
    object tbl_carCarcharge_bad: TCurrencyField
      FieldName = 'Carcharge_bad'
    end
    object tbl_carCarcharge_steal: TCurrencyField
      FieldName = 'Carcharge_steal'
    end
    object tbl_carCarcharge_windows: TCurrencyField
      FieldName = 'Carcharge_windows'
    end
    object tbl_carCarcharge_three: TCurrencyField
      FieldName = 'Carcharge_three'
    end
    object tbl_carCarcharge_else: TCurrencyField
      FieldName = 'Carcharge_else'
    end
    object tbl_carPidanno: TStringField
      FieldName = 'Pidanno'
    end
    object tbl_carCarcharge_total: TCurrencyField
      FieldName = 'Carcharge_total'
    end
    object tbl_carCarcharge_profit: TFloatField
      FieldName = 'Carcharge_profit'
    end
    object tbl_carCarcharge_duty: TCurrencyField
      FieldName = 'Carcharge_duty'
    end
    object tbl_carOldCarnum: TStringField
      FieldName = 'OldCarnum'
      Size = 10
    end
    object tbl_carCarelse: TStringField
      FieldName = 'Carelse'
      Size = 200
    end
  end
  object ds_car: TDataSource
    DataSet = tbl_car
    Left = 144
    Top = 208
  end
  object tbl_lipei: TTable
    DatabaseName = 'Foi'
    SessionName = 'Default'
    FieldDefs = <
      item
        Name = 'Lipeino'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Accident_spot'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Response'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'End_flag'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'Give_object'
        DataType = ftCurrency
      end
      item
        Name = 'Give_person'
        DataType = ftCurrency
      end
      item
        Name = 'Give_car'
        DataType = ftCurrency
      end
      item
        Name = 'Give_total'
        DataType = ftCurrency
      end
      item
        Name = 'Carno'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Accident_year'
        DataType = ftSmallint
      end
      item
        Name = 'Accident_month'
        DataType = ftSmallint
      end
      item
        Name = 'Accident_date'
        DataType = ftSmallint
      end
      item
        Name = 'Else'
        DataType = ftString
        Size = 250
      end>
    IndexDefs = <
      item
        Name = 'tbl_lipeiIndex1'
        Fields = 'Lipeino'
        Options = [ixPrimary, ixUnique]
      end
      item
        Name = 'Carno'
        Fields = 'Carno'
      end>
    StoreDefs = True
    TableName = 'lipei.DB'
    Left = 72
    Top = 272
    object tbl_lipeiLipeino: TStringField
      FieldName = 'Lipeino'
    end
    object tbl_lipeiAccident_spot: TStringField
      FieldName = 'Accident_spot'
    end
    object tbl_lipeiResponse: TStringField
      FieldName = 'Response'
      Size = 50
    end
    object tbl_lipeiEnd_flag: TStringField
      FieldName = 'End_flag'
      Size = 10
    end
    object tbl_lipeiGive_object: TCurrencyField
      FieldName = 'Give_object'
    end
    object tbl_lipeiGive_person: TCurrencyField
      FieldName = 'Give_person'
    end
    object tbl_lipeiGive_car: TCurrencyField
      FieldName = 'Give_car'
    end
    object tbl_lipeiGive_total: TCurrencyField
      FieldName = 'Give_total'
    end
    object tbl_lipeiCarno: TStringField
      FieldName = 'Carno'
    end
    object tbl_lipeiAccident_year: TSmallintField
      FieldName = 'Accident_year'
    end
    object tbl_lipeiAccident_month: TSmallintField
      FieldName = 'Accident_month'
    end
    object tbl_lipeiAccident_date: TSmallintField
      FieldName = 'Accident_date'
    end
    object tbl_lipeiElse: TStringField
      FieldName = 'Else'
      Size = 250
    end
  end
  object ds_lipei: TDataSource
    DataSet = tbl_lipei
    Left = 144
    Top = 264
  end
  object tbl_person: TTable
    DatabaseName = 'Foi'
    Filtered = True
    FieldDefs = <
      item
        Name = 'No'
        Attributes = [faReadonly]
        DataType = ftAutoInc
      end
      item
        Name = 'Name'
        DataType = ftString
        Size = 8
      end
      item
        Name = 'Company'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'Address'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'Companytel'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'Hometel'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'Handtel'
        DataType = ftString
        Size = 15
      end