📄 frmqsale.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 frmQSale
BackColor = &H00C0E0FF&
BorderStyle = 1 'Fixed Single
Caption = "销售查询"
ClientHeight = 8460
ClientLeft = 45
ClientTop = 330
ClientWidth = 10485
FillColor = &H0080FFFF&
Icon = "frmQSale.frx":0000
LinkTopic = "Form3"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 8460
ScaleWidth = 10485
Begin VB.CommandButton CmdAdd
Caption = "添 加(&A)"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 6240
TabIndex = 23
Top = 7200
Width = 1700
End
Begin VB.CommandButton CmdDel
Caption = "删 除(&D)"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2400
TabIndex = 22
Top = 7200
Width = 1700
End
Begin VB.CommandButton CmdModify
Caption = "修 改(&M)"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 4320
TabIndex = 21
Top = 7200
Width = 1700
End
Begin VB.CommandButton CmdClear
Caption = "清 空(&C)"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 480
TabIndex = 20
Top = 7200
Width = 1700
End
Begin VB.CommandButton CmdINT
Caption = "初 始 化(&I)"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 7440
TabIndex = 3
Top = 1440
Width = 2175
End
Begin VB.HScrollBar HSC1
Height = 375
Left = 240
TabIndex = 12
Top = 6600
Width = 9975
End
Begin VB.CommandButton CmdExit
Caption = "退 出(&E)"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 8160
TabIndex = 4
Top = 7200
Width = 1700
End
Begin VB.CommandButton CmdQuery
Caption = "查 询(&Q)"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 7440
TabIndex = 2
Top = 2280
Width = 2175
End
Begin VB.Frame Frame1
BackColor = &H00C0E0FF&
Caption = "请选择查询项目，查询条件"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 1935
Left = 240
TabIndex = 6
Top = 1080
Width = 10000
Begin MSComCtl2.DTPicker DTP2
Height = 375
Left = 4680
TabIndex = 19
Top = 1320
Width = 1575
_ExtentX = 2778
_ExtentY = 661
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Format = 67174401
CurrentDate = 38554
End
Begin MSComCtl2.DTPicker DTP1
Height = 375
Left = 2640
TabIndex = 18
Top = 1320
Width = 1575
_ExtentX = 2778
_ExtentY = 661
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Format = 67174401
CurrentDate = 38554
End
Begin VB.OptionButton OpDT
BackColor = &H00C0E0FF&
Caption = "Option3"
Height = 180
Left = 240
TabIndex = 17
Top = 1417
Width = 255
End
Begin VB.OptionButton OpNUM
BackColor = &H00C0E0FF&
Caption = "Option2"
Height = 180
Left = 240
TabIndex = 16
Top = 948
Width = 255
End
Begin VB.OptionButton OpID
BackColor = &H00C0E0FF&
Caption = "Option1"
Height = 180
Left = 240
TabIndex = 15
Top = 480
Width = 255
End
Begin VB.TextBox TxtID
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3840
TabIndex = 1
Top = 360
Width = 2415
End
Begin VB.ComboBox Combo2
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
ItemData = "frmQSale.frx":030A
Left = 3840
List = "frmQSale.frx":031D
Style = 2 'Dropdown List
TabIndex = 11
Top = 873
Width = 1575
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "元"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5880
TabIndex = 14
Top = 915
Width = 255
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "LIKE"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 240
Left = 2880
TabIndex = 13
Top = 450
Width = 480
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "到"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 4320
TabIndex = 10
Top = 1380
Width = 240
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "销 售 金 额"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 600
TabIndex = 9
Top = 918
Width = 1320
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "销 售 日 期 从"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 600
TabIndex = 8
Top = 1387
Width = 1680
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "销 售 单 序 号"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 600
TabIndex = 7
Top = 450
Width = 1680
End
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 3495
Left = 240
TabIndex = 5
Top = 3120
Width = 10000
_ExtentX = 17648
_ExtentY = 6165
_Version = 393216
Cols = 7
FixedCols = 0
AllowUserResizing= 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "销 售 记 录 查 询"
BeginProperty Font
Name = "幼圆"
Size = 24
Charset = 134
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 480
Left = 3240
TabIndex = 0
Top = 240
Width = 5280
End
End
Attribute VB_Name = "frmQSale"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rct As New ADODB.Recordset '声明连接到销售表的记录集
Dim rct1 As New ADODB.Recordset '声明连接到销售单表的记录集
Dim rct2 As New ADODB.Recordset '声明连接到库存表的记录集
Dim rct3 As New ADODB.Recordset '声明连接到员工权限表的记录集
Dim intindex As Integer '声明查询结果计数变量
Dim temp() As String '声明销售单序号数组变量
Dim total() As Single '声明销售单金额数组变量
Dim DT() As String '声明销售单日期数组变量
'声明初始化时表格显示函数
Public Sub flexView()
Dim intindex As Integer
MSFlexGrid1.ColWidth(0) = 12 * 25 * 3
MSFlexGrid1.ColWidth(1) = 12 * 25 * 6
MSFlexGrid1.ColWidth(2) = 12 * 25 * 9
MSFlexGrid1.ColWidth(3) = 12 * 25 * 5
MSFlexGrid1.ColWidth(4) = 12 * 25 * 4
MSFlexGrid1.ColWidth(5) = 12 * 25 * 6
MSFlexGrid1.ColWidth(6) = 12 * 25 * 3
MSFlexGrid1.Row = 0
For intindex = 0 To 6 '固定行显示格式，字体格式
MSFlexGrid1.Col = intindex
MSFlexGrid1.CellAlignment = 4
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -