ydgcll.dfm

营业用电管理系统(网络版)是本公司推出的新一代软件产品

object Fgcll: TFgcll
  Left = 160
  Top = 168
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = '工程浏览'
  ClientHeight = 348
  ClientWidth = 536
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 537
    Height = 305
    DataSource = YDData.DSgcgl
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'GC_MC'
        Title.Alignment = taCenter
        Title.Caption = '工程名称'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'GC_LX'
        Title.Alignment = taCenter
        Title.Caption = '工程类型'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'GC_FY'
        Title.Alignment = taCenter
        Title.Caption = '工程费用'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'GC_SGDW'
        Title.Alignment = taCenter
        Title.Caption = '施工单位'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'GC_JGRQ'
        Title.Alignment = taCenter
        Title.Caption = '竣工日期'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'GC_YSR'
        Title.Alignment = taCenter
        Title.Caption = '验收人'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'GC_YSRQ'
        Title.Alignment = taCenter
        Title.Caption = '验收日期'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'GC_YSPY'
        Title.Alignment = taCenter
        Title.Caption = '验收评语'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'GC_SFHG'
        Title.Alignment = taCenter
        Title.Caption = '是否合格'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'GC_FYF'
        Title.Alignment = taCenter
        Title.Caption = '复验费'
        Visible = True
      end>
  end
  object BitBtn1: TBitBtn
    Left = 432
    Top = 312
    Width = 73
    Height = 25
    Caption = '确定'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = BitBtn1Click
    Kind = bkOK
  end
end