📄 wendang.dfm
字号:
object WenDangForm: TWenDangForm
Left = 295
Top = 130
BorderStyle = bsSingle
Caption = '文档'
ClientHeight = 195
ClientWidth = 482
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsStayOnTop
OldCreateOrder = False
OnActivate = FormActivate
PixelsPerInch = 96
TextHeight = 16
object Panel1: TPanel
Left = 0
Top = 0
Width = 482
Height = 195
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = 'Panel1'
TabOrder = 0
object PageControl1: TPageControl
Left = 1
Top = 3
Width = 480
Height = 191
ActivePage = TabSheet1
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
object TabSheet1: TTabSheet
Caption = '桩位图'
object GroupBox1: TGroupBox
Left = 6
Top = 64
Width = 457
Height = 89
Caption = '选择桩位图路径'
Color = clActiveBorder
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
TabOrder = 0
object ComboBox1: TComboBox
Left = 8
Top = 24
Width = 409
Height = 24
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 16
ParentFont = False
TabOrder = 0
Text = 'E:\新建文件夹\泰达图书馆\桩基工程'
OnChange = ComboBox1Change
end
end
object Button1: TButton
Left = 16
Top = 24
Width = 75
Height = 25
Caption = '打开桩位图'
TabOrder = 1
OnClick = Button1Click
end
object Button13: TButton
Left = 128
Top = 24
Width = 75
Height = 25
Caption = '浏览目录'
TabOrder = 2
OnClick = Button9Click
end
end
object TabSheet2: TTabSheet
Caption = '灌注桩详图'
ImageIndex = 1
object Button5: TButton
Left = 16
Top = 24
Width = 97
Height = 25
Caption = '打开灌注桩详图'
TabOrder = 0
OnClick = Button5Click
end
object GroupBox2: TGroupBox
Left = 6
Top = 64
Width = 457
Height = 89
Caption = '选择灌桩详图路径'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
object ComboBox2: TComboBox
Left = 8
Top = 24
Width = 409
Height = 24
ItemHeight = 0
TabOrder = 0
Text = 'E:\新建文件夹\泰达图书馆\桩基工程'
end
end
object Button9: TButton
Left = 128
Top = 24
Width = 75
Height = 25
Caption = '浏览目录'
TabOrder = 2
OnClick = Button9Click
end
end
object TabSheet3: TTabSheet
Caption = '过程控制'
ImageIndex = 2
object GroupBox3: TGroupBox
Left = 6
Top = 64
Width = 457
Height = 89
Caption = '选择工程控制路径'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
object ComboBox3: TComboBox
Left = 8
Top = 24
Width = 409
Height = 24
ItemHeight = 0
TabOrder = 0
Text = 'E:\新建文件夹\泰达图书馆\桩基工程\打桩记录'
end
end
object Button7: TButton
Left = 16
Top = 24
Width = 75
Height = 25
Caption = '打开文档'
TabOrder = 1
OnClick = Button7Click
end
end
object TabSheet4: TTabSheet
Caption = '钢筋隐蔽报验'
ImageIndex = 3
object GroupBox4: TGroupBox
Left = 6
Top = 64
Width = 457
Height = 89
Caption = '选择钢筋隐蔽报验路径'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
object ComboBox4: TComboBox
Left = 8
Top = 24
Width = 409
Height = 24
ItemHeight = 0
TabOrder = 0
Text = 'E:\新建文件夹\泰达图书馆\桩基工程\隐蔽工程\隐蔽报验'
end
end
object Button8: TButton
Left = 24
Top = 24
Width = 81
Height = 25
Caption = '打开报验表'
TabOrder = 1
OnClick = Button8Click
end
object Button10: TButton
Left = 120
Top = 24
Width = 75
Height = 25
Caption = '浏览目录'
TabOrder = 2
OnClick = Button10Click
end
end
object TabSheet5: TTabSheet
Caption = '钢筋隐蔽记录'
ImageIndex = 4
object Button12: TButton
Left = 112
Top = 24
Width = 75
Height = 25
Caption = '浏览目录'
TabOrder = 0
OnClick = Button10Click
end
object GroupBox5: TGroupBox
Left = 6
Top = 64
Width = 457
Height = 89
Caption = '选择钢筋隐蔽纪录路径'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
object ComboBox5: TComboBox
Left = 8
Top = 24
Width = 409
Height = 24
ItemHeight = 0
TabOrder = 0
Text = 'E:\新建文件夹\泰达图书馆\桩基工程\隐蔽工程\隐蔽记录'
end
end
object Button11: TButton
Left = 16
Top = 24
Width = 81
Height = 25
Caption = '打开纪录表'
TabOrder = 2
OnClick = Button11Click
end
end
object TabSheet6: TTabSheet
Caption = '钢筋'
ImageIndex = 5
object Label21: TLabel
Left = 16
Top = 3
Width = 91
Height = 16
Caption = '所选桩日期是：'
end
object DBText21: TDBText
Left = 99
Top = 1
Width = 65
Height = 17
DataField = 'RiQi'
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label22: TLabel
Left = 178
Top = 2
Width = 52
Height = 16
Caption = '桩号是：'
end
object DBText22: TDBText
Left = 223
Top = 1
Width = 15
Height = 17
DataField = 'ZhuangJiHao'
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label23: TLabel
Left = 246
Top = 2
Width = 52
Height = 16
Caption = '桩号是：'
end
object DBText23: TDBText
Left = 294
Top = 0
Width = 29
Height = 17
DataField = 'ZhuangHao'
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label24: TLabel
Left = 325
Top = 2
Width = 52
Height = 16
Caption = '位置是：'
end
object DBText24: TDBText
Left = 370
Top = 2
Width = 46
Height = 17
DataField = 'WeiZhi'
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object PageControl2: TPageControl
Left = -1
Top = 22
Width = 474
Height = 139
ActivePage = TabSheet10
BiDiMode = bdLeftToRight
MultiLine = True
ParentBiDiMode = False
TabHeight = 19
TabOrder = 0
object TabSheet10: TTabSheet
Caption = '检验报告'
object GroupBox6: TGroupBox
Left = 3
Top = 24
Width = 459
Height = 81
Caption = '选择钢检验报告路径'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
object ComboBox6: TComboBox
Left = 8
Top = 17
Width = 409
Height = 24
ItemHeight = 0
TabOrder = 0
Text = 'E:\新建文件夹\泰达图书馆\桩基工程\进料情况\钢筋\检验报告'
end
end
end
object TabSheet11: TTabSheet
Caption = '材质证明书'
ImageIndex = 1
object GroupBox7: TGroupBox
Left = 3
Top = 24
Width = 459
Height = 81
Caption = '选择材质证明书路径'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
object ComboBox7: TComboBox
Left = 8
Top = 17
Width = 409
Height = 24
ItemHeight = 0
TabOrder = 0
Text = 'E:\新建文件夹\泰达图书馆\桩基工程\进料情况\钢筋\材质证明书'
end
end
end
end
object Panel3: TPanel
Left = 6
Top = 46
Width = 299
Height = 22
BevelOuter = bvLowered
TabOrder = 1
object RB12: TRadioButton
Left = 47
Top = 3
Width = 45
Height = 17
Caption = 'ф12'
TabOrder = 0
end
object RB8: TRadioButton
Left = 4
Top = 3
Width = 45
Height = 17
Caption = 'ф8'
Checked = True
TabOrder = 1
TabStop = True
end
object RB14: TRadioButton
Left = 97
Top = 3
Width = 45
Height = 17
Caption = 'ф14'
TabOrder = 2
end
object RB18: TRadioButton
Left = 148
Top = 3
Width = 45
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -