📄 wendang.dfm
字号:
Height = 17
Caption = 'ф18'
TabOrder = 3
end
object RB20: TRadioButton
Left = 198
Top = 3
Width = 45
Height = 17
Caption = 'ф20'
TabOrder = 4
end
object RB25: TRadioButton
Left = 249
Top = 3
Width = 45
Height = 17
Caption = 'ф25'
TabOrder = 5
end
end
object Button14: TButton
Left = 306
Top = 46
Width = 75
Height = 22
Caption = '打开'
TabOrder = 2
OnClick = Button14Click
end
end
object TabSheet7: TTabSheet
Caption = '钢筋焊接'
ImageIndex = 6
object PageControl3: TPageControl
Left = -1
Top = 22
Width = 474
Height = 139
ActivePage = TabSheet12
TabOrder = 0
object TabSheet12: TTabSheet
Caption = '闪光对焊表'
object GroupBox8: TGroupBox
Left = 3
Top = 25
Width = 457
Height = 78
Caption = '选择钢筋焊接路径'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
object ComboBox8: TComboBox
Left = 8
Top = 14
Width = 409
Height = 24
ItemHeight = 0
TabOrder = 0
Text = 'E:\新建文件夹\泰达图书馆\桩基工程\进料情况\焊接\焊接报告\闪光'
end
end
end
object TabSheet13: TTabSheet
Caption = '邦条焊表'
ImageIndex = 1
object GroupBox11: TGroupBox
Left = 3
Top = 25
Width = 457
Height = 78
Caption = '选择钢筋焊接路径'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
object ComboBox11: TComboBox
Left = 8
Top = 14
Width = 409
Height = 24
ItemHeight = 0
TabOrder = 0
Text = 'E:\新建文件夹\泰达图书馆\桩基工程\进料情况\焊接\焊接报告\邦条'
end
end
end
end
object Panel4: TPanel
Left = 6
Top = 49
Width = 179
Height = 22
BevelOuter = bvLowered
TabOrder = 1
object RBh18: TRadioButton
Left = 4
Top = 3
Width = 45
Height = 17
Caption = 'ф18'
TabOrder = 0
end
object RBh20: TRadioButton
Left = 60
Top = 3
Width = 45
Height = 17
Caption = 'ф20'
Checked = True
TabOrder = 1
TabStop = True
end
object RBh25: TRadioButton
Left = 116
Top = 3
Width = 45
Height = 17
Caption = 'ф25'
TabOrder = 2
end
end
object Button20: TButton
Left = 216
Top = 49
Width = 75
Height = 23
Caption = '打开'
TabOrder = 2
OnClick = Button20Click
end
end
object TabSheet8: TTabSheet
Caption = '砼抗压报告'
ImageIndex = 7
object GroupBox9: 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 ComboBox9: TComboBox
Left = 8
Top = 24
Width = 409
Height = 24
ItemHeight = 0
TabOrder = 0
Text = 'E:\新建文件夹\泰达图书馆\桩基工程\进料情况\混凝土检测'
end
end
object Button17: TButton
Left = 16
Top = 24
Width = 75
Height = 25
Caption = '打开'
TabOrder = 1
OnClick = Button17Click
end
end
object TabSheet9: TTabSheet
Caption = '超声波检测'
ImageIndex = 8
object GroupBox10: 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 ComboBox10: TComboBox
Left = 8
Top = 24
Width = 409
Height = 24
ItemHeight = 0
TabOrder = 0
Text = 'E:\新建文件夹\泰达图书馆\桩基工程\超声波检测'
end
end
object Button18: TButton
Left = 16
Top = 24
Width = 75
Height = 25
Caption = '打开'
TabOrder = 1
OnClick = Button18Click
end
end
object TabSheet14: TTabSheet
Caption = '静载检测'
ImageIndex = 9
object GroupBox12: 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 ComboBox12: TComboBox
Left = 8
Top = 24
Width = 409
Height = 24
ItemHeight = 0
TabOrder = 0
Text = 'E:\新建文件夹\泰达图书馆\桩基工程\桩基检测\静载检测'
end
end
object Button15: TButton
Left = 16
Top = 24
Width = 75
Height = 25
Caption = '打开'
TabOrder = 1
OnClick = Button15Click
end
end
object TabSheet15: TTabSheet
Caption = '小应变检测'
ImageIndex = 10
object GroupBox13: 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 ComboBox13: TComboBox
Left = 8
Top = 24
Width = 409
Height = 24
ItemHeight = 0
TabOrder = 0
Text = 'E:\新建文件夹\泰达图书馆\桩基工程\桩基检测\小应变检测'
end
end
object Button16: TButton
Left = 16
Top = 24
Width = 75
Height = 25
Caption = '打开'
TabOrder = 1
OnClick = Button16Click
end
end
end
object Button2: TButton
Left = 24
Top = 152
Width = 75
Height = 25
Caption = '取默认路径'
TabOrder = 1
OnClick = Button2Click
end
object Button3: TButton
Left = 112
Top = 152
Width = 97
Height = 25
Caption = '取上次所选路径'
TabOrder = 2
OnClick = Button3Click
end
object Button4: TButton
Left = 224
Top = 152
Width = 75
Height = 25
Caption = '存当前路径'
TabOrder = 3
OnClick = Button4Click
end
object Button6: TButton
Left = 434
Top = 118
Width = 21
Height = 22
Caption = '…'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = Button6Click
end
object Panel2: TPanel
Left = 3
Top = 28
Width = 476
Height = 22
BevelOuter = bvLowered
TabOrder = 5
object Label1: TLabel
Left = 2
Top = 4
Width = 65
Height = 16
Caption = '打桩日期：'
end
object DBText3: TDBText
Left = 59
Top = 2
Width = 65
Height = 17
DataField = 'RiQi'
DataSource = Data1.XiuGaiTDS
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 129
Top = 4
Width = 65
Height = 16
Caption = '桩机号是：'
end
object DBText1: TDBText
Left = 187
Top = 3
Width = 15
Height = 17
DataField = 'ZhuangJiHao'
DataSource = Data1.XiuGaiTDS
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 210
Top = 4
Width = 52
Height = 16
Caption = '桩号是：'
end
object DBText2: TDBText
Left = 255
Top = 3
Width = 29
Height = 16
DataField = 'ZhuangHao'
DataSource = Data1.XiuGaiTDS
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 285
Top = 4
Width = 52
Height = 16
Caption = '位置是：'
end
object DBText4: TDBText
Left = 330
Top = 4
Width = 46
Height = 17
DataField = 'WeiZhi'
DataSource = Data1.XiuGaiTDS
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object DBNavigator1: TDBNavigator
Left = 382
Top = 2
Width = 92
Height = 18
DataSource = Data1.XiuGaiTDS
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
Flat = True
TabOrder = 0
OnClick = DBNavigator1Click
end
end
end
object WordApplication1: TWordApplication
AutoConnect = False
ConnectKind = ckRunningOrNew
AutoQuit = False
OnQuit = WordApplication1Quit
Left = 440
Top = 56
end
object OpenDialog1: TOpenDialog
Left = 381
Top = 53
end
object OpenPictureDialog1: TOpenPictureDialog
Left = 413
Top = 53
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -