📄 frmtrc1.frm
字号:
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5760
TabIndex = 37
Top = 3000
Width = 975
End
Begin VB.Label Label14
Caption = "Out of Service for Repare:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 120
TabIndex = 33
Top = 2400
Width = 1095
End
Begin VB.Label Label15
Caption = "Customer Fills:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3120
TabIndex = 32
Top = 2520
Width = 735
End
Begin VB.Label Label16
Caption = "Trips:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 6120
TabIndex = 31
Top = 2640
Width = 615
End
Begin VB.Label Label12
Caption = "Wait at Customer Time:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 3120
TabIndex = 27
Top = 1920
Width = 735
End
Begin VB.Label Label13
Caption = "In Service Hours:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5760
TabIndex = 26
Top = 2040
Width = 975
End
Begin VB.Label Label9
Caption = "Delivery Time:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3240
TabIndex = 23
Top = 1560
Width = 615
End
Begin VB.Label Label10
Caption = "Back to Plant Time:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5760
TabIndex = 22
Top = 1560
Width = 1095
End
Begin VB.Label Label11
Caption = "Refuel Time:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 480
TabIndex = 21
Top = 2040
Width = 615
End
Begin VB.Label Label7
Caption = "Volume Reskful(T):"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5760
TabIndex = 17
Top = 1080
Width = 975
End
Begin VB.Label Label8
Caption = "Kilometers (KM):"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 16
Top = 1560
Width = 975
End
Begin VB.Label Label1
Caption = "Truck Code:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 13
Top = 240
Width = 1095
End
Begin VB.Label Label2
Caption = "End Date:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5880
TabIndex = 12
Top = 720
Width = 855
End
Begin VB.Label Label3
Caption = "Input Date:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 11
Top = 720
Width = 1095
End
Begin VB.Label Label4
Caption = "Begin Date:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2880
TabIndex = 10
Top = 720
Width = 1095
End
Begin VB.Label Label5
Caption = "Volume Delivered (TON):"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 240
TabIndex = 9
Top = 960
Width = 855
End
Begin VB.Label Label6
Caption = "Volume Billed (TON):"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2640
TabIndex = 8
Top = 1080
Width = 1215
End
End
Begin PrjLDS.UserControl1 UserControl1
Height = 615
Left = 0
TabIndex = 0
Top = 0
Width = 9360
_ExtentX = 16510
_ExtentY = 1085
End
Begin FPSpread.vaSpread vastru
Height = 2000
Left = 120
TabIndex = 44
Top = 720
Width = 9000
_Version = 131077
_ExtentX = 15875
_ExtentY = 3528
_StockProps = 64
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MaxCols = 0
MaxRows = 0
SpreadDesigner = "frmtrc1.frx":0000
End
Begin VB.Label lblstatus
Height = 255
Left = 7680
TabIndex = 45
Top = 3000
Width = 975
End
End
Attribute VB_Name = "frmTrcc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim mkey As String
Private lCurRow As Long '当前SPD的行
Private lCurCol As Long '当前SPD的列
Private Enum trudetail
Entcode = 1
truckno
inpdate
brgdate
enddate
voldeli
volbill
volrest
kilomet
deltime
btptime
reftime
wactime
ishours
orepare
cusfill
trips
costcap
fuelrmb
tollrmb
drvcost
maicost
MaxCols = maicost
End Enum
Private Sub Form_Load()
lCurRow = 1
lCurCol = 1
Call InitToolBar
Call IniSpdHeader
Call vasshow
lockspread vastru, True
vastru.Enabled = False
End Sub
Private Sub IniSpdHeader()
vastru.MaxCols = 21
With vastru
SetColHead vastru, trudetail.Entcode, "Entity code", 10
SetColHead vastru, trudetail.truckno, "Truck Number", 10
SetColHead vastru, trudetail.inpdate, "Input Date", 10
SetColHead vastru, trudetail.brgdate, "Begin Date", 10
SetColHead vastru, trudetail.enddate, "End Date", 10, True
SetColHead vastru, trudetail.voldeli, "Volume Delivered (TON)", 10, True
SetColHead vastru, trudetail.volbill, "Volume Billed (TON)", 10, True
SetColHead vastru, trudetail.volrest, "Volume Reskful (T)", 10, True
SetColHead vastru, trudetail.kilomet, "Kilometers (KM)", 10, True
SetColHead vastru, trudetail.deltime, "Delivery Time", 10, True
SetColHead vastru, trudetail.btptime, "Back to Plant Time", 10, True
SetColHead vastru, trudetail.reftime, "Refuel Time", 10, True
SetColHead vastru, trudetail.wactime, "Wait at Customer Time", 10, True
SetColHead vastru, trudetail.ishours, "In Service For Repare", 10, True
SetColHead vastru, trudetail.orepare, "Out Of Service For Repare", 15, True
SetColHead vastru, trudetail.cusfill, "Customer Fills", 10, True
SetColHead vastru, trudetail.trips, "Trips", 10, True
SetColHead vastru, trudetail.costcap, "Fuel Costs (RMB)", 10, True
SetColHead vastru, trudetail.fuelrmb, "Fuel Cost (RMB)", 10, True
SetColHead vastru, trudetail.tollrmb, "Toll Cost (RMB)", 10, True
SetColHead vastru, trudetail.drvcost, "Driver Cost (RMB)", 10, True
SetColHead vastru, trudetail.maicost, "Maintenance Cost (RMB)", 10, True
End With
End Sub
Private Sub InitToolBar()
With UserControl1
.DisplayButton "new", "new", True, , "new"
.DisplayButton "Save", "Save", True, , "Save"
.DisplayButton "Open", "Open", False, , "Open"
.DisplayButton "cancel", "cancel", False, , "cancel"
'.DisplayButton "Redo", "Redo", False, , "Redo"
.DisplayButton "Modify", "Modify", True, , "Modify"
.DisplayButton "find", "find", True, , "find"
'.DisplayButton "Print", "Print", True, , "Print"
.DisplayButton "Close", "Close", True, , "Close"
End With
End Sub
Private Sub vasshow()
Dim rsttru As Recordset
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -