📄 main_kcgl_jggl.frm
字号:
VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Object = "{FAEEE763-117E-101B-8933-08002B2F4F5A}#1.1#0"; "DBLIST32.OCX"
Begin VB.Form main_kcgl_jggl
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "库存管理——【价格管理】"
ClientHeight = 4530
ClientLeft = 1650
ClientTop = 1080
ClientWidth = 8805
Icon = "main_kcgl_jggl.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4530
ScaleWidth = 8805
StartUpPosition = 1 '所有者中心
Begin VB.Frame Frame2
Caption = "Frame2"
Height = 1485
Left = -15
TabIndex = 15
Top = 2055
Visible = 0 'False
Width = 1725
Begin VB.Data Data2
Connect = "Access"
DatabaseName = "D:\VB数据库开发实例解析\程序\珠宝首饰进销存管理系统\zbjxc.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 105
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "sort"
Top = 570
Visible = 0 'False
Width = 1140
End
Begin VB.Data Data1
Connect = "Access"
DatabaseName = "D:\VB数据库开发实例解析\程序\珠宝首饰进销存管理系统\zbjxc.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 165
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "mdkc"
Top = 225
Visible = 0 'False
Width = 1140
End
End
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "main_kcgl_jggl.frx":000C
Height = 2415
Left = 45
OleObjectBlob = "main_kcgl_jggl.frx":0020
TabIndex = 14
Top = 1260
Width = 8670
End
Begin VB.Frame Frame1
Caption = "设置"
Height = 1080
Left = 75
TabIndex = 5
Top = 0
Width = 8625
Begin VB.CommandButton Comsort
BackColor = &H00C0C0C0&
Caption = "排序"
Height = 330
Left = 6180
Picture = "main_kcgl_jggl.frx":154E
TabIndex = 13
Top = 225
Width = 2175
End
Begin VB.CommandButton Comfind
BackColor = &H00C0C0C0&
Caption = "查询"
Height = 330
Left = 6180
Picture = "main_kcgl_jggl.frx":1858
TabIndex = 10
Top = 615
Width = 2175
End
Begin VB.TextBox Text1
BackColor = &H00FFFFFF&
Height = 300
Left = 3285
TabIndex = 9
Text = "*"
Top = 630
Width = 2565
End
Begin VB.ComboBox Combo2
BackColor = &H00FFFFFF&
Height = 300
ItemData = "main_kcgl_jggl.frx":1B62
Left = 1065
List = "main_kcgl_jggl.frx":1B64
Style = 2 'Dropdown List
TabIndex = 7
Top = 240
Width = 2070
End
Begin VB.ComboBox Combo1
BackColor = &H00FFFFFF&
Height = 300
ItemData = "main_kcgl_jggl.frx":1B66
Left = 1065
List = "main_kcgl_jggl.frx":1B68
Style = 2 'Dropdown List
TabIndex = 6
Top = 615
Width = 2070
End
Begin MSDBCtls.DBCombo DBCombo1
Bindings = "main_kcgl_jggl.frx":1B6A
Height = 330
Left = 3675
TabIndex = 8
Top = 255
Width = 2160
_ExtentX = 3810
_ExtentY = 582
_Version = 393216
Style = 2
BackColor = 16777215
ListField = "mc"
BoundColumn = "bz"
Text = ""
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "设置排序: 按"
ForeColor = &H00000000&
Height = 375
Left = 210
TabIndex = 12
Top = 315
Width = 3750
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "设置查找:"
ForeColor = &H00000000&
Height = 375
Left = 210
TabIndex = 11
Top = 705
Width = 1605
End
End
Begin VB.Frame Frame3
Caption = "修改"
Height = 840
Left = 30
TabIndex = 0
Top = 3690
Width = 8655
Begin VB.CommandButton Comend
Caption = "退出"
Height = 390
Left = 7755
TabIndex = 22
Top = 270
Width = 795
End
Begin VB.CommandButton Comrefresh
Caption = "刷新"
Height = 390
Left = 6915
TabIndex = 21
Top = 270
Width = 795
End
Begin VB.TextBox Texgxj
DataField = "销价"
DataSource = "Data1"
Height = 345
Left = 5805
TabIndex = 18
Top = 285
Visible = 0 'False
Width = 1020
End
Begin VB.TextBox texgkc
Alignment = 2 'Center
DataField = "库存"
DataSource = "Data1"
Height = 345
Left = 2085
TabIndex = 3
Top = 285
Width = 915
End
Begin VB.TextBox texgdj
Alignment = 2 'Center
DataField = "单价"
DataSource = "Data1"
Height = 345
Left = 555
TabIndex = 2
Top = 285
Width = 1065
End
Begin VB.TextBox texgje
Alignment = 2 'Center
DataField = "金额"
DataSource = "Data1"
Height = 345
Left = 3855
Locked = -1 'True
TabIndex = 1
Top = 285
Width = 1470
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "库存金额"
Height = 390
Left = 3060
TabIndex = 20
Top = 360
Width = 855
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "库存"
Height = 390
Left = 1665
TabIndex = 19
Top = 375
Width = 855
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "销价"
Height = 390
Left = 5400
TabIndex = 17
Top = 345
Visible = 0 'False
Width = 855
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "单价"
Height = 390
Left = 105
TabIndex = 16
Top = 375
Width = 855
End
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "注意：鼠标单击，选定列表中的商品，在“修改”项里可修改商品的单价、库存、库存金额。"
ForeColor = &H000000C0&
Height = 300
Left = 90
TabIndex = 4
Top = 1080
Width = 7830
End
End
Attribute VB_Name = "main_kcgl_jggl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim x, i
Private Sub Form_Load()
'自动识别数据库路径
Data1.DatabaseName = App.Path & "\zbjxc.mdb"
Data2.DatabaseName = App.Path & "\zbjxc.mdb"
'初始化设计
DBCombo1.Text = "升序排序"
x = Array("编号", "简称", "商品名称", "CT", "G")
For i = 0 To 4
Combo1.AddItem (x(i))
Combo2.AddItem (x(i))
Next i
Combo1.Text = "简称"
Combo2.Text = "简称"
'查询门店库存信息
Data1.RecordSource = "select * from mdkc where (mdkc." & Combo1.Text & " " & "like " + Chr(34) + Text1.Text + "*" + Chr(34) + ")order by 简称,编号"
Data1.Refresh
End Sub
Private Sub Form_Unload(Cancel As Integer)
frm_main.Enabled = True
Unload Me
End Sub
Private Sub texgdj_Change()
texgje.Text = Val(texgkc.Text) * Val(texgdj.Text)
End Sub
Private Sub texgkc_Change()
texgje.Text = Val(texgkc.Text) * Val(texgdj.Text)
End Sub
Private Sub ComFind_Click() '查询门店库存信息
Data1.RecordSource = "select * from mdkc where (mdkc." & Combo1.Text & " " & "like " + Chr(34) + Text1.Text + "*" + Chr(34) + ")order by 简称,编号"
Data1.Refresh
End Sub
Private Sub Comsort_Click() '排序
Data1.RecordSource = "select * from mdkc where (mdkc." & Combo1.Text & " " & "like " + Chr(34) + Text1.Text + "*" + Chr(34) + ")order by " & Combo2.Text & " " & DBCombo1.BoundText
Data1.Refresh
End Sub
Private Sub Comrefresh_Click() '刷新数据
Data1.Refresh
End Sub
Private Sub Comend_Click()
frm_main.Enabled = True
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -