unit3.dfm

试卷生成系统 delphi 试卷生成系统 试卷生成系统

object teacher: Tteacher
  Left = 197
  Top = 182
  Width = 437
  Height = 316
  Caption = 'teacher'
  Color = clSkyBlue
  Font.Charset = GB2312_CHARSET
  Font.Color = clYellow
  Font.Height = -21
  Font.Name = #38582#20070
  Font.Style = [fsBold]
  OldCreateOrder = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 21
  object Panel1: TPanel
    Left = 104
    Top = 16
    Width = 225
    Height = 33
    BevelInner = bvRaised
    BevelWidth = 2
    Caption = #25945#24072#30331#38470
    Color = clPurple
    TabOrder = 0
  end
  object Panel2: TPanel
    Left = 16
    Top = 64
    Width = 393
    Height = 217
    BevelWidth = 2
    Color = clSkyBlue
    TabOrder = 1
    object Label1: TLabel
      Left = 48
      Top = 32
      Width = 93
      Height = 21
      Caption = #25945#24072#32534#21495
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -21
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 48
      Top = 72
      Width = 93
      Height = 21
      Caption = #25945#24072#22995#21517
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -21
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 48
      Top = 112
      Width = 93
      Height = 21
      Caption = #25152#25945#35838#31243
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -21
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object no: TEdit
      Left = 176
      Top = 32
      Width = 153
      Height = 27
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -19
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ImeName = #26234#33021'ABC'#36755#20837#27861
      ParentFont = False
      PasswordChar = '*'
      TabOrder = 0
      OnKeyPress = noKeyPress
    end
    object name: TEdit
      Left = 176
      Top = 72
      Width = 153
      Height = 27
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -19
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ImeName = #26234#33021'ABC'#36755#20837#27861
      ParentFont = False
      TabOrder = 1
    end
    object ke: TComboBox
      Left = 176
      Top = 112
      Width = 153
      Height = 27
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -19
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ImeName = #26234#33021'ABC'#36755#20837#27861
      ItemHeight = 19
      ParentFont = False
      TabOrder = 2
      Items.Strings = (
        #32447#24615#20195#25968
        #22806#35821)
    end
    object Button1: TButton
      Left = 144
      Top = 168
      Width = 113
      Height = 33
      Caption = #30830#35748
      TabOrder = 3
      OnClick = Button1Click
    end
  end
  object Database1: TDatabase
    AliasName = 'dianzishijuan'
    Connected = True
    DatabaseName = #30005#23376#35797#21367#24211
    LoginPrompt = False
    SessionName = 'Default'
    Left = 32
    Top = 24
  end
  object sfjy: TQuery
    DatabaseName = #30005#23376#35797#21367#24211
    SQL.Strings = (
      'select *'
      'from '#25945#24072#22522#26412#24773#20917#34920
      'where '#25945#24072#32534#21495'=:no and '#25945#24072#22995#21517'=:name and '#25152#25945#35838#31243'=:kecheng')
    Left = 64
    Top = 24
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'no'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'name'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'kecheng'
        ParamType = ptUnknown
      end>
  end
end