score.dfm

网络版的学生成绩管理系统

object f_score: Tf_score
  Left = -112
  Top = 105
  Width = 760
  Height = 528
  Caption = #25104#32489#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Label4: TLabel
    Left = 496
    Top = 193
    Width = 48
    Height = 16
    Caption = #20998#25968#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 496
    Top = 65
    Width = 48
    Height = 16
    Caption = #23398#21495#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 496
    Top = 97
    Width = 48
    Height = 16
    Caption = #22995#21517#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 496
    Top = 129
    Width = 48
    Height = 16
    Caption = #24615#21035#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel
    Left = 496
    Top = 161
    Width = 48
    Height = 16
    Caption = #19987#19994#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 752
    Height = 41
    Align = alTop
    TabOrder = 0
    object Label8: TLabel
      Left = 16
      Top = 9
      Width = 48
      Height = 16
      Caption = #38498#31995#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 152
      Top = 9
      Width = 48
      Height = 16
      Caption = #25945#24072#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 328
      Top = 9
      Width = 48
      Height = 16
      Caption = #35838#31243#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Btnqry: TButton
      Left = 504
      Top = 8
      Width = 75
      Height = 25
      Caption = #26597#35810
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = BtnqryClick
    end
    object Cmbdepart: TComboBox
      Left = 64
      Top = 8
      Width = 81
      Height = 21
      ItemHeight = 13
      TabOrder = 1
      Text = #20449#24687#31995
      OnChange = CmbdepartChange
      Items.Strings = (
        #20449#24687#31995
        #35745#31639#26426#31995
        #31649#29702#31995)
    end
    object Cmbteacher: TComboBox
      Left = 200
      Top = 8
      Width = 121
      Height = 21
      ItemHeight = 13
      TabOrder = 2
      OnChange = CmbteacherChange
    end
    object Cmbcourse: TComboBox
      Left = 368
      Top = 8
      Width = 121
      Height = 21
      ItemHeight = 13
      TabOrder = 3
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 41
    Width = 473
    Height = 460
    Align = alLeft
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Btnscore: TButton
    Left = 504
    Top = 248
    Width = 75
    Height = 25
    Caption = #25104#32489#32479#35745
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = BtnscoreClick
  end
  object Memo1: TMemo
    Left = 504
    Top = 280
    Width = 217
    Height = 193
    Lines.Strings = (
      '')
    TabOrder = 3
  end
  object Edit1: TEdit
    Left = 544
    Top = 184
    Width = 73
    Height = 28
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
  end
  object Btnchange: TButton
    Left = 624
    Top = 189
    Width = 73
    Height = 25
    Caption = #20462#25913#20998#25968
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = BtnchangeClick
  end
  object DBEdit1: TDBEdit
    Left = 544
    Top = 56
    Width = 121
    Height = 28
    DataField = 'studentno'
    DataSource = DataSource2
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
  end
  object DBEdit2: TDBEdit
    Left = 544
    Top = 88
    Width = 121
    Height = 28
    DataField = 'name'
    DataSource = DataSource2
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
  end
  object DBEdit3: TDBEdit
    Left = 544
    Top = 120
    Width = 121
    Height = 28
    DataField = 'sex'
    DataSource = DataSource2
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 8
  end
  object DBEdit4: TDBEdit
    Left = 544
    Top = 152
    Width = 121
    Height = 28
    DataField = 'specialty'
    DataSource = DataSource2
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 9
  end
  object DataSource1: TDataSource
    DataSet = Adoqrycourse
    Left = 664
    Top = 216
  end
  object ADOStoredProc1: TADOStoredProc
    Connection = mainform.ADOConnection1
    ProcedureName = 'ScoreTJ;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@CourseNO'
        Attributes = [paNullable]
        DataType = ftString
        Size = 6
        Value = Null
      end>
    Left = 624
    Top = 216
  end
  object Adoqrycourse: TADOQuery
    Active = True
    Connection = mainform.ADOConnection1
    CursorType = ctStatic
    AfterScroll = AdoqrycourseAfterScroll
    Parameters = <>
    SQL.Strings = (
      'select a.id, b.name,a.studentno,c.name,a.score,d.name'
      'from courseselect a,course b,student c,teacher d '
      
        'where b.courseno=a.courseno and c.studentno=a.studentno and d.te' +
        'acherno=b.teacherno')
    Left = 664
    Top = 248
    object Adoqrycourseid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object Adoqrycoursename: TStringField
      DisplayLabel = #35838#31243
      DisplayWidth = 29
      FieldName = 'name'
      Size = 50
    end
    object Adoqrycoursestudentno: TStringField
      DisplayLabel = #23398#21495
      DisplayWidth = 9
      FieldName = 'studentno'
      FixedChar = True
      Size = 7
    end
    object Adoqrycoursename_1: TStringField
      DisplayLabel = #22995#21517
      DisplayWidth = 12
      FieldName = 'name_1'
      FixedChar = True
      Size = 10
    end
    object Adoqrycoursescore: TIntegerField
      DisplayLabel = #25104#32489
      DisplayWidth = 12
      FieldName = 'score'
    end
    object Adoqrycoursename_2: TStringField
      DisplayLabel = #25945#24072
      DisplayWidth = 20
      FieldName = 'name_2'
      Size = 50
    end
  end
  object ADOQe: TADOQuery
    Connection = mainform.ADOConnection1
    Parameters = <>
    Left = 624
    Top = 248
  end
  object ADOQe2: TADOQuery
    Connection = mainform.ADOConnection1
    Parameters = <>
    Left = 688
    Top = 88
  end
  object Adoqrystudent: TADOQuery
    Connection = mainform.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from student')
    Left = 696
    Top = 248
  end
  object DataSource2: TDataSource
    DataSet = Adoqrystudent
    Left = 696
    Top = 216
  end
end