formscoremanage.dfm

Delphi数据库编程

object frmScoreManage: TfrmScoreManage
  Left = 274
  Top = 102
  Width = 600
  Height = 540
  Caption = #32771#35797#25104#32489#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label5: TLabel
    Left = 184
    Top = 176
    Width = 49
    Height = 13
    AutoSize = False
    Caption = #23398#21495
  end
  object Label7: TLabel
    Left = 184
    Top = 232
    Width = 57
    Height = 13
    AutoSize = False
    Caption = #32771#35797#25104#32489
  end
  object Label2: TLabel
    Left = 8
    Top = 320
    Width = 137
    Height = 13
    AutoSize = False
    Caption = #36873#20462#35813#35838#31243#30340#29677#32423#26377#65306
  end
  object GroupBox1: TGroupBox
    Left = 184
    Top = 8
    Width = 153
    Height = 161
    Caption = #35838#31243#20449#24687
    TabOrder = 0
    object dbtClassID: TDBText
      Left = 64
      Top = 24
      Width = 81
      Height = 13
      Color = clBtnHighlight
      DataField = 'CourseID'
      DataSource = dsCourseInfo
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clHighlight
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object dbtClassName: TDBText
      Left = 8
      Top = 64
      Width = 137
      Height = 13
      Color = clBtnHighlight
      DataField = 'CourseName'
      DataSource = dsCourseInfo
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clHighlight
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object dbtBeginDate: TDBText
      Left = 64
      Top = 88
      Width = 81
      Height = 13
      Color = clBtnHighlight
      DataField = 'Teacher'
      DataSource = dsCourseInfo
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clHighlight
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object dbtDepartName: TDBText
      Left = 64
      Top = 112
      Width = 81
      Height = 13
      Color = clBtnHighlight
      DataField = 'Credit'
      DataSource = dsCourseInfo
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clHighlight
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object Label1: TLabel
      Left = 8
      Top = 24
      Width = 54
      Height = 13
      AutoSize = False
      BiDiMode = bdLeftToRight
      Caption = #35838#31243#32534#21495
      ParentBiDiMode = False
    end
    object Label3: TLabel
      Left = 8
      Top = 48
      Width = 54
      Height = 13
      AutoSize = False
      Caption = #35838#31243#21517#31216
    end
    object Label4: TLabel
      Left = 8
      Top = 88
      Width = 54
      Height = 13
      AutoSize = False
      Caption = #20219#35838#32769#24072
    end
    object Label6: TLabel
      Left = 8
      Top = 112
      Width = 54
      Height = 13
      AutoSize = False
      Caption = #23398#20998
    end
    object DBText2: TDBText
      Left = 64
      Top = 136
      Width = 81
      Height = 13
      Color = clBtnHighlight
      DataField = 'Period'
      DataSource = dsCourseInfo
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clHighlight
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object Label8: TLabel
      Left = 8
      Top = 136
      Width = 54
      Height = 13
      AutoSize = False
      Caption = #23398#26102#25968
    end
  end
  object dbgScore: TDBGrid
    Left = 344
    Top = 8
    Width = 241
    Height = 497
    DataSource = dsScoreList
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'StudentID'
        Title.Alignment = taCenter
        Title.Caption = #23398#21495
        Width = 66
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Name'
        Title.Alignment = taCenter
        Title.Caption = #22995#21517
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Score'
        Title.Alignment = taCenter
        Title.Caption = #25104#32489
        Width = 47
        Visible = True
      end>
  end
  object btnQuit: TButton
    Left = 264
    Top = 304
    Width = 73
    Height = 25
    Caption = #36864#20986
    TabOrder = 2
    OnClick = btnQuitClick
  end
  object dbgCourse: TDBGrid
    Left = 8
    Top = 8
    Width = 169
    Height = 305
    DataSource = dsCourse
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'CourseID'
        Title.Alignment = taCenter
        Title.Caption = #32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CourseName'
        Title.Alignment = taCenter
        Title.Caption = #35838#31243#21517#31216
        Visible = True
      end>
  end
  object dbgClass: TDBGrid
    Left = 8
    Top = 336
    Width = 329
    Height = 169
    DataSource = dsClass
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'ClassID'
        Title.Alignment = taCenter
        Title.Caption = #32534#21495
        Width = 58
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ClassName'
        Title.Alignment = taCenter
        Title.Caption = #29677#32423#21517#31216
        Width = 135
        Visible = True
      end>
  end
  object dbeStudentID: TDBEdit
    Left = 184
    Top = 192
    Width = 153
    Height = 32
    AutoSize = False
    DataField = 'StudentID'
    DataSource = dsScore
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
  end
  object dbnScore: TDBNavigator
    Left = 192
    Top = 272
    Width = 144
    Height = 25
    DataSource = dsScore
    VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh]
    ConfirmDelete = False
    TabOrder = 6
    OnClick = dbnScoreClick
  end
  object dbeScore: TDBEdit
    Left = 248
    Top = 232
    Width = 89
    Height = 32
    AutoSize = False
    DataField = 'Score'
    DataSource = dsScore
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
  end
  object tblCourse: TTable
    AfterOpen = tblCourseAfterOpen
    AfterScroll = tblCourseAfterScroll
    DatabaseName = 'DBCourse'
    TableName = 'Course'
    Left = 32
    Top = 56
  end
  object qryCourseInfo: TQuery
    DatabaseName = 'DBCourse'
    SQL.Strings = (
      'SELECT CourseID, CourseName, Credit, Period, Teacher'
      'FROM Course Course'
      'WHERE  CourseID =  :CourseID ')
    Left = 32
    Top = 128
    ParamData = <
      item
        DataType = ftString
        Name = 'CourseID'
        ParamType = ptUnknown
        Value = '2004000001'
      end>
  end
  object dsCourseInfo: TDataSource
    DataSet = qryCourseInfo
    Left = 32
    Top = 160
  end
  object qryScore: TQuery
    AfterOpen = qryScoreAfterOpen
    AfterScroll = qryScoreAfterScroll
    DatabaseName = 'DBCourse'
    SQL.Strings = (
      'SELECT Student.StudentID, Student.Name, Score.ID, Score.Score'
      'FROM Score Score, Student Student'
      'WHERE  (Student.StudentID = Score.StudentID)  '
      '   AND  ( Score.CourseID = :CourseID )  '
      '   AND  (Student.ClassID = :ClassID )'
      'ORDER By Student.StudentID')
    Left = 528
    Top = 72
    ParamData = <
      item
        DataType = ftString
        Name = 'CourseID'
        ParamType = ptUnknown
        Value = '2004000001'
      end
      item
        DataType = ftString
        Name = 'ClassID'
        ParamType = ptUnknown
        Value = '010101'
      end>
  end
  object dsScoreList: TDataSource
    DataSet = qryScore
    Left = 528
    Top = 112
  end
  object dsCourse: TDataSource
    DataSet = tblCourse
    Left = 32
    Top = 88
  end
  object qryClass: TQuery
    AfterOpen = qryClassAfterOpen
    AfterScroll = qryClassAfterScroll
    DatabaseName = 'DBCourse'
    SQL.Strings = (
      'SELECT Class.ClassID, Class.ClassName'
      'FROM CourseSelect Courseselect, Class Class'
      'WHERE  (Class.ClassID = Courseselect.ClassID)  '
      '   AND  (Courseselect.CourseID = :CourseID ) ')
    Left = 32
    Top = 392
    ParamData = <
      item
        DataType = ftString
        Name = 'CourseID'
        ParamType = ptUnknown
        Value = '2004000001'
      end>
  end
  object dsClass: TDataSource
    DataSet = qryClass
    Left = 32
    Top = 424
  end
  object tblScore: TTable
    AfterOpen = tblScoreAfterOpen
    BeforePost = tblScoreBeforePost
    AfterPost = tblScoreAfterPost
    BeforeDelete = tblScoreBeforeDelete
    AfterDelete = tblScoreAfterDelete
    AfterScroll = tblScoreAfterScroll
    DatabaseName = 'DBCourse'
    TableName = 'Score'
    Left = 352
    Top = 200
  end
  object dsScore: TDataSource
    DataSet = tblScore
    Left = 352
    Top = 232
  end
  object qryValid: TQuery
    DatabaseName = 'DBCourse'
    Left = 528
    Top = 376
  end
end