教育系统应用

开发平台：
Delphi

Unit11.dfm：源码内容
							object procedureform: Tprocedureform
  Left = -46
  Top = 46
  Width = 785
  Height = 491
  BorderIcons = [biMinimize, biMaximize]
  Caption = #32534#31243#39064
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnMouseDown = FormMouseDown
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 777
    Height = 457
    Align = alClient
    TabOrder = 1
    object DBNavigator1: TDBNavigator
      Left = 272
      Top = 420
      Width = 112
      Height = 25
      DataSource = DataModule4.DataSource_procedure
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      TabOrder = 0
      OnClick = DBNavigator1Click
    end
    object BitBtn1: TBitBtn
      Left = 672
      Top = 420
      Width = 89
      Height = 25
      Caption = #36820#22238
      TabOrder = 1
      Kind = bkClose
    end
    object TreeView1: TTreeView
      Left = 0
      Top = 0
      Width = 185
      Height = 457
      Indent = 19
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 2
      OnClick = TreeView1Click
      OnMouseDown = TreeView1MouseDown
      Items.Data = {
        010000001E0000000000000000000000FFFFFFFFFFFFFFFF0000000009000000
        0543D3EFD1D42D0000000000000000000000FFFFFFFFFFFFFFFF000000000400
        000014B5DAD2BBD5C22043D3EFD1D4BBF9B4A1D6AACAB61F0000000000000000
        000000FFFFFFFFFFFFFFFF000000000100000006B5DAD2BBBDDA2F0000000000
        000000000000FFFFFFFFFFFFFFFF000000000000000016B5DAD2BBD6AACAB6B5
        E32043D3EFD1D4B5C4CCD8B5E31F0000000000000000000000FFFFFFFFFFFFFF
        FF000000000100000006B5DAB6FEBDDA390000000000000000000000FFFFFFFF
        FFFFFFFF000000000000000020B5DAD2BBD6AACAB6B5E32043D3EFD1D4B5C4B1
        EACAB6B7FBBACDB1A3C1F4D7D61F0000000000000000000000FFFFFFFFFFFFFF
        FF000000000100000006B5DAC8FDBDDA2F0000000000000000000000FFFFFFFF
        FFFFFFFF000000000000000016B5DAD2BBD6AACAB6B5E32043B3CCD0F2B5C4BD
        E1B9B91F0000000000000000000000FFFFFFFFFFFFFFFF000000000100000006
        B5DACBC4BDDA330000000000000000000000FFFFFFFFFFFFFFFF000000000000
        00001AB5DAD2BBD6AACAB6B5E32043B3CCD0F2B5C4BFAAB7A2B9FDB3CC380000
        000000000000000000FFFFFFFFFFFFFFFF00000000030000001FB5DAB6FED5C2
        20CAFDBEDDC0E0D0CDA1A2D4CBCBE3B7FBD3EBB1EDB4EFCABD1F000000000000
        0000000000FFFFFFFFFFFFFFFF000000000400000006B5DAD2BBBDDA31000000
        0000000000000000FFFFFFFFFFFFFFFF000000000000000018B5DAD2BBD6AACA
        B6B5E32043D3EFD1D4CAFDBEDDC0E0D0CD2C0000000000000000000000FFFFFF
        FFFFFFFFFF000000000000000013B5DAB6FED6AACAB6B5E320D5FBD0CDCAFDBE
        DD2C0000000000000000000000FFFFFFFFFFFFFFFF000000000000000013B5DA
        C8FDD6AACAB6B5E320CAB5D0CDCAFDBEDD2E0000000000000000000000FFFFFF
        FFFFFFFFFF000000000000000015B5DACBC4D6AACAB6B5E320D7D6B7FBD0CDCA
        FDBEDD1F0000000000000000000000FFFFFFFFFFFFFFFF000000000200000006
        B5DAB6FEBDDA2A0000000000000000000000FFFFFFFFFFFFFFFF000000000000
        000011B5DAD2BBD6AACAB6B5E320D4CBCBE3B7FB2A0000000000000000000000
        FFFFFFFFFFFFFFFF000000000000000011B5DAB6FED6AACAB6B5E320CEBBD4CB
        CBE31F0000000000000000000000FFFFFFFFFFFFFFFF000000000200000006B5
        DAC8FDBDDA2A0000000000000000000000FFFFFFFFFFFFFFFF00000000000000
        0011B5DAD2BBD6AACAB6B5E320B1EDB4EFCABD2C0000000000000000000000FF
        FFFFFFFFFFFFFF000000000000000013B5DAB6FED6AACAB6B5E320C0E0D0CDD7
        AABBBB280000000000000000000000FFFFFFFFFFFFFFFF00000000020000000F
        B5DAC8FDD5C220CBB3D0F2BDE1B9B91F0000000000000000000000FFFFFFFFFF
        FFFFFF000000000100000006B5DAD2BBBDDA360000000000000000000000FFFF
        FFFFFFFFFFFF00000000000000001DB5DAD2BBD6AACAB6B5E320D7D6B7FBCAFD
        BEDDB5C4CAE4C8EBCAE4B3F61F0000000000000000000000FFFFFFFFFFFFFFFF
        000000000100000006B5DAB6FEBDDA320000000000000000000000FFFFFFFFFF
        FFFFFF000000000000000019B5DAD2BBD6AACAB6B5E320B8F1CABDCAE4C8EBD3
        EBCAE4B3F6290000000000000000000000FFFFFFFFFFFFFFFF00000000030000
        0010B5DACBC4D5C220D1A1D4F1BDE1B9B9201F0000000000000000000000FFFF
        FFFFFFFFFFFF000000000100000006B5DAD2BBBDDA2A00000000000000000000
        00FFFFFFFFFFFFFFFF000000000000000011B5DAD2BBD6AACAB6B5E3206966D3
        EFBEE41F0000000000000000000000FFFFFFFFFFFFFFFF000000000100000006
        B5DAB6FEBDDA2E0000000000000000000000FFFFFFFFFFFFFFFF000000000000
        000015B5DAD2BBD6AACAB6B5E320CCF5BCFEB1EDB4EFCABD1F00000000000000
        00000000FFFFFFFFFFFFFFFF000000000100000006B5DAC8FDBDDA3400000000
        00000000000000FFFFFFFFFFFFFFFF00000000000000001BB5DAD2BBD6AACAB6
        B5E32073776974636828BFAAB9D829D3EFBEE4290000000000000000000000FF
        FFFFFFFFFFFFFF000000000400000010B5DACEE5D5C220D1ADBBB7BFD8D6C620
        1F0000000000000000000000FFFFFFFFFFFFFFFF000000000200000006B5DAD2
        BBBDDA310000000000000000000000FFFFFFFFFFFFFFFF000000000000000018
        B5DAD2BBD6AACAB6B5E3207768696C65D1ADBBB7D3EFBEE43400000000000000
        00000000FFFFFFFFFFFFFFFF00000000000000001BB5DAB6FED6AACAB6B5E320
        646F2D7768696C65D1ADBBB7D3EFBEE41F0000000000000000000000FFFFFFFF
        FFFFFFFF000000000100000006B5DAB6FEBDDA2F0000000000000000000000FF
        FFFFFFFFFFFFFF000000000000000016B5DAD2BBD6AACAB6B5E320666F72D1AD
        BBB7D3EFBEE41F0000000000000000000000FFFFFFFFFFFFFFFF000000000200
        000006B5DAC8FDBDDA2D0000000000000000000000FFFFFFFFFFFFFFFF000000
        000000000014B5DAD2BBD6AACAB6B5E320627265616BD3EFBEE4300000000000
        000000000000FFFFFFFFFFFFFFFF000000000000000017B5DAB6FED6AACAB6B5
        E320636F6E74696E7565D3EFBEE41F0000000000000000000000FFFFFFFFFFFF
        FFFF000000000100000006B5DACBC4BDDA2C0000000000000000000000FFFFFF
        FFFFFFFFFF000000000000000013B5DAD2BBD6AACAB6B5E320676F746FD3EFBE
        E4280000000000000000000000FFFFFFFFFFFFFFFF00000000020000000FB5DA
        C1F9D5C220CAFDD7E9D6B8D5EB1F0000000000000000000000FFFFFFFFFFFFFF
        FF000000000300000006B5DAD2BBBDDA2C0000000000000000000000FFFFFFFF
        FFFFFFFF000000000000000013B5DAD2BBD6AACAB6B5E320D2BBCEACCAFDD7E9
        2C0000000000000000000000FFFFFFFFFFFFFFFF000000000000000013B5DAB6
        FED6AACAB6B5E320B6FECEACCAFDD7E92C0000000000000000000000FFFFFFFF
        FFFFFFFF000000000000000013B5DAC8FDD6AACAB6B5E320D7D6B7FBCAFDD7E9
        1F0000000000000000000000FFFFFFFFFFFFFFFF000000000800000006B5DAB6
        FEBDDA360000000000000000000000FFFFFFFFFFFFFFFF00000000000000001D
        B5DAD2BBD6AACAB6B5E320D6B8D5EBB5C4CBB5C3F7BACDB3F5CABCBBAF2C0000
        000000000000000000FFFFFFFFFFFFFFFF000000000000000013B5DAB6FED6AA
        CAB6B5E320D6B8D5EBD4CBCBE3320000000000000000000000FFFFFFFFFFFFFF
        FF000000000000000019B5DAC8FDD6AACAB6B5E320D2BBCEACCAFDD7E9BACDD4
        CBCBE3320000000000000000000000FFFFFFFFFFFFFFFF000000000000000019
        B5DACBC4D6AACAB6B5E320B6FECEACCAFDD7E9BACDD4CBCBE334000000000000
        0000000000FFFFFFFFFFFFFFFF00000000000000001BB5DACEE5D6AACAB6B5E3
        20D7D6B7FBD6B8D5EBBACDD7D6B7FBB4AE2C0000000000000000000000FFFFFF
        FFFFFFFFFF000000000000000013B5DAC1F9D6AACAB6B5E320B6E0BCB6D6B8D5
        EB2E0000000000000000000000FFFFFFFFFFFFFFFF000000000000000015B5DA
        C6DFD6AACAB6B5E320D6B8D5EBD0CDBAAFCAFD320000000000000000000000FF
        FFFFFFFFFFFFFF000000000000000019B5DAB0CBD6AACAB6B5E320D6B8CFF2BA
        AFCAFDB5C4D6B8D5EB340000000000000000000000FFFFFFFFFFFFFFFF000000
        00020000001BB5DAC6DFD5C220BAAFCAFD2020BDE1B9B9CCE5D3EBB9B2D3C3CC
        E5200000000000000000000000FFFFFFFFFFFFFFFF000000000700000007B5DA
        D2BBBDDA202C0000000000000000000000FFFFFFFFFFFFFFFF00000000000000
        0013B5DAD2BBD6AACAB6B5E320BAAFCAFDC9E8BCC63200000000000000000000
        00FFFFFFFFFFFFFFFF000000000000000019B5DAB6FED6AACAB6B5E320BAAFCA
        FDB5C4B4E6B4A2C0E0D0CD3A0000000000000000000000FFFFFFFFFFFFFFFF00
        0000000000000021B5DAC8FDD6AACAB6B5E320B1E4C1BFB5C4D7F7D3C3D3F2BA
        CDB4E6B4A2C0E0D0CD320000000000000000000000FFFFFFFFFFFFFFFF000000
        000000000019B5DACBC4D6AACAB6B5E320BAAFCAFDB5C4CAFDBEDDB4ABB5DD36
        0000000000000000000000FFFFFFFFFFFFFFFF00000000000000001DB5DACEE5
        D6AACAB6B5E320CAFDD7E9D4DABAAFCAFDBCE4B5C4B4ABB5DD2C000000000000
        0000000000FFFFFFFFFFFFFFFF000000000000000013B5DAC1F9D6AACAB6B5E3
        20B5DDB9E9BAAFCAFD380000000000000000000000FFFFFFFFFFFFFFFF000000
        00000000001FB5DAC6DFD6AACAB6B5E320B4ABB5DD6D61696E2829BAAFCAFDB5
        C4B2CECAFD1F0000000000000000000000FFFFFFFFFFFFFFFF00000000090000
        0006B5DAB6FEBDDA380000000000000000000000FFFFFFFFFFFFFFFF00000000
        000000001FB5DAD2BBD6AACAB6B5E320BDE1B9B9CCE5B6A8D2E5BACDB1E4C1BF
        CBB5C3F73C0000000000000000000000FFFFFFFFFFFFFFFF0000000000000000
        23B5DAB6FED6AACAB6B5E320BDE1B9B9CCE5B1E4C1BFB5C4D2FDD3C3BACDB3F5
        CABCBBAF2E0000000000000000000000FFFFFFFFFFFFFFFF0000000000000000
        15B5DAC8FDD6AACAB6B5E320BDE1B9B9CCE5CAFDD7E92E000000000000000000
        0000FFFFFFFFFFFFFFFF000000000000000015B5DACBC4D6AACAB6B5E320BDE1
        B9B9CCE5D6B8D5EB400000000000000000000000FFFFFFFFFFFFFFFF00000000
        0000000027B5DACEE5D6AACAB6B5E320BAAFCAFDD6AEBCE4BDE1B9B9CCE5B1E4
        C1BFB5C4CAFDBEDDB4ABB5DD2E0000000000000000000000FFFFFFFFFFFFFFFF
        000000000000000015B5DAC1F9D6AACAB6B5E320BDE1B9B9CCE5C7B6CCD72800
        00000000000000000000FFFFFFFFFFFFFFFF00000000000000000FB5DAC6DFD6
        AACAB6B5E320C1B4B1ED2A0000000000000000000000FFFFFFFFFFFFFFFF0000
        00000000000011B5DAB0CBD6AACAB6B5E320B9B2D3C3CCE52C00000000000000
        00000000FFFFFFFFFFFFFFFF000000000000000013B5DABEC5D6AACAB6B5E320
        C3B6BED9C0E0D0CD2A0000000000000000000000FFFFFFFFFFFFFFFF00000000
        0200000011B5DAB0CBD5C220D4A4B4A6C0EDC3FCC1EE1F000000000000000000
        0000FFFFFFFFFFFFFFFF000000000300000006B5DAD2BBBDDA26000000000000
        0000000000FFFFFFFFFFFFFFFF00000000000000000DB5DAD2BBD6AACAB6B5E3
        20BAEA2C0000000000000000000000FFFFFFFFFFFFFFFF000000000000000013
        B5DAB6FED6AACAB6B5E320CCF5BCFEB1E0D2EB2C0000000000000000000000FF
        FFFFFFFFFFFFFF000000000000000013B5DAC8FDD6AACAB6B5E320CEC4BCFEB0
        FCBAAC1F0000000000000000000000FFFFFFFFFFFFFFFF000000000400000006
        B5DAB6FEBDDA2C0000000000000000000000FFFFFFFFFFFFFFFF000000000000
        000013B5DAD2BBD6AACAB6B5E320CEC4BCFEB8C5CAF632000000000000000000
        0000FFFFFFFFFFFFFFFF000000000000000019B5DAB6FED6AACAB6B5E320CEC4
        BCFEB5C4CAE4C8EBCAE4B3F6320000000000000000000000FFFFFFFFFFFFFFFF
        000000000000000019B5DAC8FDD6AACAB6B5E320CEC4BCFEB5C4B6A8CEBBB2D9
        D7F72E0000000000000000000000FFFFFFFFFFFFFFFF000000000000000015B5
        DACBC4D6AACAB6B5E320CEC4BCFEB5C4BCECB2E22C0000000000000000000000
        FFFFFFFFFFFFFFFF000000000400000013B5DABEC5D5C220B3A3D3C3CBE3B7A8
        C9E8BCC61F0000000000000000000000FFFFFFFFFFFFFFFF0000000001000000
        06B5DAD2BBBDDA280000000000000000000000FFFFFFFFFFFFFFFF0000000000
        0000000FB5DAD2BBD6AACAB6B5E320C5C5D0F21F0000000000000000000000FF
        FFFFFFFFFFFFFF000000000100000006B5DAB6FEBDDA28000000000000000000
        0000FFFFFFFFFFFFFFFF00000000000000000FB5DAD2BBD6AACAB6B5E320B2E9
        D5D21F0000000000000000000000FFFFFFFFFFFFFFFF000000000100000006B5
        DAC8FDBDDA2A0000000000000000000000FFFFFFFFFFFFFFFF00000000000000
        0011B5DAD2BBD6AACAB6B5E320C3B6BED9B7A81F0000000000000000000000FF
        FFFFFFFFFFFFFF000000000100000006B5DACBC4BDDA2A000000000000000000
        0000FFFFFFFFFFFFFFFF000000000000000011B5DAD2BBD6AACAB6B5E320B5DD
        B9E9B7A8}
    end
    object DBNavigator2: TDBNavigator
      Left = 384
      Top = 420
      Width = 56
      Height = 25
      DataSource = DataModule4.DataSource_procedure
      VisibleButtons = [nbInsert, nbDelete]
      TabOrder = 3
      OnClick = DBNavigator2Click
    end
    object BitBtn2: TBitBtn
      Left = 472
      Top = 420
      Width = 75
      Height = 25
      Caption = #30830#23450
      TabOrder = 4
      OnClick = BitBtn2Click
      Kind = bkOK
    end
    object BitBtn3: TBitBtn
      Left = 576
      Top = 420
      Width = 75
      Height = 25
      Caption = #21462#28040
      TabOrder = 5
      OnClick = BitBtn3Click
      Kind = bkCancel
    end
  end
  object PageControl1: TPageControl
    Left = 184
    Top = 0
    Width = 593
    Height = 409
    ActivePage = TabSheet2
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '  '#32534#31243#39064#25805#20316'  '
      OnShow = TabSheet1Show
      object Label1: TLabel
        Left = 16
        Top = 14
        Width = 63
        Height = 13
        Caption = #39064#24178#20869#23481'     '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 400
        Top = 14
        Width = 36
        Height = 13
        Caption = #32534#21495'    '
      end
      object Label3: TLabel
        Left = 16
        Top = 318
        Width = 60
        Height = 13
        Caption = #21442#32771#20998#25968'    '
      end
      object Label4: TLabel
        Left = 16
        Top = 350
        Width = 60
        Height = 13
        Caption = #38590'         '#24230'   '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 296
        Top = 32
        Width = 63
        Height = 13
        Caption = #21442#32771#31572#26696'     '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object DBEdit1: TDBEdit
        Left = 456
        Top = 8
        Width = 105
        Height = 21
        DataField = 'tno'
        DataSource = DataModule4.DataSource_procedure
        Enabled = False
        TabOrder = 0
        OnChange = DBEdit1Change
      end
      object DBMemo1: TDBMemo
        Left = 16
        Top = 32
        Width = 265
        Height = 273
        DataField = 'tigan'
        DataSource = DataModule4.DataSource_procedure
        ScrollBars = ssBoth
        TabOrder = 1
      end
      object DBMemo2: TDBMemo
        Left = 296
        Top = 52
        Width = 265
        Height = 313
        DataField = 'answer'
        DataSource = DataModule4.DataSource_procedure
        ScrollBars = ssBoth
        TabOrder = 2
      end
      object DBEdit2: TDBEdit
        Left = 128
        Top = 312
        Width = 121
        Height = 21
        DataField = 'score'
        DataSource = DataModule4.DataSource_procedure
        TabOrder = 3
      end
      object DBComboBox1: TDBComboBox
        Left = 128
        Top = 344
        Width = 121
        Height = 21
        DataField = 'difficulty'
        DataSource = DataModule4.DataSource_procedure
        ItemHeight = 13
        Items.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5')
        TabOrder = 4
      end
    end
    object TabSheet2: TTabSheet
      Caption = '  '#32534#31243#39064#24635#35272'  '
      ImageIndex = 1
      OnShow = TabSheet2Show
      object Label6: TLabel
        Left = 224
        Top = 8
        Width = 210
        Height = 24
        Caption = #32534'  '#31243'  '#39064'  '#24635'  '#35272'  '#34920'        '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -20
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label7: TLabel
        Left = 24
        Top = 24
        Width = 48
        Height = 13
        Caption = #39064'    '#30446':   '
        Transparent = True
      end
      object DBGrid1: TDBGrid
        Left = 24
        Top = 200
        Width = 537
        Height = 169
        DataSource = DataModule4.DataSource_procedure
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'tno'
            Title.Caption = '  '#39064#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'score'
            Title.Caption = '  '#21442#32771#20998#25968
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'difficulty'
            Title.Caption = '  '#38590#26131#24230
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'note'
            Title.Caption = '  '#22791#27880
            Visible = True
          end>
      end
      object DBMemo3: TDBMemo
        Left = 24
        Top = 40
        Width = 265
        Height = 153
        DataField = 'tigan'
        DataSource = DataModule4.DataSource_procedure
        TabOrder = 1
      end
      object DBMemo4: TDBMemo
        Left = 320
        Top = 40
        Width = 233
        Height = 153
        DataField = 'answer'
        DataSource = DataModule4.DataSource_procedure
        TabOrder = 2
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 196
    Top = 16
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'abao'
    SQL.Strings = (
      'select * from ti_procedure where tno=0000')
    Left = 292
    Top = 8
  end
  object Query2: TQuery
    Active = True
    DatabaseName = 'abao'
    SQL.Strings = (
      'select * from ti_procedure')
    Left = 340
    Top = 16
  end
end

						