main.dfm

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

object Mainform: TMainform
  Left = -2
  Top = 36
  AutoScroll = False
  Caption = '泰达图书馆'
  ClientHeight = 534
  ClientWidth = 800
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 605
    Top = 544
    Width = 69
    Height = 16
    Caption = '桩基工程'
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -16
    Font.Name = '幼圆'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label2: TLabel
    Left = 700
    Top = 544
    Width = 86
    Height = 16
    Caption = '地下室工程'
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -16
    Font.Name = '幼圆'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Splitter1: TSplitter
    Left = 150
    Top = 0
    Width = 3
    Height = 534
    Cursor = crHSplit
  end
  object Panel2: TPanel
    Left = 153
    Top = 0
    Width = 647
    Height = 534
    Align = alClient
    BevelOuter = bvLowered
    TabOrder = 0
    object PageControl1: TPageControl
      Left = 1
      Top = 1
      Width = 645
      Height = 532
      ActivePage = TabSheet16
      Align = alClient
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Style = tsButtons
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = 'TabSheet1'
        TabVisible = False
        object PageControl4: TPageControl
          Left = 0
          Top = 0
          Width = 637
          Height = 522
          ActivePage = TabSheet41
          Align = alClient
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          object TabSheet41: TTabSheet
            Caption = '资质'
            object dxDBGrid4: TdxDBGrid
              Left = 0
              Top = 0
              Width = 629
              Height = 491
              Bands = <
                item
                  Width = 361
                end>
              DefaultLayout = True
              HeaderPanelRowCount = 1
              KeyField = 'BianHao'
              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.ZongBaoTDS
              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 dxDBGrid4ZhengShuMingCheng: TdxDBGridMaskColumn
                Caption = '证书名称'
                Width = 125
                BandIndex = 0
                RowIndex = 0
                FieldName = 'ZhengShuMingCheng'
              end
              object dxDBGrid4ZhengShuLeiXing: TdxDBGridMaskColumn
                Caption = '证书类型'
                Width = 108
                BandIndex = 0
                RowIndex = 0
                FieldName = 'ZhengShuLeiXing'
              end
              object dxDBGrid4DengJi: TdxDBGridMaskColumn
                Caption = '等级'
                Width = 82
                BandIndex = 0
                RowIndex = 0
                FieldName = 'DengJi'
              end
              object dxDBGrid4BianHao: TdxDBGridButtonColumn
                Caption = '编号'
                Width = 104
                BandIndex = 0
                RowIndex = 0
                FieldName = 'BianHao'
                Buttons = <
                  item
                    Default = True
                  end>
                OnButtonClick = dxDBGrid4BianHaoButtonClick
              end
              object dxDBGrid4FaZhengJiGuan: TdxDBGridMaskColumn
                Caption = '发证机关'
                Width = 105
                BandIndex = 0
                RowIndex = 0
                FieldName = 'FaZhengJiGuan'
              end
              object dxDBGrid4YouXiaoQi: TdxDBGridMaskColumn
                Caption = '有效期'
                Width = 95
                BandIndex = 0
                RowIndex = 0
                FieldName = 'YouXiaoQi'
              end
            end
            object Panel1: TPanel
              Left = 285
              Top = 2
              Width = 326
              Height = 27
              TabOrder = 1
              object SpeedButton2: 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 = SpeedButton2Click
              end
              object SpeedButton3: TSpeedButton
                Left = 3
                Top = 3
                Width = 57
                Height = 21
                Caption = '审核记录'
                Flat = True
                OnClick = SpeedButton3Click
              end
              object DBNavigator2: TDBNavigator
                Left = 83
                Top = 3
                Width = 240
                Height = 21
                DataSource = Data1.ZongBaoTDS
                Flat = True
                TabOrder = 0
              end
            end
          end
          object TabSheet19: TTabSheet
            Caption = '方案'
            ImageIndex = 1
            object Button7: TButton
              Left = 8
              Top = 8
              Width = 97
              Height = 25
              Caption = '施工组织设计'
              TabOrder = 0
              OnClick = Button7Click
            end
            object Button8: TButton
              Left = 112
              Top = 8
              Width = 75
              Height = 25
              Caption = '审核记录'
              TabOrder = 1
              OnClick = Button8Click
            end
          end
          object TabSheet20: TTabSheet
            Caption = '上岗证'
            ImageIndex = 2
            object dxDBGrid3: TdxDBGrid
              Left = 0
              Top = 0
              Width = 629
              Height = 491
              Bands = <
                item
                  Width = 361
                end>
              DefaultLayout = True
              HeaderPanelRowCount = 1
              KeyField = 'XingMing'
              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.ZBShangGangTDS
              Filter.Active = True
              Filter.AutoDataSetFilter = True
              Filter.Criteria = {00000000}
              GridLineColor = clBtnFace
              GroupNodeColor = clBtnShadow