u_sims.dfm

学籍管理系统这是我自己做的希望大家提供意见 密码在readme 内

          DataField = 'NAME'
          DataSource = DS_class
        end
        object DBText3: TDBText
          Left = 88
          Top = 127
          Width = 148
          Height = 13
          DataField = 'NAME'
          DataSource = DS_depart
        end
      end
      object MeDescrip1: TMemo
        Left = 16
        Top = 336
        Width = 753
        Height = 137
        ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152
        Lines.Strings = (
          'MeDescrip1')
        TabOrder = 2
      end
      object EdtID1: TEdit
        Left = 184
        Top = 88
        Width = 153
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152
        TabOrder = 3
        Text = 'EdtID1'
        OnChange = EdtID1Change
      end
      object Badd: TButton
        Left = 232
        Top = 496
        Width = 89
        Height = 33
        Caption = #28155'    '#21152
        TabOrder = 4
        OnClick = BaddClick
      end
      object Bcancel: TButton
        Left = 464
        Top = 496
        Width = 89
        Height = 33
        Caption = #24674'    '#22797
        TabOrder = 5
        OnClick = BcancelClick
      end
    end
    object TabSheet3: TTabSheet
      Caption = #22870#21169#24773#20917#36755#20837
      ImageIndex = 2
      OnShow = TabSheet3Show
      object Label9: TLabel
        Left = 24
        Top = 312
        Width = 60
        Height = 13
        AutoSize = False
        Caption = #20855#20307#25551#36848#65306
      end
      object Label10: TLabel
        Left = 112
        Top = 92
        Width = 60
        Height = 13
        AutoSize = False
        Caption = #36755#20837#23398#21495#65306
      end
      object RGReward: TRadioGroup
        Left = 16
        Top = 216
        Width = 753
        Height = 81
        Caption = #22870#21169#32423#21035
        Columns = 4
        ItemIndex = 0
        Items.Strings = (
          #38498#29305#31561#22870#23398#37329
          #38498#19968#31561#22870#23398#37329
          #38498#20108#31561#22870#23398#37329
          #38498#19977#31561#22870#23398#37329
          #31995#19968#31561#22870#23398#37329
          #31995#20108#31561#22870#23398#37329
          #31995#19977#31561#22870#23398#37329)
        TabOrder = 0
      end
      object GroupBox2: TGroupBox
        Left = 384
        Top = 14
        Width = 297
        Height = 185
        Caption = #23398#29983#22522#26412#24773#20917
        TabOrder = 1
        object Label6: TLabel
          Left = 27
          Top = 40
          Width = 48
          Height = 13
          Caption = #22995'    '#21517#65306
        end
        object Label7: TLabel
          Left = 27
          Top = 86
          Width = 48
          Height = 13
          Caption = #29677'    '#32423#65306
        end
        object Label8: TLabel
          Left = 27
          Top = 128
          Width = 48
          Height = 13
          Caption = #38498'    '#31995#65306
        end
        object DBText4: TDBText
          Left = 87
          Top = 41
          Width = 152
          Height = 13
          DataField = 'NAME'
          DataSource = DS_stud_info
        end
        object DBText5: TDBText
          Left = 88
          Top = 85
          Width = 152
          Height = 13
          DataField = 'NAME'
          DataSource = DS_class
        end
        object DBText6: TDBText
          Left = 88
          Top = 127
          Width = 152
          Height = 13
          DataField = 'NAME'
          DataSource = DS_depart
        end
      end
      object Medescrip2: TMemo
        Left = 16
        Top = 336
        Width = 753
        Height = 137
        ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152
        Lines.Strings = (
          'Memo1')
        TabOrder = 2
      end
      object EdtID2: TEdit
        Left = 184
        Top = 88
        Width = 153
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152
        TabOrder = 3
        Text = 'EdtID2'
        OnChange = EdtID2Change
      end
      object BaddR: TButton
        Left = 232
        Top = 496
        Width = 89
        Height = 33
        Caption = #28155'    '#21152
        TabOrder = 4
        OnClick = BaddRClick
      end
      object BCancelR: TButton
        Left = 464
        Top = 496
        Width = 89
        Height = 33
        Caption = #24674'    '#22797
        TabOrder = 5
        OnClick = BCancelRClick
      end
    end
    object TabSheet4: TTabSheet
      Caption = #22788#32602#24773#20917#36755#20837
      ImageIndex = 3
      OnShow = TabSheet4Show
      object Label14: TLabel
        Left = 24
        Top = 312
        Width = 60
        Height = 13
        AutoSize = False
        Caption = #20855#20307#25551#36848#65306
      end
      object Label15: TLabel
        Left = 112
        Top = 92
        Width = 60
        Height = 13
        AutoSize = False
        Caption = #36755#20837#23398#21495#65306
      end
      object RGPunish: TRadioGroup
        Left = 16
        Top = 216
        Width = 753
        Height = 81
        Caption = #22788#32602#31561#32423
        Columns = 5
        Items.Strings = (
          #35686#21578
          #20005#37325#35686#21578
          #35760#36807
          #35760#22823#36807
          #24320#38500)
        TabOrder = 0
      end
      object GroupBox3: TGroupBox
        Left = 384
        Top = 14
        Width = 297
        Height = 185
        Caption = #23398#29983#22522#26412#24773#20917
        TabOrder = 1
        object Label11: TLabel
          Left = 27
          Top = 40
          Width = 48
          Height = 13
          Caption = #22995'    '#21517#65306
        end
        object Label12: TLabel
          Left = 27
          Top = 86
          Width = 48
          Height = 13
          Caption = #29677'    '#32423#65306
        end
        object Label13: TLabel
          Left = 27
          Top = 128
          Width = 48
          Height = 13
          Caption = #38498'    '#31995#65306
        end
        object DBText7: TDBText
          Left = 88
          Top = 36
          Width = 162
          Height = 17
          DataField = 'NAME'
          DataSource = DS_stud_info
        end
        object DBText8: TDBText
          Left = 88
          Top = 85
          Width = 162
          Height = 17
          DataField = 'NAME'
          DataSource = DS_class
        end
        object DBText9: TDBText
          Left = 88
          Top = 127
          Width = 162
          Height = 17
          DataField = 'NAME'
          DataSource = DS_depart
        end
      end
      object Medescrip3: TMemo
        Left = 16
        Top = 336
        Width = 753
        Height = 137
        ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152
        Lines.Strings = (
          'Memo1')
        TabOrder = 2
      end
      object EdtID3: TEdit
        Left = 184
        Top = 88
        Width = 153
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152
        TabOrder = 3
        Text = 'EdtID3'
        OnChange = EdtID3Change
      end
      object BaddP: TButton
        Left = 232
        Top = 496
        Width = 89
        Height = 33
        Caption = #28155'    '#21152
        TabOrder = 4
        OnClick = BaddPClick
      end
      object BCancleP: TButton
        Left = 464
        Top = 496
        Width = 89
        Height = 33
        Caption = #24674'    '#22797
        TabOrder = 5
        OnClick = BCanclePClick
      end
    end
    object TabSheet5: TTabSheet
      Caption = #23398#29983#20010#20154#20449#24687#26597#35810#20462#25913
      ImageIndex = 4
      OnShow = TabSheet5Show
      object Label16: TLabel
        Left = 184
        Top = 16
        Width = 60
        Height = 13
        AutoSize = False
        Caption = #36755#20837#23398#21495#65306