u_punish.dfm

大学生综合素质及诚信管理系统可以满足管理人员和高级管理员两方面管理学生综合素质及诚信信息的需要。设计充分利用Delphi7、MS SQL Server2000数据库技术的强大力量

object f_punish: Tf_punish
  Left = 162
  Top = 91
  Width = 511
  Height = 436
  Caption = #22788#32602#24773#20917#36755#20837
  Color = clInactiveCaptionText
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 32
    Top = 192
    Width = 65
    Height = 13
    AutoSize = False
    Caption = #22788#32602#26085#26399#65306
  end
  object Label2: TLabel
    Left = 164
    Top = 192
    Width = 17
    Height = 13
    AutoSize = False
    Caption = #24180
  end
  object Label3: TLabel
    Left = 256
    Top = 192
    Width = 17
    Height = 13
    AutoSize = False
    Caption = #26376
  end
  object Label4: TLabel
    Left = 340
    Top = 192
    Width = 17
    Height = 13
    AutoSize = False
    Caption = #26085
  end
  object Label5: TLabel
    Left = 32
    Top = 216
    Width = 57
    Height = 13
    AutoSize = False
    Caption = #35814#32454#25551#36848':'
  end
  object Button2: TButton
    Left = 128
    Top = 365
    Width = 75
    Height = 25
    Caption = #28155#21152
    TabOrder = 7
    OnClick = Button2Click
  end
  object StaticText1: TStaticText
    Left = 40
    Top = 40
    Width = 55
    Height = 17
    Caption = #36755#20837#23398#21495':'
    TabOrder = 9
  end
  object Button1: TButton
    Left = 280
    Top = 365
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 8
    OnClick = Button1Click
  end
  object Edit1: TEdit
    Left = 100
    Top = 36
    Width = 121
    Height = 21
    Color = clInfoBk
    TabOrder = 0
  end
  object Memo1: TMemo
    Left = 32
    Top = 240
    Width = 441
    Height = 121
    Color = clInfoBk
    TabOrder = 6
  end
  object RadioGroup1: TRadioGroup
    Left = 24
    Top = 112
    Width = 465
    Height = 65
    Caption = #22788#32602#24773#20917
    Columns = 5
    Items.Strings = (
      #35686#21578
      #20005#37325#35686#21578
      #35760#36807
      #35760#22823#36807
      #24320#38500)
    TabOrder = 2
  end
  object ComboBox1: TComboBox
    Left = 88
    Top = 189
    Width = 73
    Height = 21
    Color = clInfoBk
    ItemHeight = 13
    TabOrder = 3
  end
  object ComboBox2: TComboBox
    Left = 178
    Top = 189
    Width = 71
    Height = 21
    Color = clInfoBk
    ItemHeight = 13
    TabOrder = 4
  end
  object ComboBox3: TComboBox
    Left = 272
    Top = 188
    Width = 65
    Height = 21
    Color = clInfoBk
    ItemHeight = 13
    TabOrder = 5
  end
  object GroupBox1: TGroupBox
    Left = 288
    Top = 8
    Width = 201
    Height = 105
    Caption = #23398#29983#22522#26412#24773#20917
    Color = clMoneyGreen
    ParentColor = False
    TabOrder = 10
    object StaticText3: TStaticText
      Left = 24
      Top = 24
      Width = 31
      Height = 17
      Caption = #22995#21517':'
      TabOrder = 0
    end
    object StaticText4: TStaticText
      Left = 24
      Top = 48
      Width = 31
      Height = 17
      Caption = #29677#32423':'
      TabOrder = 1
    end
    object StaticText5: TStaticText
      Left = 24
      Top = 72
      Width = 40
      Height = 17
      AutoSize = False
      Caption = #19987#19994#65306
      TabOrder = 2
    end
    object Edit2: TEdit
      Left = 53
      Top = 20
      Width = 121
      Height = 21
      Color = clInfoBk
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 3
    end
    object Edit3: TEdit
      Left = 53
      Top = 45
      Width = 121
      Height = 21
      Color = clInfoBk
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 4
    end
    object Edit4: TEdit
      Left = 54
      Top = 70
      Width = 121
      Height = 21
      Color = clInfoBk
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 5
    end
  end
  object BitBtn1: TBitBtn
    Left = 136
    Top = 72
    Width = 75
    Height = 25
    Caption = #30830#23450
    TabOrder = 1
    OnClick = BitBtn1Click
  end
  object ADOQuery1: TADOQuery
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Persist Se' +
      'curity Info=False'
    Parameters = <>
    Left = 240
    Top = 80
  end
end