sftongji.dfm

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

object Form4: TForm4
  Left = 232
  Top = 153
  Width = 691
  Height = 463
  Caption = #25910#36153#32479#35745
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020000000000000A80800001600000028000000200000004000
    0000010008000000000080040000000000000000000000010000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C000C0DC
    C000F0CAA600D4F0FF00B1E2FF008ED4FF006BC6FF0048B8FF0025AAFF0000AA
    FF000092DC00007AB90000629600004A730000325000D4E3FF00B1C7FF008EAB
    FF006B8FFF004873FF002557FF000055FF000049DC00003DB900003196000025
    730000195000D4D4FF00B1B1FF008E8EFF006B6BFF004848FF002525FF000000
    FE000000DC000000B900000096000000730000005000E3D4FF00C7B1FF00AB8E
    FF008F6BFF007348FF005725FF005500FF004900DC003D00B900310096002500
    730019005000F0D4FF00E2B1FF00D48EFF00C66BFF00B848FF00AA25FF00AA00
    FF009200DC007A00B900620096004A00730032005000FFD4FF00FFB1FF00FF8E
    FF00FF6BFF00FF48FF00FF25FF00FE00FE00DC00DC00B900B900960096007300
    730050005000FFD4F000FFB1E200FF8ED400FF6BC600FF48B800FF25AA00FF00
    AA00DC009200B9007A009600620073004A0050003200FFD4E300FFB1C700FF8E
    AB00FF6B8F00FF487300FF255700FF005500DC004900B9003D00960031007300
    250050001900FFD4D400FFB1B100FF8E8E00FF6B6B00FF484800FF252500FE00
    0000DC000000B9000000960000007300000050000000FFE3D400FFC7B100FFAB
    8E00FF8F6B00FF734800FF572500FF550000DC490000B93D0000963100007325
    000050190000FFF0D400FFE2B100FFD48E00FFC66B00FFB84800FFAA2500FFAA
    0000DC920000B97A000096620000734A000050320000FFFFD400FFFFB100FFFF
    8E00FFFF6B00FFFF4800FFFF2500FEFE0000DCDC0000B9B90000969600007373
    000050500000F0FFD400E2FFB100D4FF8E00C6FF6B00B8FF4800AAFF2500AAFF
    000092DC00007AB90000629600004A73000032500000E3FFD400C7FFB100ABFF
    8E008FFF6B0073FF480057FF250055FF000049DC00003DB90000319600002573
    000019500000D4FFD400B1FFB1008EFF8E006BFF6B0048FF480025FF250000FE
    000000DC000000B90000009600000073000000500000D4FFE300B1FFC7008EFF
    AB006BFF8F0048FF730025FF570000FF550000DC490000B93D00009631000073
    250000501900D4FFF000B1FFE2008EFFD4006BFFC60048FFB80025FFAA0000FF
    AA0000DC920000B97A000096620000734A0000503200D4FFFF00B1FFFF008EFF
    FF006BFFFF0048FFFF0025FFFF0000FEFE0000DCDC0000B9B900009696000073
    730000505000F2F2F200E6E6E600DADADA00CECECE00C2C2C200B6B6B600AAAA
    AA009E9E9E0092929200868686007A7A7A006E6E6E0062626200565656004A4A
    4A003E3E3E0032323200262626001A1A1A000E0E0E00F0FBFF00A4A0A0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00C800
    00BD00001500000000BDBDBD00C8C1C1C1C1C1C1C1C1C1BCB0D5D5D5BCC1C800
    BD0000BDBDBD00000000BD0000C8C1C1C1C1C1C1C1C1C1C1BCD5B0BCC1C1C1C8
    0000BD00000000BDBDBD00BDC8C1C1C1C1C1C1C1C1C1C1C1BCB0B0BCC1C1C1C8
    000000BD00BDBD00BDBD0000C8C1C1C1C1C1C1C1C1C1C1C1C1B0BCC1C1C1C8C8
    BDBD0000BDBDBD00BD000000C8C8C1C1C1C1C1C1D5C1C1C1C1BCBCC1C1C1C800
    BDBD000015BD00BD000000BD00C8C1C1C1C1BCBCB0BCBCC1C1C1C1C1C1C1C1C8
    00BD00BDBD00BD00BD00BD00C8C1C1C1C1C1C1B0B0BCC1C1C1D5C1C1C1C1C1C8
    000000BD00BD00BDBD000000C8C1C1C1D5C1C1B0BCD5C1BCB0BCBCBCC1C1C1C1
    C8000000BDBD0000000000C8C1C1BCB0BCBCBCC1BCC1C1C1D5B0B0C1C1C1C1C1
    C8000000BD00BD0000BD00C8C1C1C1D5B0F2C1C1BCC1F6F6D5BCB0C1C1C1C1C8
    C8000000BDBD00BD00BD00C8C8C1C1BCB0B0F6F6F6F6F6F6F6BCC1C1C1D5C1C8
    0000BDBD0000BD0000BD0000C8C1C1C1BCC1F6F6F6F6F6F6F6BCC1BCD5D5F6F6
    C80000BDBDBDBD0000BD00C8C1C1C1C1BCF6F6F6F6F6F6F6F7F7C1C1BCB0F7F7
    C800000000BD0000000000C8C1C1F6F6F6F6F6F6F6F6F7F7F6C1C1C1BCBC8484
    F7BD00BD0000BDBD0000C8F6F6F6F6F6F6F6F6F6F7F7F6F6F6C1C1C1C1BC848E
    8EC800BD001500BD0000C8F6F6F6F6F6F6F6F6F7F6F6F6F6F6F6F6F6C1BC8484
    8E84C800BDBDBDBD00C8F6F6F6F6F6F6F6F7F7F6F6F6F6F6F6F6F6F6F6F68E8E
    8EC8BD00BD00BD0000C8C8F6F6F6F6F6F7F7F6F6F6F6F6F6F6F6F6F6F6F6848E
    8EC8000000BD0000BD00C8F6F6F6F6F784F7F6F6F6F6F6F6F6F6F6F6F6F6848E
    8E84C8BDBD00BD00BDC8F6F6F6F6F7848E84F7F6F6F6F6F6F6F6F6F6F6F68484
    8484C8BDBDBD0000BDC8F7F6F6F6F7848E8E8EF7F6F6F6F6F6F6F6F6F6F68484
    848484C8000000BDC88484F7F6F784848E8484F7F6F6F6F6F6F6F6F6F6F68484
    8484C8C800BD0000C8C8848EF78E8E8E8E8E8E8EF7F6F6F6F6F6F6F6F6F7F6FF
    8484C800BDBD00BD00C8848E8E8E84848484848E84F7F6F6F6F6F6F6F784F6FF
    FF8484C800001500C8848484848484848E8E848E8EF7F6F6F6F6F6F78484F6FF
    FF848484C80015C884848484FFFF8484848484848484F7F6F6F6F7848484F6FF
    FF848484C80015C884FFFFFFFFFFFFFFFF848E84848484F7F6F784848484F6FF
    8484848484C8C884FFFFFFFFFFFFFFFFFFFF848484848484F78484848484F6FF
    8484848484C8C8FFFFFFFFFFFFFFFFFFFF84848484848484848484FFFFF68484
    848484848484FFFFFFFFFFFFFFFFFFFFFF848484848484848484FFFFFFF68484
    84848484848484FFFFFFFFFFFFFFFF84848484848484848484FFFFFFFFF68484
    84848484848484848484848484848484848484848484848484F6F6F6F6F60000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object RadioGroup1: TRadioGroup
    Left = 9
    Top = 289
    Width = 344
    Height = 41
    Caption = #32479#35745#26465#20214
    Columns = 3
    ItemIndex = 0
    Items.Strings = (
      #25353#26085#26399' '
      #25353#25910#36153#20154#21495
      #25353#25910#36153#21333#25454#21495)
    TabOrder = 0
    OnClick = RadioGroup1Click
  end
  object BitBtn3: TBitBtn
    Left = 568
    Top = 384
    Width = 73
    Height = 23
    Caption = #20851#38381
    TabOrder = 1
    OnClick = BitBtn3Click
  end
  object GroupBox2: TGroupBox
    Left = 9
    Top = 334
    Width = 344
    Height = 89
    Caption = #35831#36755#20837
    TabOrder = 3
    object Label3: TLabel
      Left = 24
      Top = 23
      Width = 78
      Height = 12
      Caption = #36215#22987#26085#26399'     '
      Transparent = True
    end
    object Label4: TLabel
      Left = 24
      Top = 56
      Width = 60
      Height = 12
      Caption = #25130#27490#26085#26399'  '
      Transparent = True
    end
    object Edit3: TEdit
      Left = 104
      Top = 20
      Width = 121
      Height = 20
      Hint = #26085#26399#26684#24335'xxxx-xx-xx'
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object Edit4: TEdit
      Left = 104
      Top = 53
      Width = 121
      Height = 20
      Hint = #26085#26399#26684#24335'xxxx-xx-xx'
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
    end
    object BitBtn1: TBitBtn
      Left = 257
      Top = 52
      Width = 59
      Height = 22
      Caption = #32479#35745
      TabOrder = 2
      OnClick = BitBtn1Click
    end
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 243
    Width = 345
    Height = 44
    Caption = #32479#35745#32467#26524
    Color = clBtnFace
    ParentColor = False
    TabOrder = 2
    object Label1: TLabel
      Left = 24
      Top = 18
      Width = 54
      Height = 12
      Caption = #25910#36153#21512#35745' '
      Color = clBtnFace
      ParentColor = False
      Transparent = True
    end
    object Label2: TLabel
      Left = 177
      Top = 18
      Width = 36
      Height = 12
      Caption = #21333#25454#25968
      Transparent = True
    end
    object Edit1: TEdit
      Left = 80
      Top = 14
      Width = 73
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 242
      Top = 14
      Width = 75
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 1
    end
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 8
    Width = 345
    Height = 209
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    PopupMenu = PopupMenu1
    TabOrder = 4
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnKeyPress = DBGrid1KeyPress
    Columns = <
      item
        Expanded = False
        FieldName = 'djh'
        Title.Alignment = taCenter
        Title.Caption = #21333#25454#21495
        Width = 38
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sfrh'
        Title.Alignment = taCenter
        Title.Caption = #25910#36153#20154#21495
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'xh'
        Title.Alignment = taCenter
        Title.Caption = #23398#21495
        Width = 58
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ss'
        Title.Alignment = taCenter
        Title.Caption = #23454#25910#37329#39069
        Width = 53
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zf'
        PickList.Strings = (
          '')
        Title.Alignment = taCenter
        Title.Caption = #26159#21542#20316#24223
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sfrq'
        Title.Alignment = taCenter
        Title.Caption = #25910#36153#26085#26399
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zfrq'
        Title.Alignment = taCenter
        Title.Caption = #20316#24223#26085#26399
        Width = 55
        Visible = True
      end>
  end
  object DBGrid2: TDBGrid
    Left = 357
    Top = 8
    Width = 316
    Height = 321
    DataSource = DataSource2
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 5
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'djh'
        Title.Alignment = taCenter
        Title.Caption = #21333#25454#21495
        Width = 35
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fym'
        Title.Alignment = taCenter
        Title.Caption = #36153#29992#21517
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sj'
        Title.Alignment = taCenter
        Title.Caption = #23454#20132
        Width = 35
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'xh'
        Title.Alignment = taCenter
        Title.Caption = #23398#21495
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'nf'
        Title.Alignment = taCenter
        Title.Caption = #24180#20221
        Width = 30
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fyh'
        Title.Alignment = taCenter
        Title.Caption = #36153#29992#21495
        Width = 45
        Visible = True
      end>
  end
  object Button1: TButton
    Left = 408
    Top = 384
    Width = 81
    Height = 23
    Caption = #25171#21360#32479#35745#21333#25454
    TabOrder = 6
    OnClick = Button1Click
  end
  object CheckBox1: TCheckBox
    Left = 16
    Top = 221
    Width = 137
    Height = 17
    Caption = #26159#21542#21482#26174#31034#20316#24223#21333#25454'  '
    TabOrder = 7
    OnClick = CheckBox1Click
  end
  object CheckBox2: TCheckBox
    Left = 216
    Top = 221
    Width = 129
    Height = 17
    Caption = #26159#21542#21482#26174#31034#26377#25928#25968#25454
    TabOrder = 8
    OnClick = CheckBox2Click
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 48
    Top = 48
  end
  object ADOTable2: TADOTable
    Connection = DataModule1.ADOConnection1
    CursorType = ctStatic
    Filtered = True
    LockType = ltReadOnly
    IndexFieldNames = 'djh'
    MasterFields = 'djh'
    MasterSource = DataSource1
    TableName = 'djmx_b'
    Left = 368
    Top = 48
  end
  object DataSource2: TDataSource
    DataSet = ADOTable2
    Left = 400
    Top = 48
  end
  object ADOQuery1: TADOQuery
    Connection = DataModule1.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from dj_b')
    Left = 16
    Top = 48
  end
  object PopupMenu1: TPopupMenu
    Left = 80
    Top = 48
    object N1: TMenuItem
      Caption = #20316#24223#27492#21333#25454
      OnClick = N1Click
    end
  end
  object ADOTable1: TADOTable
    Connection = DataModule1.ADOConnection1
    CursorType = ctStatic
    TableName = 'student_b'
    Left = 368
    Top = 80
  end
  object DataSource3: TDataSource
    DataSet = ADOTable2
    Left = 400
    Top = 80
  end
  object DataSource4: TDataSource
    Left = 400
    Top = 112
  end
  object ADOQuery2: TADOQuery
    Connection = DataModule1.ADOConnection1
    Parameters = <>
    Left = 368
    Top = 112
  end
end