ccb.dfm

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

object ccqk: Tccqk
  Left = 257
  Top = 136
  Width = 696
  Height = 486
  Caption = #36130#20135#24773#20917#34920
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 434
    Align = alClient
    TabOrder = 1
    object Label1: TLabel
      Left = 432
      Top = 16
      Width = 46
      Height = 13
      Caption = 'typename'
    end
    object Splitter1: TSplitter
      Left = 1
      Top = 229
      Width = 686
      Height = 3
      Cursor = crVSplit
      Align = alBottom
    end
    object Splitter2: TSplitter
      Left = 1
      Top = 158
      Width = 686
      Height = 2
      Cursor = crVSplit
      Align = alBottom
    end
    object DBMemo1: TDBMemo
      Left = 1
      Top = 160
      Width = 686
      Height = 69
      Align = alBottom
      DataField = 'remark'
      DataSource = DSccb
      TabOrder = 0
    end
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 686
      Height = 157
      Align = alClient
      DataSource = DSccb
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'id'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #32534#21495
          Width = 84
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'mc'
          Title.Caption = #21517#31216
          Width = 132
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'typename'
          Title.Caption = #31867#22411
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 137
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'money'
          Title.Caption = #20215#20540
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 209
          Visible = True
        end>
    end
    object DBGrid2: TDBGrid
      Left = 1
      Top = 232
      Width = 686
      Height = 201
      Align = alBottom
      DataSource = DataSource1
      TabOrder = 2
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'id'
          Title.Caption = #39034#24207#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fsrmc'
          Title.Caption = #21457#29983#20154#22995#21517
          Width = 69
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fslx'
          Title.Caption = #21457#29983#31867#22411
          Width = 51
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fssj'
          Title.Caption = #21457#29983#26102#38388
          Width = 90
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'content'
          Title.Caption = #20027#35201#20869#23481
          Width = 105
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'change'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'money'
          Title.Caption = #29616#37329
          Width = 137
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'cclx'
          Title.Caption = #36130#20135#31867#22411
          Width = 83
          Visible = True
        end>
    end
  end
  object DBNavigator1: TDBNavigator
    Left = 0
    Top = 434
    Width = 688
    Height = 25
    DataSource = DataSource1
    Align = alBottom
    TabOrder = 0
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\my_prog\delphi\h' +
      'ome\home.mdb;Persist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 32
    Top = 48
  end
  object ADOccb: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    AfterScroll = ADOccbAfterScroll
    TableName = 't_ccb'
    Left = 64
    Top = 48
    object ADOccbid: TIntegerField
      FieldName = 'id'
    end
    object ADOccbname: TIntegerField
      FieldName = 'name'
    end
    object ADOccbtype: TIntegerField
      FieldName = 'type'
    end
    object ADOccbmoney: TBCDField
      FieldName = 'money'
      Precision = 19
    end
    object ADOccbremark: TWideStringField
      FieldName = 'remark'
      Size = 255
    end
    object ADOccbmc: TStringField
      FieldKind = fkLookup
      FieldName = 'mc'
      LookupDataSet = ADOQmc
      LookupKeyFields = 'id'
      LookupResultField = 'name'
      KeyFields = 'name'
      Size = 250
      Lookup = True
    end
    object ADOccbtypename: TStringField
      FieldKind = fkLookup
      FieldName = 'typename'
      LookupDataSet = ADOlx
      LookupKeyFields = 'id'
      LookupResultField = 'name'
      KeyFields = 'type'
      Lookup = True
    end
  end
  object DSccb: TDataSource
    DataSet = ADOccb
    Left = 96
    Top = 48
  end
  object ADOQmc: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select id,name from t_code_detail where master_id = 1')
    Left = 96
    Top = 120
  end
  object ADOlx: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select id,name from t_code_detail where master_id = 4')
    Left = 128
    Top = 120
  end
  object ADOlsz: TADOQuery
    Connection = ADOConnection1
    Parameters = <
      item
        Name = 'type'
        Attributes = [paNullable]
        DataType = ftInteger
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from t_lsz where cclx = :type')
    Left = 120
    Top = 328
    object ADOlszid: TWideStringField
      FieldName = 'id'
      Size = 12
    end
    object ADOlszfssj: TDateTimeField
      FieldName = 'fssj'
    end
    object ADOlszfsr: TIntegerField
      FieldName = 'fsr'
    end
    object ADOlsztype: TIntegerField
      FieldName = 'type'
    end
    object ADOlszcontent: TWideStringField
      FieldName = 'content'
      Size = 250
    end
    object ADOlszchange: TBooleanField
      FieldName = 'change'
    end
    object ADOlszmoney: TBCDField
      FieldName = 'money'
      Precision = 19
    end
    object ADOlszcclx: TIntegerField
      FieldName = 'cclx'
    end
    object ADOlszfsrmc: TStringField
      FieldKind = fkLookup
      FieldName = 'fsrmc'
      LookupDataSet = ADOfsr
      LookupKeyFields = 'id'
      LookupResultField = 'name'
      KeyFields = 'fsr'
      Lookup = True
    end
    object ADOlszfslx: TStringField
      FieldKind = fkLookup
      FieldName = 'fslx'
      LookupDataSet = ADOfslx
      LookupKeyFields = 'id'
      LookupResultField = 'name'
      KeyFields = 'type'
      Lookup = True
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOlsz
    Left = 152
    Top = 328
  end
  object ADOfsr: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select id,name from t_code_detail where master_id = 2')
    Left = 336
    Top = 368
  end
  object ADOfslx: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select id,name from t_code_detail where master_id = 3')
    Left = 360
    Top = 368
  end
end