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

📄 main.dfm

📁 一个项目工程监理系统的全部源码
💻 DFM
📖 第 1 页 / 共 5 页
字号:
              DefaultLayout = True
              HeaderPanelRowCount = 1
              KeyField = 'MingCheng'
              ShowGroupPanel = True
              ShowSummaryFooter = True
              SummaryGroups = <
                item
                  DefaultGroup = False
                  SummaryItems = <
                    item
                      SummaryField = 'ZhuangHao'
                      SummaryFormat = '(COUNT=0)'
                      SummaryType = cstCount
                    end>
                  Name = 'dxDBGrid2SummaryGroup1'
                end>
              SummarySeparator = ', '
              Align = alClient
              Color = clWhite
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
              TabOrder = 0
              BandFont.Charset = DEFAULT_CHARSET
              BandFont.Color = clBlack
              BandFont.Height = -13
              BandFont.Name = 'MS Sans Serif'
              BandFont.Style = []
              DataSource = Data1.CJYiQiTDS
              Filter.Active = True
              Filter.AutoDataSetFilter = True
              Filter.Criteria = {00000000}
              GridLineColor = clBtnFace
              GroupNodeColor = clBtnShadow
              GroupNodeTextColor = cl3DLight
              HeaderFont.Charset = DEFAULT_CHARSET
              HeaderFont.Color = clBlack
              HeaderFont.Height = -13
              HeaderFont.Name = 'MS Sans Serif'
              HeaderFont.Style = []
              PreviewFont.Charset = DEFAULT_CHARSET
              PreviewFont.Color = clBlue
              PreviewFont.Height = -13
              PreviewFont.Name = 'MS Sans Serif'
              PreviewFont.Style = []
              ShowRowFooter = True
              object dxDBGridMaskColumn11: TdxDBGridMaskColumn
                Caption = '名称'
                Width = 98
                BandIndex = 0
                RowIndex = 0
                FieldName = 'MingCheng'
              end
              object dxDBGridMaskColumn12: TdxDBGridMaskColumn
                Caption = '型号'
                Width = 89
                BandIndex = 0
                RowIndex = 0
                FieldName = 'XingHao'
              end
              object dxDBGridMaskColumn13: TdxDBGridMaskColumn
                Caption = '检定证书'
                Width = 92
                BandIndex = 0
                RowIndex = 0
                FieldName = 'JianDingZhengShu'
              end
              object dxDBGridMaskColumn14: TdxDBGridMaskColumn
                Caption = '检定结果'
                Width = 95
                BandIndex = 0
                RowIndex = 0
                FieldName = 'JianDingJieGuo'
              end
              object dxDBGridDateColumn1: TdxDBGridDateColumn
                Caption = '检定日期'
                Width = 95
                BandIndex = 0
                RowIndex = 0
                FieldName = 'JianDingRiQi'
              end
              object dxDBGridMaskColumn15: TdxDBGridMaskColumn
                Caption = '有效期'
                Width = 71
                BandIndex = 0
                RowIndex = 0
                FieldName = 'YouXiaoQi'
              end
              object dxDBGridMaskColumn16: TdxDBGridMaskColumn
                Caption = '检定单位'
                Width = 78
                BandIndex = 0
                RowIndex = 0
                FieldName = 'JianDingDanWei'
              end
            end
            object Panel13: TPanel
              Left = 344
              Top = 2
              Width = 271
              Height = 27
              TabOrder = 1
              object SpeedButton15: TSpeedButton
                Left = 4
                Top = 3
                Width = 23
                Height = 21
                Hint = '尾加纪录'
                Flat = True
                Glyph.Data = {
                  9E020000424D9E0200000000000036000000280000000E0000000E0000000100
                  18000000000068020000C40E0000C40E00000000000000000000FFFFFFFFFFFF
                  FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
                  FFFFFFFF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
                  FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFF
                  FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFF
                  FFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFF
                  FFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000
                  0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF
                  FFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
                  0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF000000000000
                  FFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFFFFFF000000000000
                  FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFF
                  FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFF
                  FFFFFFFF0000FFFFFF0000000000000000000000000000000000000000000000
                  00FFFFFFFFFFFF000000FFFFFFFFFFFF0000FFFFFF0000000000000000000000
                  00000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFF
                  FFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
                  FFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFF
                  FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF
                  FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
                  0000}
                ParentShowHint = False
                ShowHint = True
                OnClick = SpeedButton6Click
              end
              object DBNavigator10: TDBNavigator
                Left = 27
                Top = 3
                Width = 240
                Height = 21
                DataSource = Data1.CJYiQiTDS
                Flat = True
                TabOrder = 0
              end
            end
          end
        end
      end
      object TabSheet5: TTabSheet
        Caption = 'TabSheet5'
        ImageIndex = 4
        TabVisible = False
      end
      object TabSheet6: TTabSheet
        Caption = 'TabSheet6'
        ImageIndex = 5
        TabVisible = False
      end
      object TabSheet7: TTabSheet
        Caption = 'TabSheet7'
        ImageIndex = 6
        TabVisible = False
      end
      object TabSheet8: TTabSheet
        Caption = 'TabSheet8'
        ImageIndex = 7
        TabVisible = False
      end
      object TabSheet9: TTabSheet
        Caption = 'TabSheet9'
        ImageIndex = 8
        TabVisible = False
      end
      object TabSheet10: TTabSheet
        Caption = 'TabSheet10'
        ImageIndex = 9
        TabVisible = False
      end
      object TabSheet11: TTabSheet
        Caption = 'TabSheet11'
        ImageIndex = 10
        TabVisible = False
      end
      object TabSheet12: TTabSheet
        Caption = 'TabSheet12'
        ImageIndex = 11
        TabVisible = False
      end
      object TabSheet13: TTabSheet
        Caption = 'TabSheet13'
        ImageIndex = 12
        TabVisible = False
      end
      object TabSheet14: TTabSheet
        Caption = 'TabSheet14'
        ImageIndex = 13
        TabVisible = False
      end
      object TabSheet15: TTabSheet
        Caption = 'TabSheet15'
        ImageIndex = 14
        TabVisible = False
      end
      object TabSheet16: TTabSheet
        Caption = 'TabSheet16'
        ImageIndex = 15
        TabVisible = False
        object PageControl2: TPageControl
          Left = 0
          Top = 0
          Width = 637
          Height = 522
          ActivePage = TabSheet25
          Align = alClient
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          object TabSheet24: TTabSheet
            Caption = '修改'
            object SpeedButton1: TSpeedButton
              Left = 5
              Top = 13
              Width = 23
              Height = 25
              Hint = '尾加纪录'
              Flat = True
              Glyph.Data = {
                9E020000424D9E0200000000000036000000280000000E0000000E0000000100
                18000000000068020000C40E0000C40E00000000000000000000FFFFFFFFFFFF
                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
                FFFFFFFF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFF
                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFF
                FFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFF
                FFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000
                0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF
                FFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
                0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF000000000000
                FFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFFFFFF000000000000
                FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFF
                FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFF
                FFFFFFFF0000FFFFFF0000000000000000000000000000000000000000000000
                00FFFFFFFFFFFF000000FFFFFFFFFFFF0000FFFFFF0000000000000000000000
                00000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFF
                FFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
                FFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFF
                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF
                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
                0000}
              ParentShowHint = False
              ShowHint = True
              OnClick = SpeedButton1Click
            end
            object dxDBGrid1: TdxDBGrid
              Left = -1
              Top = 48
              Width = 640
              Height = 448
              Bands = <
                item
                  Caption = '泰达图书馆工程打桩记录表'
                  Width = 364
                end>
              DefaultLayout = True
              HeaderPanelRowCount = 1
              KeyField = 'RiQi'
              SummaryGroups = <>
              SummarySeparator = ', '
              Color = clCaptionText
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
              TabOrder = 0
              BandFont.Charset = DEFAULT_CHARSET
              BandFont.Color = clBlack
              BandFont.Height = -13
              BandFont.Name = 'MS Sans Serif'
              BandFont.Style = []
              DataSource = Data1.XiuGaiTDS
              Filter.Criteria = {00000000}
              HeaderFont.Charset = DEFAULT_CHARSET
              HeaderFont.Color = clBlack
              HeaderFont.Height = -13
              HeaderFont.Name = 'MS Sans Serif'
              HeaderFont.Style = []
              PreviewFont.Charset = DEFAULT_CHARSET
              PreviewFont.Color = clBlue
              PreviewFont.Height = -13
              PreviewFont.Name = 'MS Sans Serif'
              PreviewFont.Style = []
              object dxDBGrid1RiQi: TdxDBGridDateColumn
                Caption = '日期'
                Width = 90
                BandIndex = 0
                RowIndex = 0
                FieldName = 'RiQi'
              end
              object dxDBGrid1TianQi: TdxDBGridPickColumn
                Caption = '天气'
                Width = 51
                BandIndex = 0
                RowIndex = 0
                FieldName = 'TianQi'
                Items.Strings = (
                  '晴'
                  '阴'
                  '小雨'
                  '中雨'
                  '大雨'
                  '雪'
                  '大风')
              end
              object dxDBGrid1ZhuangJiHao: TdxDBGridMaskColumn
                Caption = '桩机号'
                Width = 60
                BandIndex = 0
                RowIndex = 0
                FieldName = 'ZhuangJiHao'
              end
            

⌨️ 快捷键说明

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