📄 form3.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Form3
Caption = "试验结果 天津大学自动化系研发 电机试验台一"
ClientHeight = 6660
ClientLeft = 4365
ClientTop = 1320
ClientWidth = 7665
LinkTopic = "Form3"
ScaleHeight = 6660
ScaleWidth = 7665
WindowState = 2 'Maximized
Begin VB.Timer Timer2
Interval = 100
Left = 6360
Top = 3000
End
Begin VB.Timer Timer1
Interval = 100
Left = 6480
Top = 5040
End
Begin VB.Frame Frame2
Caption = "请选择要查看的曲线"
Height = 1215
Left = 8640
TabIndex = 16
Top = 9240
Width = 1935
Begin VB.ListBox List1
Height = 600
ItemData = "Form3.frx":0000
Left = 360
List = "Form3.frx":0010
TabIndex = 17
Top = 360
Width = 1215
End
End
Begin VB.Frame Frame1
Caption = "请选择操作内容"
Height = 1215
Left = 1680
TabIndex = 9
Top = 9240
Width = 5535
Begin VB.CommandButton Command4
Caption = "打印曲线"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 600
TabIndex = 13
Top = 720
Width = 1815
End
Begin VB.CommandButton Command2
Caption = "打印报表"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 600
TabIndex = 12
Top = 240
Width = 1815
End
Begin VB.CommandButton Command1
Caption = "退 出"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3480
TabIndex = 11
Top = 720
Width = 1935
End
Begin VB.CommandButton Command3
Caption = "查询历史数据"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3480
TabIndex = 10
Top = 240
Width = 1935
End
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 2775
Left = 1080
TabIndex = 4
ToolTipText = "报表日期"
Top = 960
Width = 4695
_ExtentX = 8281
_ExtentY = 4895
_Version = 393216
Rows = 12
Cols = 5
GridLinesFixed = 1
End
Begin VB.PictureBox Picture3
ForeColor = &H00FFFFFF&
Height = 3255
Left = 600
ScaleHeight = 3195
ScaleWidth = 5475
TabIndex = 3
Top = 4920
Width = 5535
Begin VB.Shape Shape3
Height = 3255
Left = 0
Top = 0
Width = 5535
End
End
Begin VB.PictureBox Picture2
ForeColor = &H00FFFFFF&
Height = 3255
Left = 7080
ScaleHeight = 3195
ScaleWidth = 6675
TabIndex = 2
Top = 4920
Width = 6735
Begin VB.Shape Shape2
Height = 3255
Left = 0
Top = 0
Width = 6735
End
End
Begin VB.PictureBox Picture1
ForeColor = &H00FFFFFF&
Height = 3255
Left = 7080
ScaleHeight = 3195
ScaleWidth = 6675
TabIndex = 1
Top = 840
Width = 6735
Begin VB.Shape Shape1
Height = 3255
Left = 0
Top = 0
Width = 6735
End
End
Begin VB.Label Label8
Caption = "时间(s)"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Left = 12960
TabIndex = 20
Top = 8400
Width = 855
End
Begin VB.Label Label7
Caption = "时间(s)"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Left = 5280
TabIndex = 19
Top = 8400
Width = 855
End
Begin VB.Label Label12
Caption = "时间(s)"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Left = 12960
TabIndex = 18
Top = 4320
Width = 855
End
Begin VB.Label Label6
Caption = "编号："
Height = 255
Left = 4800
TabIndex = 15
Top = 600
Width = 615
End
Begin VB.Label Label5
Caption = "Label5"
Height = 255
Left = 5400
TabIndex = 14
Top = 600
Width = 1815
End
Begin VB.Label Label4
Caption = "转矩(N.m)"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Left = 7080
TabIndex = 8
Top = 4680
Width = 975
End
Begin VB.Label Label3
Caption = "电流(A)"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Left = 600
TabIndex = 7
Top = 4560
Width = 855
End
Begin VB.Label Label2
Caption = "速度(rpm)"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Left = 7200
TabIndex = 6
Top = 600
Width = 975
End
Begin VB.Label Label1
Caption = "数据报表"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Left = 3000
TabIndex = 5
Top = 3960
Width = 855
End
Begin VB.Label label
Caption = "实 验 结 果"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 375
Left = 4920
TabIndex = 0
Top = 240
Width = 2415
End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim marx0, mary0, marx1, mary1, speedx0, speedy0, speedx1, speedy1, currentx0, currenty0, currentx1, currenty1
Dim t
Dim mingtopmargin As Long
Dim mingleftmargin As Long
Dim mingheaderfontsize As Long
Dim mingbodyfontsize As Long
Dim mstrheaderfontname As String
Dim mstrbodyfontname As String
Dim db As Database
Dim rd
Dim n
Dim xs, ys
Dim xc, yc
Dim xm, ym
Dim xs1, ys1
Dim xc1, yc1
Dim xm1, ym1
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
printreport
'Dim old_width As Integer
'MSFlexGrid1.Width = Printer.Width
'Printer.PaintPicture MSFlexGrid1.Picture, 0, 0
'MSFlexGrid1.Width = old_width
Printer.EndDoc
End Sub
Private Sub Command3_Click()
Form4.Show
Unload Form3
End Sub
Private Sub Command4_Click()
strnum = Mid(reportrd.Fields("表名"), 16, Len(reportrd.Fields("表名")) - 15)
Dim h1, w1
h1 = 20
w1 = 80
Printer.ScaleMode = vbPoints
mingtopmargin = 12
mingleftmargin = 50
mingheaderfontsize = 20
mingbodyfontsize = 14
mstrheaderfontname = "arial"
mstrbodyfontname = "times new roman"
Printer.CurrentX = mingleftmargin + 150
Printer.CurrentY = mingtopmargin + 20
With Printer.Font
.Name = mstrheaderfontname
.size = mingheaderfontsize
.Bold = True
End With
Printer.Print "电机" + Mid(List1.Text, 1, 2) + "试验曲线"
Printer.CurrentX = mingleftmargin + 300
Printer.CurrentY = mingtopmargin + 45
With Printer.Font
.Name = mstrbodyfontname
.size = 14
.Bold = False
End With
Printer.Print "报表编号： "
With Printer.Font
.Name = mstrbodyfontname
.size = 12
.Bold = False
End With
n = 1
xs = mingleftmargin + 40
ys = mingtopmargin + 70 + 10 * h1
xs1 = xs
ys1 = ys
xc = xs
yc = ys + 12 * h1
xc1 = xc
yc1 = yc
xm = xs
ym = ys + 24 * h1
xm1 = xm
ym1 = ym
If (List1.Text = "空载曲线") Then
Set db = OpenDatabase("F:\天津大学电机试验台程序\试验台数据库\空载")
Set rd = db.OpenRecordset(reportname, dbOpenTable)
rd.MoveFirst
rd.MoveNext
End If
If (List1.Text = "额定曲线") Then
Set db = OpenDatabase("F:\天津大学电机试验台程序\试验台数据库\额定")
Set rd = db.OpenRecordset(reportname, dbOpenTable)
rd.MoveFirst
rd.MoveNext
End If
If (List1.Text = "启动曲线") Then
Set db = OpenDatabase("F:\天津大学电机试验台程序\试验台数据库\启动")
Set rd = db.OpenRecordset(reportname, dbOpenTable)
rd.MoveFirst
rd.MoveNext
End If
If (List1.Text = "堵转曲线") Then
Set db = OpenDatabase("F:\天津大学电机试验台程序\试验台数据库\堵转")
Set rd = db.OpenRecordset(reportname, dbOpenTable)
rd.MoveFirst
rd.MoveNext
End If
Printer.Line (xs, ys - 10 * h1)-(xs, ys)
Printer.Line (xs, ys)-(xs + 5 * w1, ys)
Printer.CurrentX = xs + 5 * w1 - 25
Printer.CurrentY = ys + 20
Printer.Print "时间(s)"
Printer.CurrentX = xs - 30
Printer.CurrentY = ys - 10 * h1 - 22
Printer.Print "速度(rpm)"
For i = 0 To 5
Printer.CurrentX = xs + i * w1 - 8
Printer.CurrentY = ys + 5
Printer.Print Str(i)
Next i
For i = 1 To 50
Printer.Line (xs + i * 0.1 * w1, ys)-(xs + i * 0.1 * w1, ys - 10 * h1)
Next i
For i = 1 To 10
Printer.CurrentX = xs - 28
Printer.CurrentY = ys - i * h1 - 6
Printer.Print Str(i * 300)
Next i
For i = 1 To 20
Printer.Line (xs, ys - i * 0.5 * h1)-(xs + 5 * w1, ys - i * 0.5 * h1)
Next i
Printer.Line (xc, yc - 10 * h1)-(xc, yc)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -