📄 frm_stock.frm
字号:
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 645
Left = 4050
Picture = "Frm_Stock.frx":8F0E
Style = 1 'Graphical
TabIndex = 3
ToolTipText = "提交订单"
Top = 2190
Width = 645
End
Begin MSComctlLib.ImageCombo Product_Name
Height = 315
Left = 1980
TabIndex = 5
Top = 210
Width = 2745
_ExtentX = 4842
_ExtentY = 556
_Version = 393216
ForeColor = 0
BackColor = -2147483638
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ImageList = "ImageList1"
End
Begin MSComctlLib.ImageCombo Provider_Name
Height = 315
Left = 1980
TabIndex = 6
Top = 600
Width = 2745
_ExtentX = 4842
_ExtentY = 556
_Version = 393216
ForeColor = 0
BackColor = -2147483638
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ImageList = "ImageList1"
End
Begin MSComCtl2.DTPicker Stock_Date
Height = 315
Left = 1980
TabIndex = 7
Top = 1800
Width = 1995
_ExtentX = 3519
_ExtentY = 556
_Version = 393216
CalendarBackColor= 16631042
CalendarForeColor= 16631042
CalendarTitleBackColor= 16631042
CalendarTitleForeColor= 16631042
CalendarTrailingForeColor= 16631042
Format = 24379393
UpDown = -1 'True
CurrentDate = 37386
End
Begin MSComCtl2.DTPicker Fetch_Date
Height = 315
Left = 1980
TabIndex = 8
Top = 1380
Width = 1995
_ExtentX = 3519
_ExtentY = 556
_Version = 393216
CalendarBackColor= 16631042
CalendarForeColor= 16631042
CalendarTitleBackColor= 16631042
CalendarTitleForeColor= 16631042
CalendarTrailingForeColor= 16631042
Format = 24379393
UpDown = -1 'True
CurrentDate = 37386
End
Begin VB.Label lab
AutoSize = -1 'True
Caption = "单价：￥"
ForeColor = &H00800000&
Height = 180
Index = 5
Left = 390
TabIndex = 41
Top = 2280
Width = 720
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "备注："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 210
Left = 180
TabIndex = 35
Top = 2880
Width = 630
End
Begin VB.Label lab
AutoSize = -1 'True
Caption = "产品名称:"
ForeColor = &H00800000&
Height = 180
Index = 0
Left = 750
TabIndex = 16
Top = 270
Width = 810
End
Begin VB.Label lab
AutoSize = -1 'True
Caption = "供应商名称:"
ForeColor = &H00800000&
Height = 180
Index = 1
Left = 750
TabIndex = 15
Top = 600
Width = 990
End
Begin VB.Label lab
AutoSize = -1 'True
Caption = "定购数量："
ForeColor = &H00800000&
Height = 180
Index = 2
Left = 720
TabIndex = 14
Top = 1050
Width = 900
End
Begin VB.Label lab
AutoSize = -1 'True
Caption = "取货日期："
ForeColor = &H00800000&
Height = 180
Index = 3
Left = 720
TabIndex = 13
Top = 1470
Width = 900
End
Begin VB.Label lab
AutoSize = -1 'True
Caption = "订货日期："
ForeColor = &H00800000&
Height = 180
Index = 4
Left = 720
TabIndex = 12
Top = 1830
Width = 900
End
Begin MSForms.CheckBox CheckBox1
Height = 315
Left = 5040
TabIndex = 11
Top = 240
Visible = 0 'False
Width = 1965
BackColor = -2147483633
ForeColor = 255
DisplayStyle = 4
Size = "3466;556"
Value = "0"
Caption = "是否新增产品"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.CheckBox CheckBox2
Height = 315
Left = 5040
TabIndex = 10
Top = 600
Visible = 0 'False
Width = 1935
BackColor = -2147483633
ForeColor = 255
DisplayStyle = 4
Size = "3413;556"
Value = "0"
Caption = "是否新增供应商"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin VB.Label Total_Price
BackColor = &H80000018&
BorderStyle = 1 'Fixed Single
Caption = "合计："
Height = 270
Left = 420
TabIndex = 9
Top = 2550
Width = 3450
End
End
End
Begin VB.CommandButton Command5
Caption = "Command5"
Height = 465
Left = 420
TabIndex = 39
Top = 5610
Visible = 0 'False
Width = 2055
End
Begin VB.Line Line2
BorderColor = &H80000000&
BorderWidth = 2
X1 = -150
X2 = 10250
Y1 = 675
Y2 = 675
End
Begin VB.Line Line1
BorderWidth = 2
X1 = 0
X2 = 10400
Y1 = 660
Y2 = 660
End
Begin VB.Menu xxx
Caption = "【录入】"
Begin VB.Menu Find_Stock
Caption = "【录入采购信息】"
End
End
Begin VB.Menu xxxx
Caption = "【查询】"
Begin VB.Menu Input_Stock
Caption = "【查询采购信息】"
End
End
Begin VB.Menu quit
Caption = "【退出】"
End
Begin VB.Menu Tree_Menu
Caption = "添加分类"
Visible = 0 'False
Begin VB.Menu Edit
Caption = "编辑当前分类"
End
Begin VB.Menu Add_Child
Caption = "添加下级分类"
End
Begin VB.Menu Add_Brother
Caption = "添加同级分类"
End
Begin VB.Menu del
Caption = "删除当前分类"
End
End
Begin VB.Menu OUT_DATABASE
Caption = "【导出数据库】"
End
End
Attribute VB_Name = "Frm_Stock"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mNode As ComctlLib.Node
Dim adoGRs As ADODB.Recordset
Dim adoSRs As ADODB.Recordset '
Dim adoZRs As ADODB.Recordset '子公司
Dim State As Integer
'************************************
'写入数据库参数
Dim Stock_Product_Code, Stock_Product_Class, Stock_Product_Name, Stock_Provider_Code, Stock_Provider_Name, S_Stock_Date, Stock_Filiale_Code, S_Fetch_Date, Stock_Filiale_Name, Stock_Product_MEMO, Stock_Product_Price As String
Dim Stock_Quantity As Integer
Dim Is_New As Boolean
'************************************
Private Sub Add_Brother_Click()
Dim New_Node As Node
Dim code As String
code = Tree.SelectedItem.LastSibling.Key
Code_int = Int(Right(code, 3))
Code_int = Code_int + 1
code = Left(code, Len(code) - 3) & Format(Code_int, "000")
Set New_Node = Tree.Nodes.Add(Tree.SelectedItem, tvwNext, code, "", 2, 3)
New_Node.Selected = True
Tree.StartLabelEdit
End Sub
Private Sub Add_Child_Click()
Dim New_Node As Node
Dim code As String
If Tree.SelectedItem.Children = 0 Then
code = Tree.SelectedItem.Key & "000"
Else
code = Tree.SelectedItem.Child.LastSibling.Key
End If
Dim Code_int
Code_int = Int(Right(code, 3))
Code_int = Code_int + 1
code = Left(code, Len(code) - 3) & Format(Code_int, "000")
Set New_Node = Tree.Nodes.Add(Tree.SelectedItem, tvwChild, code, "", 2, 3)
New_Node.Selected = True
Tree.StartLabelEdit
End Sub
Private Sub CheckBox1_Click()
If CheckBox1.value = True Then
Price.Text = ""
' Price.Enabled = True
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = DB
rs.CursorLocation = adUseClient
rs.CursorType = adOpenForwardOnly
rs.LockType = adLockOptimistic
rs.Open "select * from PROVIDER"
Provider_Name.ComboItems.Clear
If rs.EOF = False Then
Call ChangeColor(Provider_Name, True)
Else
Call ChangeColor(Provider_Name, False)
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -