punish.dfm

Delphi+SQL的学生信息管理系统

object frmpunish: Tfrmpunish
  Left = 29
  Top = 211
  Width = 649
  Height = 472
  Caption = #22788#32602#24773#20917#35760#24405#31383#20307
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 249
    Height = 441
    DataSource = dspunish
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'PID'
        Title.Alignment = taCenter
        Title.Caption = #35760#24405#21495
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'punish'
        Title.Alignment = taCenter
        Title.Caption = #22788#32602#31867#22411
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'recdate'
        Title.Alignment = taCenter
        Title.Caption = #35760#24405#26085#26399
        Visible = True
      end>
  end
  object Panel1: TPanel
    Left = 249
    Top = 1
    Width = 187
    Height = 184
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 29
      Width = 54
      Height = 13
      Caption = #35760#24405#21495#65306'  '
    end
    object Label2: TLabel
      Left = 16
      Top = 67
      Width = 51
      Height = 13
      Caption = ' '#23398'  '#21495#65306'  '
    end
    object Label3: TLabel
      Left = 16
      Top = 104
      Width = 63
      Height = 13
      Caption = #35760#24405#26085#26399#65306' '
    end
    object dbepid: TDBEdit
      Left = 67
      Top = 24
      Width = 105
      Height = 21
      DataField = 'PID'
      DataSource = dspunish
      TabOrder = 0
      OnKeyDown = dbepidKeyDown
    end
    object DBEstudentID: TDBEdit
      Left = 68
      Top = 64
      Width = 105
      Height = 21
      DataField = 'studentID'
      DataSource = dspunish
      TabOrder = 1
    end
    object DBErecdate: TDBEdit
      Left = 76
      Top = 99
      Width = 97
      Height = 21
      DataField = 'recdate'
      DataSource = dspunish
      TabOrder = 2
    end
    object Button1: TButton
      Left = 40
      Top = 136
      Width = 75
      Height = 25
      Caption = #36864#20986
      TabOrder = 3
    end
  end
  object DBNpunish: TDBNavigator
    Left = 269
    Top = 196
    Width = 340
    Height = 25
    DataSource = dspunish
    ConfirmDelete = False
    TabOrder = 2
    OnClick = DBNpunishClick
  end
  object DBRGpunish: TDBRadioGroup
    Left = 255
    Top = 225
    Width = 377
    Height = 97
    Caption = #22788#32602#31867#22411
    Columns = 3
    DataField = 'punish'
    DataSource = dspunish
    Items.Strings = (
      #35686#21578
      #20005#37325#35686#21578
      #35760#36807
      #35760#22823#36807
      #24320#38500#23398#31821)
    TabOrder = 3
    Values.Strings = (
      #35686#21578
      #20005#37325#35686#21578
      #35760#36807
      #35760#22823#36807
      #24320#38500#23398#31821)
  end
  object DBMdesc: TDBMemo
    Left = 255
    Top = 329
    Width = 377
    Height = 112
    DataField = 'description'
    DataSource = dspunish
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 4
  end
  object GroupBox1: TGroupBox
    Left = 435
    Top = 0
    Width = 201
    Height = 185
    Caption = #23398#29983#22522#26412#20449#24687
    TabOrder = 5
    object DBTname: TDBText
      Left = 72
      Top = 24
      Width = 113
      Height = 17
      Color = clGradientActiveCaption
      DataField = 'name'
      DataSource = dsstudent
      ParentColor = False
    end
    object Label4: TLabel
      Left = 24
      Top = 24
      Width = 42
      Height = 13
      Caption = #22995#21517#65306'  '
    end
    object Label5: TLabel
      Left = 24
      Top = 48
      Width = 42
      Height = 13
      Caption = #24615#21035#65306'  '
    end
    object Label6: TLabel
      Left = 24
      Top = 80
      Width = 60
      Height = 13
      Caption = #20986#29983#26085#26399#65306
    end
    object Label7: TLabel
      Left = 24
      Top = 112
      Width = 63
      Height = 13
      Caption = #25152#23646#29677#32423#65306' '
    end
    object Label8: TLabel
      Left = 24
      Top = 144
      Width = 54
      Height = 13
      Caption = #29677#20027#20219#65306'  '
    end
    object DBTsex: TDBText
      Left = 72
      Top = 48
      Width = 113
      Height = 17
      Color = clGradientActiveCaption
      DataField = 'sex'
      DataSource = dsstudent
      ParentColor = False
    end
    object DBTbirthday: TDBText
      Left = 88
      Top = 80
      Width = 97
      Height = 17
      Color = clGradientActiveCaption
      DataField = 'birthday'
      DataSource = dsstudent
      ParentColor = False
    end
    object DBTclass: TDBText
      Left = 88
      Top = 112
      Width = 97
      Height = 17
      Color = clGradientActiveCaption
      DataField = 'classname'
      DataSource = dsclass
      ParentColor = False
    end
    object DBTmaster: TDBText
      Left = 80
      Top = 144
      Width = 105
      Height = 17
      Color = clGradientActiveCaption
      DataField = 'master'
      DataSource = dsclass
      ParentColor = False
    end
  end
  object tblpunish: TTable
    BeforeDelete = tblpunishBeforeDelete
    AfterScroll = tblpunishAfterScroll
    DatabaseName = 'stud'
    TableName = 'dbo.punish'
    Left = 32
    Top = 72
  end
  object tblstudent: TTable
    DatabaseName = 'stud'
    IndexFieldNames = 'studentID'
    MasterFields = 'studentID'
    MasterSource = dspunish
    TableName = 'dbo.student'
    Left = 24
    Top = 136
  end
  object tblclass: TTable
    DatabaseName = 'stud'
    IndexFieldNames = 'classID'
    MasterFields = 'classID'
    MasterSource = dsstudent
    TableName = 'dbo.class'
    Left = 24
    Top = 208
  end
  object dspunish: TDataSource
    DataSet = tblpunish
    Left = 88
    Top = 72
  end
  object dsstudent: TDataSource
    DataSet = tblstudent
    Left = 88
    Top = 136
  end
  object dsclass: TDataSource
    DataSet = tblclass
    Left = 88
    Top = 208
  end
  object Query1: TQuery
    DatabaseName = 'stud'
    Left = 152
    Top = 88
  end
end