main.dfm

一个项目工程监理系统的全部源码

              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 dxDBGrid3XingMing: TdxDBGridMaskColumn
                Caption = '姓名'
                Width = 149
                BandIndex = 0
                RowIndex = 0
                FieldName = 'XingMing'
              end
              object dxDBGrid3ZhiWu: TdxDBGridMaskColumn
                Caption = '职务'
                Width = 159
                BandIndex = 0
                RowIndex = 0
                FieldName = 'ZhiWu'
              end
              object dxDBGrid3ZhengShuZhongLei: TdxDBGridMaskColumn
                Caption = '证书种类'
                Width = 154
                BandIndex = 0
                RowIndex = 0
                FieldName = 'ZhengShuZhongLei'
              end
              object dxDBGrid3ZhengShuBianHao: TdxDBGridButtonColumn
                Caption = '证书编号'
                Width = 146
                BandIndex = 0
                RowIndex = 0
                FieldName = 'ZhengShuBianHao'
                Buttons = <
                  item
                    Default = True
                  end>
                OnButtonClick = dxDBGrid3ZhengShuBianHaoButtonClick
              end
            end
            object Panel5: TPanel
              Left = 285
              Top = 2
              Width = 326
              Height = 27
              TabOrder = 1
              object SpeedButton4: TSpeedButton
                Left = 60
                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 = SpeedButton4Click
              end
              object SpeedButton5: TSpeedButton
                Left = 3
                Top = 3
                Width = 57
                Height = 21
                Caption = '审核记录'
                Flat = True
                OnClick = SpeedButton5Click
              end
              object DBNavigator4: TDBNavigator
                Left = 83
                Top = 3
                Width = 240
                Height = 21
                DataSource = Data1.ZBShangGangTDS
                Flat = True
                TabOrder = 0
              end
            end
          end
          object TabSheet21: TTabSheet
            Caption = '仪器设备'
            ImageIndex = 3
            object dxDBGrid5: TdxDBGrid
              Left = 0
              Top = 0
              Width = 629
              Height = 491
              Bands = <
                item
                  Width = 361
                end>
              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.ZBYiQiTDS
              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 dxDBGrid5MingCheng: TdxDBGridButtonColumn
                Caption = '名称'
                Width = 98
                BandIndex = 0
                RowIndex = 0
                FieldName = 'MingCheng'
                Buttons = <
                  item
                    Default = True
                  end>
                OnButtonClick = dxDBGrid5MingChengButtonClick
              end
              object dxDBGrid5XingHao: TdxDBGridMaskColumn
                Caption = '型号'
                Width = 89
                BandIndex = 0
                RowIndex = 0
                FieldName = 'XingHao'
              end
              object dxDBGrid5JianDingZhengShu: TdxDBGridButtonColumn
                Caption = '检定证书'
                Width = 92
                BandIndex = 0
                RowIndex = 0
                FieldName = 'JianDingZhengShu'
                Buttons = <
                  item
                    Default = True
                  end>
                OnButtonClick = dxDBGrid5JianDingZhengShuButtonClick
              end
              object dxDBGrid5JianDingJieGuo: TdxDBGridMaskColumn
                Caption = '检定结果'
                Width = 95
                BandIndex = 0
                RowIndex = 0
                FieldName = 'JianDingJieGuo'
              end
              object dxDBGrid5JianDingRiQi: TdxDBGridDateColumn
                Caption = '检定日期'
                Width = 95
                BandIndex = 0
                RowIndex = 0
                FieldName = 'JianDingRiQi'
              end
              object dxDBGrid5YouXiaoQi: TdxDBGridMaskColumn
                Caption = '有效期'
                Width = 71
                BandIndex = 0
                RowIndex = 0
                FieldName = 'YouXiaoQi'
              end
              object dxDBGrid5JianDingDanWei: TdxDBGridMaskColumn
                Caption = '检定单位'
                Width = 78
                BandIndex = 0
                RowIndex = 0
                FieldName = 'JianDingDanWei'
              end
            end
            object Panel6: TPanel
              Left = 340
              Top = 2
              Width = 271
              Height = 27
              TabOrder = 1
              object SpeedButton6: 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 DBNavigator5: TDBNavigator
                Left = 27
                Top = 3
                Width = 240
                Height = 21
                DataSource = Data1.ZBYiQiTDS
                Flat = True
                TabOrder = 0
              end
            end
          end
        end
      end
      object TabSheet2: TTabSheet
        Caption = 'TabSheet2'
        ImageIndex = 1
        TabVisible = False
        object PageControl5: TPageControl
          Left = 0
          Top = 0
          Width = 637
          Height = 522
          ActivePage = TabSheet22
          Align = alClient
          TabOrder = 0
          object TabSheet22: TTabSheet
            Caption = '修改、查询'
            object dxDBGrid6: TdxDBGrid
              Left = 0
              Top = 0
              Width = 629
              Height = 491
              Bands = <
                item
                  Width = 361
                end>
              DefaultLayout = True
              HeaderPanelRowCount = 1
              KeyField = 'ZhengShuMingCheng'
              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.ShiYanShiTDS