📄 form_gdword.frm
字号:
VERSION 5.00
Begin VB.Form Form_GdWord
BorderStyle = 1 'Fixed Single
Caption = "压力管道质量评定"
ClientHeight = 5535
ClientLeft = 7395
ClientTop = 3630
ClientWidth = 5535
Icon = "Form_GdWord.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5535
ScaleWidth = 5535
Begin VB.Frame Frame4
Caption = "安装"
Height = 3255
Left = 3240
TabIndex = 32
Top = 2160
Width = 2175
Begin VB.OptionButton Opt_GYZ
Caption = "滚动支座或摇摆支座的支墩垫板高程和纵、横中心"
Height = 615
Left = 240
TabIndex = 38
Top = 2520
Width = 1815
End
Begin VB.OptionButton Opt_AZ
Caption = "鞍式支座顶面弧度和样板间隙"
Height = 375
Left = 240
TabIndex = 37
Top = 2160
Width = 1815
End
Begin VB.CheckBox Chk_GJK
Caption = "灌浆孔堵焊"
Height = 255
Left = 240
TabIndex = 36
Top = 1560
Width = 1215
End
Begin VB.CheckBox Chk_ZF
Caption = "纵缝"
Height = 255
Left = 240
TabIndex = 35
Top = 1320
Width = 975
End
Begin VB.CheckBox Chk_SCW
Caption = "与蜗壳、伸缩节、蝴蝶阀、球阀、岔管连接的管节及弯管起点的管口中心"
Height = 855
Left = 240
TabIndex = 34
Top = 480
Width = 1815
End
Begin VB.CheckBox Chk_SZJ
Caption = "始装节"
Height = 255
Left = 240
TabIndex = 33
Top = 240
Width = 975
End
End
Begin VB.Frame Frame3
Caption = "探伤"
Height = 855
Left = 3240
TabIndex = 29
Top = 1080
Width = 2175
Begin VB.OptionButton Opt_Ch
Caption = "超声波探伤"
Height = 255
Left = 120
TabIndex = 31
Top = 480
Value = -1 'True
Width = 1215
End
Begin VB.OptionButton Opt_X
Caption = "X射线透照"
Height = 255
Left = 120
TabIndex = 30
Top = 240
Width = 1215
End
End
Begin VB.Frame Frame2
Caption = "制作"
Height = 825
Left = 3240
TabIndex = 24
Top = 120
Width = 2130
Begin VB.TextBox Txt_H
Enabled = 0 'False
Height = 270
Left = 1320
TabIndex = 27
Text = "150"
Top = 360
Width = 735
End
Begin VB.OptionButton Opt_ZC
Caption = "支承环"
Height = 225
Left = 120
TabIndex = 26
Top = 240
Width = 855
End
Begin VB.OptionButton Opt_JJ
Caption = "加劲环"
Height = 255
Left = 120
TabIndex = 25
Top = 480
Width = 855
End
Begin VB.Label Label2
Caption = "H="
Height = 255
Left = 1080
TabIndex = 28
Top = 360
Width = 255
End
End
Begin VB.Frame Frame1
Caption = "单元工程参数"
Height = 2175
Left = 360
TabIndex = 14
Top = 2520
Width = 2415
Begin VB.TextBox Text_CDL
Height = 270
Left = 1560
TabIndex = 23
Text = "8"
Top = 1800
Width = 735
End
Begin VB.TextBox Text_CDB
Height = 270
Left = 1560
TabIndex = 22
Text = "2"
Top = 1320
Width = 735
End
Begin VB.TextBox Text_LJ
Height = 270
Left = 1560
TabIndex = 17
Text = "1.2"
Top = 360
Width = 735
End
Begin VB.TextBox Text_HD
Height = 270
Left = 1560
TabIndex = 16
Text = "16"
Top = 840
Width = 735
End
Begin VB.Label Label1
Caption = "大节长度L(m):"
Height = 255
Index = 7
Left = 120
TabIndex = 21
Top = 1800
Width = 1215
End
Begin VB.Label Label1
Caption = "钢管内径D(m):"
Height = 255
Index = 4
Left = 120
TabIndex = 20
Top = 360
Width = 1215
End
Begin VB.Label Label1
Caption = "钢板厚度δ(mm):"
Height = 255
Index = 5
Left = 120
TabIndex = 19
Top = 840
Width = 1455
End
Begin VB.Label Label1
Caption = "单节长度B(m):"
Height = 255
Index = 6
Left = 120
TabIndex = 18
Top = 1320
Width = 1215
End
End
Begin VB.CommandButton Cmd_Exit
Caption = "退出"
Height = 255
Left = 2400
TabIndex = 13
Top = 5040
Width = 615
End
Begin VB.CommandButton Cmd_MG
Caption = "明管安装"
Height = 255
Left = 1320
TabIndex = 12
Top = 5160
Width = 975
End
Begin VB.CommandButton Cmd_AG
Caption = "埋管安装"
Height = 255
Left = 1320
TabIndex = 11
Top = 4800
Width = 975
End
Begin VB.CommandButton Cmd_ZZCg
Caption = "岔管制造"
Height = 255
Left = 120
TabIndex = 10
Top = 5160
Width = 975
End
Begin VB.CommandButton Cmd_ZZ
Caption = "钢管制作"
Height = 255
Left = 120
TabIndex = 9
Top = 4800
Width = 975
End
Begin VB.TextBox Text_GCS
Height = 270
Left = 1560
TabIndex = 8
Text = "1"
Top = 2040
Width = 495
End
Begin VB.TextBox Text_RQ
Height = 270
Left = 1560
TabIndex = 7
Text = "2008年10月30日"
Top = 1560
Width = 1575
End
Begin VB.TextBox Text_SGDW
Height = 270
Left = 1080
TabIndex = 6
Text = "中国水利水电第十工程局"
Top = 1080
Width = 2055
End
Begin VB.TextBox Text_FB
Height = 270
Left = 1560
TabIndex = 5
Text = "压力钢管制作"
Top = 600
Width = 1575
End
Begin VB.TextBox Text_DW
Height = 270
Left = 1560
TabIndex = 4
Text = "马熊沟电站"
Top = 120
Width = 1575
End
Begin VB.Label Label1
Caption = "单元工程数:"
Height = 255
Index = 8
Left = 120
TabIndex = 15
Top = 2040
Width = 1095
End
Begin VB.Image Image1
Height = 600
Left = 2280
Picture = "Form_GdWord.frx":08CA
Stretch = -1 'True
Top = 1920
Width = 585
End
Begin VB.Label Label1
Caption = "检验日期:"
Height = 255
Index = 3
Left = 120
TabIndex = 3
Top = 1560
Width = 975
End
Begin VB.Label Label1
Caption = "施工单位:"
Height = 255
Index = 2
Left = 120
TabIndex = 2
Top = 1080
Width = 855
End
Begin VB.Label Label1
Caption = "分部工程名称:"
Height = 255
Index = 1
Left = 120
TabIndex = 1
Top = 600
Width = 1335
End
Begin VB.Label Label1
Caption = "单位工程名称:"
Height = 255
Index = 0
Left = 120
TabIndex = 0
Top = 120
Width = 1335
End
End
Attribute VB_Name = "Form_GdWord"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim BH As Integer '管节编号
Dim hfs As Integer, zfs As Integer '环、纵缝数量
Dim dyzl As Double '单元工程量
Dim dyds As String '单元工程量
Dim tp As Integer, tmp '临时变量
Dim zds As Integer, zhgds As Integer '主要项目共测点数、合格点数
Dim yds As Integer, yhgds As Integer '一般项目共测点数、合格点数
Dim zxm As Integer, zxmy As Integer '主要项目个数、一般项目个数
Dim yxm As Integer, yxmy As Integer '一般项目个数、一般项目个数
Dim xc() As Integer '项次统计
Dim xcxm() As Integer '单元工程项次统计
Dim tabx As Word.Table
Dim tbs As Integer '第tbs表
Dim yxpc '允许偏差
Private Sub Cmd_Exit_Click()
关闭word
End
End Sub
Private Sub Form_Load()
Rnd '-1
'对随机数生成器做初始化的动作
Randomize offset
启动word
End Sub
Private Sub Cmd_ZZ_Click()
ReDim xcxm(2, 7)
JBCS
For BH = 1 To Val(Text_GCS.Text)
dyds = LTrim(Str$(BH)) + "#压力钢管制作"
OpenDocument App.Path & "\GD-ZZ2.1.doc" '打开文件
TB2_1 1
TB2_42 3
TB2_43 4
SaveNewDocument App.Path + "\ZZ\" + LTrim(Str$(BH)) + "#.doc"
Next BH
End Sub
Private Sub Cmd_MG_Click()
Dim temp As String
ReDim xcxm(4, 7)
JBCS
For BH = 1 To Val(Text_GCS.Text)
temp = "第" + LTrim(Str$(BH)) + "段明管安装"
dyds = temp + Chr$(13) + "0+100.00～0+200.00"
OpenDocument App.Path & "\GD-MG2.5.doc" '打开文件
TB2_51 2
TB2_41 3
TB2_42 4
TB2_43 5
TB2_52 6
TB2_5 temp
Next BH
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -