📄 form24.frm
字号:
Top = 315
Width = 975
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "时间："
ForeColor = &H00FF0000&
Height = 255
Left = 8520
TabIndex = 73
Top = 315
Width = 735
End
Begin VB.Label Label15
BackStyle = 0 'Transparent
Caption = " 共 计"
ForeColor = &H00FF0000&
Height = 255
Left = 2520
TabIndex = 72
Top = 4560
Width = 855
End
Begin VB.Line Line1
Index = 16
X1 = 2160
X2 = 9720
Y1 = 4080
Y2 = 4080
End
Begin VB.Line Line1
Index = 18
X1 = 2160
X2 = 9720
Y1 = 4440
Y2 = 4440
End
End
Attribute VB_Name = "Form24"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
With Form24.Cell1
'////////////////////////////////////////////////////////////公共部分
.DoSetColWidth 0, 25
.DoSetColWidth 1, 130
' .DoSetColWidth 2, 60
.DoSetColWidth 3, 60
.DoSetColWidth 4, 90
' .DoSetColWidth 5, 60
.DoSetColWidth 6, 60
.DoSetColWidth 7, 130
.DoSetColWidth 8, 0
' .DoDrawHLine 1, 8, 4, True, 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 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawVLine 5, 15, 0, False, vbBlack, 1 '(开始行,结束行,所在列,上下线,颜色,线粗细)
.DoDrawVLine 5, 15, 1, False, vbBlack, 1
.DoDrawVLine 5, 15, 2, False, vbBlack, 1
.DoDrawVLine 5, 15, 3, False, vbBlack, 1
.DoDrawVLine 5, 15, 4, False, vbBlack, 1
.DoDrawVLine 5, 15, 5, False, vbBlack, 1
.DoDrawVLine 5, 15, 6, False, vbBlack, 1
.DoDrawVLine 5, 15, 7, False, vbBlack, 1
' .DoDrawVLine 17, 27, 0, False, vbBlack, 1
' .DoDrawVLine 17, 27, 1, False, vbBlack, 1
' .DoDrawVLine 17, 27, 2, False, vbBlack, 1
' .DoDrawVLine 17, 27, 3, False, vbBlack, 1
' .DoDrawVLine 17, 27, 5, False, vbBlack, 1
' .DoDrawVLine 17, 27, 7, False, vbBlack, 1
' .DoSetRowHeight 0, 150
'////////////////////////////////////////////////////////////0行
.DoJoinCells 0, 0, 8, 0 '合并列成为一行(开始列,开始行,结束列,结束行)
.DoSetCellAlignment 0, 0, 4 '使字体居中
.DoDelHLine 0, 0, 0, True '删除网格线(开始列,结束列,所在行)
.DoSetCellString 0, 0, " "
.DoSetRowHeight 0, 80
'////////////////////////////////////////////////////////////一行
.DoSetCellAlignment 2, 1, 1 '使字体居中
.DoJoinCells 2, 1, 6, 1 '合并列成为一行
.DoDelHLine 0, 0, 1, True '删除网格线
.DoSetCellString 2, 1, " 工 程 结 算 单"
.DoSetCellFont 2, 1, 20, 1, 宋体 '字体大小
.DoSetRowHeight 1, 40
'////////////////////////////////////////////////////////////二行
.DoJoinCells 0, 2, 8, 2 '合并列成为一行
.DoSetRowHeight 2, 50
.DoDrawHLine 1, 7, 2, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
'////////////////////////////////////////////////////////////三行
.DoSetCellAlignment 1, 3, 4 '使字体居中
.DoSetCellAlignment 6, 3, 1 '使字体居中
.DoSetCellString 1, 3, "单位："
.DoSetCellFont 1, 3, 10, 1, 宋体
.DoJoinCells 2, 3, 4, 3 '合并列成为一行
.DoJoinCells 6, 3, 8, 3 '合并列成为一行
' .DoSetCellString 2, 3, rs.Fields(0)
.DoSetCellString 2, 3, Form24.Text1
.DoSetCellFont 2, 3, 9, 0, 宋体 '字体大小
.DoSetCellString 5, 3, "工程编号："
.DoSetCellFont 5, 3, 10, 1, 宋体
.DoSetCellString 6, 3, Form24.Text2
'////////////////////////////////////////////////////////////四行
' .DoJoinCells 0, 4, 8, 4 '合并列成为一行
.DoSetRowHeight 4, 50
'////////////////////////////////////////////////////////////五行
.DoSetRowHeight 5, 30
.DoSetCellAlignment 1, 5, 4 '使字体居中
.DoSetCellAlignment 2, 5, 4 '使字体居中
.DoSetCellAlignment 3, 5, 4 '使字体居中
.DoSetCellAlignment 4, 5, 4 '使字体居中
.DoSetCellAlignment 5, 5, 4 '使字体居中
.DoSetCellAlignment 6, 5, 4 '使字体居中
.DoSetCellAlignment 7, 5, 4 '使字体居中
.DoSetCellString 1, 5, "项目"
.DoSetCellFont 1, 5, 10, 1, 宋体
.DoSetCellString 2, 5, "单位"
.DoSetCellFont 2, 5, 10, 1, 宋体
.DoSetCellString 3, 5, "数量"
.DoSetCellFont 3, 5, 10, 1, 宋体
.DoSetCellString 4, 5, "单价"
.DoSetCellFont 4, 5, 10, 1, 宋体
.DoSetCellString 5, 5, "系数"
.DoSetCellFont 5, 5, 10, 1, 宋体
.DoSetCellString 6, 5, "技术费"
.DoSetCellFont 6, 5, 10, 1, 宋体
.DoSetCellString 7, 5, "合计"
.DoSetCellFont 7, 5, 10, 1, 宋体
'////////////////////////////////////////////////////////////六行
.DoSetRowHeight 6, 30
.DoSetCellAlignment 1, 6, 4 '使字体居中
.DoSetCellAlignment 2, 6, 4 '使字体居中
.DoSetCellAlignment 3, 6, 4 '使字体居中
.DoSetCellAlignment 4, 6, 4 '使字体居中
.DoSetCellAlignment 5, 6, 4 '使字体居中
.DoSetCellAlignment 6, 6, 4 '使字体居中
.DoSetCellAlignment 7, 6, 4 '使字体居中
.DoSetCellString 1, 6, Form24.Combo1.Text
.DoSetCellString 2, 6, Form24.Combo2.Text
.DoSetCellString 3, 6, Form24.Text6
.DoSetCellString 4, 6, Form24.Text7
.DoSetCellString 5, 6, Form24.Text8
.DoSetCellString 6, 6, Form24.Text9
.DoSetCellString 7, 6, Form24.Text10
'////////////////////////////////////////////////////////////
.DoSetRowHeight 7, 30
.DoSetCellAlignment 1, 7, 4 '使字体居中
.DoSetCellAlignment 2, 7, 4 '使字体居中
.DoSetCellAlignment 3, 7, 4 '使字体居中
.DoSetCellAlignment 4, 7, 4 '使字体居中
.DoSetCellAlignment 5, 7, 4 '使字体居中
.DoSetCellAlignment 6, 7, 4 '使字体居中
.DoSetCellAlignment 7, 7, 4 '使字体居中
.DoSetCellString 1, 7, Form24.Combo3.Text
.DoSetCellString 2, 7, Form24.Combo4.Text
.DoSetCellString 3, 7, Form24.Text13
.DoSetCellString 4, 7, Form24.Text14
.DoSetCellString 5, 7, Form24.Text15
.DoSetCellString 6, 7, Form24.Text16
.DoSetCellString 7, 7, Form24.Text17
'////////////////////////////////////////////////////////////
.DoSetRowHeight 8, 30
.DoSetCellAlignment 1, 8, 4 '使字体居中
.DoSetCellAlignment 2, 8, 4 '使字体居中
.DoSetCellAlignment 3, 8, 4 '使字体居中
.DoSetCellAlignment 4, 8, 4 '使字体居中
.DoSetCellAlignment 5, 8, 4 '使字体居中
.DoSetCellAlignment 6, 8, 4 '使字体居中
.DoSetCellAlignment 7, 8, 4 '使字体居中
.DoSetCellString 1, 8, Form24.Combo5.Text
.DoSetCellString 2, 8, Form24.Combo6.Text
.DoSetCellString 3, 8, Form24.Text20
.DoSetCellString 4, 8, Form24.Text21
.DoSetCellString 5, 8, Form24.Text22
.DoSetCellString 6, 8, Form24.Text23
.DoSetCellString 7, 8, Form24.Text24
'////////////////////////////////////////////////////////////
.DoSetRowHeight 9, 30
.DoSetCellAlignment 1, 9, 4 '使字体居中
.DoSetCellAlignment 2, 9, 4 '使字体居中
.DoSetCellAlignment 3, 9, 4 '使字体居中
.DoSetCellAlignment 4, 9, 4 '使字体居中
.DoSetCellAlignment 5, 9, 4 '使字体居中
.DoSetCellAlignment 6, 9, 4 '使字体居中
.DoSetCellAlignment 7, 9, 4 '使字体居中
.DoSetCellString 1, 9, Form24.Combo7.Text
.DoSetCellString 2, 9, Form24.Combo8.Text
.DoSetCellString 3, 9, Form24.Text27
.DoSetCellString 4, 9, Form24.Text28
.DoSetCellString 5, 9, Form24.Text29
.DoSetCellString 6, 9, Form24.Text30
.DoSetCellString 7, 9, Form24.Text31
'////////////////////////////////////////////////////////////
.DoSetRowHeight 10, 30
.DoSetCellAlignment 1, 10, 4 '使字体居中
.DoSetCellAlignment 2, 10, 4 '使字体居中
.DoSetCellAlignment 3, 10, 4 '使字体居中
.DoSetCellAlignment 4, 10, 4 '使字体居中
.DoSetCellAlignment 5, 10, 4 '使字体居中
.DoSetCellAlignment 6, 10, 4 '使字体居中
.DoSetCellAlignment 7, 10, 4 '使字体居中
.DoSetCellString 1, 10, Form24.Combo9.Text
.DoSetCellString 2, 10, Form24.Combo10.Text
.DoSetCellString 3, 10, Form24.Text34
.DoSetCellString 4, 10, Form24.Text35
.DoSetCellString 5, 10, Form24.Text36
.DoSetCellString 6, 10, Form24.Text37
.DoSetCellString 7, 10, Form24.Text38
'////////////////////////////////////////////////////////////
.DoSetRowHeight 11, 30
.DoSetCellAlignment 1, 11, 4 '使字体居中
.DoSetCellAlignment 2, 11, 4 '使字体居中
.DoSetCellAlignment 3, 11, 4 '使字体居中
.DoSetCellAlignment 4, 11, 4 '使字体居中
.DoSetCellAlignment 5, 11, 4 '使字体居中
.DoSetCellAlignment 6, 11, 4 '使字体居中
.DoSetCellAlignment 7, 11, 4 '使字体居中
.DoSetCellString 1, 11, Form24.Combo11.Text
.DoSetCellString 2, 11, Form24.Combo12.Text
.DoSetCellString 3, 11, Form24.Text41
.DoSetCellString 4, 11, Form24.Text42
.DoSetCellString 5, 11, Form24.Text43
.DoSetCellString 6, 11, Form24.Text44
.DoSetCellString 7, 11, Form24.Text45
'////////////////////////////////////////////////////////////
.DoSetRowHeight 12, 30
.DoSetCellAlignment 1, 12, 4 '使字体居中
.DoSetCellAlignment 2, 12, 4 '使字体居中
.DoSetCellAlignment 3, 12, 4 '使字体居中
.DoSetCellAlignment 4, 12, 4 '使字体居中
.DoSetCellAlignment 5, 12, 4 '使字体居中
.DoSetCellAlignment 6, 12, 4 '使字体居中
.DoSetCellAlignment 7, 12, 4 '使字体居中
.DoSetCellString 1, 12, Form24.Combo13.Text
.DoSetCellString 2, 12, Form24.Combo14.Text
.DoSetCellString 3, 12, Form24.Text48
.DoSetCellString 4, 12, Form24.Text49
.DoSetCellString 5, 12, Form24.Text50
.DoSetCellString 6, 12, Form24.Text51
.DoSetCellString 7, 12, Form24.Text52
'////////////////////////////////////////////////////////////
.DoSetRowHeight 13, 30
.DoSetCellAlignment 1, 13, 4 '使字体居中
.DoSetCellAlignment 2, 13, 4 '使字体居中
.DoSetCellAlignment 3, 13, 4 '使字体居中
.DoSetCellAlignment 4, 13, 4 '使字体居中
.DoSetCellAlignment 5, 13, 4 '使字体居中
.DoSetCellAlignment 6, 13, 4 '使字体居中
.DoSetCellAlignment 7, 13, 4 '使字体居中
.DoSetCellString 1, 13, Form24.Combo15.Text
.DoSetCellString 2, 13, Form24.Combo16.Text
.DoSetCellString 3, 13, Form24.Text73
.DoSetCellString 4, 13, Form24.Text74
.DoSetCellString 5, 13, Form24.Text75
.DoSetCellString 6, 13, Form24.Text76
.DoSetCellString 7, 13, Form24.Text77
'////////////////////////////////////////////////////////////
'////////////////////////////////////////////////////////////
.DoSetRowHeight 14, 30
.DoSetCellAlignment 1, 14, 4 '使字体居中
.DoSetCellAlignment 2, 14, 4 '使字体居中
.DoSetCellAlignment 3, 14, 4 '使字体居中
.DoSetCellAlignment 4, 14, 4 '使字体居中
.DoSetCellAlignment 5, 14, 4 '使字体居中
.DoSetCellAlignment 6, 14, 4 '使字体居中
.DoSetCellAlignment 7, 14, 4 '使字体居中
.DoSetCellString 1, 14, Form24.Combo17.Text
.DoSetCellString 2, 14, Form24.Combo18.Text
.DoSetCellString 3, 14, Form24.Text80
.DoSetCellString 4, 14, Form24.Text81
.DoSetCellString 5, 14, Form24.Text82
.DoSetCellString 6, 14, Form24.Text83
.DoSetCellString 7, 14, Form24.Text84
'////////////////////////////////////////////////////////////
.DoSetRowHeight 15, 30
.DoJoinCells 2, 15, 3, 15 '合并列成为一行(开始列,开始行,结束列,结束行)
.DoJoinCells 6, 15, 7, 15 '合并列成为一行(开始列,开始行,结束列,结束行)
.DoSetCellAlignment 1, 15, 4 '使字体居中
.DoSetCellAlignment 2, 15, 4 '使字体居中
.DoSetCellAlignment 3, 15, 4 '使字体居中
.DoSetCellAlignment 4, 15, 4 '使字体居中
.DoSetCellAlignment 5, 15, 4 '使字体居中
.DoSetCellAlignment 6, 15, 4 '使字体居中
.DoSetCellString 1, 15, "共计"
.DoSetCellString 2, 15, Form24.Text65
.DoSetCellString 4, 15, Form24.Text66
.DoSetCellString 5, 15, Form24.Text67
.DoSetCellString 6, 15, Form24.Text53
'////////////////////////////////////////////////////////////
' .DoJoinCells 0, 14, 8, 14 '合并列成为一行(开始列,开始行,结束列,结束行)
.DoSetRowHeight 16, 60
'////////////////////////////////////////////////////////////
.DoJoinCells 1, 17, 4, 17 '合并列成为一行(开始列,开始行,结束列,结束行)
.DoJoinCells 6, 17, 7, 17 '合并列成为一行(开始列,开始行,结束列,结束行)
.DoSetCellString 1, 17, " 哈尔滨市勘察测绘研究院"
' .DoSetCellFont 1, 17, 10, 1, 宋体 '字体大小
.DoSetCellString 6, 17, grs.Fields(2)
' .DoSetCellFont 6, 17, 10, 1, 宋体 '字体大小
'////////////////////////////////////////////////////////////
' .DoJoinCells 0, 25, 8, 25 '合并列成为一行(开始列,开始行,结束列,结束行)
.DoSetRowHeight 18, 20
.DoRedrawAll
End With
Form24.Cell1.DoPrintPreview True
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
With Me
.Height = 8010
.left = 2332
.top = 2600
.Width = 12160
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim p As Integer
For p = 1 To Form21.ListView1.ListItems.Count
Form21.ListView1.ListItems.Item(p).Checked = False
Next
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -