unit1.~dfm

将阅卷机（百事易光电阅卷机）的数据重新处理的程序

object Form1: TForm1
  Left = 174
  Top = 106
  Width = 522
  Height = 462
  Anchors = [akLeft, akTop, akRight, akBottom]
  Caption = #38405#21367#26426#25171#21360#31995#32479'  ------'#36719#20214#35774#35745#65306#33707#39062#40857'------'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 32
    Top = 24
    Width = 33
    Height = 13
    Caption = #31185#30446'   '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label2: TLabel
    Left = 32
    Top = 75
    Width = 60
    Height = 13
    Caption = #32771#35797#21517#31216'    '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label3: TLabel
    Left = 32
    Top = 127
    Width = 33
    Height = 13
    Caption = #29677#32423'   '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label4: TLabel
    Left = 32
    Top = 188
    Width = 54
    Height = 13
    Caption = #20998#31185#30446'      '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
    Visible = False
  end
  object ComboBox1: TComboBox
    Left = 32
    Top = 40
    Width = 97
    Height = 21
    ItemHeight = 13
    TabOrder = 0
    Text = #31185#30446#21015#34920
    OnChange = ComboBox1Change
    Items.Strings = (
      #35821#25991
      #25968#23398
      #33521#35821
      #29289#29702
      #21270#23398
      #29983#29289
      #25919#27835
      #21382#21490
      #22320#29702
      #25991#32508
      #29702#32508)
  end
  object ComboBox2: TComboBox
    Left = 32
    Top = 91
    Width = 97
    Height = 21
    ItemHeight = 13
    TabOrder = 1
    Text = #32771#35797#21015#34920
    OnChange = ComboBox2Change
  end
  object ComboBox3: TComboBox
    Left = 32
    Top = 151
    Width = 97
    Height = 21
    ItemHeight = 13
    TabOrder = 2
    Text = #29677#32423#21015#34920
    OnChange = ComboBox3Change
  end
  object BitBtn1: TBitBtn
    Left = 38
    Top = 260
    Width = 75
    Height = 22
    Caption = #25171#21360#39044#35272
    TabOrder = 3
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 38
    Top = 356
    Width = 75
    Height = 22
    Caption = #30452#25509#25171#21360
    TabOrder = 4
    OnClick = BitBtn2Click
  end
  object DBGrid1: TDBGrid
    Left = 160
    Top = 0
    Width = 353
    Height = 433
    DataSource = DataSource1
    TabOrder = 5
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnColExit = DBGrid1ColExit
    OnKeyPress = DBGrid1KeyPress
  end
  object ComboBox4: TComboBox
    Left = 32
    Top = 204
    Width = 97
    Height = 21
    ItemHeight = 13
    TabOrder = 6
    Text = #20998#31185#21015#34920
    Visible = False
    OnChange = ComboBox4Change
  end
  object CheckBox1: TCheckBox
    Left = 40
    Top = 312
    Width = 113
    Height = 17
    Caption = #25171#21360#25152#26377#29677#32423
    TabOrder = 7
  end
  object Database1: TDatabase
    Connected = True
    DatabaseName = 'cjdy'
    DriverName = 'STANDARD'
    LoginPrompt = False
    Params.Strings = (
      'path=D:\Besteasy\Data')
    SessionName = 'Default'
    Left = 440
    Top = 16
  end
  object ApplicationEvents1: TApplicationEvents
    OnMessage = ApplicationEvents1Message
    Left = 472
    Top = 16
  end
  object DataSource1: TDataSource
    DataSet = Query4
    Left = 472
    Top = 48
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'cjdy'
    SQL.Strings = (
      'select subno from tb_subject_info where subname='#39#29289#29702#39' ')
    Left = 440
    Top = 48
  end
  object Query2: TQuery
    Active = True
    DatabaseName = 'cjdy'
    SQL.Strings = (
      'select testno,testname from tb_test_info where userno='#39'4'#39)
    Left = 440
    Top = 80
  end
  object Query3: TQuery
    DatabaseName = 'cjdy'
    SQL.Strings = (
      'select testname from tb_test_info where midstr(testno,5,2)=04')
    Left = 440
    Top = 112
  end
  object Query4: TQuery
    DatabaseName = 'cjdy'
    RequestLive = True
    SQL.Strings = (
      
        'select classname as '#29677#21035',studentno as '#32771#21495',studentname as '#22995#21517',sum_val' +
        'ue0 as '#20998#25968'  from tb_test_stu_detail where testno='#39'0001060001'#39' and' +
        ' classname='#39'0301'#39'  order by studentno')
    Left = 440
    Top = 144
  end
  object frxDBDataset1: TfrxDBDataset
    UserName = 'frxDBDataset1'
    DataSet = Query4
    Left = 440
    Top = 176
  end
  object frxReport1: TfrxReport
    DotMatrixReport = False
    EngineOptions.MaxMemSize = 10000000
    IniFile = '\Software\Fast Reports'
    PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator]
    PreviewOptions.Zoom = 1.000000000000000000
    PrintOptions.Printer = #32570#30465
    ReportOptions.CreateDate = 38676.014718356500000000
    ReportOptions.LastChange = 38676.014718356500000000
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
      'begin'
      ''
      'end.')
    OnGetValue = frxReport1GetValue
    Left = 440
    Top = 208
    Datasets = <
      item
        DataSet = frxDBDataset1
        DataSetName = 'frxDBDataset1'
      end
      item
        DataSet = frxDBDataset2
        DataSetName = 'frxDBDataset2'
      end>
    Variables = <
      item
        Name = ' classname'
        Value = Null
      end>
    Style = <>
    object Page1: TfrxReportPage
      Orientation = poLandscape
      PaperWidth = 257.000000000000000000
      PaperHeight = 182.000000000000000000
      PaperSize = 13
      LeftMargin = 12.000000000000000000
      RightMargin = 7.000000000000000000
      TopMargin = 7.000000000000000000
      BottomMargin = 13.000000000000000000
      Columns = 3
      ColumnWidth = 79.000000000000000000
      ColumnPositions.Strings = (
        '0'
        '77'
        '154')
      object PageHeader1: TfrxPageHeader
        Height = 75.590600000000000000
        Top = 18.897650000000000000
        Width = 899.528140000000000000
        object Memo1: TfrxMemoView
          Left = 200.315090000000000000
          Width = 510.236550000000000000
          Height = 22.677180000000000000
          GroupIndex = 0
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = []
          Memo.Strings = (
            '_________'#24180'_____'#23395#26399'____________'#32771#35797'__________'#31185#25104#32489#30331#35760#34920)
          ParentFont = False
        end
        object Memo2: TfrxMemoView
          Left = 7.559060000000000000
          Top = 34.015770000000010000
          Width = 49.133890000000000000
          Height = 18.897650000000000000
          GroupIndex = 0
          Memo.Strings = (
            #29677#21035#65306)
        end
        object Memo3: TfrxMemoView
          Left = 41.574830000000000000
          Top = 56.692949999999990000
          Width = 68.031500940000000000
          Height = 18.897650000000000000
          GroupIndex = 0
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          Memo.Strings = (
            #22995#21517)
          VAlign = vaCenter
        end
        object Memo4: TfrxMemoView
          Top = 56.692949999999990000
          Width = 41.574803150000000000
          Height = 18.897650000000000000
          GroupIndex = 0
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.Strings = (
            #32534#21495)
          VAlign = vaCenter
        end
        object Memo5: TfrxMemoView
          Left = 109.606370000000000000
          Top = 56.692949999999990000
          Width = 60.472440940000000000
          Height = 18.897650000000000000
          GroupIndex = 0
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.Strings = (
            #36873#25321#39064)
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo6: TfrxMemoView
          Left = 170.078850000000000000
          Top = 56.692949999999990000
          Width = 60.472440940000000000
          Height = 18.897650000000000000
          GroupIndex = 0
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.Strings = (
            #38750#36873#25321#39064)
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo7: TfrxMemoView
          Left = 230.551330000000000000
          Top = 56.692949999999990000
          Width = 60.472440940000000000
          Height = 18.897650000000000000
          GroupIndex = 0
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.Strings = (
            #24635#20998'   ')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo8: TfrxMemoView
          Left = 332.378170000000000000
          Top = 56.692949999999990000
          Width = 68.031500940000000000
          Height = 18.897650000000000000
          GroupIndex = 0