count.dfm

一个简单的家庭财务管理软件。

object total: Ttotal
  Left = 452
  Top = 178
  Width = 696
  Height = 480
  Caption = #25910#20837#25903#20986#32479#35745#26597#35810
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 153
    Top = 0
    Width = 3
    Height = 453
    Cursor = crHSplit
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 153
    Height = 453
    Align = alLeft
    TabOrder = 0
    object Label1: TLabel
      Left = 23
      Top = 51
      Width = 48
      Height = 12
      Caption = #24320#22987#26102#38388
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 24
      Top = 112
      Width = 48
      Height = 12
      Caption = #32467#26463#26102#38388
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 23
      Top = 170
      Width = 24
      Height = 12
      Caption = #31867#22411
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DateTimePicker1: TDateTimePicker
      Left = 22
      Top = 72
      Width = 89
      Height = 21
      CalAlignment = dtaLeft
      Date = 38033.3895002778
      Time = 38033.3895002778
      DateFormat = dfShort
      DateMode = dmComboBox
      Enabled = False
      Kind = dtkDate
      ParseInput = False
      TabOrder = 0
    end
    object DateTimePicker2: TDateTimePicker
      Left = 23
      Top = 131
      Width = 89
      Height = 21
      CalAlignment = dtaLeft
      Date = 38033.3895002778
      Time = 38033.3895002778
      DateFormat = dfShort
      DateMode = dmComboBox
      Enabled = False
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
    end
    object Button1: TButton
      Left = 23
      Top = 272
      Width = 75
      Height = 25
      Caption = #32479#35745
      TabOrder = 2
      OnClick = Button1Click
    end
    object ListBox1: TListBox
      Left = 23
      Top = 192
      Width = 90
      Height = 41
      ItemHeight = 13
      Items.Strings = (
        #25910#20837
        #25903#20986)
      TabOrder = 3
    end
    object CheckBox1: TCheckBox
      Left = 24
      Top = 21
      Width = 97
      Height = 17
      Caption = #36873#25321#26102#38388#33539#22260
      TabOrder = 4
      OnClick = CheckBox1Click
    end
  end
  object DBChart1: TDBChart
    Left = 156
    Top = 0
    Width = 532
    Height = 453
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    Title.Text.Strings = (
      #25910#25903#32479#35745#20998#24067#22270)
    Align = alClient
    TabOrder = 1
    object Series1: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = True
      DataSource = ADOmain
      SeriesColor = clRed
      XLabelsSource = 'fsrxm'
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      XValues.ValueSource = 'fsr'
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1
      YValues.Order = loNone
      YValues.ValueSource = 'summoney'
    end
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=E:\my_p' +
      'rog\delphi\home\home.mdb;Persist Security Info=True'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 168
  end
  object ADOmain: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select sum(money) as summoney,fsr from t_lsz ')
    Left = 200
    object ADOmainsummoney: TBCDField
      FieldName = 'summoney'
      Precision = 19
    end
    object ADOmainfsr: TIntegerField
      FieldName = 'fsr'
    end
    object ADOmainfsrxm: TStringField
      FieldKind = fkLookup
      FieldName = 'fsrxm'
      LookupDataSet = ADOfsrxm
      LookupKeyFields = 'id'
      LookupResultField = 'name'
      KeyFields = 'fsr'
      Lookup = True
    end
  end
  object ADOfsrxm: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select id,name from t_code_detail'
      'where master_id =2 ')
    Left = 232
  end
end