📄 money.frm
字号:
Width = 9015
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "商品编号："
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00987758&
Height = 255
Left = -73680
TabIndex = 14
Top = 1920
Width = 1215
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "收银员编号："
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00987758&
Height = 375
Left = -70320
TabIndex = 10
Top = 1800
Width = 1575
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "数量："
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00987758&
Height = 255
Left = -73200
TabIndex = 9
Top = 2400
Width = 735
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "商品名称："
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00987758&
Height = 255
Left = -73680
TabIndex = 8
Top = 1440
Width = 1215
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "日期："
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00987758&
Height = 255
Left = -74520
TabIndex = 7
Top = 900
Width = 855
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "日收银清单"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00764E10&
Height = 375
Left = -70920
TabIndex = 3
Top = 390
Width = 1575
End
Begin VB.Line Line4
BorderColor = &H00764E10&
BorderWidth = 2
X1 = -74880
X2 = -65880
Y1 = 720
Y2 = 720
End
Begin VB.Shape Shape1
BackColor = &H00FFFFFF&
BackStyle = 1 'Opaque
BorderColor = &H00764E10&
FillColor = &H00764E10&
Height = 3465
Left = -74955
Top = 360
Width = 9135
End
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "收银员个人信息表"
ForeColor = &H00987758&
Height = 255
Left = 4200
TabIndex = 44
Top = 1080
Width = 1575
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "Beta Version 1.0"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00987758&
Height = 375
Left = 8040
TabIndex = 5
Top = 5450
Width = 1215
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "版权所有:计算机科学与技术053班"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00987758&
Height = 375
Left = 120
TabIndex = 4
Top = 5520
Width = 2775
End
Begin VB.Line Line5
BorderColor = &H00764E10&
BorderWidth = 2
X1 = 0
X2 = 9240
Y1 = 5400
Y2 = 5400
End
Begin VB.Label loginbar
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Verdana"
Size = 7.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 405
Left = 7440
TabIndex = 2
Top = 1080
Width = 2055
End
Begin VB.Line Line3
BorderColor = &H00764E10&
BorderWidth = 2
X1 = 9360
X2 = 7440
Y1 = 1080
Y2 = 1080
End
Begin VB.Line Line2
BorderColor = &H00764E10&
BorderWidth = 2
X1 = 7080
X2 = 7440
Y1 = 1320
Y2 = 1080
End
Begin VB.Line Line1
BorderColor = &H00764E10&
BorderWidth = 2
X1 = 0
X2 = 9360
Y1 = 1320
Y2 = 1320
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "小型自选商场商品管理系统"
BeginProperty Font
Name = "Arial"
Size = 27.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00764E10&
Height = 615
Left = 2400
TabIndex = 0
Top = 360
Width = 6975
End
Begin VB.Image Image1
Height = 1470
Left = 15
Picture = "money.frx":0891
Stretch = -1 'True
Top = 30
Width = 2520
End
End
Attribute VB_Name = "money"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmbspmc_Click()
cmbspbh.ListIndex = cmbspmc.ListIndex
cmbsl.ListIndex = cmbspmc.ListIndex
cmbdj.ListIndex = cmbspmc.ListIndex
Call openconn
sqlstr = "select * from rsyqd where rq='" & DTPicker1.Value & "'"
Call rs(sqlstr)
Text3.Text = adoRS.Fields("syybh")
Call closeconn
End Sub
Private Sub cmbspbh_Click()
cmbspmc.ListIndex = cmbspbh.ListIndex
cmbspmc.ListIndex = cmbspbh.ListIndex
cmbdj.ListIndex = cmbspbh.ListIndex
End Sub
Private Sub cmbsl_Click()
cmbspmc.ListIndex = cmbsl.ListIndex
cmbspbh.ListIndex = cmbsl.ListIndex
cmbdj.ListIndex = cmbsl.ListIndex
End Sub
Private Sub cmbdj_Click()
cmbspmc.ListIndex = cmbdj.ListIndex
cmbspbh.ListIndex = cmbdj.ListIndex
cmbsl.ListIndex = cmbdj.ListIndex
End Sub
Private Sub Command1_Click()
Unload Me
MainForm2.Show
End Sub
Private Sub Command3_Click()
If (txtspno.Text = "") Then
MsgBox "请输入商品编号!", vbCritical
txtspno.SetFocus
Exit Sub
End If
Call openconn
sqlstr = "select spmc, dj,hyk from spqd where spbh='" & txtspno.Text & "' "
Call rs(sqlstr)
If adoRS.EOF Then
MsgBox "NO 记录 Selected", vbCritical
Call closeconn
Exit Sub
End If
Text2.Text = adoRS.Fields("spmc")
Text6.Text = adoRS.Fields("dj")
If Option1.Value = False Then
Text7.Text = Text5.Text * adoRS.Fields("dj")
Else
Text7.Text = Text5.Text * adoRS.Fields("dj") * 0.95
End If
Call closeconn
End Sub
Private Sub Command4_Click()
Call openconn
sqlstr = "select spmc, dj from spqd where spbh='" & txtspno.Text & "' "
Call rs(sqlstr)
Text9.Text = Text8.Text - Text7.Text
Call closeconn
End Sub
Private Sub Command5_Click()
Text9.Text = "0.0"
Text8.Text = "0.0"
txtspno.Text = ""
Text5.Text = ""
Text6.Text = ""
Text2.Text = ""
Text7.Text = ""
End Sub
Private Sub Form_Load()
loginbar.Caption = "User = " & userid
Call openconn
sqlstr = "select * from rsyqd where rq='" & DTPicker1.Value & "'"
Call rs(sqlstr)
If Not (adoRS.EOF) Then
hello = adoRS.Sort
adoRS.MoveFirst
While Not (adoRS.EOF)
cmbspmc.AddItem adoRS.Fields("spmc")
cmbspbh.AddItem adoRS.Fields("spbh")
cmbsl.AddItem adoRS.Fields("sl")
cmbdj.AddItem adoRS.Fields("dj")
adoRS.MoveNext
Wend
End If
If cmbspmc.Text = spmc Then
Text3.Text = ""
End If
Call closeconn
Call openconn
sqlstr = "select * from ysyqd"
Call rs(sqlstr)
If Not (adoRS.EOF) Then
hello = adoRS.Sort
adoRS.MoveFirst
While Not (adoRS.EOF)
cmbyf.AddItem adoRS.Fields("yf")
adoRS.MoveNext
Wend
End If
Call closeconn
End Sub
Private Sub Form_Unload(Cancel As Integer)
Unload Me
MainForm2.Show
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Visible = False
End Sub
Private Sub lblCaption_click()
Select Case lblCaption.Caption
Case "收银员个人信息表"
Unload Me
moneypeople.Show
End Select
End Sub
Private Sub Label9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Left = Label9.Left - 10
Picture1.Visible = True
lblCaption = Label9.Caption
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -