📄 frmtra.frm
字号:
VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form frmtra
Caption = "Arrange Transportation"
ClientHeight = 7275
ClientLeft = 60
ClientTop = 345
ClientWidth = 9090
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form2"
ScaleHeight = 7275
ScaleWidth = 9090
StartUpPosition = 3 'Windows Default
Begin VB.ComboBox cbodrv2
Height = 300
Left = 4320
TabIndex = 32
Top = 840
Width = 1215
End
Begin VB.ComboBox cbotru
Height = 300
Left = 6840
TabIndex = 31
Top = 840
Width = 1335
End
Begin VB.ComboBox cbodrv
Height = 300
ItemData = "frmtra.frx":0000
Left = 1680
List = "frmtra.frx":0002
TabIndex = 30
Top = 840
Width = 1215
End
Begin RichTextLib.RichTextBox RichTextBox1
Height = 855
Left = 1680
TabIndex = 29
Top = 1800
Width = 6495
_ExtentX = 11456
_ExtentY = 1508
_Version = 393217
TextRTF = $"frmtra.frx":0004
End
Begin VB.CommandButton Command2
Caption = "Command2"
Height = 375
Left = 4920
TabIndex = 28
Top = 6360
Width = 1455
End
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 375
Left = 1920
TabIndex = 27
Top = 6360
Width = 1335
End
Begin VB.TextBox Text15
Height = 615
Left = 1680
TabIndex = 26
Text = "Text15"
Top = 5280
Width = 6495
End
Begin VB.TextBox Text14
Height = 270
Left = 6240
TabIndex = 25
Text = "Text14"
Top = 4800
Width = 1935
End
Begin VB.TextBox Text13
Height = 270
Left = 1680
TabIndex = 24
Text = "Text13"
Top = 4800
Width = 2175
End
Begin VB.TextBox Text12
Height = 270
Left = 6240
TabIndex = 23
Text = "Text12"
Top = 4320
Width = 1935
End
Begin VB.TextBox Text11
Height = 270
Left = 1680
TabIndex = 22
Text = "Text11"
Top = 4320
Width = 2175
End
Begin VB.TextBox Text10
Height = 270
Left = 6240
TabIndex = 21
Text = "Text10"
Top = 3840
Width = 1935
End
Begin VB.TextBox Text9
Height = 270
Left = 1680
TabIndex = 20
Text = "Text9"
Top = 3840
Width = 2175
End
Begin VB.TextBox Text8
Height = 270
Left = 6240
TabIndex = 19
Text = "Text8"
Top = 3360
Width = 1935
End
Begin VB.TextBox Text7
Height = 270
Left = 1680
TabIndex = 18
Text = "Text7"
Top = 3360
Width = 2175
End
Begin VB.TextBox Text5
Height = 270
Left = 1680
TabIndex = 17
Text = "Text5"
Top = 2880
Width = 6495
End
Begin VB.TextBox Text4
Height = 270
Left = 1680
TabIndex = 16
Text = "Text4"
Top = 1320
Width = 6495
End
Begin VB.TextBox Text1
Height = 270
Left = 6600
TabIndex = 15
Top = 240
Width = 1575
End
Begin VB.Label Label2
Caption = "Driver2 name:"
Height = 255
Left = 3120
TabIndex = 33
Top = 840
Width = 1215
End
Begin VB.Label Label1
Caption = "Label1"
Height = 255
Index = 14
Left = 360
TabIndex = 14
Top = 5520
Width = 1215
End
Begin VB.Label Label1
Caption = "Label1"
Height = 255
Index = 13
Left = 4920
TabIndex = 13
Top = 4800
Width = 975
End
Begin VB.Label Label1
Caption = "Label1"
Height = 255
Index = 12
Left = 360
TabIndex = 12
Top = 4800
Width = 1215
End
Begin VB.Label Label1
Caption = "Label1"
Height = 255
Index = 11
Left = 4920
TabIndex = 11
Top = 4320
Width = 975
End
Begin VB.Label Label1
Caption = "Label1"
Height = 255
Index = 10
Left = 360
TabIndex = 10
Top = 4320
Width = 1215
End
Begin VB.Label Label1
Caption = "Back Time:"
Height = 255
Index = 9
Left = 4800
TabIndex = 9
Top = 3840
Width = 975
End
Begin VB.Label Label1
Caption = "Go Time:"
Height = 255
Index = 8
Left = 360
TabIndex = 8
Top = 3840
Width = 1215
End
Begin VB.Label Label1
Caption = "Back Kilometers (KM):"
Height = 375
Index = 7
Left = 4800
TabIndex = 7
Top = 3360
Width = 1455
End
Begin VB.Label Label1
Caption = "Go Kilometers (KM):"
Height = 375
Index = 6
Left = 360
TabIndex = 6
Top = 3360
Width = 1215
End
Begin VB.Label Label1
Caption = "Note:"
Height = 255
Index = 5
Left = 360
TabIndex = 5
Top = 2880
Width = 1215
End
Begin VB.Label Label1
Caption = "Tasks:"
Height = 255
Index = 4
Left = 360
TabIndex = 4
Top = 1800
Width = 1215
End
Begin VB.Label Label1
Caption = "Destination:"
Height = 255
Index = 3
Left = 360
TabIndex = 3
Top = 1320
Width = 1215
End
Begin VB.Label Label1
Caption = "Truck Number:"
Height = 255
Index = 2
Left = 5640
TabIndex = 2
Top = 840
Width = 1215
End
Begin VB.Label Label1
Caption = "Driver1 Name:"
Height = 255
Index = 1
Left = 360
TabIndex = 1
Top = 840
Width = 1215
End
Begin VB.Label Label1
Caption = "No."
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 6120
TabIndex = 0
Top = 240
Width = 375
End
End
Attribute VB_Name = "frmtra"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim rsttra As Recordset
Dim sSQL As String
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
Call cboboxlist
End Sub
Private Sub cboboxlist()
sSQL = "select drvname from appdcd where astatus = '32'"
Set rsttra = Acs_cnt.Execute(sSQL)
Do While Not rsttra.EOF
cbodrv.AddItem (rsttra!drvname)
cbodrv2.AddItem (rsttra!drvname)
rsttra.MoveNext
Loop
sSQL = "select "
rsttra.Close
Set rsttra = Nothing
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
mdlMain.Enabled = True
End Sub
Private Function datedisp(ByVal ldate As Long, ByVal ltime As Long) As String
Dim sdate, stime As String
Dim syear, smonth, sday As String
Dim shour, sminute As String
sdate = Str(ldate)
stime = Str(ltime)
sdate = LTrim(sdate)
stime = LTrim(stime)
syear = Left(sdate, 4)
smonth = Mid(sdate, 5, 2)
sday = Right(sdate, 2)
shour = Left(stime, 2)
sminute = Right(stime, 2)
datedisp = syear & "/" & smonth & "/" & sday & " " & shour & ":" & sminute
End Function
Private Function GetDate(ByVal stext As String) As Long
Dim sdate, stime As String
Dim syear, smonth, sday As String
stext = LTrim(stext)
syear = Left(stext, 4)
smonth = Mid(stext, 6, 2)
sday = Mid(stext, 9, 2)
sdate = syear & smonth & sday
GetDate = CLng(sdate)
End Function
Private Function GetTime(ByVal stext As String) As Long
Dim shour, sminute As String
Dim stime As String
stext = LTrim(stext)
shour = Mid(stext, 12, 2)
sminute = Mid(stext, 15, 2)
stime = shour & sminute
GetTime = CLng(stime)
End Function
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -