main.dfm

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

              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 dxDBGrid6ZhengShuMingCheng: TdxDBGridMaskColumn
                Caption = '证书名称'
                Width = 119
                BandIndex = 0
                RowIndex = 0
                FieldName = 'ZhengShuMingCheng'
              end
              object dxDBGrid6DengJi: TdxDBGridMaskColumn
                Caption = '等级'
                Width = 97
                BandIndex = 0
                RowIndex = 0
                FieldName = 'DengJi'
              end
              object dxDBGrid6BianHao: TdxDBGridButtonColumn
                Caption = '编号'
                Width = 102
                BandIndex = 0
                RowIndex = 0
                FieldName = 'BianHao'
                Buttons = <
                  item
                    Default = True
                  end>
                OnButtonClick = dxDBGrid6BianHaoButtonClick
              end
              object dxDBGrid6FaZhengJiGuan: TdxDBGridMaskColumn
                Caption = '发证机关'
                Width = 112
                BandIndex = 0
                RowIndex = 0
                FieldName = 'FaZhengJiGuan'
              end
              object dxDBGrid6FaZhengRiQi: TdxDBGridDateColumn
                Caption = '发证日期'
                Width = 113
                BandIndex = 0
                RowIndex = 0
                FieldName = 'FaZhengRiQi'
              end
              object dxDBGrid6YouXiaoQi: TdxDBGridMaskColumn
                Caption = '有效期'
                Width = 76
                BandIndex = 0
                RowIndex = 0
                FieldName = 'YouXiaoQi'
              end
            end
            object Panel8: TPanel
              Left = 285
              Top = 2
              Width = 326
              Height = 27
              TabOrder = 1
              object SpeedButton7: 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 = SpeedButton7Click
              end
              object SpeedButton8: TSpeedButton
                Left = 3
                Top = 3
                Width = 57
                Height = 21
                Caption = '审核记录'
                Flat = True
                OnClick = SpeedButton8Click
              end
              object DBNavigator6: TDBNavigator
                Left = 83
                Top = 3
                Width = 240
                Height = 21
                DataSource = Data1.ShiYanShiTDS
                Flat = True
                TabOrder = 0
              end
            end
          end
        end
      end
      object TabSheet3: TTabSheet
        Caption = 'TabSheet3'
        ImageIndex = 2
        TabVisible = False
        object PageControl6: TPageControl
          Left = 0
          Top = 0
          Width = 637
          Height = 522
          ActivePage = TabSheet23
          Align = alClient
          TabOrder = 0
          object TabSheet23: TTabSheet
            Caption = '修改、查询'
            object dxDBGrid7: 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.JiaoBanTDS
              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 dxDBGrid7MingCheng: TdxDBGridMaskColumn
                Caption = '名称'
                Width = 107
                BandIndex = 0
                RowIndex = 0
                FieldName = 'MingCheng'
              end
              object dxDBGrid7DengJi: TdxDBGridMaskColumn
                Caption = '等级'
                Width = 90
                BandIndex = 0
                RowIndex = 0
                FieldName = 'DengJi'
              end
              object dxDBGrid7BianHao: TdxDBGridButtonColumn
                Caption = '编号'
                Width = 106
                BandIndex = 0
                RowIndex = 0
                FieldName = 'BianHao'
                Buttons = <
                  item
                    Default = True
                  end>
                OnButtonClick = dxDBGrid7BianHaoButtonClick
              end
              object dxDBGrid7FaZhengJiGuan: TdxDBGridMaskColumn
                Caption = '发证机关'
                Width = 110
                BandIndex = 0
                RowIndex = 0
                FieldName = 'FaZhengJiGuan'
              end
              object dxDBGrid7FaZhengRiQi: TdxDBGridDateColumn
                Caption = '发证日期'
                Width = 108
                BandIndex = 0
                RowIndex = 0
                FieldName = 'FaZhengRiQi'
              end
              object dxDBGrid7YouXiaoQi: TdxDBGridMaskColumn
                Caption = '有效期'
                Width = 98
                BandIndex = 0
                RowIndex = 0
                FieldName = 'YouXiaoQi'
              end
            end
            object Panel9: TPanel
              Left = 285
              Top = 2
              Width = 326
              Height = 27
              TabOrder = 1
              object SpeedButton9: 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 = SpeedButton9Click
              end
              object SpeedButton10: TSpeedButton
                Left = 3
                Top = 3
                Width = 57
                Height = 21
                Caption = '审核记录'
                Flat = True
                OnClick = SpeedButton8Click
              end
              object DBNavigator7: TDBNavigator
                Left = 83
                Top = 3
                Width = 240
                Height = 21
                DataSource = Data1.JiaoBanTDS
                Flat = True
                TabOrder = 0
              end
            end
          end
        end
      end
      object TabSheet4: TTabSheet
        Caption = 'TabSheet4'
        ImageIndex = 3
        TabVisible = False
        object PageControl7: TPageControl
          Left = 0
          Top = 0
          Width = 637
          Height = 522
          ActivePage = TabSheet42
          Align = alClient
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          object TabSheet42: TTabSheet
            Caption = '资质'
            object dxDBGrid8: TdxDBGrid
              Left = 0
              Top = 0
              Width = 629
              Height = 491
              Bands = <