u_setinitparam.dfm

一个简单的学籍管理软件

object Fm_SetInitParam: TFm_SetInitParam
  Left = 182
  Top = 87
  BorderStyle = bsDialog
  Caption = '初始化参数设置'
  ClientHeight = 322
  ClientWidth = 498
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 14
  object Bevel1: TBevel
    Left = 0
    Top = 269
    Width = 498
    Height = 53
    Align = alBottom
    Shape = bsTopLine
  end
  object Btn_Ok: TButton
    Left = 97
    Top = 285
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = '确定'
    TabOrder = 0
    OnClick = Btn_OkClick
  end
  object Btn_Cancel: TButton
    Left = 212
    Top = 285
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = '取消'
    ModalResult = 2
    TabOrder = 1
  end
  object Btn_Help: TButton
    Left = 327
    Top = 285
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = '帮助'
    TabOrder = 2
  end
  object GrpBox_Xn: TGroupBox
    Left = 29
    Top = 9
    Width = 440
    Height = 83
    Caption = ' 启用参数 '
    TabOrder = 3
    object Label1: TLabel
      Left = 14
      Top = 23
      Width = 70
      Height = 14
      Caption = '启用学年：'
    end
    object Label3: TLabel
      Left = 14
      Top = 53
      Width = 70
      Height = 14
      Caption = '当前学年：'
    end
    object Label2: TLabel
      Left = 252
      Top = 23
      Width = 70
      Height = 14
      Caption = '启用学期：'
    end
    object Label4: TLabel
      Left = 252
      Top = 53
      Width = 70
      Height = 14
      Caption = '当前学期：'
    end
    object Label6: TLabel
      Left = 142
      Top = 23
      Width = 7
      Height = 14
      Caption = '-'
    end
    object Label7: TLabel
      Left = 142
      Top = 53
      Width = 7
      Height = 14
      Caption = '-'
    end
    object Label9: TLabel
      Left = 212
      Top = 23
      Width = 28
      Height = 14
      Caption = '年度'
    end
    object Label10: TLabel
      Left = 212
      Top = 53
      Width = 28
      Height = 14
      Caption = '年度'
    end
    object SpEd_CurYear: TSpinEdit
      Left = 84
      Top = 49
      Width = 54
      Height = 23
      MaxLength = 4
      MaxValue = 2050
      MinValue = 1980
      TabOrder = 5
      Value = 2000
      OnChange = SpEd_CurYearChange
    end
    object SpEd_BeginYear: TSpinEdit
      Left = 84
      Top = 19
      Width = 54
      Height = 23
      MaxLength = 4
      MaxValue = 2050
      MinValue = 1980
      TabOrder = 4
      Value = 2000
      OnChange = SpEd_BeginYearChange
    end
    object CmbBox_BeginXqi: TComboBox
      Left = 321
      Top = 19
      Width = 104
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 1
      Items.Strings = (
        '第一学期'
        '第二学期')
    end
    object CmbBox_CurXqi: TComboBox
      Left = 321
      Top = 49
      Width = 104
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 3
      Items.Strings = (
        '第一学期'
        '第二学期')
    end
    object Ed_BeginYear2: TEdit
      Left = 153
      Top = 19
      Width = 53
      Height = 22
      Enabled = False
      TabOrder = 0
    end
    object Ed_CurYear2: TEdit
      Left = 153
      Top = 49
      Width = 53
      Height = 22
      Enabled = False
      TabOrder = 2
    end
  end
  object GrpBox_Classes: TGroupBox
    Left = 29
    Top = 100
    Width = 440
    Height = 134
    Caption = ' 班级参数 '
    TabOrder = 4
    object Label5: TLabel
      Left = 15
      Top = 25
      Width = 49
      Height = 14
      Caption = '年级数:'
    end
    object Label8: TLabel
      Left = 166
      Top = 25
      Width = 84
      Height = 14
      Caption = '各年级班数：'
    end
    object SpEdit_Grades: TSpinEdit
      Left = 74
      Top = 21
      Width = 40
      Height = 23
      MaxLength = 2
      MaxValue = 6
      MinValue = 3
      TabOrder = 0
      Value = 3
      OnExit = SpEdit_GradesExit
    end
    object MGrid: THDBGrid
      Left = 260
      Top = 17
      Width = 162
      Height = 111
      LineColor = clBlack
      CaptionBckColor = clBtnFace
      CaptionHeight = 0
      CaptionPanelFont.Charset = DEFAULT_CHARSET
      CaptionPanelFont.Color = clWindowText
      CaptionPanelFont.Height = -14
      CaptionPanelFont.Name = '宋体'
      CaptionPanelFont.Style = []
      CaptionTextColor = clBlack
      CaptionUnderLine = usDouble
      CurRowHighlight = True
      CurRowColor = clTeal
      DataSource = DDS
      LimitedCol = 0
      LimitedColor = clInfoBk
      VertToBound = True
      FixedStyle = gtPlane
      Options = [tgEditing, tgTitles, tgLimitedColMoving, tgColLines, tgTabs, tgConfirmDelete, tgCancelOnExit]
      HeightPerRow = 0
      ReturnDirection = rdDown
      RowAlternate = False
      RowAlternateColor = clWindow
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -14
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      TitleRow = 2
      VertAlignment = vgCenter
      Columns = <
        item
          CanEdit = False
          Expanded = False
          FieldName = 'nji'
          KiloFlag = False
          Title.HAlignment = hgLeft
          Title.Caption = '年级号'
          Width = 93
          Visible = True
          MoneyLine = False
          LeftMoneyDouble = True
        end
        item
          Expanded = False
          FieldName = 'bshu'
          KiloFlag = False
          Title.Caption = '班数'
          Width = 44
          Visible = True
          MoneyLine = False
          LeftMoneyDouble = True
        end>
    end
  end
  object ChkBox_BeginUse: TCheckBox
    Left = 29
    Top = 243
    Width = 92
    Height = 17
    Caption = '开始启用'
    TabOrder = 5
  end
  object DQuery: TQuery
    CachedUpdates = True
    DatabaseName = 'LDSTUSYS'
    SQL.Strings = (
      'SELECT '#39'      '#39' AS nji, TableNo AS bshu FROM dict1 WHERE 0=1')
    UpdateObject = DUpSQL
    Left = 401
    Top = 242
  end
  object DDS: TDataSource
    DataSet = DQuery
    Left = 438
    Top = 241
  end
  object DUpSQL: TUpdateSQL
    Left = 476
    Top = 241
  end
end