u_main.~dfm

这个是一个完整的药房管理系统

        AutoSize = False
        Caption = #25104#32489#21333#65306
      end
      object DBGrid4: TDBGrid
        Left = 16
        Top = 48
        Width = 233
        Height = 345
        DataSource = DS_course_select
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object DBGrid5: TDBGrid
        Left = 400
        Top = 48
        Width = 256
        Height = 345
        DataSource = DS_score
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object Button1: TButton
        Left = 264
        Top = 184
        Width = 121
        Height = 49
        Caption = #36716#31227#20840#37096#32467#26524'>>'
        TabOrder = 2
        OnClick = Button1Click
      end
    end
    object TabSheet4: TTabSheet
      Caption = #25104#32489#32479#35745
      ImageIndex = 3
      object Label14: TLabel
        Left = 48
        Top = 24
        Width = 49
        Height = 13
        AutoSize = False
        Caption = #35838#31243#21495#65306
      end
      object Label15: TLabel
        Left = 40
        Top = 56
        Width = 60
        Height = 13
        Caption = #35838#31243#21517#31216#65306
      end
      object Label22: TLabel
        Left = 368
        Top = 24
        Width = 49
        Height = 13
        AutoSize = False
        Caption = #25104#32489#21333#65306
      end
      object Edit_course: TEdit
        Left = 104
        Top = 16
        Width = 121
        Height = 21
        TabOrder = 0
      end
      object Btn_query: TButton
        Left = 248
        Top = 16
        Width = 75
        Height = 25
        Caption = #26597#35810
        TabOrder = 1
        OnClick = Btn_queryClick
      end
      object GroupBox3: TGroupBox
        Left = 40
        Top = 88
        Width = 241
        Height = 241
        Caption = #32479#35745#20449#24687
        TabOrder = 2
        object Label16: TLabel
          Left = 16
          Top = 32
          Width = 73
          Height = 13
          AutoSize = False
          Caption = #36873#35838#20154#25968#65306
        end
        object Label17: TLabel
          Left = 16
          Top = 72
          Width = 73
          Height = 13
          AutoSize = False
          Caption = #26368#39640#25104#32489#65306
        end
        object Label18: TLabel
          Left = 16
          Top = 112
          Width = 73
          Height = 13
          AutoSize = False
          Caption = #24179#22343#25104#32489#65306
        end
        object Label19: TLabel
          Left = 16
          Top = 152
          Width = 73
          Height = 13
          AutoSize = False
          Caption = #26368#20302#25104#32489#65306
        end
        object Label20: TLabel
          Left = 8
          Top = 192
          Width = 73
          Height = 13
          AutoSize = False
          Caption = #19981#21450#26684#20154#25968#65306
        end
        object Edit_totalnum: TEdit
          Left = 96
          Top = 24
          Width = 121
          Height = 21
          TabOrder = 0
        end
        object Edit_avg: TEdit
          Left = 96
          Top = 104
          Width = 121
          Height = 21
          TabOrder = 1
        end
        object Edit_min: TEdit
          Left = 96
          Top = 144
          Width = 121
          Height = 21
          TabOrder = 2
        end
        object Edit_max: TEdit
          Left = 96
          Top = 64
          Width = 121
          Height = 21
          TabOrder = 3
        end
        object Edit_failnum: TEdit
          Left = 96
          Top = 188
          Width = 121
          Height = 21
          TabOrder = 4
        end
      end
      object DBGrid6: TDBGrid
        Left = 328
        Top = 48
        Width = 320
        Height = 345
        DataSource = DS_qscore
        TabOrder = 3
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object Btn_printscore: TButton
        Left = 112
        Top = 352
        Width = 97
        Height = 25
        Caption = #25171#21360#25104#32489#21333
        TabOrder = 4
        OnClick = Btn_printscoreClick
      end
      object DBE_coursename: TDBEdit
        Left = 104
        Top = 48
        Width = 121
        Height = 21
        DataField = 'NAME'
        DataSource = DS_courseinfo
        TabOrder = 5
      end
    end
  end
  object DS_teacher: TDataSource
    DataSet = T_teacher
    Left = 8
    Top = 200
  end
  object T_teacher: TTable
    DatabaseName = 'TEACH'
    IndexFieldNames = 'ID'
    MasterFields = 'TEACHER'
    MasterSource = DS_course
    TableName = 'TEACHER'
    Left = 12
    Top = 160
  end
  object DS_course: TDataSource
    DataSet = T_course
    Left = 8
    Top = 128
  end
  object T_course: TTable
    DatabaseName = 'TEACH'
    Filter = 'state='#39'0'#39' or state='#39'1'#39' or state='#39'2'#39
    Filtered = True
    TableName = 'COURSE'
    Left = 12
    Top = 88
  end
  object Q_update: TQuery
    DatabaseName = 'TEACH'
    Left = 12
    Top = 240
  end
  object Q_nactivecourse: TQuery
    DatabaseName = 'TEACH'
    SQL.Strings = (
      'SELECT COURSE.ID,COURSE.NAME,TEACHER.NAME AS'
      'TEACHER,COURSE.PERIOD'
      'FROM COURSE,TEACHER'
      'WHERE COURSE.STATE='#39'4'#39
      'AND COURSE.TEACHER=TEACHER.ID')
    Left = 12
    Top = 288
  end
  object Q_submit: TQuery
    DatabaseName = 'TEACH'
    Left = 12
    Top = 328
  end
  object Q_activecourse: TQuery
    DatabaseName = 'TEACH'
    SQL.Strings = (
      'SELECT COURSE.ID,COURSE.NAME,TEACHER.NAME,'
      
        'COURSE.CLASSROOM,COURSE.CLASSTIME,COURSE.PERIOD,TEACHER.NAME AS ' +
        'TEACHER'
      'FROM COURSE,TEACHER'
      'WHERE COURSE.STATE='#39'3'#39
      'AND COURSE.TEACHER=TEACHER.ID')
    Left = 12
    Top = 368
  end
  object DS_nactivecourse: TDataSource
    DataSet = Q_nactivecourse
    Left = 44
    Top = 400
  end
  object DS_activecourse: TDataSource
    DataSet = Q_activecourse
    Left = 12
    Top = 400
  end
  object T_course_select: TTable
    DatabaseName = 'TEACH'
    TableName = 'COURSE_SELECT'
    Left = 540
    Top = 8
  end
  object T_score: TTable
    DatabaseName = 'TEACH'
    TableName = 'SCORE'
    Left = 460
    Top = 8
  end
  object T_counterF: TTable
    DatabaseName = 'TEACH'
    Filter = 'ID='#39'F'#39
    Filtered = True
    TableName = 'COUNTER'
    Left = 388
    Top = 8
  end
  object DS_course_select: TDataSource
    DataSet = T_course_select
    Left = 500
    Top = 8
  end
  object DS_score: TDataSource
    DataSet = T_score
    Left = 420
    Top = 8
  end
  object DS_courseinfo: TDataSource
    DataSet = T_courseinfo
    Left = 640
    Top = 48
  end
  object DS_qscore: TDataSource
    DataSet = Q_score
    Left = 596
    Top = 48
  end
  object Q_info: TQuery
    DatabaseName = 'TEACH'
    Left = 556
    Top = 48
  end
  object Q_score: TQuery
    DatabaseName = 'TEACH'
    SQL.Strings = (
      'SELECT STUDENT.CLASS,STUDENT.ID,STUDENT.NAME,SCORE.SCORE'
      'FROM STUDENT,SCORE'
      'WHERE SCORE.COURSE_ID=:COURSE'
      'AND SCORE.STUDENT=STUDENT.ID')
    Left = 516
    Top = 48
    ParamData = <
      item
        DataType = ftString
        Name = 'COURSE'
        ParamType = ptInput
      end>
  end
  object T_courseinfo: TTable
    DatabaseName = 'TEACH'
    TableName = 'COURSE'
    Left = 476
    Top = 48
  end
end