input_lsz.dfm

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

object input: Tinput
  Left = 218
  Top = 186
  Width = 641
  Height = 465
  Caption = #27969#27700#24080#36755#20837#31383#21475
  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 = 633
    Height = 413
    Align = alClient
    TabOrder = 0
    object Label1: TLabel
      Left = 64
      Top = 59
      Width = 24
      Height = 12
      Caption = #32534#21495
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 64
      Top = 87
      Width = 48
      Height = 12
      Caption = #21457#29983#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 = 64
      Top = 222
      Width = 48
      Height = 12
      Caption = #20027#35201#20869#23481
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 64
      Top = 115
      Width = 36
      Height = 12
      Caption = #21457#29983#20154
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 64
      Top = 147
      Width = 48
      Height = 12
      Caption = #21457#29983#31867#22411
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 64
      Top = 176
      Width = 36
      Height = 12
      Caption = #21457#29983#39069
      FocusControl = DBEdmoney
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 64
      Top = 264
      Width = 48
      Height = 13
      Caption = #36130#20135#31867#22411
    end
    object DBEdid: TDBEdit
      Left = 136
      Top = 56
      Width = 121
      Height = 20
      DataField = 'id'
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object DBEdcontent: TDBEdit
      Left = 136
      Top = 219
      Width = 369
      Height = 20
      DataField = 'content'
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object DateTimePicker1: TDateTimePicker
      Left = 136
      Top = 83
      Width = 121
      Height = 21
      CalAlignment = dtaLeft
      Date = 38045
      Format = 'yyyyMMdd'
      Time = 38045
      DateFormat = dfLong
      DateMode = dmUpDown
      Kind = dtkDate
      ParseInput = False
      TabOrder = 2
    end
    object DBLookupCb1: TDBLookupComboBox
      Left = 136
      Top = 112
      Width = 105
      Height = 21
      DataField = 'fsrxm'
      DataSource = DataSource1
      TabOrder = 3
    end
    object DBLookupCb2: TDBLookupComboBox
      Left = 136
      Top = 144
      Width = 129
      Height = 21
      DataField = 'typename'
      DataSource = DataSource1
      TabOrder = 4
    end
    object DBEdmoney: TDBEdit
      Left = 136
      Top = 176
      Width = 264
      Height = 21
      DataField = 'money'
      DataSource = DataSource1
      TabOrder = 5
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 144
      Top = 256
      Width = 137
      Height = 21
      DataField = 'cclxmc'
      DataSource = DataSource1
      TabOrder = 6
    end
  end
  object DBNavigator1: TDBNavigator
    Left = 0
    Top = 413
    Width = 633
    Height = 25
    DataSource = DataSource1
    Align = alBottom
    TabOrder = 1
  end
  object ADOinput: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    AfterInsert = ADOinputAfterInsert
    BeforePost = ADOinputBeforePost
    AfterScroll = ADOinputAfterScroll
    TableDirect = True
    TableName = 't_lsz'
    Left = 80
    Top = 8
    object ADOinputid: TWideStringField
      FieldName = 'id'
      Size = 12
    end
    object ADOinputfssj: TDateTimeField
      FieldName = 'fssj'
    end
    object ADOinputcontent: TWideStringField
      FieldName = 'content'
      Size = 250
    end
    object ADOinputchange: TBooleanField
      FieldName = 'change'
    end
    object ADOinputfsrxm: TStringField
      FieldKind = fkLookup
      FieldName = 'fsrxm'
      LookupDataSet = ADOfsr
      LookupKeyFields = 'id'
      LookupResultField = 'name'
      KeyFields = 'fsr'
      Lookup = True
    end
    object ADOinputfsr: TIntegerField
      FieldName = 'fsr'
    end
    object ADOinputtype: TIntegerField
      FieldName = 'type'
    end
    object ADOinputtypename: TStringField
      FieldKind = fkLookup
      FieldName = 'typename'
      LookupDataSet = ADOfslx
      LookupKeyFields = 'id'
      LookupResultField = 'name'
      KeyFields = 'type'
      Lookup = True
    end
    object ADOinputmoney: TBCDField
      FieldName = 'money'
      Precision = 19
    end
    object ADOinputcclx: TIntegerField
      FieldName = 'cclx'
    end
    object ADOinputcclxmc: TStringField
      FieldKind = fkLookup
      FieldName = 'cclxmc'
      LookupDataSet = ADOQuerycclx
      LookupKeyFields = 'id'
      LookupResultField = 'name'
      KeyFields = 'cclx'
      Lookup = True
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOinput
    Left = 120
    Top = 8
  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 = 48
    Top = 8
  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 = 248
    Top = 112
  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 = 280
    Top = 136
  end
  object ADOQuerycclx: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select id,name from t_code_detail where master_id = 1')
    Left = 288
    Top = 256
  end
end