📄 frmchart.frm
字号:
VERSION 5.00
Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#1.0#0"; "THREED32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{29743316-0803-11D5-AD8E-0050BAA9AC14}#4.0#0"; "FOCUSMOVETEXT.OCX"
Begin VB.Form frmChart
BorderStyle = 3 'Fixed Dialog
Caption = "库存浏览"
ClientHeight = 7125
ClientLeft = 1095
ClientTop = 330
ClientWidth = 11145
ClipControls = 0 'False
ControlBox = 0 'False
Icon = "frmChart.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7125
ScaleWidth = 11145
ShowInTaskbar = 0 'False
WindowState = 2 'Maximized
Begin VB.PictureBox picSelectP
BackColor = &H80000004&
Height = 5775
Left = 30
ScaleHeight = 5715
ScaleWidth = 10110
TabIndex = 0
Top = 1200
Width = 10170
Begin VB.PictureBox Picture1
BackColor = &H80000004&
BorderStyle = 0 'None
Height = 840
Left = 0
ScaleHeight = 840
ScaleWidth = 10200
TabIndex = 1
Top = 4485
Width = 10200
Begin VB.OptionButton optType
Caption = "库存正常产品"
Height = 345
Index = 3
Left = 5850
TabIndex = 15
Top = 495
Width = 1605
End
Begin VB.OptionButton optType
Caption = "库存过剩产品"
Height = 345
Index = 2
Left = 4275
TabIndex = 14
Top = 495
Width = 1605
End
Begin VB.OptionButton optType
Caption = "库存不足产品"
Height = 345
Index = 1
Left = 2640
TabIndex = 13
Top = 495
Width = 1785
End
Begin VB.OptionButton optType
Caption = "显示所有"
Height = 345
Index = 0
Left = 1455
TabIndex = 12
Top = 495
Value = -1 'True
Width = 1335
End
Begin VB.CommandButton Command5
Caption = "目录(&B)"
Height = 390
Left = 6495
TabIndex = 4
Top = 30
Width = 1245
End
Begin VB.CommandButton Command4
Caption = "查找(&S)"
Enabled = 0 'False
Height = 390
Left = 5055
TabIndex = 3
Top = 30
Width = 1260
End
Begin VB.CommandButton Command3
BackColor = &H00FFFFFF&
Cancel = -1 'True
Caption = "返回(&R)"
Height = 390
Left = 8025
MaskColor = &H00FFFFFF&
TabIndex = 2
Top = 30
Width = 1230
End
Begin 给出焦点文本框.FocusText FocusText1
Height = 315
Left = 1455
TabIndex = 5
Top = 60
Width = 3435
_ExtentX = 6059
_ExtentY = 556
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
GotBackColor = 16777215
GotForeColor = 12582912
LostBackColor = 14737632
LostForeColor = 12582912
PreControl = "Grid1"
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "请输入产品:"
Height = 180
Index = 9
Left = 240
TabIndex = 6
Top = 105
Width = 990
End
End
Begin MSFlexGridLib.MSFlexGrid Grid3
Height = 3825
Left = 15
TabIndex = 7
Top = 15
Width = 5130
_ExtentX = 9049
_ExtentY = 6747
_Version = 393216
BackColorSel = 14737632
ForeColorSel = 192
AllowBigSelection= 0 'False
FocusRect = 0
SelectionMode = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Begin MSComctlLib.ImageList ImageList1
Left = 210
Top = 825
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 17
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmChart.frx":030A
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmChart.frx":0626
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmChart.frx":0942
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmChart.frx":0C5E
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmChart.frx":0F7A
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmChart.frx":1296
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmChart.frx":1B72
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmChart.frx":1E8E
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmChart.frx":21AA
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmChart.frx":24C6
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmChart.frx":2DA2
Key = ""
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmChart.frx":30BE
Key = ""
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmChart.frx":33DA
Key = ""
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmChart.frx":36F6
Key = ""
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmChart.frx":3A12
Key = ""
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmChart.frx":42EE
Key = ""
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmChart.frx":460A
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar tbOrder
Align = 1 'Align Top
Height = 765
Left = 0
TabIndex = 8
Top = 0
Width = 11145
_ExtentX = 19659
_ExtentY = 1349
ButtonWidth = 1455
ButtonHeight = 1349
AllowCustomize = 0 'False
Wrappable = 0 'False
Style = 1
ImageList = "ImageList1"
DisabledImageList= "ImageList1"
HotImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 4
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "打印报表"
Key = "print"
Object.ToolTipText = "打印报表"
ImageIndex = 10
Style = 5
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 2
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "set"
Text = "(&S) 打印设置..."
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "print"
Text = "(&P) 打印..."
EndProperty
EndProperty
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "关闭返回"
Key = "return"
Object.ToolTipText = "关闭返回"
ImageIndex = 11
EndProperty
EndProperty
Begin VB.Timer TimeDate
Interval = 1000
Left = 2295
Top = 690
End
Begin Threed.SSPanel lbStatus
Height = 630
Left = 7995
TabIndex = 9
Top = 150
Width = 2160
_Version = 65536
_ExtentX = 3810
_ExtentY = 1111
_StockProps = 15
Caption = "全球通商务管理系统"
ForeColor = 255
BackColor = 12632256
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Fixedsys"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderWidth = 1
BevelOuter = 0
RoundedCorners = 0 'False
FloodColor = 16776960
FloodShowPct = 0 'False
Alignment = 0
Autosize = 1
Begin VB.Label lbDate
AutoSize = -1 'True
Caption = "00:00:00"
ForeColor = &H00404040&
Height = 180
Left = 1020
TabIndex = 11
Top = 330
Width = 720
End
Begin VB.Label Label4
Caption = "现在时间："
ForeColor = &H00404040&
Height = 240
Left = 120
TabIndex = 10
Top = 345
Width = 975
End
End
End
End
Attribute VB_Name = "frmChart"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim ProductLay As Integer
Dim ProductType As String
Private Sub ConfigProduct(sSQL As String, bContent As Boolean)
On Error GoTo Err_S
Dim Con As Database
Dim rRecord As Recordset
Set Con = OpenDatabase(ConData, 0, 0, ConStr)
Set rRecord = Con.OpenRecordset(sSQL, dbOpenDynaset)
If bContent = False Then
ProductLay = 2
'配置网格
Grid3.Visible = False
Grid3.Clear
Grid3.Cols = 7 + CodeQua
Dim sFormat As String
Dim X As Integer
For X = 1 To CodeQua
sFormat = sFormat & "|< " & CodeName(X)
Next
Grid3.FormatString = "..|<产品编号|<产品名称|<单位 |<单价 " & sFormat & "|<数量小计|<金额小计"
Grid3.ColWidth(0) = 200
Grid3.ColWidth(1) = 1500
Grid3.ColWidth(2) = 3500
Grid3.ColWidth(3) = 800
Grid3.ColWidth(4) = 1000
For X = 1 To CodeQua
Grid3.ColWidth(X + 4) = 800
Next
Grid3.ColWidth(5 + CodeQua) = 1300
Grid3.BackColorSel = SelectBackColor
Grid3.ForeColorSel = SelectForeColor
If rRecord.BOF Or rRecord.EOF Then
Grid3.Rows = 29
'建立29行
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -