jiaofei.dfm

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

object cxjf: Tcxjf
  Left = 239
  Top = 178
  BorderStyle = bsSingle
  Caption = #26597#35810#20132#36153
  ClientHeight = 307
  ClientWidth = 521
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100001000400E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000011111111000000000000000000000091111119114400000000000
    009111D011111999991410000000000091119110111919999911910000000001
    1111D9D0911999999999990000000009119D9D90119999999999990000000091
    11D9D9D0199999999DD999000000009199999D9019999999DFD9990000000091
    999999D01999999DFFD999000000009119999D90999999DFDD99990000000019
    999999D90999999D999999000000001199999DDD0D999999999D901100000009
    9999DFFD9009D9D9D9D900111000000099999DD990000D9D9000D11119000000
    00999990000000000091919D1D0000000000000200000021D1D9D9D9D9D00000
    00000002000002011D9999999990000A00000002000220111999999D99900002
    AA00000200202000999999DFD990000A2A000002000200029999DDDD99900002
    AA00000200200202999DFFFD990000022AA00002022000029999DDD990000002
    2AA0000202002000099999900000000022A00000200200000000000000000000
    2A2A000400200000000000000000000002A20000400A00000000000000000000
    002A200402A2A2A000000000000000000000A0002A2A2A200000000000000000
    00000000000002AA00000000000000000000000000000000000000000000FFFF
    FFFFFFFE01FFFFF8007FFC10003FF000003FE000001FC000001F8000001F8000
    001F8000001F8000001F8000001F8000000F80000007C0000003E0020001F007
    8001DC0F8000CFCF0000C3CE0000C1CC4000C1CCC000C1C98001C0C98003C0C3
    3007E044781FE040FFFFF0001FFFF0000FFFF8200FFFFE2007FFFFFF83FF}
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 92
    Top = 277
    Width = 60
    Height = 12
    Caption = #35831#36873#25321#26465#20214
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object GroupBox2: TGroupBox
    Left = 344
    Top = 5
    Width = 169
    Height = 252
    Caption = #23398#29983#20132#36153#20449#24687
    TabOrder = 0
    object Label2: TLabel
      Left = 24
      Top = 27
      Width = 24
      Height = 12
      Caption = #23398#21495
      Transparent = True
    end
    object Label3: TLabel
      Left = 24
      Top = 59
      Width = 24
      Height = 12
      Caption = #22995#21517
      Transparent = True
    end
    object Label4: TLabel
      Left = 24
      Top = 91
      Width = 24
      Height = 12
      Caption = #29677#32423
      Transparent = True
    end
    object Label5: TLabel
      Left = 24
      Top = 123
      Width = 24
      Height = 12
      Caption = #24212#20132
      Transparent = True
    end
    object Label6: TLabel
      Left = 24
      Top = 155
      Width = 24
      Height = 12
      Caption = #23454#20132
      Transparent = True
    end
    object Label7: TLabel
      Left = 24
      Top = 187
      Width = 24
      Height = 12
      Caption = #27424#20132
      Transparent = True
    end
    object DBEdit1: TDBEdit
      Left = 56
      Top = 24
      Width = 90
      Height = 20
      DataField = 'xh'
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ReadOnly = True
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 56
      Top = 56
      Width = 90
      Height = 20
      DataField = 'xm'
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ReadOnly = True
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 56
      Top = 88
      Width = 90
      Height = 20
      DataField = 'bjm'
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ReadOnly = True
      TabOrder = 2
    end
    object DBEdit4: TDBEdit
      Left = 56
      Top = 120
      Width = 90
      Height = 20
      DataField = 'yj'
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ReadOnly = True
      TabOrder = 3
    end
    object DBEdit5: TDBEdit
      Left = 56
      Top = 152
      Width = 90
      Height = 20
      DataField = 'sj'
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ReadOnly = True
      TabOrder = 4
    end
    object DBEdit6: TDBEdit
      Left = 56
      Top = 184
      Width = 90
      Height = 20
      DataField = 'qj'
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ReadOnly = True
      TabOrder = 5
    end
  end
  object Edit1: TEdit
    Left = 155
    Top = 273
    Width = 78
    Height = 20
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 1
    OnKeyUp = Edit1KeyUp
  end
  object BitBtn1: TBitBtn
    Left = 254
    Top = 273
    Width = 60
    Height = 23
    Caption = #26597#35810
    TabOrder = 2
    OnClick = BitBtn1Click
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000120B0000120B00001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
      DADA000000000000000D0FFFFFF0FFFFFF0A0F700F00FFFFFF0D0F78000000FF
      FF0A0F780F00FF0FFF0D0F780FF0FFF0FF0A0F780FFFFFF0FF0D0F780FFFF000
      000A0F777FFFFF000F0D0F8FFFFFFFF0FF0A0F700F7000000F0D0F780F788888
      0F0A0F77787777777F0D0FFFFFFFFFFFFF0A000000000000000D}
  end
  object DBGrid1: TDBGrid
    Left = 6
    Top = 10
    Width = 331
    Height = 247
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 3
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGrid1CellClick
    Columns = <
      item
        Expanded = False
        FieldName = 'xh'
        Width = 58
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'xm'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'py'
        Width = 30
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'xb'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'bjm'
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'qj'
        Width = 46
        Visible = True
      end>
  end
  object Button1: TButton
    Left = 352
    Top = 273
    Width = 57
    Height = 23
    Caption = #20132#36153
    TabOrder = 4
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 436
    Top = 273
    Width = 57
    Height = 23
    Caption = #20851#38381
    TabOrder = 5
    OnClick = Button2Click
  end
  object ComboBox1: TComboBox
    Left = 16
    Top = 272
    Width = 65
    Height = 20
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ItemHeight = 12
    ItemIndex = 0
    TabOrder = 6
    Text = #25353#23398#21495
    Items.Strings = (
      #25353#23398#21495
      #25353#22995#21517
      #25353#25340#38899
      #25353#29677#32423)
  end
  object DataSource1: TDataSource
    DataSet = student_T
    Left = 46
    Top = 50
  end
  object student_T: TADOTable
    Connection = DataModule1.ADOConnection1
    CursorType = ctStatic
    TableName = 'student_b'
    Left = 14
    Top = 50
    object student_Txh: TWideStringField
      Alignment = taCenter
      DisplayLabel = #23398#21495
      DisplayWidth = 8
      FieldName = 'xh'
    end
    object student_Txm: TWideStringField
      Alignment = taCenter
      DisplayLabel = #22995#21517
      DisplayWidth = 8
      FieldName = 'xm'
      Size = 50
    end
    object student_Tpy: TWideStringField
      Alignment = taCenter
      DisplayLabel = #25340#38899
      DisplayWidth = 3
      FieldName = 'py'
      Size = 50
    end
    object student_Txb: TWideStringField
      Alignment = taCenter
      DisplayLabel = #24615#21035
      DisplayWidth = 3
      FieldName = 'xb'
      Size = 50
    end
    object student_Tbjm: TWideStringField
      Alignment = taCenter
      DisplayLabel = #29677#32423#21517
      DisplayWidth = 12
      FieldName = 'bjm'
      Size = 50
    end
    object student_Tyj: TIntegerField
      Alignment = taCenter
      DisplayLabel = #24212#20132
      DisplayWidth = 5
      FieldName = 'yj'
    end
    object student_Tsj: TIntegerField
      Alignment = taCenter
      DisplayLabel = #23454#20132
      DisplayWidth = 5
      FieldName = 'sj'
    end
    object student_Tqj: TIntegerField
      Alignment = taCenter
      DisplayLabel = #27424#20132
      DisplayWidth = 5
      FieldName = 'qj'
    end
  end
end