教育系统应用

开发平台：
Delphi

Unit10.dfm：源码内容
							object definepaperform: Tdefinepaperform
  Left = -82
  Top = 147
  BorderIcons = [biMinimize, biMaximize]
  BorderStyle = bsDialog
  Caption = #23450#21046#35797#21367
  ClientHeight = 371
  ClientWidth = 756
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 756
    Height = 371
    Align = alClient
    TabOrder = 0
    object Label1: TLabel
      Left = 240
      Top = 30
      Width = 57
      Height = 13
      Caption = #35797#21367#21517#31216'   '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 480
      Top = 30
      Width = 57
      Height = 13
      Caption = #35797#21367#20998#25968'   '
    end
    object Label33: TLabel
      Left = 64
      Top = 32
      Width = 60
      Height = 13
      Caption = #35797#21367#32534#21495'    '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label34: TLabel
      Left = 520
      Top = 280
      Width = 132
      Height = 13
      Caption = '('#27880':'#32418#33394#39033#24517#39035#22635#20889'!)        '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBEdit1: TDBEdit
      Left = 304
      Top = 24
      Width = 137
      Height = 21
      DataField = 'jname'
      DataSource = DataModule4.DataSource_shijuan
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 536
      Top = 24
      Width = 65
      Height = 21
      DataField = 'zongfen'
      DataSource = DataModule4.DataSource_shijuan
      Enabled = False
      ReadOnly = True
      TabOrder = 1
    end
    object BitBtn3: TBitBtn
      Left = 616
      Top = 168
      Width = 75
      Height = 33
      Caption = #26426#36873#35797#39064
      TabOrder = 2
      OnClick = BitBtn3Click
    end
    object BitBtn4: TBitBtn
      Left = 616
      Top = 96
      Width = 75
      Height = 33
      Caption = #25163#24037#36873#39064
      TabOrder = 3
      OnClick = BitBtn4Click
    end
    object BitBtn5: TBitBtn
      Left = 624
      Top = 320
      Width = 75
      Height = 25
      TabOrder = 4
      Kind = bkClose
    end
    object GroupBox1: TGroupBox
      Left = 80
      Top = 64
      Width = 521
      Height = 201
      Caption = #35797#21367#39064#22411
      TabOrder = 5
      object Label27: TLabel
        Left = 24
        Top = 127
        Width = 78
        Height = 13
        Caption = '4. '#31243' '#24207' '#22635' '#31354'   '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 24
        Top = 95
        Width = 78
        Height = 13
        Caption = '3.'#31243#24207#38405#35835#39064'   '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 24
        Top = 62
        Width = 81
        Height = 13
        Caption = '2. '#21028'    '#26029'    '#39064'   '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 24
        Top = 30
        Width = 78
        Height = 13
        Caption = '1. '#36873'    '#25321'    '#39064'  '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label9: TLabel
        Left = 176
        Top = 94
        Width = 33
        Height = 13
        Caption = #23567#39064'   '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 176
        Top = 62
        Width = 33
        Height = 13
        Caption = #23567#39064'   '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label28: TLabel
        Left = 176
        Top = 126
        Width = 33
        Height = 13
        Caption = #23567#39064'   '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label7: TLabel
        Left = 176
        Top = 30
        Width = 33
        Height = 13
        Caption = #23567#39064'   '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label10: TLabel
        Left = 232
        Top = 30
        Width = 33
        Height = 13
        Caption = #27599#39064'   '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label11: TLabel
        Left = 232
        Top = 62
        Width = 33
        Height = 13
        Caption = #27599#39064'   '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label12: TLabel
        Left = 232
        Top = 94
        Width = 33
        Height = 13
        Caption = #27599#39064'   '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label29: TLabel
        Left = 232
        Top = 126
        Width = 33
        Height = 13
        Caption = #27599#39064'   '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label13: TLabel
        Left = 328
        Top = 30
        Width = 21
        Height = 13
        Caption = #20998'   '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label14: TLabel
        Left = 328
        Top = 62
        Width = 21
        Height = 13
        Caption = #20998'   '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label15: TLabel
        Left = 328
        Top = 94
        Width = 21
        Height = 13
        Caption = #20998'   '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label30: TLabel
        Left = 328
        Top = 126
        Width = 21
        Height = 13
        Caption = #20998'   '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label31: TLabel
        Left = 368
        Top = 126
        Width = 21
        Height = 13
        Caption = #20849'   '
      end
      object Label32: TLabel
        Left = 448
        Top = 126
        Width = 21
        Height = 13
        Caption = #20998'   '
      end
      object Label21: TLabel
        Left = 448
        Top = 94
        Width = 21
        Height = 13
        Caption = #20998'   '
      end
      object Label18: TLabel
        Left = 368
        Top = 94
        Width = 21
        Height = 13
        Caption = #20849'   '
      end
      object Label17: TLabel
        Left = 368
        Top = 62
        Width = 21
        Height = 13
        Caption = #20849'   '
      end
      object Label16: TLabel
        Left = 368
        Top = 30
        Width = 21
        Height = 13
        Caption = #20849'   '
      end
      object Label19: TLabel
        Left = 448
        Top = 30
        Width = 21
        Height = 13
        Caption = #20998'   '
      end
      object Label20: TLabel
        Left = 448
        Top = 62
        Width = 21
        Height = 13
        Caption = #20998'   '
      end
      object Label6: TLabel
        Left = 24
        Top = 160
        Width = 81
        Height = 13
        Caption = '5.'#32534'    '#31243'    '#39064'    '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label22: TLabel
        Left = 176
        Top = 160
        Width = 33
        Height = 13
        Caption = #23567#39064'   '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label23: TLabel
        Left = 232
        Top = 160
        Width = 36
        Height = 13
        Caption = #27599#39064'    '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label24: TLabel
        Left = 328
        Top = 160
        Width = 24
        Height = 13
        Caption = #20998'    '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label25: TLabel
        Left = 368
        Top = 160
        Width = 24
        Height = 13
        Caption = #20849'    '
      end
      object Label26: TLabel
        Left = 448
        Top = 160
        Width = 21
        Height = 13
        Caption = #20998'   '
      end
      object DBEdit3: TDBEdit
        Left = 112
        Top = 24
        Width = 57
        Height = 21
        DataField = 'choose_num'
        DataSource = DataModule4.DataSource_shijuan
        TabOrder = 0
        OnChange = DBEdit3Change
      end
      object DBEdit4: TDBEdit
        Left = 112
        Top = 56
        Width = 57
        Height = 21
        DataField = 'judge_num'
        DataSource = DataModule4.DataSource_shijuan
        TabOrder = 1
        OnChange = DBEdit4Change
      end
      object DBEdit5: TDBEdit
        Left = 112
        Top = 89
        Width = 57
        Height = 21
        DataField = 'readpro_num'
        DataSource = DataModule4.DataSource_shijuan
        TabOrder = 2
        OnChange = DBEdit5Change
      end
      object DBEdit15: TDBEdit
        Left = 112
        Top = 154
        Width = 57
        Height = 21
        DataField = 'procedure_num'
        DataSource = DataModule4.DataSource_shijuan
        TabOrder = 3
        OnChange = DBEdit15Change
      end
      object DBEdit16: TDBEdit
        Left = 264
        Top = 154
        Width = 57
        Height = 21
        DataField = 'procedure_score'
        DataSource = DataModule4.DataSource_shijuan
        TabOrder = 4
        OnChange = DBEdit16Change
      end
      object DBEdit8: TDBEdit
        Left = 264
        Top = 89
        Width = 57
        Height = 21
        DataField = 'readpro_score'
        DataSource = DataModule4.DataSource_shijuan
        TabOrder = 5
        OnChange = DBEdit8Change
      end
      object DBEdit7: TDBEdit
        Left = 264
        Top = 56
        Width = 57
        Height = 21
        DataField = 'judge_score'
        DataSource = DataModule4.DataSource_shijuan
        TabOrder = 6
        OnChange = DBEdit7Change
      end
      object DBEdit6: TDBEdit
        Left = 264
        Top = 24
        Width = 57
        Height = 21
        DataField = 'choose_score'
        DataSource = DataModule4.DataSource_shijuan
        TabOrder = 7
        OnChange = DBEdit6Change
      end
      object DBEdit17: TDBEdit
        Left = 384
        Top = 154
        Width = 57
        Height = 21
        DataField = 'procedure_sum'
        DataSource = DataModule4.DataSource_shijuan
        TabOrder = 8
        OnChange = DBEdit17Change
      end
      object DBEdit11: TDBEdit
        Left = 384
        Top = 89
        Width = 57
        Height = 21
        DataField = 'readpro_sum'
        DataSource = DataModule4.DataSource_shijuan
        TabOrder = 9
        OnChange = DBEdit11Change
      end
      object DBEdit9: TDBEdit
        Left = 384
        Top = 24
        Width = 57
        Height = 21
        DataField = 'choose_sum'
        DataSource = DataModule4.DataSource_shijuan
        TabOrder = 10
        OnChange = DBEdit9Change
      end
      object DBEdit10: TDBEdit
        Left = 384
        Top = 56
        Width = 57
        Height = 21
        DataField = 'judge_sum'
        DataSource = DataModule4.DataSource_shijuan
        TabOrder = 11
        OnChange = DBEdit10Change
      end
      object DBEdit12: TDBEdit
        Left = 112
        Top = 121
        Width = 57
        Height = 21
        DataField = 'filltext_num'
        DataSource = DataModule4.DataSource_shijuan
        TabOrder = 12
        OnChange = DBEdit12Change
      end
      object DBEdit13: TDBEdit
        Left = 264
        Top = 121
        Width = 57
        Height = 21
        DataField = 'filltext_score'
        DataSource = DataModule4.DataSource_shijuan
        TabOrder = 13
        OnChange = DBEdit13Change
      end
      object DBEdit14: TDBEdit
        Left = 384
        Top = 121
        Width = 57
        Height = 21
        DataField = 'filltext_sum'
        DataSource = DataModule4.DataSource_shijuan
        TabOrder = 14
        OnChange = DBEdit14Change
      end
    end
    object DBEdit18: TDBEdit
      Left = 128
      Top = 24
      Width = 73
      Height = 21
      DataField = 'jno'
      DataSource = DataModule4.DataSource_shijuan
      TabOrder = 6
    end
    object DBNavigator1: TDBNavigator
      Left = 136
      Top = 320
      Width = 228
      Height = 25
      DataSource = DataModule4.DataSource_shijuan
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete]
      TabOrder = 7
      OnClick = DBNavigator1Click
    end
    object BitBtn1: TBitBtn
      Left = 416
      Top = 320
      Width = 75
      Height = 25
      Caption = #25552#20132
      TabOrder = 8
      OnClick = BitBtn1Click
      Kind = bkOK
    end
    object BitBtn2: TBitBtn
      Left = 520
      Top = 320
      Width = 75
      Height = 25
      Caption = #21462#28040
      TabOrder = 9
      OnClick = BitBtn2Click
      Kind = bkCancel
    end
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'abao'
    SQL.Strings = (
      'select * from shijuan')
    Left = 648
    Top = 48
  end
end

						