unit13.dfm

来自「学校学籍管理系统」· DFM 代码 · 共 1,136 行 · 第 1/2 页

DFM
1,136 行
字号
12
object Form13: TForm13
  Left = 287
  Top = 194
  Width = 469
  Height = 458
  BorderIcons = [biMinimize, biMaximize, biHelp]
  Caption = #36164#26009#24405#20837
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 461
    Height = 431
    ActivePage = TabSheet1
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clInfoText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #23398#31821#21464#26356#36755#20837
      ImageIndex = 1
      object Label1: TLabel
        Left = 17
        Top = 69
        Width = 70
        Height = 13
        Caption = #36755#20837#23398#21495#65306
        Font.Charset = ANSI_CHARSET
        Font.Color = clInfoText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label5: TLabel
        Left = 28
        Top = 212
        Width = 66
        Height = 13
        Caption = #20855#20307#25551#36848#65306
      end
      object Label16: TLabel
        Left = 40
        Top = 148
        Width = 84
        Height = 13
        Caption = #23398#31821#21464#26356#24773#20917
        Font.Charset = ANSI_CHARSET
        Font.Color = clInfoText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label17: TLabel
        Left = 248
        Top = 144
        Width = 84
        Height = 13
        Caption = #23398#31821#21464#26356#26085#26399
        Font.Charset = ANSI_CHARSET
        Font.Color = clInfoText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object i_stud_id_1: TMaskEdit
        Left = 89
        Top = 64
        Width = 81
        Height = 21
        EditMask = '000000;1;_'
        MaxLength = 6
        TabOrder = 0
        Text = '      '
        OnChange = i_stud_id_1Change
      end
      object GroupBox1: TGroupBox
        Left = 216
        Top = 14
        Width = 210
        Height = 110
        Caption = #23398#29983#22522#26412#24773#20917
        TabOrder = 1
        object Label2: TLabel
          Left = 16
          Top = 24
          Width = 40
          Height = 13
          Caption = #22995#21517#65306
        end
        object Label3: TLabel
          Left = 16
          Top = 53
          Width = 40
          Height = 13
          Caption = #29677#32423#65306
        end
        object Label4: TLabel
          Left = 16
          Top = 82
          Width = 40
          Height = 13
          Caption = #19987#19994#65306
        end
        object DBText1: TDBText
          Left = 72
          Top = 24
          Width = 105
          Height = 17
          DataField = 'user'
          DataSource = DataSource1
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object DBText2: TDBText
          Left = 72
          Top = 53
          Width = 105
          Height = 17
          DataField = 'bang'
          DataSource = DataSource1
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object DBText3: TDBText
          Left = 72
          Top = 82
          Width = 113
          Height = 17
          DataField = 'jian'
          DataSource = DataSource1
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
      end
      object i_descrip_1: TMemo
        Left = 12
        Top = 232
        Width = 418
        Height = 128
        ImeMode = imOpen
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 2
      end
      object Button1: TButton
        Left = 455
        Top = 488
        Width = 75
        Height = 25
        Cancel = True
        Caption = #24674#22797
        TabOrder = 4
      end
      object Button2: TButton
        Left = 223
        Top = 488
        Width = 75
        Height = 26
        Caption = #28155#21152
        Default = True
        TabOrder = 3
      end
      object Button8: TButton
        Left = 55
        Top = 370
        Width = 65
        Height = 25
        Caption = #28155#21152
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clInfoText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
        OnClick = Button8Click
      end
      object Button9: TButton
        Left = 180
        Top = 370
        Width = 65
        Height = 25
        Caption = #24674#22797
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clInfoText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 6
        OnClick = Button9Click
      end
      object DateTimePicker1: TDateTimePicker
        Left = 250
        Top = 169
        Width = 120
        Height = 24
        Date = 38035.560853043980000000
        Time = 38035.560853043980000000
        TabOrder = 7
      end
      object DBLookupComboBox1: TDBLookupComboBox
        Left = 39
        Top = 171
        Width = 136
        Height = 21
        DataField = 'ji'
        DataSource = DataSource2
        KeyField = 'ji'
        ListField = 'ji'
        ListSource = DataSource3
        TabOrder = 8
      end
      object Button7: TButton
        Left = 300
        Top = 370
        Width = 65
        Height = 25
        Caption = #20851#38381
        TabOrder = 9
        OnClick = Button7Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = #32771#21220#24773#20917#36755#20837
      ImageIndex = 5
      object Label37: TLabel
        Left = 17
        Top = 69
        Width = 66
        Height = 13
        Caption = #36755#20837#23398#21495#65306
      end
      object Label41: TLabel
        Left = 29
        Top = 214
        Width = 66
        Height = 13
        Caption = #20855#20307#25551#36848#65306
      end
      object Label24: TLabel
        Left = 248
        Top = 144
        Width = 84
        Height = 13
        Caption = #35831#20551#21464#26356#26085#26399
        Font.Charset = ANSI_CHARSET
        Font.Color = clInfoText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label25: TLabel
        Left = 40
        Top = 148
        Width = 84
        Height = 13
        Caption = #35831#20551#21464#26356#24773#20917
        Font.Charset = ANSI_CHARSET
        Font.Color = clInfoText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object GroupBox9: TGroupBox
        Left = 216
        Top = 14
        Width = 210
        Height = 110
        Caption = #23398#29983#22522#26412#24773#20917
        TabOrder = 1
        object Label38: TLabel
          Left = 16
          Top = 24
          Width = 40
          Height = 13
          Caption = #22995#21517#65306
        end
        object Label39: TLabel
          Left = 16
          Top = 53
          Width = 40
          Height = 13
          Caption = #29677#32423#65306
        end
        object Label40: TLabel
          Left = 16
          Top = 82
          Width = 40
          Height = 13
          Caption = #19987#19994#65306
        end
        object DBText10: TDBText
          Left = 72
          Top = 24
          Width = 105
          Height = 17
          DataField = 'user'
          DataSource = DataSource1
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object DBText11: TDBText
          Left = 72
          Top = 53
          Width = 105
          Height = 17
          DataField = 'bang'
          DataSource = DataSource1
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object DBText12: TDBText
          Left = 72
          Top = 82
          Width = 113
          Height = 17
          DataField = 'jian'
          DataSource = DataSource1
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
      end
      object i_stud_id_5: TMaskEdit
        Left = 89
        Top = 64
        Width = 81
        Height = 21
        EditMask = '000000;1;_'
        MaxLength = 6
        TabOrder = 0
        Text = '      '
        OnChange = i_stud_id_5Change
      end
      object i_descrip_5: TMemo
        Left = 12
        Top = 232
        Width = 418
        Height = 128
        ImeMode = imOpen
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 2
      end
      object Button17: TButton
        Left = 55
        Top = 370
        Width = 65
        Height = 25
        Caption = #28155#21152
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clInfoText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnClick = Button17Click
      end
      object Button18: TButton
        Left = 180
        Top = 370
        Width = 65
        Height = 25
        Caption = #24674#22797
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clInfoText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        OnClick = Button18Click
      end
      object DateTimePicker5: TDateTimePicker
        Left = 250
        Top = 169
        Width = 120
        Height = 24
        Date = 38035.560853043980000000
        Time = 38035.560853043980000000
        TabOrder = 5
      end
      object DBLookupComboBox2: TDBLookupComboBox
        Left = 39
        Top = 171
        Width = 136
        Height = 21
        DataField = 'ji1'
        DataSource = DataSource7
        KeyField = 'ji1'
        ListField = 'ji1'
        ListSource = DataSource4
        TabOrder = 6
      end
      object Button10: TButton
        Left = 300
        Top = 370
        Width = 65
        Height = 25
        Caption = #20851#38381
        TabOrder = 7
        OnClick = Button10Click
      end
    end
    object TabSheet3: TTabSheet
      Caption = #22870#21169#24773#20917#36755#20837
      ImageIndex = 2
      object Label6: TLabel
        Left = 17
        Top = 68
        Width = 66
        Height = 13
        Caption = #36755#20837#23398#21495#65306
      end
      object Label10: TLabel
        Left = 29
        Top = 214
        Width = 66
        Height = 13
        Caption = #20855#20307#25551#36848#65306
      end
      object Label18: TLabel
        Left = 248
        Top = 144
        Width = 84
        Height = 13
        Caption = #22870#21169#21464#26356#26085#26399
        Font.Charset = ANSI_CHARSET
        Font.Color = clInfoText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label19: TLabel
        Left = 40
        Top = 148
        Width = 84
        Height = 13
        Caption = #22870#21169#21464#26356#24773#20917
        Font.Charset = ANSI_CHARSET
        Font.Color = clInfoText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object i_stud_id_2: TMaskEdit
        Left = 89
        Top = 64
        Width = 80
        Height = 21
        EditMask = '000000;1;_'
        MaxLength = 6
        TabOrder = 0
        Text = '      '
        OnChange = i_stud_id_2Change
      end
      object GroupBox2: TGroupBox
        Left = 216
        Top = 14
        Width = 210
        Height = 110
        Caption = #23398#29983#22522#26412#24773#20917
        TabOrder = 1
        object Label7: TLabel
          Left = 16
          Top = 24
          Width = 40
          Height = 13
          Caption = #22995#21517#65306
        end
        object Label8: TLabel
          Left = 16
          Top = 53
          Width = 40
          Height = 13
          Caption = #29677#32423#65306
        end
        object Label9: TLabel
          Left = 16
          Top = 82
          Width = 40
          Height = 13
          Caption = #19987#19994#65306
        end
        object DBText4: TDBText
          Left = 72
          Top = 24
          Width = 105
          Height = 17
          DataField = 'user'
          DataSource = DataSource1
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object DBText5: TDBText
          Left = 72
          Top = 53
          Width = 105
          Height = 17
          DataField = 'bang'
          DataSource = DataSource1
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object DBText6: TDBText
          Left = 72
          Top = 82
          Width = 113
          Height = 17
          DataField = 'jian'
          DataSource = DataSource1
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
12

unit13.dfm - 源码说明

本页面展示了「学校学籍管理系统」中的 unit13.dfm 源码文件，采用 DFM 编程语言编写，共 1,136 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与管理系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?