📄 ydbzyw.dfm
字号:
end
object TabSheet3: TTabSheet
Caption = '现场勘察 '
ImageIndex = 2
object Panel3: TPanel
Left = 0
Top = -1
Width = 536
Height = 245
BevelInner = bvLowered
BevelOuter = bvLowered
Enabled = False
TabOrder = 0
object Shape3: TShape
Left = 15
Top = 203
Width = 513
Height = 1
Brush.Style = bsClear
end
object Shape4: TShape
Left = 18
Top = 204
Width = 513
Height = 1
Brush.Style = bsClear
Pen.Color = clWhite
end
object SpeedButton4: TSpeedButton
Left = 422
Top = 211
Width = 73
Height = 25
Caption = '确定(&Y)'
OnClick = SpeedButton4Click
end
object Label26: TLabel
Left = 23
Top = 22
Width = 45
Height = 15
Caption = '勘察人'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label27: TLabel
Left = 194
Top = 22
Width = 60
Height = 15
Caption = '勘察时间'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label28: TLabel
Left = 384
Top = 22
Width = 60
Height = 15
Caption = '勘察结果'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label29: TLabel
Left = 24
Top = 96
Width = 15
Height = 60
Caption = '勘察意见'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
WordWrap = True
end
object SpeedButton14: TSpeedButton
Left = 160
Top = 173
Width = 102
Height = 25
Caption = '装入现场简图'
Flat = True
OnClick = SpeedButton14Click
end
object SpeedButton15: TSpeedButton
Left = 272
Top = 171
Width = 102
Height = 25
Caption = '查看现场简图'
Flat = True
OnClick = SpeedButton15Click
end
object DBComboBox1: TDBComboBox
Left = 453
Top = 18
Width = 65
Height = 21
DataField = 'YD_KCJG'
DataSource = YDData.DSbzyhda
ItemHeight = 13
Items.Strings = (
'同意'
'不同意')
TabOrder = 0
end
object DBEdit16: TDBEdit
Left = 79
Top = 18
Width = 82
Height = 21
Color = clInfoBk
DataField = 'YD_KCR'
DataSource = YDData.DSbzyhda
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
OnDblClick = DBEdit16DblClick
end
object DBEdit17: TDBEdit
Left = 265
Top = 18
Width = 97
Height = 21
Color = clInfoBk
DataField = 'YD_KCRQ'
DataSource = YDData.DSbzyhda
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 2
OnDblClick = DBEdit17DblClick
end
object DBMemo1: TDBMemo
Left = 56
Top = 50
Width = 465
Height = 115
DataField = 'YD_KCYJ'
DataSource = YDData.DSbzyhda
ScrollBars = ssVertical
TabOrder = 3
end
end
end
object TabSheet4: TTabSheet
Caption = '工程管理'
ImageIndex = 3
object Panel5: TPanel
Left = 0
Top = -1
Width = 536
Height = 245
BevelInner = bvLowered
BevelOuter = bvLowered
Enabled = False
TabOrder = 0
object SpeedButton6: TSpeedButton
Left = 414
Top = 211
Width = 73
Height = 25
Caption = '确定(&Y)'
OnClick = SpeedButton6Click
end
object Shape22: TShape
Left = 17
Top = 203
Width = 513
Height = 1
Brush.Style = bsClear
end
object Shape23: TShape
Left = 18
Top = 204
Width = 513
Height = 1
Brush.Style = bsClear
Pen.Color = clWhite
end
object Label32: TLabel
Left = 32
Top = 16
Width = 52
Height = 13
Caption = '工程名称'
end
object Label49: TLabel
Left = 384
Top = 16
Width = 52
Height = 13
Caption = '万元费用'
end
object Label50: TLabel
Left = 32
Top = 48
Width = 52
Height = 13
Caption = '施工单位'
end
object Label51: TLabel
Left = 384
Top = 48
Width = 52
Height = 13
Caption = '工程类型'
end
object Label52: TLabel
Left = 32
Top = 80
Width = 52
Height = 13
Caption = '竣工日期'
end
object Label53: TLabel
Left = 200
Top = 80
Width = 39
Height = 13
Caption = '验收人'
end
object Label54: TLabel
Left = 384
Top = 80
Width = 52
Height = 13
Caption = '验收日期'
end
object Label55: TLabel
Left = 32
Top = 144
Width = 39
Height = 13
Caption = '复验费'
end
object Label56: TLabel
Left = 32
Top = 112
Width = 52
Height = 13
Caption = '验收评语'
end
object Label57: TLabel
Left = 384
Top = 112
Width = 52
Height = 13
Caption = '是否合格'
end
object SpeedButton20: TSpeedButton
Left = 280
Top = 168
Width = 73
Height = 25
Caption = '浏览工程'
Flat = True
OnClick = SpeedButton20Click
end
object SpeedButton21: TSpeedButton
Left = 360
Top = 168
Width = 73
Height = 25
Caption = '增加工程'
Flat = True
OnClick = SpeedButton21Click
end
object SpeedButton22: TSpeedButton
Left = 440
Top = 168
Width = 73
Height = 25
Caption = '删除工程'
Flat = True
OnClick = SpeedButton22Click
end
object DBEdit26: TDBEdit
Left = 96
Top = 16
Width = 257
Height = 21
DataField = 'GC_MC'
DataSource = YDData.DSgcgl
TabOrder = 0
end
object DBEdit27: TDBEdit
Left = 440
Top = 16
Width = 73
Height = 21
DataField = 'GC_FY'
DataSource = YDData.DSgcgl
TabOrder = 1
end
object DBEdit28: TDBEdit
Left = 96
Top = 48
Width = 257
Height = 21
DataField = 'GC_SGDW'
DataSource = YDData.DSgcgl
TabOrder = 2
end
object DBComboBox2: TDBComboBox
Left = 440
Top = 48
Width = 73
Height = 21
Color = clWhite
DataField = 'GC_LX'
DataSource = YDData.DSgcgl
ItemHeight = 13
Items.Strings = (
'业扩'
'用户')
TabOrder = 3
end
object DBEdit29: TDBEdit
Left = 96
Top = 80
Width = 89
Height = 21
Color = clInfoBk
DataField = 'GC_JGRQ'
DataSource = YDData.DSgcgl
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 4
OnDblClick = DBEdit29DblClick
end
object DBEdit30: TDBEdit
Left = 264
Top = 80
Width = 89
Height = 21
Color = clInfoBk
DataField = 'GC_YSR'
DataSource = YDData.DSgcgl
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 5
OnDblClick = DBEdit30DblClick
end
object DBEdit31: TDBEdit
Left = 440
Top = 80
Width = 73
Height = 21
Color = clInfoBk
DataField = 'GC_YSRQ'
DataSource = YDData.DSgcgl
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 6
OnDblClick = DBEdit31DblClick
end
object DBEdit32: TDBEdit
Left = 96
Top = 112
Width = 257
Height = 21
DataField = 'GC_YSPY'
DataSource = YDData.DSgcgl
TabOrder = 7
end
object DBComboBox13: TDBComboBox
Left = 440
Top = 112
Width = 73
Height = 21
DataField = 'GC_SFHG'
DataSource = YDData.DSgcgl
ItemHeight = 13
Items.Strings = (
'合格'
'不合格')
TabOrder = 8
end
object DBEdit33: TDBEdit
Left = 96
Top = 144
Width = 129
Height = 21
DataField = 'GC_FYF'
DataSource = YDData.DSgcgl
TabOrder = 9
end
end
end
object TabSheet5: TTabSheet
Caption = '贴费收取'
ImageIndex = 4
object Panel6: TPanel
Left = -1
Top = -1
Width = 537
Height = 245
BevelInner = bvLowered
BevelOuter = bvLowered
TabOrder = 0
object Shape10: TShape
Left = 16
Top = 203
Width = 513
Height = 1
Brush.Style = bsClear
end
object Shape11: TShape
Left = 18
Top = 204
Width = 513
Height = 1
Brush.Style = bsClear
Pen.Color = clWhite
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -