📄 frmqueryacc.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Begin VB.Form frmQueryAcc
Caption = "配件查询"
ClientHeight = 4650
ClientLeft = 60
ClientTop = 345
ClientWidth = 6840
LinkTopic = "Form1"
ScaleHeight = 4650
ScaleWidth = 6840
StartUpPosition = 3 'Windows Default
Begin MSFlexGridLib.MSFlexGrid fgAccs
Height = 2295
Left = 120
TabIndex = 12
Top = 2280
Width = 6615
_ExtentX = 11668
_ExtentY = 4048
_Version = 393216
End
Begin VB.CommandButton cmdCancel
Caption = "返回(&C)"
Height = 375
Left = 3480
TabIndex = 11
Top = 1800
Width = 1455
End
Begin VB.CommandButton cmdQuery
Caption = "查询(&Q)"
Height = 375
Left = 1560
TabIndex = 10
Top = 1800
Width = 1455
End
Begin VB.Frame Frame1
Caption = "查询方式"
Height = 1575
Left = 120
TabIndex = 0
Top = 120
Width = 6615
Begin VB.ComboBox cboProducer
Height = 315
Left = 4800
TabIndex = 13
Text = " "
Top = 360
Width = 1575
End
Begin VB.TextBox txtNumber
Height = 285
Left = 2160
TabIndex = 9
Text = " "
Top = 1080
Width = 735
End
Begin VB.ComboBox cboOperator
Height = 315
Left = 1320
TabIndex = 8
Text = " "
Top = 1080
Width = 855
End
Begin VB.TextBox txtNo
Height = 285
Left = 1320
TabIndex = 7
Text = " "
Top = 720
Width = 1575
End
Begin VB.TextBox txtName
Height = 285
Left = 1320
TabIndex = 6
Text = " "
Top = 360
Width = 1575
End
Begin VB.OptionButton optQueryAcc
Caption = "全部配件"
Height = 255
Index = 4
Left = 3120
TabIndex = 5
Top = 720
Width = 1575
End
Begin VB.OptionButton optQueryAcc
Caption = "按配件数量"
Height = 255
Index = 2
Left = 120
TabIndex = 4
Top = 1080
Width = 1215
End
Begin VB.OptionButton optQueryAcc
Caption = "按生产厂家查询"
Height = 255
Index = 3
Left = 3120
TabIndex = 3
Top = 360
Width = 1575
End
Begin VB.OptionButton optQueryAcc
Caption = "按配件编号"
Height = 255
Index = 1
Left = 120
TabIndex = 2
Top = 720
Width = 1575
End
Begin VB.OptionButton optQueryAcc
Caption = "按配件名称"
Height = 495
Index = 0
Left = 120
TabIndex = 1
Top = 240
Width = 1575
End
End
End
Attribute VB_Name = "frmQueryAcc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public sqlStr As String
Public msgText As String
Private Sub cboOperator_Click()
optQueryAcc(2).Value = True
End Sub
Private Sub cboProducer_Click()
optQueryAcc(3).Value = True
End Sub
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdQuery_Click()
queryAccs
End Sub
Sub queryAccs()
Dim rs As ADODB.Recordset
Dim i As Integer
Dim j As Integer
If optQueryAcc(0).Value = True Then
If txtName.Text = "" Then
MsgBox "请输入配件名称!!"
Exit Sub
Else
sqlStr = "select * from accessories" _
& " where accName LIKE '%" & txtName.Text & "%'"
End If
End If
If optQueryAcc(1).Value = True Then
sqlStr = "select * from accessories" _
& " where accNo='" & txtNo.Text & "'"
End If
If optQueryAcc(2).Value = True Then
sqlStr = "select * from accessories where" _
& " accStock" & cboOperator.Text & txtNumber.Text
End If
If optQueryAcc(3).Value = True Then
sqlStr = "select * from accessories where" _
& " producer='" & cboProducer.Text & "'"
End If
If optQueryAcc(4).Value = True Then
sqlStr = "select * from accessories"
End If
Set rs = ExecuteSQL(sqlStr, msgText)
If rs.RecordCount = 0 Then
MsgBox "没有查找满足条件的数据！", vbExclamation, "提示"
fgAccs.Rows = 1
Else
fgAccs.Rows = rs.RecordCount + 1
fgAccs.Cols = 7
'设定行高
For i = 0 To fgAccs.Rows - 1
fgAccs.RowHeight(i) = 280
Next i
'设定列的属性
fgAccs.Row = 0
For i = 0 To fgAccs.Cols - 1
fgAccs.Col = i '指定当前列为第i列
fgAccs.FixedAlignment(i) = 4 '每列内容居中显示
Select Case i
Case 0
fgAccs.ColWidth(i) = 600 '设定列宽
fgAccs.Text = "序号"
Case 1
fgAccs.ColWidth(i) = 1100 '设定列宽
fgAccs.Text = "配件编号"
Case 2
fgAccs.ColWidth(i) = 2000 '设定列宽
fgAccs.Text = "配件名称"
Case 3
fgAccs.ColWidth(i) = 700 '设定列宽
fgAccs.Text = "价格"
Case 4
fgAccs.ColWidth(i) = 700 '设定列宽
fgAccs.Text = "库存量"
Case 5
fgAccs.ColWidth(i) = 1500 '设定列宽
fgAccs.Text = "生产厂家"
Case 6
fgAccs.ColWidth(i) = 1000 '设定列宽
fgAccs.Text = "备注"
End Select
Next i
'rs.MoveFirst
i = 1
While (Not rs.EOF)
fgAccs.Row = i
For j = 0 To fgAccs.Cols - 1
fgAccs.Col = j '设置当前为列为第j列
fgAccs.CellAlignment = 4 '每列内容居中显示
Select Case j
Case 0
fgAccs.Text = "" & i
Case 1
fgAccs.Text = rs.Fields("accNo")
Case 2
fgAccs.Text = rs.Fields("accName")
Case 3
fgAccs.Text = rs.Fields("accPrice")
Case 4
fgAccs.Text = rs.Fields("accStock")
Case 5
fgAccs.Text = rs.Fields("producer")
Case 5
fgAccs.Text = rs.Fields("memo")
End Select
Next j
rs.MoveNext
i = i + 1
Wend
End If
rs.Close
End Sub
Private Sub Form_Load()
'窗体居中显示
Me.Top = (Screen.Height - Me.Height) \ 2
Me.Left = (Screen.Width - Me.Width) \ 2
'初始化条件运算符组合列表框
cboOperator.Clear
cboOperator.AddItem ">"
cboOperator.AddItem "="
cboOperator.AddItem "<"
'清空文本框
txtName = ""
txtNo = ""
txtNumber = ""
'获取配件厂商名称并添加到组合列表框中
initProducer
End Sub
Sub initProducer()
Dim rstProducer As ADODB.Recordset
'从配件表中读取所有厂商名称并添加到组合列表框中
sqlStr = "select distinct producer from accessories"
Set rstProducer = ExecuteSQL(sqlStr, msgText)
cboProducer.Clear
If Not rstProducer.EOF Then
Do While Not rstProducer.EOF
cboProducer.AddItem Trim(rstProducer.Fields(0))
rstProducer.MoveNext
Loop
cboProducer.ListIndex = 0
Else
MsgBox "没有找到相关信息，请添加！", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
rstProducer.Close
End Sub
Private Sub txtName_Click()
optQueryAcc(0).Value = True
End Sub
Private Sub txtNo_Click()
optQueryAcc(1).Value = True
End Sub
Private Sub txtNumber_Click()
optQueryAcc(2).Value = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -