📄 formdatarb.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{FE0065C0-1B7B-11CF-9D53-00AA003C9CB6}#1.1#0"; "COMCT232.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.Form FormDatarb
Caption = "日报表"
ClientHeight = 9405
ClientLeft = 240
ClientTop = 1410
ClientWidth = 14220
LinkTopic = "Form1"
ScaleHeight = 9405
ScaleWidth = 14220
WindowState = 2 'Maximized
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 735
Left = 120
ScaleHeight = 705
ScaleWidth = 525
TabIndex = 1
Top = 0
Visible = 0 'False
Width = 555
End
Begin VB.OptionButton Optionql
BackColor = &H0000FF00&
Caption = "Option1"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 2
Left = 8520
Style = 1 'Graphical
TabIndex = 15
Top = 9840
Width = 2535
End
Begin VB.OptionButton Optionql
BackColor = &H00FFFF00&
Caption = "Option1"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 1
Left = 5160
Style = 1 'Graphical
TabIndex = 14
Top = 9840
Width = 2535
End
Begin VB.OptionButton Optionql
BackColor = &H00FF80FF&
Caption = "Option1"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 0
Left = 1800
Style = 1 'Graphical
TabIndex = 13
Top = 9840
Width = 2535
End
Begin VB.Frame Frame2
BorderStyle = 0 'None
Caption = "日期选择："
ForeColor = &H8000000D&
Height = 720
Index = 0
Left = 1200
TabIndex = 2
Top = 0
Width = 2400
Begin VB.TextBox Textnyr
BackColor = &H0080FFFF&
BorderStyle = 0 'None
Height = 240
Index = 0
Left = 240
TabIndex = 5
Text = "2002"
Top = 330
Width = 375
End
Begin VB.TextBox Textnyr
BackColor = &H0080FFFF&
BorderStyle = 0 'None
Height = 240
Index = 1
Left = 870
TabIndex = 4
Text = "01"
Top = 330
Width = 210
End
Begin VB.TextBox Textnyr
BackColor = &H0080FFFF&
BorderStyle = 0 'None
Height = 240
Index = 2
Left = 1260
TabIndex = 3
Text = "1"
Top = 330
Width = 210
End
Begin ComCtl2.UpDown UpDownQs
Height = 375
Left = 1560
TabIndex = 6
Top = 240
Width = 270
_ExtentX = 450
_ExtentY = 661
_Version = 327681
Enabled = -1 'True
End
Begin VB.Label Label4
AutoSize = -1 'True
BackColor = &H80000009&
BackStyle = 0 'Transparent
Caption = "月"
Height = 180
Index = 1
Left = 1080
TabIndex = 7
Top = 360
Width = 180
End
Begin VB.Label Label4
AutoSize = -1 'True
BackColor = &H80000009&
BackStyle = 0 'Transparent
Caption = "年"
Height = 180
Index = 0
Left = 645
TabIndex = 8
Top = 360
Width = 180
End
Begin VB.Label Label2
BackColor = &H0000FFFF&
BorderStyle = 1 'Fixed Single
Caption = " "
Height = 375
Index = 5
Left = 120
TabIndex = 9
Top = 240
Width = 1455
End
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 0
Top = 360
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSFlexGridLib.MSFlexGrid MSGrid1
Height = 8895
Left = 120
TabIndex = 0
Top = 720
Width = 15015
_ExtentX = 26485
_ExtentY = 15690
_Version = 393216
Rows = 5
Cols = 5
End
Begin VB.Label Labeldrq
AutoSize = -1 'True
Caption = "数据日期："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 120
TabIndex = 12
Top = 360
Width = 1050
End
Begin VB.Label Label3
Alignment = 2 'Center
BackColor = &H00FF8080&
BorderStyle = 1 'Fixed Single
Caption = "Label3"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF00FF&
Height = 375
Left = 3600
TabIndex = 11
Top = 240
Width = 1095
End
Begin VB.Label Labelbt
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "日报表"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 315
Left = 6795
TabIndex = 10
Top = 240
Width = 1035
End
Begin VB.Menu closebb
Caption = "关闭(&X)"
End
Begin VB.Menu dayin
Caption = "打印(&P)"
Begin VB.Menu setp
Caption = "打印设置"
End
Begin VB.Menu print1
Caption = "打印"
End
End
Begin VB.Menu printview
Caption = "打印预览(&V)"
End
End
Attribute VB_Name = "FormDatarb"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim gridwid(40), numdif(40), btdif(40), nyrflg, xuanzq
Dim hkflag(2), xunxnum(25)
Dim SumLL(9), lp31
Dim biaoti(2) As String
Dim RecordNum
Dim temp1(95, 26), dddtim(300)
Private Sub closebb_Click()
qiantai = 1
Unload Me
End Sub
Private Sub Form_Load()
Dim colwidth(25)
For i% = 0 To 2
biaoti(i%) = (i% + 1) & "#汽炉运行记录"
Optionql(i%).Caption = biaoti(i%)
Next
' Me.Icon = LoadPicture(sysdir & "\bmp0\BOOKS05.ico")
'-----标题栏(首行)距边线位移---
btdif(0) = 1
btdif(1) = 1
btdif(2) = 1
btdif(3) = 1
btdif(4) = 1
btdif(5) = 1
btdif(6) = 1
btdif(7) = 1
btdif(8) = 0.5
btdif(9) = 0.5
btdif(10) = 0.5
btdif(11) = 0.5
btdif(12) = 1
btdif(13) = 0.5
btdif(14) = 0.5
btdif(15) = 1
btdif(16) = 1
btdif(17) = 1
btdif(18) = 1
btdif(19) = 1
btdif(20) = 1
btdif(21) = 0.5
'---数据距边线位移--------------
numdif(0) = 2
numdif(1) = 2
numdif(2) = 1
numdif(3) = 1
numdif(4) = 1
numdif(5) = 2
numdif(6) = 1
numdif(7) = 1
numdif(8) = 2
numdif(9) = 3
numdif(10) = 3
numdif(11) = 3
numdif(12) = 2
numdif(13) = 2
numdif(14) = 2
numdif(15) = 2
numdif(16) = 2
numdif(17) = 2
numdif(18) = 2
numdif(19) = 2
numdif(20) = 2
numdif(21) = 2
'------表格列宽度--------
colwidth(0) = 0
colwidth(1) = 10
'-----蒸汽系统----
colwidth(2) = 9
colwidth(3) = 8
colwidth(4) = 8
colwidth(5) = 7
'-----给水系统----
colwidth(6) = 9
colwidth(7) = 8
colwidth(8) = 8
colwidth(9) = 10
colwidth(10) = 12
'-----空气系统----
colwidth(11) = 12
colwidth(12) = 12
colwidth(13) = 11
'-----烟气系统----
colwidth(14) = 10
colwidth(15) = 10
colwidth(16) = 11
colwidth(17) = 11
colwidth(18) = 11
colwidth(19) = 11
colwidth(20) = 11
colwidth(21) = 11
colwidth(22) = 10
colwidth(23) = 10
For i% = 1 To 23
gridwid(i%) = colwidth(i%) + gridwid(i% - 1)
Next
MSGrid1.Clear
MSGrid1.Cols = 22
MSGrid1.Rows = 30 + 2
For ii = 0 To MSGrid1.Cols - 1
MSGrid1.colwidth(ii) = 600
MSGrid1.ColAlignment(ii) = 3 '0列居中对齐
Next
MSGrid1.ColAlignment(0) = 1
MSGrid1.colwidth(1) = 900
MSGrid1.colwidth(5) = 900
MSGrid1.colwidth(8) = 800
MSGrid1.colwidth(9) = 1000
MSGrid1.colwidth(10) = 1000
MSGrid1.colwidth(11) = 1000
MSGrid1.colwidth(12) = 900
MSGrid1.colwidth(13) = 900
MSGrid1.colwidth(14) = 900
MSGrid1.colwidth(15) = 900
MSGrid1.colwidth(16) = 900
MSGrid1.colwidth(17) = 900
MSGrid1.colwidth(18) = 900
MSGrid1.colwidth(19) = 900
MSGrid1.colwidth(20) = 900
MSGrid1.colwidth(21) = 900
'-------------------------------
nian$ = Mid$(Date$, 3, 2) '今天日期
yue$ = Mid$(Date$, 6, 2)
ri$ = Mid$(Date$, 9, 2)
Textnyr(0).Text = Mid$(Date$, 1, 4)
Textnyr(1).Text = Mid$(Date$, 6, 2)
Textnyr(2).Text = Mid$(Date$, 9, 2)
nyrflg = 2
datetime = Mid$(Date$, 1, 4) & "年" & Mid$(Date$, 6, 2) & "月" & Mid$(Date$, 9, 2) & "日"
Datacl
Optionql(glsel).Value = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -