📄 qrystockquery.frm
字号:
PictureType = 0
TabBehavior = 0
OwnerDraw = 0
Editable = 0 'False
ShowComboButton = -1 'True
WordWrap = 0 'False
TextStyle = 0
TextStyleFixed = 0
OleDragMode = 0
OleDropMode = 0
DataMode = 0
VirtualData = -1 'True
DataMember = ""
Begin MSAdodcLib.Adodc Adodc1
Height = 330
Left = 8910
Top = 3510
Visible = 0 'False
Width = 1200
_ExtentX = 2117
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
End
Begin VB.PictureBox Picture1
BackColor = &H00004000&
Height = 465
Left = 0
ScaleHeight = 405
ScaleWidth = 10185
TabIndex = 0
Top = 1500
Width = 10245
Begin VB.CommandButton Command5
Caption = "打印"
Height = 315
Left = 7320
TabIndex = 5
Top = 60
Width = 855
End
Begin VB.CommandButton Command3
Caption = "退出"
Height = 315
Left = 8820
TabIndex = 4
Top = 60
Width = 735
End
Begin VB.CommandButton Command2
Caption = "重置"
Height = 315
Left = 6360
TabIndex = 3
Top = 60
Width = 855
End
Begin VB.CommandButton Command1
Caption = "查询"
Height = 315
Left = 5400
TabIndex = 2
Top = 60
Width = 795
End
Begin VB.Label msg
BackColor = &H00004000&
Caption = "正在计算。。。"
ForeColor = &H00C0FFFF&
Height = 255
Left = 1860
TabIndex = 29
Top = 120
Visible = 0 'False
Width = 1335
End
End
Begin VSFlex6Ctl.vsFlexGrid vsFlexGrid2
Align = 2 'Align Bottom
Height = 465
Left = 0
TabIndex = 30
Top = 5550
Width = 10215
_cx = 18018
_cy = 820
_ConvInfo = -1
Appearance = 0
BorderStyle = 1
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MousePointer = 0
BackColor = -2147483643
ForeColor = -2147483640
BackColorFixed = -2147483633
ForeColorFixed = -2147483630
BackColorSel = -2147483624
ForeColorSel = 12582912
BackColorBkg = -2147483636
BackColorAlternate= -2147483643
GridColor = -2147483633
GridColorFixed = -2147483632
TreeColor = -2147483632
FloodColor = 192
SheetBorder = -2147483642
FocusRect = 1
HighLight = 1
AllowSelection = -1 'True
AllowBigSelection= -1 'True
AllowUserResizing= 0
SelectionMode = 0
GridLines = 1
GridLinesFixed = 2
GridLineWidth = 1
Rows = 2
Cols = 32
FixedRows = 0
FixedCols = 1
RowHeightMin = 0
RowHeightMax = 0
ColWidthMin = 0
ColWidthMax = 0
ExtendLastCol = 0 'False
FormatString = ""
ScrollTrack = 0 'False
ScrollBars = 0
ScrollTips = 0 'False
MergeCells = 0
MergeCompare = 0
AutoResize = -1 'True
AutoSizeMode = 0
AutoSearch = 0
MultiTotals = -1 'True
SubtotalPosition= 1
OutlineBar = 0
OutlineCol = 0
Ellipsis = 0
ExplorerBar = 0
PicturesOver = 0 'False
FillStyle = 0
RightToLeft = 0 'False
PictureType = 0
TabBehavior = 0
OwnerDraw = 0
Editable = 0 'False
ShowComboButton = -1 'True
WordWrap = 0 'False
TextStyle = 0
TextStyleFixed = 0
OleDragMode = 0
OleDropMode = 0
DataMode = 0
VirtualData = -1 'True
DataMember = ""
End
End
Attribute VB_Name = "qryStockQuery"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim xCol As Long, xRow As Long
Private Sub Command1_Click()
Me.MousePointer = 11
Me.msg.Visible = True
SqlRunCode
Me.msg.Visible = False
Me.MousePointer = 0
End Sub
Private Sub Command2_Click()
Me.Area.Text = "*"
Me.Place.Text = "*"
Me.Province.Text = "*"
Me.City.Text = "*"
Me.Sex.Text = "*"
Me.Model.Text = "*"
Me.Caneta.Text = "*"
Me.shop = "*"
Me.Product = "*"
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Area_Click()
If Me.Area = "*" Then
Me.Place.Enabled = True
Me.Province.Enabled = True
Me.City.Enabled = True
Me.shop.Enabled = True
Else
Me.Place.Text = "*"
Me.Province.Text = "*"
Me.City.Text = "*"
Me.shop.Text = "*"
Me.Province.Enabled = False
Me.Place.Enabled = False
Me.City.Enabled = False
Me.shop.Enabled = False
End If
End Sub
Private Sub City_Click()
Me.shop.Text = "*"
End Sub
Private Sub City_DropDown()
Dim vCode As String
If Me.Province = "*" And Me.Place = "*" Then
ComboListChick City, "SELECT distinct name FROM area WHERE style>3 ;"
Else
If Me.Place <> "*" And Me.Province = "*" Then
MsgBox "请选择省份!", , "提示信息"
Me.Province.SetFocus
Else
vCode = NameCode("SELECT code From AREA where name='" & Me.Province & "'")
ComboListChick City, "SELECT name FROM area WHERE Province='" & vCode & "' Order by code;"
End If
End If
End Sub
Private Sub CmdExit_Click()
Unload Me
End Sub
Private Sub Command5_Click()
With repStockQuery
.Field1 = Me.Area
.Field2 = Me.Place
.Field3 = Me.Province
.Field4 = Me.City
.Field5 = Me.shop
.Field6 = Me.Sex
.Field7 = Me.Brand
.Field8 = Me.season
.Field9 = Me.Caneta
.Field10 = Me.Model
.Field11 = Me.Product
Set .DataControl1.Recordset = Me.Adodc1.Recordset
.Show
End With
End Sub
Private Sub Form_Load()
Me.Left = 0
Me.Top = 0
ComboListChick Place, "SELECT name FROM area WHERE style='1' Order by code;"
ComboListChick Brand, "select brandchina as name FROM order_brand;"
ComboListChick season, "select seasonname as name FROM order_season;"
Me.Area.Text = "*"
Me.Place.Text = "*"
Me.Province.Text = "*"
Me.City.Text = "*"
Me.Sex.Text = "*"
Me.Model.Text = "*"
Me.Caneta.Text = "*"
Me.shop = "*"
Me.vsFlexGrid1.ColWidth(0) = 200
vsFlexGrid1_Scroll
For i = 0 To vsFlexGrid1.Cols - 1
vsFlexGrid2.ColWidth(i) = vsFlexGrid1.ColWidth(i)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -