frmchengjishuru.dfm

大学田径运动会管理系统

inherited chengjishuru: Tchengjishuru
  Left = 81
  Top = 55
  Width = 663
  Height = 486
  Caption = '成绩输入'
  ParentFont = False
  Font.Charset = ANSI_CHARSET
  Font.Height = -13
  Font.Name = '宋体'
  OldCreateOrder = True
  Position = poMainFormCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 417
    Top = 41
    Width = 3
    Height = 378
    Cursor = crHSplit
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 41
    Width = 417
    Height = 378
    Align = alLeft
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 0
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'YDYBH'
        Title.Caption = '运动员编号'
        Width = 69
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'YDYXM'
        Title.Caption = '运动员姓名'
        Width = 71
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PDH'
        Title.Caption = '跑道号'
        Width = 44
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'm_cj'
        Title.Caption = '成绩'
        Width = 85
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'XZMC'
        Title.Caption = '名次'
        Width = 43
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CJBZ'
        Title.Caption = '备注'
        Width = 74
        Visible = True
      end>
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 655
    Height = 41
    Align = alTop
    TabOrder = 1
    object Label1: TLabel
      Left = 7
      Top = 16
      Width = 99
      Height = 13
      AutoSize = False
      Caption = '所属类别->分组:'
    end
    object Label2: TLabel
      Left = 267
      Top = 16
      Width = 26
      Height = 13
      Caption = '项目'
    end
    object Label3: TLabel
      Left = 416
      Top = 16
      Width = 58
      Height = 13
      AutoSize = False
      Caption = '比赛方式'
    end
    object lbfz: TComboBox
      Left = 115
      Top = 12
      Width = 150
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      OnChange = lbfzChange
    end
    object xm: TComboBox
      Left = 299
      Top = 11
      Width = 110
      Height = 21
      ItemHeight = 13
      TabOrder = 1
      OnChange = xmChange
    end
    object bsfs: TComboBox
      Left = 489
      Top = 12
      Width = 87
      Height = 21
      ItemHeight = 13
      TabOrder = 2
      OnChange = bsfsChange
    end
    object BitBtn1: TBitBtn
      Left = 583
      Top = 10
      Width = 56
      Height = 25
      Caption = '开始'
      TabOrder = 3
      OnClick = BitBtn1Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 419
    Width = 655
    Height = 40
    Align = alBottom
    TabOrder = 2
    object BitBtn2: TBitBtn
      Left = 136
      Top = 10
      Width = 75
      Height = 25
      Caption = '提交'
      TabOrder = 0
      OnClick = BitBtn2Click
    end
    object BitBtn3: TBitBtn
      Left = 326
      Top = 11
      Width = 75
      Height = 25
      Caption = '打印'
      TabOrder = 1
    end
    object BitBtn4: TBitBtn
      Left = 230
      Top = 11
      Width = 75
      Height = 25
      Caption = '结束'
      TabOrder = 2
      OnClick = BitBtn4Click
    end
    object BitBtn5: TBitBtn
      Left = 426
      Top = 11
      Width = 75
      Height = 25
      Caption = '关闭窗口'
      TabOrder = 3
      OnClick = BitBtn5Click
    end
  end
  object Panel1: TPanel
    Left = 420
    Top = 41
    Width = 235
    Height = 378
    Align = alClient
    TabOrder = 3
    object GroupBox3: TGroupBox
      Left = 1
      Top = 1
      Width = 233
      Height = 208
      Align = alTop
      TabOrder = 0
      object Label4: TLabel
        Left = 134
        Top = 15
        Width = 46
        Height = 13
        Caption = '小组号:'
      end
      object Label5: TLabel
        Left = 4
        Top = 16
        Width = 39
        Height = 13
        Caption = '子项目'
      end
      object Label6: TLabel
        Left = 15
        Top = 80
        Width = 52
        Height = 13
        Caption = '成绩输入'
      end
      object Label7: TLabel
        Left = 15
        Top = 50
        Width = 52
        Height = 13
        Caption = '成绩格式'
      end
      object Label8: TLabel
        Left = 15
        Top = 109
        Width = 52
        Height = 13
        Caption = '验证成绩'
      end
      object Label9: TLabel
        Left = 32
        Top = 133
        Width = 26
        Height = 13
        Caption = '备注'
      end
      object zxm: TComboBox
        Left = 50
        Top = 11
        Width = 83
        Height = 21
        ItemHeight = 13
        TabOrder = 0
        OnChange = zxmChange
      end
      object cjgs: TEdit
        Left = 78
        Top = 45
        Width = 106
        Height = 21
        ReadOnly = True
        TabOrder = 1
      end
      object cj1: TMaskEdit
        Left = 77
        Top = 76
        Width = 115
        Height = 21
        TabOrder = 2
        OnKeyDown = cj1KeyDown
      end
      object cj2: TMaskEdit
        Left = 77
        Top = 105
        Width = 115
        Height = 21
        TabOrder = 3
        OnKeyDown = cj2KeyDown
      end
      object BitBtn6: TBitBtn
        Left = 72
        Top = 168
        Width = 75
        Height = 25
        Caption = '输入'
        TabOrder = 4
        OnClick = BitBtn6Click
      end
      object cjbz: TComboBox
        Left = 76
        Top = 130
        Width = 109
        Height = 21
        ItemHeight = 13
        TabOrder = 5
        Items.Strings = (
          '正常'
          '破记录'
          '没有成绩'
          '无效'
          '没有比赛')
      end
      object xzh: TComboBox
        Left = 181
        Top = 10
        Width = 43
        Height = 21
        ItemHeight = 13
        TabOrder = 6
        Text = '1'
        Items.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5'
          '6'
          '7'
          '8'
          '9'
          '10'
          '11'
          '12'
          '13'
          '14'
          '15'
          '16'
          '17'
          '18'
          '19'
          '20'
          '21'
          '22'
          '23'
          '24'
          '25'
          '26'
          '27'
          '28'
          '29'
          '30'
          '31'
          '32'
          '33'
          '34'
          '35'
          '36'
          '37'
          '38'
          '39'
          '40'
          '41'
          '42'
          '43'
          '44'
          '45'
          '46'
          '47'
          '48'
          '49'
          '50')
      end
    end
  end
  object sr_con: TADOConnection
    LoginPrompt = False
    Left = 424
    Top = 264
  end
  object sr_query: TADOQuery
    Connection = sr_con
    AfterScroll = sr_queryAfterScroll
    Parameters = <>
    Left = 460
    Top = 265
  end
  object DataSource1: TDataSource
    DataSet = sr_query
    Left = 500
    Top = 265
  end
end