📄 form54.frm
字号:
End
Begin VB.Line Line40
X1 = 2400
X2 = 7920
Y1 = 4560
Y2 = 4560
End
Begin VB.Line Line41
X1 = 2400
X2 = 7920
Y1 = 5190
Y2 = 5190
End
Begin VB.Line Line42
X1 = 360
X2 = 9240
Y1 = 6435
Y2 = 6435
End
Begin VB.Line Line43
X1 = 2400
X2 = 7920
Y1 = 5505
Y2 = 5505
End
Begin VB.Line Line44
X1 = 2400
X2 = 7920
Y1 = 5820
Y2 = 5820
End
Begin VB.Line Line45
X1 = 360
X2 = 9240
Y1 = 8070
Y2 = 8070
End
Begin VB.Line Line46
X1 = 360
X2 = 9240
Y1 = 7650
Y2 = 7650
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "5"
ForeColor = &H00FF0000&
Height = 255
Left = 720
TabIndex = 71
Top = 6840
Width = 255
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "6"
ForeColor = &H00FF0000&
Height = 255
Left = 720
TabIndex = 70
Top = 7440
Width = 255
End
Begin VB.Label Label58
BackStyle = 0 'Transparent
Caption = "下拨合计"
ForeColor = &H00FF0000&
Height = 255
Left = 1440
TabIndex = 69
Top = 6240
Width = 975
End
Begin VB.Label Label59
BackStyle = 0 'Transparent
Caption = "累计下拨"
ForeColor = &H00FF0000&
Height = 255
Left = 1440
TabIndex = 68
Top = 7440
Width = 975
End
Begin VB.Label Label54
BackStyle = 0 'Transparent
Caption = "结算日期"
ForeColor = &H00FF0000&
Height = 255
Left = 9480
TabIndex = 16
Top = 6885
Width = 855
End
End
Attribute VB_Name = "Form54"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim i, j, m, p As Integer
hzrs.CursorLocation = adUseClient
hzrs.Open "select * from 勘察工程任务结算单", hzconn, adOpenKeyset, adLockPessimistic
For i = 1 To hzrs.RecordCount
If hzrs.Fields(1).Value = Text1(1).Text Then
For j = 2 To 6
If Text1(j).Text = "" Then
hzrs.Fields(j).Value = 0
Else
hzrs.Fields(j).Value = Text1(j).Text
End If
Next
hzrs.Fields(42).Value = username
hzrs.Fields(43).Value = Text1(43).Text
For m = 44 To 49
hzrs.Fields(m) = "0"
Next
For j = 26 To 41
If Text1(j).Text = "" Then
hzrs.Fields(j).Value = 0
Else
hzrs.Fields(j).Value = Text1(j).Text
End If
Next
For j = 53 To 81
If Text1(j).Text = "" Then
hzrs.Fields(j - 2).Value = 0
Else
hzrs.Fields(j - 2).Value = Text1(j).Text
End If
Next
End If
hzrs.MoveNext
Next
hzrs.Close
Dim ln As Long
ln = MsgBox("信息修改完成！", vbInformation, "提示")
For p = 1 To Form53.ListView1.ListItems.Count
Form53.ListView1.ListItems.Item(p).Checked = False
Next
Unload Me
End Sub
Private Sub Command2_Click()
Dim p As Integer
For p = 1 To Form53.ListView1.ListItems.Count
Form53.ListView1.ListItems.Item(p).Checked = False
Next
Unload Me
End Sub
Private Sub Command3_Click()
l = 0
With Form54.Cell2
'////////////////////////////////////////////////////////////公共部分
.DoSetPrintMargin 20, 20, 20, 20 '设置页边距，上、下、左、右
.DoSetColWidth 0, 10
.DoSetColWidth 1, 140
.DoSetColWidth 2, 105
.DoSetColWidth 3, 65
.DoSetColWidth 4, 150
.DoSetColWidth 5, 120
.DoSetColWidth 6, 110
.DoSetColWidth 7, 110
.DoSetColWidth 8, 0
.DoDrawHLine 1, 7, 2, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 7, 3, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 7, 4, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 7, 5, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 7, 6, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 7, 7, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 7, 8, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 7, 9, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 7, 10, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 7, 11, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 7, 12, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 7, 13, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 7, 14, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 7, 15, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 7, 16, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 7, 17, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 7, 18, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 7, 19, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 7, 20, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 7, 21, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 7, 22, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 7, 23, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 7, 24, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 7, 25, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 7, 26, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawVLine 3, 26, 0, False, vbBlack, 1 '(开始行,结束行,所在列,上下线,颜色,线粗细)
.DoDrawVLine 3, 26, 1, False, vbBlack, 1
.DoDrawVLine 3, 26, 2, False, vbBlack, 1
.DoDrawVLine 3, 26, 3, False, vbBlack, 1
.DoDrawVLine 3, 26, 4, False, vbBlack, 1
.DoDrawVLine 3, 26, 5, False, vbBlack, 1
.DoDrawVLine 3, 26, 6, False, vbBlack, 1
.DoDrawVLine 3, 26, 7, False, vbBlack, 1
'////////////////////////////////////////////////////////////0行
.DoSetRowHeight 0, 130
.DoJoinCells 0, 0, 8, 0 '合并列成为一行(开始列,开始行,结束列,结束行)
.DoSetCellAlignment 0, 0, 4 '使字体居中
.DoDelHLine 0, 0, 0, True '删除网格线(开始列,结束列,所在行)
.DoSetCellString 0, 0, " "
.DoSetRowHeight 0, 20
'////////////////////////////////////////////////////////////一行
.DoSetCellAlignment 2, 1, 1 '使字体居中
.DoJoinCells 2, 1, 7, 1 '合并列成为一行
.DoDelHLine 0, 0, 1, True '删除网格线
.DoSetCellString 2, 1, " 勘 察 工 程 结 算 单"
.DoSetCellFont 2, 1, 20, 1, 宋体 '字体大小
.DoSetRowHeight 1, 40
'////////////////////////////////////////////////////////////二行
' '////////////////////////////////////////////////////////////三行
.DoSetRowHeight 3, 40 '行，高
.DoSetCellString 1, 3, "工程编号" '列，行，设定串
.DoSetCellFont 1, 3, 10, 0, 宋体 '列，行，字体大小，字体风格，字体名称
.DoSetCellAlignment 1, 3, 36 '使字体居中 列、行，对齐方式
.DoSetCellTextStyle 1, 3, 1 '设置单元格中文本显示的风格 列，行，本风格
.DoJoinCells 2, 3, 3, 3 '合并列成为一行 开始列，开始行，结束列，结束行
.DoSetCellString 2, 3, Form54.Text1(1).Text '列，行，设定串
.DoSetCellFont 2, 3, 10, 1, 宋体 '列，行，字体大小，字体风格，字体名称
.DoSetCellAlignment 2, 3, 36 '使字体居中 列、行，对齐方式
.DoSetCellTextStyle 2, 3, 1 '设置单元格中文本显示的风格 列，行，本风格
.DoJoinCells 4, 3, 5, 3 ''合并列成为一行 开始列，开始行，结束列，结束行
.DoSetCellString 4, 3, "工程名称" '列，行，设定串
.DoSetCellFont 4, 3, 10, 0, 宋体 '列，行，字体大小，字体风格，字体名称
.DoSetCellAlignment 4, 3, 36 '使字体居中 列、行，对齐方式
.DoSetCellTextStyle 4, 3, 1 '设置单元格中文本显示的风格 列，行，本风格
.DoJoinCells 6, 3, 7, 3 ''合并列成为一行 开始列，开始行，结束列，结束行
.DoSetCellString 6, 3, Form54.Text1(2).Text '列、行，设定串
.DoSetCellFont 6, 3, 10, 0, 宋体 '列，行，字体大小，字体风格，字体名称
.DoSetCellAlignment 6, 3, 36 '使字体居中 列、行，对齐方式
.DoSetCellTextStyle 6, 3, 1 '设置单元格中文本显示的风格 列，行，本风格
' '////////////////////////////////////////////////////////////四行、五行
.DoSetRowHeight 4, 40 '行，高
.DoSetRowHeight 5, 40 '行，高
.DoJoinCells 1, 4, 1, 5 '合并列成为一行 开始列，开始行，结束列，结束行
.DoSetCellString 1, 4, "总进尺（米）" '列，行，设定串
.DoSetCellFont 1, 4, 10, 0, 宋体 '列，行，字体大小，字体风格，字体名称
.DoSetCellAlignment 1, 4, 36 '使字体居中 列、行，对齐方式
.DoSetCellTextStyle 1, 4, 1 '设置单元格中文本显示的风格 列，行，本风格
.DoJoinCells 2, 4, 3, 5 '合并列成为一行 开始列，开始行，结束列，结束行
.DoSetCellString 2, 4, Form54.Text1(3).Text '列，行，设定串
.DoSetCellFont 2, 4, 10, 1, 宋体 '列，行，字体大小，字体风格，字体名称
.DoSetCellAlignment 2, 4, 36 '使字体居中 列、行，对齐方式
.DoSetCellTextStyle 2, 4, 1 '设置单元格中文本显示的风格 列，行，本风格
.DoJoinCells 4, 4, 5, 4 ''合并列成为一行 开始列，开始行，结束列，结束行
.DoSetCellString 4, 4, "钻探进尺（米）" '列、行，设定串
.DoSetCellFont 4, 4, 10, 0, 宋体 '列，行，字体大小，字体风格，字体名称
.DoSetCellAlignment 4, 4, 36 '使字体居中 列、行，对齐方式
.DoSetCellTextStyle 4, 4, 1 '设置单元格中文本显示的风格 列，行，本风格
.DoJoinCells 6, 4, 7, 4 ''合并列成为一行 开始列，开始行，结束列，结束行
.DoSetCellString 6, 4, Form54.Text1(4).Text '列，行，设定串
.DoSetCellFont 6, 4, 10, 1, 宋体 '列，行，字体大小，字体风格，字体名称
.DoSetCellAlignment 6, 4, 36 '使字体居中 列、行，对齐方式
.DoSetCellTextStyle 6, 4, 1 '设置单元格中文本显示的风格 列，行，本风格
.DoJoinCells 4, 5, 5, 5 ''合并列成为一行 开始列，开始行，结束列，结束行
.DoSetCellString 4, 5, "静力触探进尺（米）" '列、行，设定串
.DoSetCellFont 4, 5, 10, 0, 宋体 '列，行，字体大小，字体风格，字体名称
.DoSetCellAlignment 4, 5, 36 '使字体居中 列、行，对齐方式
.DoSetCellTextStyle 4, 5, 1 '设置单元格中文本显示的风格 列，行，本风格
.DoJoinCells 6, 5, 7, 5 ''合并列成为一行 开始列，开始行，结束列，结束行
.DoSetCellString 6, 5, Form54.Text1(5).Text '列，行，设定串
.DoSetCellFont 6, 5, 10, 1, 宋体 '列，行，字体大小，字体风格，字体名称
.DoSetCellAlignment 6, 5, 36 '使字体居中 列、行，对齐方式
.DoSetCellTextStyle 6, 5, 1 '设置单元格中文本显示的风格 列，行，本风格
' '////////////////////////////////////////////////////////////六行
.DoSetRowHeight 6, 40 '行，高
.DoJoinCells 1, 6, 3, 6 '合并列成为一行 开始列，开始行，结束列，结束行
.DoSetCellString 1, 6, "合同额（元）" '列，行，设定串
.DoSetCellFont 1, 6, 10, 0, 宋体 '列，行，字体大小，字体风格，字体名称
.DoSetCellAlignment 1, 6, 36 '使字体居中 列、行，对齐方式
.DoSetCellTextStyle 1, 6, 1 '设置单元格中文本显示的风格 列，行，本风格
.DoJoinCells 4, 6, 7, 6 ''合并列成为一行 开始列，开始行，结束列，结束行
.DoSetCellString 4, 6, Form54.Text1(6).Text '列、行，设定串
.DoSetCellFont 4, 6, 10, 1, 宋体 '列，行，字体大小，字体风格，字体名称
.DoSetCellAlignment 4, 6, 36 '使字体居中 列、行，对齐方式
.DoSetCellTextStyle 4, 6, 1 '设置单元格中文本显示的风格 列，行，本风格
' '////////////////////////////////////////////////////////////七行
.DoSetRowHeight 7, 60 '行，高
.DoJoinCells 1, 7, 7, 7 '合并列成为一行 开始列，开始行，结束列，结束行
.DoSetCellString 1, 7, "下拨明细" '列，行，设定串
.DoSetCellFont 1, 7, 10, 1, 宋体 '列，行，字体大小，字体风格，字体名称
.DoSetCellAlignment 1, 7, 0 '使字体居中 列、行，对齐方式
.DoSetCellTextStyle 1, 7, 1 '设置单元格中文本显示的风格 列，行，本风格
' '////////////////////////////////////////////////////////////十五行
.DoSetRowHeight 8, 40 '行，高
.DoSetCellString 1, 8, "序号" '列，行，设定串
.DoSetCellFont 1, 8, 10, 0, 宋体 '列，行，字体大小，字体风格，字体名称
.DoSetCellAlignment 1, 8, 36 '使字体居中 列、行，对齐方式
.DoSetCellTextStyle 1, 8, 1 '设置单元格中文本显示的风格 列，行，本风格
.DoSetCellString 2, 8, "部门" '列，行，设定串
.DoSetCellFont 2, 8, 10, 0, 宋体 '列，行，字体大小，字体风格，字体名称
.DoSetCellAlignment 2, 8, 36 '使字体居中 列、行，对齐方式
.DoSetCellTextStyle 2, 8, 1 '设置单元格中文本显示的风格 列，行，本风格
.DoSetCellString 3, 8, "孔深" '列，行，设定串
.DoSetCellFont 3, 8, 10, 0, 宋体 '列，行，字体大小，字体风格，字体名称
.DoSetCellAlignment 3, 8, 36 '使字体居中 列、行，对齐方式
.DoSetCellTextStyle 3, 8, 1 '设置单元格中文本显示的风格 列，行，本风格
.DoSetCellString 4, 8, "单位价（元/米）" '列，行，设定串
.DoSetCellFont 4, 8, 10, 0, 宋体 '列，行，字体大小，字体风格，字体名称
.DoSetCellAlignment 4, 8, 36 '使字体居中 列、行，对齐方式
.DoSetCellTextStyle 4, 8, 1 '设置单元格中文本显示的风格 列，行，本风格
.DoSetCellString 5, 8, "工作量（米）" '列，行，设定串
.DoSetCellFont 5, 8, 10, 0, 宋体 '列，行，字体大小，字体风格，字体名称
.DoSetCellAlignment 5, 8, 36 '使字体居中 列、行，对齐方式
.DoSetCellTextStyle 5, 8, 1 '设置单元格中文本显示的风格 列，行，本风格
.DoSetCellString 6, 8, "小计（元）" '列，行，设定串
.DoSetCellFont 6, 8, 10, 0, 宋体 '列，行，字体大小，字体风格，字体名称
.DoSetCellAlignment 6, 8, 36 '使字体居中 列、行，对齐方式
.DoSetCellTextStyle 6, 8, 1 '设置单元格中文本显示的风格 列，行，本风格
.DoSetCellString 7, 8, "合计（元）" '列，行，设定串
.DoSetCellFont 7, 8, 10, 0, 宋体 '列，行，字体大小，字体风格，字体名称
.DoSetCellAlignment 7, 8, 36 '使字体居中 列、行，对齐方式
.DoSetCellTextStyle 7, 8, 1 '设置单元格中文本显示的风格 列，行，本风格
' '////////////////////////////////////////////////////////////十六行、十七行
.DoSetRowHeight 9, 40 '行，高
.DoSetRowHeight 10, 40 '行，高
.DoSetRowHeight 11, 40 '行，高
.DoSetRowHeight 12, 40 '行，高
.DoJoinCells 1, 9, 1, 12 '合并列成为一行 开始列，开始行，结束列，结束行
.DoSetCellString 1, 9, "1" '列，行，设定串
.DoSetCellFont 1, 9, 10, 0, 宋体 '列，行，字体大小，字体风格，字体名称
.DoSetCellAlignment 1, 9, 36 '使字体居中 列、行，对齐方式
.DoSetCellTextStyle 1, ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -