frmdata.dfm

里面有个人一天消费管理

object dataFm: TdataFm
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Height = 530
  Width = 736
  object Connect_Data: TADOConnection
    KeepConnection = False
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 44
    Top = 20
  end
  object Tbl_Income: TADOTable
    Tag = 1
    Connection = Connect_Data
    CursorType = ctStatic
    TableName = 'income'
    Left = 128
    Top = 18
    object Tbl_IncomeId: TAutoIncField
      FieldName = 'Id'
      ReadOnly = True
    end
    object Tbl_Incomeriqi: TDateTimeField
      FieldName = 'riqi'
    end
    object Tbl_Incomerenyuan: TWideStringField
      FieldName = 'renyuan'
      Size = 10
    end
    object Tbl_Incomexiangmu: TWideStringField
      FieldName = 'xiangmu'
      Size = 50
    end
    object Tbl_Incomejine: TFloatField
      Alignment = taLeftJustify
      FieldName = 'jine'
    end
    object Tbl_Incomebeizhu: TWideStringField
      FieldName = 'beizhu'
      Size = 200
    end
  end
  object Tbl_Payout: TADOTable
    Tag = 1
    Connection = Connect_Data
    CursorType = ctStatic
    TableName = 'payout'
    Left = 430
    Top = 26
    object Tbl_PayoutId: TAutoIncField
      FieldName = 'Id'
      ReadOnly = True
    end
    object Tbl_Payoutriqi: TDateTimeField
      FieldName = 'riqi'
    end
    object Tbl_Payoutrenyuan: TWideStringField
      FieldName = 'renyuan'
      Size = 10
    end
    object Tbl_Payoutxiangmu: TWideStringField
      FieldName = 'xiangmu'
      Size = 50
    end
    object Tbl_Payoutjine: TFloatField
      Alignment = taLeftJustify
      FieldName = 'jine'
    end
    object Tbl_Payoutbeizhu: TWideStringField
      FieldName = 'beizhu'
      Size = 200
    end
  end
  object Tbl_Bank: TADOTable
    Tag = 1
    Connection = Connect_Data
    CursorType = ctStatic
    TableName = 'bank'
    Left = 656
    Top = 24
    object Tbl_BankId: TAutoIncField
      FieldName = 'Id'
      ReadOnly = True
    end
    object Tbl_Bankriqi: TDateTimeField
      FieldName = 'riqi'
    end
    object Tbl_Bankrenyuan: TWideStringField
      FieldName = 'renyuan'
      Size = 10
    end
    object Tbl_Bankkahao: TWideStringField
      FieldName = 'kahao'
      Size = 50
    end
    object Tbl_Bankxiangmu: TWideStringField
      FieldName = 'xiangmu'
      Size = 50
    end
    object Tbl_Bankjine: TFloatField
      Alignment = taLeftJustify
      FieldName = 'jine'
    end
    object Tbl_Bankbeizhu: TWideStringField
      FieldName = 'beizhu'
      Size = 200
    end
  end
  object Tbl_Income_Option: TADOTable
    Tag = 1
    Connection = Connect_Data
    CursorType = ctStatic
    TableName = 'Income_Option'
    Left = 74
    Top = 340
    object Tbl_Income_Optionxiangmu: TWideStringField
      FieldName = 'xiangmu'
      Size = 50
    end
    object Tbl_Income_Optiondisplay: TBooleanField
      FieldName = 'display'
    end
  end
  object Ds_Income_Option: TDataSource
    DataSet = Tbl_Income_Option
    Left = 80
    Top = 412
  end
  object Tbl_Payout_option: TADOTable
    Tag = 1
    Connection = Connect_Data
    CursorType = ctStatic
    TableName = 'Payout_Option'
    Left = 178
    Top = 340
    object Tbl_Payout_optionId: TAutoIncField
      FieldName = 'Id'
      ReadOnly = True
    end
    object Tbl_Payout_optionxiangmu: TWideStringField
      FieldName = 'xiangmu'
      Size = 50
    end
    object Tbl_Payout_optiondisplay: TBooleanField
      FieldName = 'display'
    end
  end
  object Ds_payout_option: TDataSource
    DataSet = Tbl_Payout_option
    Left = 182
    Top = 412
  end
  object Tbl_family_option: TADOTable
    Tag = 1
    Connection = Connect_Data
    CursorType = ctStatic
    TableName = 'family_Option'
    Left = 290
    Top = 342
  end
  object Ds_family_option: TDataSource
    DataSet = Tbl_family_option
    Left = 290
    Top = 410
  end
  object Ds_Bank_option: TDataSource
    DataSet = Tbl_Bank_Option
    Left = 386
    Top = 416
  end
  object Tbl_Bank_Option: TADOTable
    Tag = 1
    Connection = Connect_Data
    CursorType = ctStatic
    TableName = 'Bank_Option'
    Left = 386
    Top = 338
    object Tbl_Bank_OptionId: TAutoIncField
      FieldName = 'Id'
      ReadOnly = True
    end
    object Tbl_Bank_Optionyhmc: TWideStringField
      FieldName = 'yhmc'
      Size = 50
    end
    object Tbl_Bank_Optionkhr: TWideStringField
      FieldName = 'khr'
      Size = 10
    end
    object Tbl_Bank_Optionzh: TWideStringField
      FieldName = 'zh'
      Size = 50
    end
    object Tbl_Bank_Optionbz: TWideStringField
      FieldName = 'bz'
      Size = 100
    end
  end
  object Ds_Debt_Option: TDataSource
    DataSet = Tbl_Debt_Option
    Left = 484
    Top = 412
  end
  object Tbl_Debt_Option: TADOTable
    Tag = 1
    Connection = Connect_Data
    CursorType = ctStatic
    TableName = 'Debt_Option'
    Left = 480
    Top = 340
  end
  object Qry_income_stat_renyuan: TADOQuery
    Connection = Connect_Data
    Parameters = <>
    Left = 130
    Top = 130
  end
  object Ds_income: TDataSource
    DataSet = Tbl_Income
    Left = 130
    Top = 74
  end
  object Qry_income_stat_jine: TADOQuery
    Connection = Connect_Data
    Parameters = <>
    Left = 132
    Top = 188
  end
  object Ds_payout: TDataSource
    DataSet = Tbl_Payout
    Left = 432
    Top = 80
  end
  object Ds_bank: TDataSource
    DataSet = Tbl_Bank
    Left = 656
    Top = 80
  end
  object Qry_Income_Xiangmu: TADOQuery
    Connection = Connect_Data
    Parameters = <>
    Left = 80
    Top = 472
  end
  object Qry_Payout_Xiangmu: TADOQuery
    Connection = Connect_Data
    Parameters = <>
    Left = 192
    Top = 472
  end
  object Qry_Bank_Stat1: TADOQuery
    Connection = Connect_Data
    Parameters = <>
    Left = 656
    Top = 136
  end
  object Qry_Payout_stat1: TADOQuery
    Connection = Connect_Data
    Parameters = <>
    Left = 432
    Top = 144
  end
  object Qry_Payout_stat2: TADOQuery
    Connection = Connect_Data
    Parameters = <>
    Left = 432
    Top = 200
  end
  object Qry_Bank_Stat2: TADOQuery
    Connection = Connect_Data
    Parameters = <>
    Left = 656
    Top = 192
  end
  object Qry_income_stat3: TADOQuery
    Connection = Connect_Data
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 248
    Top = 16
    object Qry_income_stat3Id: TAutoIncField
      FieldName = 'Id'
      ReadOnly = True
    end
    object Qry_income_stat3riqi: TDateTimeField
      FieldName = 'riqi'
    end
    object Qry_income_stat3renyuan: TWideStringField
      FieldName = 'renyuan'
      Size = 10
    end
    object Qry_income_stat3xiangmu: TWideStringField
      FieldName = 'xiangmu'
      Size = 50
    end
    object Qry_income_stat3jine: TFloatField
      FieldName = 'jine'
      currency = True
    end
    object Qry_income_stat3beizhu: TWideStringField
      FieldName = 'beizhu'
      Size = 200
    end
  end
  object Qry_income_stat4: TADOQuery
    Connection = Connect_Data
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 256
    Top = 80
    object Qry_income_stat4Id: TAutoIncField
      FieldName = 'Id'
      ReadOnly = True
    end
    object Qry_income_stat4riqi: TDateTimeField
      FieldName = 'riqi'
    end
    object Qry_income_stat4renyuan: TWideStringField
      FieldName = 'renyuan'
      Size = 10
    end
    object Qry_income_stat4xiangmu: TWideStringField
      FieldName = 'xiangmu'
      Size = 50
    end
    object Qry_income_stat4jine: TFloatField
      FieldName = 'jine'
      currency = True
    end
    object Qry_income_stat4beizhu: TWideStringField
      FieldName = 'beizhu'
      Size = 200
    end
  end
  object Qry_Payout_stat3: TADOQuery
    Connection = Connect_Data
    Parameters = <>
    Left = 520
    Top = 24
  end
  object Qry_Payout_stat4: TADOQuery
    Connection = Connect_Data
    Parameters = <>
    Left = 512
    Top = 96
  end
  object QryIncomeData: TADOQuery
    Connection = Connect_Data
    Parameters = <>
    Left = 256
    Top = 136
  end
  object QryPayoutData: TADOQuery
    Connection = Connect_Data
    Parameters = <>
    Left = 520
    Top = 160
  end
  object DsIncomeData: TDataSource
    DataSet = QryIncomeData
    Left = 256
    Top = 192
  end
  object DsPayoutData: TDataSource
    DataSet = QryPayoutData
    Left = 520
    Top = 216
  end
  object DsBankList: TDataSource
    DataSet = QryBankList
    Left = 656
    Top = 312
  end
  object QryBankList: TADOQuery
    Connection = Connect_Data
    Parameters = <>
    Left = 656
    Top = 256
  end
end