unitstuinput.dfm

来自「这是我做的一个大学院系成绩管理系统」· DFM 代码 · 共 439 行 · 第 1/2 页

object FMStuInput: TFMStuInput
  Left = 401
  Top = 230
  BorderStyle = bsDialog
  Caption = #23398#29983#20449#24687
  ClientHeight = 292
  ClientWidth = 283
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 265
    Height = 225
    Caption = #32534#36753#21306
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      Top = 24
      Width = 24
      Height = 13
      Caption = #23398#21495
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Microsoft Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 24
      Top = 56
      Width = 24
      Height = 13
      Caption = #29677#32423
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Microsoft Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 24
      Top = 80
      Width = 24
      Height = 13
      Caption = #22995#21517
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Microsoft Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 24
      Top = 120
      Width = 24
      Height = 13
      Caption = #24615#21035
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Microsoft Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 16
      Top = 152
      Width = 48
      Height = 13
      Caption = #25919#27835#38754#35980
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Microsoft Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 24
      Top = 184
      Width = 24
      Height = 13
      Caption = #30465#20221
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Microsoft Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBComboBox3: TDBComboBox
      Left = 88
      Top = 176
      Width = 97
      Height = 21
      DataField = 'SProvince'
      DataSource = FMDBConnect.DataSourceStu
      ItemHeight = 13
      Items.Strings = (
        #21271#20140#24066
        #22825#27941#24066
        #27827#21271#30465
        #23665#35199#30465
        #20869#33945#21476#33258#27835#21306
        #36797#23425#30465
        #21513#26519#30465
        #40657#40857#27743#30465
        #19978#28023#24066
        #27743#33487#30465
        #27993#27743#30465
        #23433#24509#30465
        #31119#24314#30465
        #27743#35199#30465
        #23665#19996#30465
        #21271#20140#24066#26397#38451#21306
        #28246#21271#30465
        #28246#21335#30465
        #24191#19996#30465
        #24191#35199#22766#26063#33258#27835#21306
        #28023#21335#30465
        #37325#24198#24066
        #27827#21271#30465#21776#23665#24066
        #36149#24030#30465
        #20113#21335#30465
        #35199#34255#33258#27835#21306
        #38485#35199#30465
        #29976#32899#30465
        #38738#28023#30465
        #23425#22799#22238#26063#33258#27835#21306
        #26032#30086#32500#21566#23572#33258#27835#21306
        #21488#28286
        #39321#28207
        #28595#38376
        #21326#20392)
      TabOrder = 0
    end
    object DBComboBox2: TDBComboBox
      Left = 88
      Top = 144
      Width = 97
      Height = 21
      DataField = 'SPolity'
      DataSource = FMDBConnect.DataSourceStu
      ItemHeight = 13
      Items.Strings = (
        #32676#20247
        #22242#21592
        #20826#21592)
      TabOrder = 1
    end
    object DBComboBox1: TDBComboBox
      Left = 88
      Top = 112
      Width = 97
      Height = 21
      DataField = 'SSex'
      DataSource = FMDBConnect.DataSourceStu
      ItemHeight = 13
      Items.Strings = (
        #30007
        #22899)
      TabOrder = 2
    end
    object DBEdit2: TDBEdit
      Left = 88
      Top = 80
      Width = 97
      Height = 21
      DataField = 'SName'
      DataSource = FMDBConnect.DataSourceStu
      TabOrder = 3
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 88
      Top = 48
      Width = 97
      Height = 21
      DataField = 'SClassNo'
      DataSource = FMDBConnect.DataSourceStu
      KeyField = 'ClNo'
      ListField = 'ClNo'
      ListFieldIndex = 2
      ListSource = FMDBConnect.DataSourceClass
      TabOrder = 4
    end
    object DBEdit1: TDBEdit
      Left = 88
      Top = 16
      Width = 97
      Height = 21
      DataField = 'SNo'
      DataSource = FMDBConnect.DataSourceStu
      TabOrder = 5
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 240
    Width = 265
    Height = 49
    Caption = #21629#20196#21306
    TabOrder = 1
    object Imageok: TImage
      Left = 40
      Top = 20
      Width = 50
      Height = 21
      AutoSize = True