📄 frmquery.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmQuery
BorderStyle = 1 'Fixed Single
Caption = "Form1"
ClientHeight = 4275
ClientLeft = 45
ClientTop = 435
ClientWidth = 7455
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 4275
ScaleWidth = 7455
Begin VB.ComboBox cmbSendStation
Height = 300
Left = 1560
Style = 2 'Dropdown List
TabIndex = 15
Top = 1440
Width = 1800
End
Begin VB.ComboBox cmbReceiveStation
Height = 300
Left = 4680
Style = 2 'Dropdown List
TabIndex = 14
Top = 1440
Width = 1800
End
Begin VB.CommandButton Command1
Caption = "查 询"
Height = 495
Left = 3240
TabIndex = 13
Top = 3480
Width = 1215
End
Begin MSComCtl2.DTPicker dtpDateNum2
Height = 300
Left = 4680
TabIndex = 12
Top = 2880
Width = 1800
_ExtentX = 3175
_ExtentY = 529
_Version = 393216
Format = 25493507
CurrentDate = 38761
End
Begin MSComCtl2.DTPicker dtpDateNum1
Height = 300
Left = 1560
TabIndex = 11
Top = 2880
Width = 1800
_ExtentX = 3175
_ExtentY = 529
_Version = 393216
Format = 25493507
CurrentDate = 38761
End
Begin VB.ComboBox cmbReceiver
Height = 300
Left = 4680
Style = 2 'Dropdown List
TabIndex = 8
Top = 2160
Width = 1800
End
Begin VB.ComboBox cmbSender
Height = 300
Left = 1560
Style = 2 'Dropdown List
TabIndex = 6
Top = 2160
Width = 1800
End
Begin VB.ComboBox cmbProductName
Height = 300
Left = 4680
Style = 2 'Dropdown List
TabIndex = 5
Top = 780
Width = 1800
End
Begin VB.TextBox txtCarNum
Height = 270
Left = 1560
TabIndex = 2
Top = 795
Width = 1800
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "发站为："
Height = 180
Left = 360
TabIndex = 17
Top = 1500
Width = 720
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "到站为："
Height = 180
Left = 3600
TabIndex = 16
Top = 1500
Width = 720
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "发货日期："
Height = 180
Left = 360
TabIndex = 10
Top = 2940
Width = 900
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "至"
Height = 180
Left = 3840
TabIndex = 9
Top = 2940
Width = 180
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "收货人为："
Height = 180
Left = 3600
TabIndex = 7
Top = 2220
Width = 900
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "发货人为："
Height = 180
Left = 360
TabIndex = 4
Top = 2220
Width = 900
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "品名为："
Height = 180
Left = 3600
TabIndex = 3
Top = 840
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "车号为："
Height = 180
Left = 360
TabIndex = 1
Top = 840
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "运 单 查 询"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 2760
TabIndex = 0
Top = 240
Width = 2250
End
End
Attribute VB_Name = "frmQuery"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public parentFrm As String
Private Sub Command1_Click()
Dim inum As Integer
Dim strQuery As String
strQuery = ""
'车号
If txtCarNum.Text <> "" Then
strQuery = strQuery & " WHERE CarNum=" & sys.StrToInsert(txtCarNum.Text)
End If
'品名
If cmbProductName.ListIndex <> -1 Then
If strQuery <> "" Then
strQuery = strQuery & " AND ProductName=" & sys.NumToInsert(cmbProductName.ItemData(cmbProductName.ListIndex))
Else
strQuery = strQuery & " WHERE ProductName=" & sys.NumToInsert(cmbProductName.ItemData(cmbProductName.ListIndex))
End If
End If
'发站
If cmbSendStation.ListIndex <> -1 Then
If strQuery <> "" Then
strQuery = strQuery & " AND SendStation=" & sys.NumToInsert(cmbSendStation.ItemData(cmbSendStation.ListIndex))
Else
strQuery = strQuery & " WHERE SendStation=" & sys.NumToInsert(cmbSendStation.ItemData(cmbSendStation.ListIndex))
End If
End If
'到站
If cmbReceiveStation.ListIndex <> -1 Then
If strQuery <> "" Then
strQuery = strQuery & " AND ReceiveStation=" & sys.NumToInsert(cmbReceiveStation.ItemData(cmbReceiveStation.ListIndex))
Else
strQuery = strQuery & " WHERE ReceiveStation=" & sys.NumToInsert(cmbReceiveStation.ItemData(cmbReceiveStation.ListIndex))
End If
End If
'发货人
If cmbSender.ListIndex <> -1 Then
If strQuery <> "" Then
strQuery = strQuery & " AND Sender=" & sys.NumToInsert(cmbSender.ItemData(cmbSender.ListIndex))
Else
strQuery = strQuery & " WHERE Sender=" & sys.NumToInsert(cmbSender.ItemData(cmbSender.ListIndex))
End If
End If
'收货人
If cmbReceiver.ListIndex <> -1 Then
If strQuery <> "" Then
strQuery = strQuery & " AND Receiver=" & sys.NumToInsert(cmbReceiver.ItemData(cmbReceiver.ListIndex))
Else
strQuery = strQuery & " WHERE Receiver=" & sys.NumToInsert(cmbReceiver.ItemData(cmbReceiver.ListIndex))
End If
End If
'发车时间
If strQuery <> "" Then
strQuery = strQuery & " AND (DATENUM BETWEEN #" & dtpDateNum1.Value & "# AND #" & dtpDateNum2.Value & "#)"
Else
strQuery = strQuery & " WHERE (DATENUM BETWEEN " & dtpDateNum1.Value & " AND #" & dtpDateNum2.Value & "#)"
End If
strQuery = "SELECT * FROM TRAFFIC " & strQuery
If parentFrm = "frmBillManage" Then
Call frmBillManage.query(strQuery)
Unload Me
ElseIf parentFrm = "frmTraffic" Then
Call frmTraffic.query(strQuery)
Unload Me
ElseIf parentFrm = "frmReport" Then
Call frmReport.query(strQuery)
Unload Me
End If
End Sub
Private Sub Form_Load()
Me.Top = 0
Me.Left = 0
Me.Width = MainForm.Width * 0.5
Me.Height = MainForm.Height * 0.5
'初始化品名
strsql = "SELECT * FROM PRODUCT"
Set rs = sys.DB.OpenRecordSet(strsql)
If Not (rs.BOF) Or (rs.EOF) Then
inum = 0
Do While Not rs.EOF
cmbProductName.AddItem (rs("NAME"))
cmbProductName.ItemData(inum) = rs("ID")
rs.MoveNext
inum = inum + 1
Loop
End If
'初始化发站
strsql = "SELECT * FROM STATION ORDER BY NAME"
Set rs = sys.DB.OpenRecordSet(strsql)
If Not (rs.BOF) Or (rs.EOF) Then
inum = 0
Do While Not rs.EOF
cmbSendStation.AddItem (rs("NAME"))
cmbSendStation.ItemData(inum) = rs("ID")
rs.MoveNext
inum = inum + 1
Loop
End If
'初始化到站
strsql = "SELECT * FROM STATION ORDER BY NAME DESC"
Set rs = sys.DB.OpenRecordSet(strsql)
If Not (rs.BOF) Or (rs.EOF) Then
inum = 0
Do While Not rs.EOF
cmbReceiveStation.AddItem (rs("NAME"))
cmbReceiveStation.ItemData(inum) = rs("ID")
rs.MoveNext
inum = inum + 1
Loop
End If
'初始化发货人
strsql = "SELECT * FROM CLIENT ORDER BY NAME"
Set rs = sys.DB.OpenRecordSet(strsql)
If Not (rs.BOF) Or (rs.EOF) Then
inum = 0
Do While Not rs.EOF
cmbSender.AddItem (rs("NAME"))
cmbSender.ItemData(inum) = rs("ID")
rs.MoveNext
inum = inum + 1
Loop
End If
'初始化收货人
strsql = "SELECT * FROM CLIENT ORDER BY NAME DESC"
Set rs = sys.DB.OpenRecordSet(strsql)
If Not (rs.BOF) Or (rs.EOF) Then
inum = 0
Do While Not rs.EOF
cmbReceiver.AddItem (rs("NAME"))
cmbReceiver.ItemData(inum) = rs("ID")
rs.MoveNext
inum = inum + 1
Loop
End If
'初始化时间
dtpDateNum1.Value = DateAdd("m", -3, Date)
dtpDateNum2.Value = Date
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -