daoru.dfm

一个简单的学生费用管理系统

object Form5: TForm5
  Left = 162
  Top = 26
  Width = 628
  Height = 502
  Caption = #23548#20837#36153#29992#34920#25968#25454
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100001000400E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000008
    8888888888888888787000000000000000878787878787888888870000000007
    880000000000000007888880000000F87888000000000000000078700000008F
    878803000000000000000708870008F8F878033000000000000000088880000F
    80000333000000000000000078700008F0BBB033300000000000000007070080
    80BBBB0333000000000000000008000000FBBBB0333000000000000000870000
    0B0FBBBB03330000000000000078000000B0FBBBB03330000000000000870000
    000B0FBBBB03330000000000008800000000B0FBBBB033300000000000780000
    00000B0FBBBB03330000000000800000000000B0FBBBB0333000000000800000
    0000000B0FBBBB03330000000000000000000000B0FBBBB03330000070000000
    000000000B0FBBBB03330000870000000000000000B0FBBBB033300000000000
    00000000000B0FBBBB03300000000000000000000000B0FBBBB0307000000000
    0000000000000B0FBBBB07700000000000000000000000B0FBB0777080000000
    000000000000000B0F07F708880000000000000000000000007F708888800000
    00000000000000000FF708888880000000000000000000000000788888800000
    0000000000000000000777888800000000000000000000000000777880000000
    00000000000000000000077F0000000000000000000000000000000000000000
    01FF0000003F00FFF81F803FFF1F801FFFA3800FFFE1C007FFF1C003FFFAC001
    FFFEE000FFFCF0007FFCF8003FFCFC001FFCFE000FFCFF0007FDFF8003FDFFC0
    01FFFFE000F7FFF00073FFF8003FFFFC001FFFFE000FFFFF0007FFFF8003FFFF
    C001FFFFE000FFFFF000FFFFF800FFFFFC01FFFFFE03FFFFFF07FFFFFF8F}
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object DBGrid1: TDBGrid
    Left = 6
    Top = 8
    Width = 603
    Height = 233
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'xh'
        Title.Caption = #23398#21495
        Width = 65
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'xm'
        Title.Caption = #22995#21517
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fyh'
        Title.Caption = #36153#29992#21495
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fym'
        Title.Caption = #36153#29992#21517
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'yj'
        Title.Caption = #24212#20132#37329#39069
        Width = 65
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sj'
        Title.Caption = #23454#20132#37329#39069
        Width = 65
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'qj'
        Title.Caption = #27424#20132#37329#39069
        Width = 65
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sfrh'
        Title.Caption = #25910#36153#20154#21495
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'nf'
        Title.Caption = #24180#20221
        Width = 45
        Visible = True
      end>
  end
  object BitBtn1: TBitBtn
    Left = 416
    Top = 440
    Width = 65
    Height = 23
    Caption = #23548#20837
    TabOrder = 1
    OnClick = BitBtn1Click
    Glyph.Data = {
      66010000424D6601000000000000760000002800000014000000140000000100
      040000000000F0000000130B0000130B00001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
      FFFFFFFFC0C0FFFFFFFFFFFFFFFFFFFFC0C0FFFFFFFFFFFFFFFFFFFFC0C0FFFF
      F0F0F0F0FFFFFFFFC0C0FFFFFFFFFFF00FFFFFFFC0C0FFFFFFFFFFF000FFFFFF
      C0C0FFF000000000B70FFFFFC0C0FFF0FFFFFFF0B80FFFFFC0C0FFF0F00F00F0
      0B70FFFFC0C0FFF0FFFFFFFF0B80FFFFC0C0FFF0CCCCCCCCC0B70FFFC0C0FFFF
      CFFFFFFFF0B00FFFC0C0FFFFCF00F00F000110FFC0C0FFFFCFFFFFFFFF000FFF
      C0C0FFFFCCCCCCCCCCCCFFFFC0C0FFFFC8CC8CC8CC8CFFFFC0C0FFFFCCCCCCCC
      CCCCFFFFC0C0FFFFFFFFFFFFFFFFFFFFC0C0FFFFFFFFFFFFFFFFFFFFC0C0FFFF
      FFFFFFFFFFFFFFFFC0C0}
  end
  object BitBtn2: TBitBtn
    Left = 530
    Top = 440
    Width = 65
    Height = 23
    Caption = #20851#38381
    TabOrder = 2
    OnClick = BitBtn2Click
    Glyph.Data = {
      06030000424D060300000000000036000000280000000F0000000F0000000100
      180000000000D0020000120B0000120B00000000000000000000BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBF000000BFBFBFBFBFBF181818181818BFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBF181818181818BFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF
      181818181818181818BFBFBFBFBFBFBFBFBFBFBFBF181818181818181818BFBF
      BFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBF181818181818181818BFBFBFBF
      BFBF181818181818181818BFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF
      BFBFBFBFBFBF181818181818181818181818181818181818BFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF18181800000000
      0000181818BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF181818000000000000181818BFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBF18181818181818181818
      1818181818181818BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF
      BFBFBF181818181818181818BFBFBFBFBFBF181818181818181818BFBFBFBFBF
      BFBFBFBFBFBFBF000000BFBFBFBFBFBF181818181818181818BFBFBFBFBFBFBF
      BFBFBFBFBF181818181818181818BFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF
      181818181818BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF181818181818BFBF
      BFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBF000000}
  end
  object GroupBox1: TGroupBox
    Left = 380
    Top = 244
    Width = 229
    Height = 185
    Caption = #36873#25321#38656#23548#20837#30340#34920
    TabOrder = 3
    object Label1: TLabel
      Left = 152
      Top = 112
      Width = 66
      Height = 12
      Caption = ' '#35831#36873#25321#34920'  '
      Transparent = True
    end
    object Button1: TButton
      Left = 150
      Top = 140
      Width = 75
      Height = 23
      Caption = #36873#25321#25968#25454#24211
      TabOrder = 0
      OnClick = Button1Click
    end
    object Edit1: TEdit
      Left = 14
      Top = 142
      Width = 121
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 1
    end
    object ListBox1: TListBox
      Left = 14
      Top = 16
      Width = 121
      Height = 113
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 12
      TabOrder = 2
      OnDblClick = ListBox1DblClick
    end
  end
  object DBGrid2: TDBGrid
    Left = 6
    Top = 248
    Width = 369
    Height = 217
    DataSource = DataSource2
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ReadOnly = True
    TabOrder = 4
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 320
    Top = 48
  end
  object ADOTable1: TADOTable
    Connection = DataModule1.ADOConnection1
    CursorType = ctStatic
    TableName = 'fy_b'
    Left = 256
    Top = 48
  end
  object open_database: TOpenDialog
    Filter = 'Access'#25968#25454#24211'|*.mdb'
    Left = 400
    Top = 272
  end
  object ADOTable2: TADOTable
    Connection = ADOConnection1
    Left = 304
    Top = 272
  end
  object DataSource2: TDataSource
    DataSet = ADOTable2
    Left = 336
    Top = 272
  end
  object ADOConnection1: TADOConnection
    LoginPrompt = False
    Left = 272
    Top = 272
  end
  object ADOQuery1: TADOQuery
    Connection = DataModule1.ADOConnection1
    Parameters = <>
    Left = 288
    Top = 48
  end
end