📄 form1.frm
字号:
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 375
Left = 3480
TabIndex = 103
Top = 1440
Width = 1335
End
Begin VB.CommandButton Command9
Caption = "打 印"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5520
TabIndex = 97
Top = 1320
Width = 1455
End
Begin VB.OptionButton Option2
BackColor = &H00C00000&
Caption = "日 报 表"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 375
Left = 3480
TabIndex = 96
Top = 480
Width = 1575
End
Begin VB.OptionButton Option1
BackColor = &H00C00000&
Caption = "月 报 表"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 375
Left = 3480
TabIndex = 95
Top = 960
Width = 1575
End
Begin VB.CommandButton Command6
Caption = "查 询"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5520
TabIndex = 90
Top = 480
Width = 1455
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 375
Left = 840
TabIndex = 91
Top = 480
Width = 1815
_ExtentX = 3201
_ExtentY = 661
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Format = 23855105
CurrentDate = 38251
End
Begin MSComCtl2.DTPicker DTPicker2
Height = 375
Left = 840
TabIndex = 92
Top = 1320
Width = 1815
_ExtentX = 3201
_ExtentY = 661
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
CalendarBackColor= 16777215
Format = 23855105
CurrentDate = 38251
End
Begin VB.Label Label34
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "到"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 300
Left = 360
TabIndex = 94
Top = 1350
Width = 315
End
Begin VB.Label Label33
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "从"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 300
Left = 360
TabIndex = 93
Top = 510
Width = 315
End
End
Begin VB.CommandButton Command4
Caption = "交 班"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 13320
TabIndex = 70
Top = 1080
Width = 1455
End
Begin VB.Label Lab_cheng
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 = &H000000FF&
Height = 315
Left = 13320
TabIndex = 88
Top = 1200
Width = 1335
End
Begin VB.Label Lab_ban
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "一班"
BeginProperty Font
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 435
Left = 13560
TabIndex = 69
Top = 480
Width = 900
End
End
Begin VB.Timer Timer3
Interval = 5000
Left = 11640
Top = 240
End
Begin VB.Timer Timer2
Interval = 500
Left = 11160
Top = 240
End
Begin VB.Timer Timer1
Interval = 1000
Left = 11160
Top = 1320
End
Begin MSCommLib.MSComm my
Left = 7320
Top = 720
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
RThreshold = 1
BaudRate = 4800
ParitySetting = 4
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 315
Left = 240
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 1440
Visible = 0 'False
Width = 1740
End
Begin VB.Frame Frame7
BackColor = &H00C00000&
BorderStyle = 0 'None
Height = 7095
Left = 7920
TabIndex = 12
Top = 1920
Width = 7215
Begin VB.CommandButton Command1
Caption = "系统启动"
Height = 615
Left = 5520
TabIndex = 81
Top = 5040
Width = 1575
End
Begin MSDBGrid.DBGrid DBGrid3
Bindings = "Form1.frx":2CA7
Height = 1095
Left = 120
OleObjectBlob = "Form1.frx":2CBB
TabIndex = 80
Top = 4800
Visible = 0 'False
Width = 5175
End
Begin MSDBGrid.DBGrid DBGrid2
Bindings = "Form1.frx":39C6
Height = 1095
Left = 120
OleObjectBlob = "Form1.frx":39DA
TabIndex = 79
Top = 5880
Visible = 0 'False
Width = 5175
End
Begin VB.Frame Frame1
BackColor = &H00C00000&
Height = 2295
Left = 120
TabIndex = 64
Top = 4680
Width = 5295
Begin VB.Label Label37
AutoSize = -1 'True
BackColor = &H00E0E0E0&
BackStyle = 0 'Transparent
Caption = "山西万立科技有限公司"
BeginProperty Font
Name = "华文行楷"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 315
Left = 2040
TabIndex = 108
Top = 1920
Width = 3150
End
Begin VB.Label Label4
AutoSize = -1 'True
BackColor = &H00E0E0E0&
BackStyle = 0 'Transparent
Caption = "晋豫焦化厂备煤系统"
BeginProperty Font
Name = "华文行楷"
Size = 26.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 555
Left = 240
TabIndex = 67
Top = 360
Width = 4860
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H00E0E0E0&
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -