config.dfm

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

object sys_config: Tsys_config
  Left = 280
  Top = 122
  Width = 667
  Height = 572
  Caption = #31995#32479#37197#32622
  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 Splitter1: TSplitter
    Left = 257
    Top = 0
    Width = 9
    Height = 516
    Cursor = crHSplit
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 257
    Height = 516
    Align = alLeft
    BiDiMode = bdRightToLeftNoAlign
    DataSource = DSMain
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    ParentBiDiMode = False
    ParentFont = False
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Alignment = taLeftJustify
        Expanded = False
        FieldName = 'id'
        ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152
        Title.Alignment = taCenter
        Title.Caption = #20027#34920#32534#21495
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'name'
        ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152
        Title.Alignment = taCenter
        Title.Caption = #21517#31216
        Width = 160
        Visible = True
      end>
  end
  object DBGrid2: TDBGrid
    Left = 266
    Top = 0
    Width = 393
    Height = 516
    Align = alClient
    DataSource = DSDetail
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnExit = DBGrid2Exit
    Columns = <
      item
        Expanded = False
        FieldName = 'id'
        Title.Caption = #32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'name'
        ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152
        Title.Caption = #21517#31216
        Visible = True
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 516
    Width = 659
    Height = 29
    Align = alBottom
    Caption = 'Panel1'
    TabOrder = 2
    object DBNavigator1: TDBNavigator
      Left = 1
      Top = 1
      Width = 240
      Height = 27
      DataSource = DSMain
      Align = alLeft
      TabOrder = 0
    end
    object DBNavigator2: TDBNavigator
      Left = 293
      Top = 2
      Width = 300
      Height = 25
      DataSource = DSDetail
      TabOrder = 1
    end
  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 = 32
  end
  object ADOmain: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    AfterScroll = ADOmainAfterScroll
    TableName = 't_code'
    Left = 64
    Top = 32
  end
  object ADOdetail: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    AfterInsert = ADOdetailAfterInsert
    TableName = 't_code_detail'
    Left = 432
    Top = 32
  end
  object DSMain: TDataSource
    DataSet = ADOmain
    Left = 104
    Top = 32
  end
  object DSDetail: TDataSource
    DataSet = ADOdetail
    Left = 472
    Top = 32
  end
end