⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 fmain.dfm

📁 使用delphi编写的运动会编排程序,还需要更加完善!
💻 DFM
📖 第 1 页 / 共 3 页
字号:
          RzSplitter6)
        object RzPanel8: TRzPanel
          Left = 0
          Top = 0
          Width = 0
          Height = 537
          Align = alClient
          BorderOuter = fsGroove
          TabOrder = 0
        end
        object RzSplitter6: TRzSplitter
          Left = 0
          Top = 0
          Width = 750
          Height = 537
          Orientation = orVertical
          Position = 0
          Percent = 0
          HotSpotVisible = True
          SplitterWidth = 7
          UseGradients = True
          Align = alClient
          TabOrder = 0
          BarSize = (
            0
            0
            750
            7)
          HotSpotClosed = True
          HotSpotClosedToMin = True
          HotSpotClosedToMax = False
          HotSpotPosition = 197
          UpperLeftControls = (
            RzPanel10)
          LowerRightControls = (
            RzPanel9
            RzPanel11)
          object RzPanel10: TRzPanel
            Left = 0
            Top = 0
            Width = 750
            Height = 0
            Align = alClient
            BorderOuter = fsGroove
            TabOrder = 0
          end
          object RzPanel9: TRzPanel
            Left = 0
            Top = 0
            Width = 750
            Height = 487
            Align = alClient
            BorderOuter = fsGroove
            TabOrder = 0
            object cxGrid3: TcxGrid
              Left = 2
              Top = 2
              Width = 746
              Height = 483
              Align = alClient
              TabOrder = 0
              object cxGrid3DBTableView1: TcxGridDBTableView
                DataController.DataSource = dsGame
                DataController.Filter.Criteria = {FFFFFFFF0000000000}
                DataController.Summary.DefaultGroupSummaryItems = <>
                DataController.Summary.FooterSummaryItems = <>
                DataController.Summary.SummaryGroups = <>
                NavigatorButtons.ConfirmDelete = False
                object cxGrid3DBTableView1eveName: TcxGridDBColumn
                  Caption = #39044#36187#39033#30446
                  GroupIndex = 0
                  Options.Editing = False
                  SortOrder = soAscending
                  Width = 165
                  DataBinding.FieldName = 'eveName'
                end
                object cxGrid3DBTableView1athNO: TcxGridDBColumn
                  Caption = #21495#30721
                  Options.Editing = False
                  Width = 66
                  DataBinding.FieldName = 'athNO'
                end
                object cxGrid3DBTableView1firAchi: TcxGridDBColumn
                  Caption = #39044#36187#25104#32489
                  Width = 90
                  DataBinding.FieldName = 'firAchi'
                end
                object cxGrid3DBTableView1firPla: TcxGridDBColumn
                  Caption = #39044#36187#21517#27425
                  SortOrder = soAscending
                  Width = 98
                  DataBinding.FieldName = 'firPla'
                end
                object cxGrid3DBTableView1memo: TcxGridDBColumn
                  Caption = #22791#27880
                  DataBinding.FieldName = 'memo'
                end
              end
              object cxGrid3Level1: TcxGridLevel
                GridView = cxGrid3DBTableView1
              end
            end
          end
          object RzPanel11: TRzPanel
            Left = 0
            Top = 487
            Width = 750
            Height = 43
            Align = alBottom
            BorderOuter = fsNone
            TabOrder = 1
            object cxDBNavigator3: TcxDBNavigator
              Left = 2
              Top = 8
              Width = 360
              Height = 25
              DataSource = dsGame
              Align = alCustom
              ParentShowHint = False
              ShowHint = True
              TabOrder = 0
            end
            object cxButton1: TcxButton
              Left = 528
              Top = 10
              Width = 75
              Height = 25
              Caption = #33258#21160#25490#21517
              TabOrder = 1
              OnClick = cxButton1Click
              LookAndFeel.Kind = lfUltraFlat
              LookAndFeel.NativeStyle = False
            end
          end
        end
      end
    end
    object TabSheet4: TRzTabSheet
      Caption = #20915#36187
      object RzPanel12: TRzPanel
        Left = 0
        Top = 0
        Width = 757
        Height = 496
        Align = alClient
        BorderOuter = fsNone
        TabOrder = 0
        object cxGrid4: TcxGrid
          Left = 0
          Top = 0
          Width = 757
          Height = 496
          Align = alClient
          TabOrder = 0
          object cxGrid4DBTableView1: TcxGridDBTableView
            DataController.DataSource = dsFinal
            DataController.Filter.Criteria = {FFFFFFFF0000000000}
            DataController.Summary.DefaultGroupSummaryItems = <>
            DataController.Summary.FooterSummaryItems = <>
            DataController.Summary.SummaryGroups = <>
            NavigatorButtons.ConfirmDelete = False
            object cxGrid4DBTableView1eveName: TcxGridDBColumn
              Caption = #20915#36187#39033#30446
              GroupIndex = 0
              Options.Editing = False
              SortOrder = soAscending
              Width = 125
              DataBinding.FieldName = 'eveName'
            end
            object cxGrid4DBTableView1athNO: TcxGridDBColumn
              Caption = #21495#30721
              Options.Editing = False
              Width = 75
              DataBinding.FieldName = 'athNO'
            end
            object cxGrid4DBTableView1firAchi: TcxGridDBColumn
              Caption = #21021#36187#25104#32489
              Options.Editing = False
              Width = 93
              DataBinding.FieldName = 'firAchi'
            end
            object cxGrid4DBTableView1firPla: TcxGridDBColumn
              Caption = #21021#36187#21517#27425
              Options.Editing = False
              Width = 91
              DataBinding.FieldName = 'firPla'
            end
            object cxGrid4DBTableView1finAchi: TcxGridDBColumn
              Caption = #20915#36187#25104#32489
              Width = 85
              DataBinding.FieldName = 'finAchi'
            end
            object cxGrid4DBTableView1finPla: TcxGridDBColumn
              Caption = #20915#36187#21517#27425
              Width = 85
              DataBinding.FieldName = 'finPla'
            end
            object cxGrid4DBTableView1score: TcxGridDBColumn
              Caption = #24471#20998
              DataBinding.FieldName = 'score'
            end
            object cxGrid4DBTableView1memo: TcxGridDBColumn
              Caption = #22791#27880
              SortOrder = soDescending
              Width = 93
              DataBinding.FieldName = 'memo'
            end
          end
          object cxGrid4Level1: TcxGridLevel
            GridView = cxGrid4DBTableView1
          end
        end
      end
      object RzPanel13: TRzPanel
        Left = 0
        Top = 496
        Width = 757
        Height = 41
        Align = alBottom
        BorderOuter = fsGroove
        TabOrder = 1
        object cxDBNavigator4: TcxDBNavigator
          Left = 8
          Top = 8
          Width = 360
          Height = 25
          DataSource = dsFinal
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
        end
        object cxButton2: TcxButton
          Left = 464
          Top = 8
          Width = 75
          Height = 25
          Caption = #33258#21160#25490#21517
          TabOrder = 1
          OnClick = cxButton2Click
          LookAndFeel.NativeStyle = False
        end
        object cxButton3: TcxButton
          Left = 384
          Top = 8
          Width = 75
          Height = 25
          Caption = #29983#25104#20915#36187#21517#21333
          TabOrder = 2
          OnClick = cxButton3Click
          LookAndFeel.NativeStyle = False
        end
        object cxButton4: TcxButton
          Left = 544
          Top = 8
          Width = 75
          Height = 25
          Caption = #35745#31639#24471#20998
          TabOrder = 3
          OnClick = cxButton4Click
          LookAndFeel.NativeStyle = False
        end
      end
    end
  end
  object adsAthlete: TADODataSet
    Active = True
    Connection = Form1.ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from athlete'
    Parameters = <>
    Left = 25
    Top = 256
  end
  object dsArhlete: TDataSource
    DataSet = adsAthlete
    Left = 26
    Top = 221
  end
  object adsDepartment: TADODataSet
    Active = True
    Connection = Form1.ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from department'
    Parameters = <>
    Left = 98
    Top = 256
  end
  object adsEvent: TADODataSet
    Active = True
    Connection = Form1.ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from event'
    Parameters = <>
    Left = 138
    Top = 256
  end
  object dsDepartment: TDataSource
    DataSet = adsDepartment
    Left = 98
    Top = 221
  end
  object dsEvent: TDataSource
    DataSet = adsEvent
    Left = 138
    Top = 221
  end
  object adsGame: TADODataSet
    Active = True
    Connection = Form1.ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from game'
    Parameters = <>
    Left = 59
    Top = 256
  end
  object dsGame: TDataSource
    DataSet = adsGame
    Left = 59
    Top = 220
  end
  object cxLookAndFeelController1: TcxLookAndFeelController
    NativeStyle = True
    Left = 642
    Top = 24
  end
  object ADOQuery1: TADOQuery
    Connection = Form1.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    Left = 544
    Top = 36
  end
  object adsFinal: TADODataSet
    Connection = Form1.ADOConnection1
    CursorType = ctStatic
    CommandText = 
      'select athNO, eveName, finAchi, finPla, firAchi, firPla, memo,sc' +
      'ore from game where firPla>=1 and firPla<=8'
    Parameters = <>
    Left = 185
    Top = 257
  end
  object dsFinal: TDataSource
    DataSet = adsFinal
    Left = 185
    Top = 220
  end
end

⌨️ 快捷键说明

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