📄 spdj.frm
字号:
VERSION 5.00
Object = "{D07CD9D2-ECE9-493F-86F2-186659945889}#1.0#0"; "Xpbutton.ocx"
Object = "{625E61B9-D59C-4612-89FC-D10614DC5873}#1.0#0"; "CoolBoySkin1.2(修正版).ocx"
Begin VB.Form spdj
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Caption = "神龙科技(网吧库管)"
ClientHeight = 4410
ClientLeft = 0
ClientTop = 0
ClientWidth = 6210
LinkTopic = "Form1"
LockControls = -1 'True
ScaleHeight = 4410
ScaleWidth = 6210
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin 工程1.xpcmdbutton xpcmdbutton1
Height = 360
Left = 855
TabIndex = 20
Top = 3420
Width = 750
_ExtentX = 1323
_ExtentY = 635
Caption = "维护"
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
Begin VB.TextBox Text6
Height = 285
Left = 5160
TabIndex = 16
Top = 2355
Width = 480
End
Begin VB.TextBox Text5
Height = 270
Left = 4545
TabIndex = 14
Top = 2355
Width = 480
End
Begin VB.TextBox Text4
Height = 285
Left = 3540
TabIndex = 7
Top = 2145
Width = 525
End
Begin VB.TextBox Text3
Height = 345
Left = 1455
TabIndex = 6
Top = 2715
Width = 2025
End
Begin VB.TextBox Text2
Height = 300
Left = 1455
TabIndex = 4
Top = 2160
Width = 1980
End
Begin VB.TextBox Text1
Height = 345
Left = 1455
TabIndex = 1
Top = 1485
Width = 1830
End
Begin 工程1.xpcmdbutton cmd3
Height = 450
Left = 4320
TabIndex = 9
Top = 3375
Width = 900
_ExtentX = 1588
_ExtentY = 794
Caption = "放弃"
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
Begin 工程1.xpcmdbutton cmd2
Height = 435
Left = 3165
TabIndex = 10
Top = 3405
Width = 975
_ExtentX = 1720
_ExtentY = 767
Caption = "登记退出"
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
Begin 工程1.xpcmdbutton cmd1
Height = 420
Left = 2115
TabIndex = 11
Top = 3405
Width = 900
_ExtentX = 1588
_ExtentY = 741
Caption = "再次登记"
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
Begin 工程1.xpcmdbutton cmd4
Height = 420
Left = 3330
TabIndex = 12
Top = 1500
Width = 1230
_ExtentX = 2170
_ExtentY = 741
Caption = "检查可用否"
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
Begin CoolBoySkinForVB6.CoolBoySkin CoolBoySkin1
Height = 1845
Left = 3930
TabIndex = 19
Top = 15
Width = 3405
_ExtentX = 6006
_ExtentY = 3254
Caption = "神龙科技(网吧库管)"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MenuBackColor = 16777215
End
Begin VB.Line Line3
X1 = 5205
X2 = 5085
Y1 = 2670
Y2 = 2865
End
Begin VB.Line Line2
X1 = 4770
X2 = 4650
Y1 = 2625
Y2 = 2910
End
Begin VB.Line Line1
X1 = 3870
X2 = 4200
Y1 = 2475
Y2 = 2670
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "小单位"
Height = 225
Left = 5130
TabIndex = 18
Top = 2130
Width = 630
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "等于"
Height = 225
Left = 4095
TabIndex = 17
Top = 2175
Width = 495
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "例如：箱 = 10 包"
Height = 285
Left = 3645
TabIndex = 15
Top = 2700
Width = 1560
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
ForeColor = &H000000FF&
Height = 375
Left = 435
TabIndex = 13
Top = 3135
Width = 5715
End
Begin VB.Shape Shape1
Height = 3855
Left = 165
Top = 405
Width = 5850
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "单位："
Height = 195
Left = 3450
TabIndex = 8
Top = 1935
Width = 645
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "期初数量："
Height = 240
Left = 510
TabIndex = 5
Top = 2835
Width = 960
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "商品名称："
Height = 435
Left = 540
TabIndex = 3
Top = 2205
Width = 1215
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "商品编号："
Height = 315
Left = 525
TabIndex = 2
Top = 1545
Width = 1335
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "商品信息登记"
BeginProperty Font
Name = "楷体_GB2312"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 300
TabIndex = 0
Top = 675
Width = 5805
End
End
Attribute VB_Name = "spdj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public rkdjfrm As Boolean
Dim oldx As Long
Dim oldy As Long
Dim mov As Boolean
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
oldx = X
oldy = Y
mov = True
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If mov Then
Me.Move Me.Left + (X - oldx), Me.Top + (Y - oldy)
End If
tim = 0
If username = "" Then loginfrm.Show
End Sub
Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
mov = False
End Sub
Private Sub cmd1_Click()
tim = 0
If username = "" Then loginfrm.Show
If Text1 = "" Then Exit Sub
If Text2 = "" Then Exit Sub
If Text4 = "" Then Exit Sub
Call savesp
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = 1
Text6 = ""
End Sub
Private Sub cmd2_Click()
If Text1 = "" Then Exit Sub
If Text2 = "" Then Exit Sub
If Text4 = "" Then Exit Sub
Call savesp
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = 1
Text6 = ""
tim = 0
If username = "" Then loginfrm.Show
Unload Me
End Sub
Private Sub cmd3_Click()
Unload Me
tim = 0
If username = "" Then loginfrm.Show
End Sub
Private Sub cmd4_Click()
tim = 0
If username = "" Then loginfrm.Show
If rs.State Then rs.Close
rs.Open "select * from spxx WHERE DWS='" & gsname & "' and spid='" & Trim(Text1) & "'", cn
If rs.EOF Then
MsgBox "商品编号可以使用！", vbOKOnly + vbInformation, "神龙网吧仓库工具": Exit Sub
Else
MsgBox "商品编号已经被占用！请更换ID号..", vbOKOnly + vbCritical, "神龙网吧仓库工具"
Text1 = ""
End If
If rs.State Then rs.Close
End Sub
Private Sub Form_Load()
Me.Left = Screen.Width - Me.Width
Me.Top = 400
Call topme(Me)
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = 1
Text6 = ""
tim = 0
tim = 0
If username = "" Then loginfrm.Show
End Sub
Public Sub savesp()
tim = 0
If username = "" Then loginfrm.Show
If rs.State Then rs.Close
rs.Open "select * from spxx WHERE DWS='" & gsname & "' and spid='" & Trim(Text1) & "'", cn, 3, 3
rs.addnew
rs.Fields("spname") = Trim(Text2)
rs.Fields("spid") = Trim(Text1)
rs.Fields("spsl") = Val(Text3)
rs.Fields("spdw") = Trim(Text4)
If Val(Text5.Text) = 0 Then sl = 1 Else sl = Val(Text5.Text)
If Trim(Text6) = "" Then bzs = Trim(Text4): sl = 1 Else bzs = Trim(Text6)
rs.Fields("mdwsl") = sl
rs.Fields("splb") = bzs
rs.Fields("dws") = gsname
rs.Update
If rs.State Then rs.Close
Label6.Caption = "商品：" & Trim(Text2) & vbCrLf & vbCrLf & "已经登记"
If rkdjfrm = True Then Call Frmrk.loadsp: Frmrk.Combo1.Text = Trim(Text2)
End Sub
Private Sub Form_Unload(Cancel As Integer)
tim = 0
If username = "" Then loginfrm.Show
rkdjfrm = False
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
tim = 0
If username = "" Then loginfrm.Show
Label6.Caption = ""
If KeyAscii = 13 Then Text2.SetFocus
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
tim = 0
If username = "" Then loginfrm.Show
If KeyAscii = 13 Then Text4.SetFocus
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
tim = 0
If username = "" Then loginfrm.Show
If KeyAscii = 13 Then Call cmd2_Click
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
tim = 0
If username = "" Then loginfrm.Show
If KeyAscii = 13 Then Text3.SetFocus
End Sub
Private Sub xpcmdbutton1_Click()
spxxxg.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -