📄 frmoutfind.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Begin VB.Form OutFind
BorderStyle = 1 'Fixed Single
Caption = "出库信息列表（设计者：陈晓坡 杨建伟）"
ClientHeight = 5850
ClientLeft = 45
ClientTop = 330
ClientWidth = 5535
Icon = "frmOutFind.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5850
ScaleWidth = 5535
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command3
Caption = "退出"
Height = 375
Left = 3150
TabIndex = 12
Top = 5280
Width = 855
End
Begin VB.CommandButton Command2
Caption = "确定"
Height = 375
Left = 1080
TabIndex = 11
Top = 5280
Width = 855
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 3015
Left = 120
TabIndex = 8
Top = 2040
Width = 5295
_ExtentX = 9340
_ExtentY = 5318
_Version = 393216
Cols = 3
End
Begin VB.Frame Frame1
Caption = "查询条件"
Height = 1995
Left = 120
TabIndex = 0
Top = 0
Width = 5325
Begin MSComCtl2.DTPicker DTPicker2
Height = 375
Left = 3360
TabIndex = 10
Top = 1440
Width = 1335
_ExtentX = 2355
_ExtentY = 661
_Version = 393216
Format = 25362433
CurrentDate = 37496
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 375
Left = 1680
TabIndex = 9
Top = 1440
Width = 1335
_ExtentX = 2355
_ExtentY = 661
_Version = 393216
Format = 25362433
CurrentDate = 37496
End
Begin VB.CommandButton Command1
Caption = "查找"
Height = 405
Left = 3840
TabIndex = 6
Top = 330
Width = 885
End
Begin VB.OptionButton Option1
Caption = "出库单号码"
Height = 375
Left = 240
TabIndex = 5
Top = 330
Width = 1455
End
Begin VB.ComboBox Combo1
Height = 300
Left = 1680
TabIndex = 4
Top = 360
Width = 1365
End
Begin VB.OptionButton Option2
Caption = "出库类型"
Height = 375
Left = 240
TabIndex = 3
Top = 855
Width = 1455
End
Begin VB.ComboBox Combo2
Height = 300
Left = 1680
TabIndex = 2
Top = 885
Width = 1365
End
Begin VB.OptionButton Option3
Caption = "起止时间：从"
Height = 375
Left = 240
TabIndex = 1
Top = 1380
Width = 1455
End
Begin VB.Label Label2
Caption = "到"
Height = 315
Left = 3120
TabIndex = 7
Top = 1440
Width = 285
End
End
End
Attribute VB_Name = "OutFind"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim Mydb As Database
Dim myrecordset As Recordset
Private Sub Command1_Click()
If Option1.Value = True Then
MSFlexGrid1.Clear
MSFlexGrid1.Rows = 1
MSFlexGrid1.TextMatrix(0, 0) = "出库单号码"
MSFlexGrid1.TextMatrix(0, 1) = "出库日期"
MSFlexGrid1.TextMatrix(0, 2) = "出库类型"
Set myrecordset = Mydb.OpenRecordset("select * from outlib where 出库单号码='" & Trim(Combo1) & "'")
Do While Not myrecordset.EOF
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = myrecordset.Fields("出库单号码")
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = myrecordset.Fields("出库日期")
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = myrecordset.Fields("出库类型")
myrecordset.MoveNext
Loop
myrecordset.Close
End If
If Option2.Value = True Then
MSFlexGrid1.Clear
MSFlexGrid1.Rows = 1
MSFlexGrid1.TextMatrix(0, 0) = "出库单号码"
MSFlexGrid1.TextMatrix(0, 1) = "出库日期"
MSFlexGrid1.TextMatrix(0, 2) = "出库类型"
Set myrecordset = Mydb.OpenRecordset("select * from outlib where 出库类型='" & Trim(Combo2) & "' order by 出库日期")
Do While Not myrecordset.EOF
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = myrecordset.Fields("出库单号码")
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = myrecordset.Fields("出库日期")
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = myrecordset.Fields("出库类型")
myrecordset.MoveNext
Loop
myrecordset.Close
End If
If Option3.Value = True Then
If DTPicker1.Value = "" Then
MsgBox "请填写此次查询的开始时间！", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
If DTPicker2.Value = "" Then
MsgBox "请填写此次查询的结束时间！", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
MSFlexGrid1.Clear
MSFlexGrid1.Rows = 1
MSFlexGrid1.TextMatrix(0, 0) = "出库单号码"
MSFlexGrid1.TextMatrix(0, 1) = "出库日期"
MSFlexGrid1.TextMatrix(0, 2) = "出库类型"
Set myrecordset = Mydb.OpenRecordset("select * from outlib where 出库日期>=#" & DTPicker1.Value & "# and 出库日期<= #" & DTPicker2.Value & "# order by 出库日期")
Do While Not myrecordset.EOF
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = myrecordset.Fields("出库单号码")
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = myrecordset.Fields("出库日期")
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = myrecordset.Fields("出库类型")
myrecordset.MoveNext
Loop
myrecordset.Close
End If
End Sub
Private Sub Command2_Click()
MSFlexGrid1.Col = 0
OutPaperId = MSFlexGrid1.Text
Unload Me
End Sub
Private Sub Command3_Click()
Mydb.Close
Unload Me
Project.StatusBar1.Panels(2).Text = "编辑出库单"
End Sub
Private Sub Form_Load()
MSFlexGrid1.Col = 0
MSFlexGrid1.Row = 0
MSFlexGrid1.Text = "出库单号码"
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = "出库日期"
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = "出库类型"
MSFlexGrid1.Rows = 1
MSFlexGrid1.ColWidth(0) = 1000
MSFlexGrid1.ColWidth(1) = 2000
Set Mydb = OpenDatabase(App.Path + "\store.mdb")
Option1.Value = True
Set myrecordset = Mydb.OpenRecordset("select * from outlib order by 出库日期")
Do While Not myrecordset.EOF
Combo1.AddItem myrecordset.Fields("出库单号码")
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = myrecordset.Fields("出库单号码")
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = myrecordset.Fields("出库日期")
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = myrecordset.Fields("出库类型")
myrecordset.MoveNext
Loop
If Combo1.ListCount > 0 Then
Combo1.ListIndex = 0
Else
Exit Sub
End If
myrecordset.Close
Combo2.AddItem "修理"
Combo2.AddItem "销售"
Combo2.AddItem "改造"
Combo2.AddItem "北拨"
Combo2.AddItem "南拨"
Combo2.ListIndex = 0
End Sub
Private Sub MSFlexGrid1_DblClick()
Call Command2_Click
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -