VB课设销售管理系统Word文件下载.docx
- 文档编号:19895379
- 上传时间:2023-01-11
- 格式:DOCX
- 页数:23
- 大小:619.75KB
VB课设销售管理系统Word文件下载.docx
《VB课设销售管理系统Word文件下载.docx》由会员分享,可在线阅读,更多相关《VB课设销售管理系统Word文件下载.docx(23页珍藏版)》请在冰豆网上搜索。
商品数量
商品售价
12346
1104
25
大象
100
120
欧莱雅
40
38
入库明细:
入库时间
数量
备注
2009-12—18
100
12346
2009—12—18
1111
12346
2009—12—18
5
退回
商品销售:
销售日期
2009-12—18
25
1
第三章、系统实现
3。
1登录窗口
登录窗口主要应用于用户登录、输入密码等功能.
登陆界面主要程序:
PrivateSubCommand1_Click()
Dim MPasswordAsString
Adodc1。
RecordSource="
select*from密码表 whereusername='” & Text1.Text&"'”
Adodc1.Refresh
IfAdodc1。
Recordset.RecordCount〉0 Then
MPassword=Adodc1.Recordset。
Fields(”password”)
IfText2。
Text= MPasswordThen '
判断数据的密码是否正确
Name1=Text1。
Text
main.Show
'
frm_Main.Show
UnloadMe
Else
MsgBox "密码不正确,请您确认后重新输入"
,"
提示信息"
Text2.Text=”"
Text2。
SetFocus
EndIf
Else
MsgBox"
对不起没有此用户的信息",,"提示信息"
Text1.Text=””
Text2.Text=””
End If
EndSub
PrivateSubCommand2_Click()
End
End Sub
Private SubForm_Load()
’Adodc1.RecordSource="
select*from 密码表"
Adodc1。
Refresh
IfAdodc1。
Recordset.RecordCount >
0Then
ListView1。
Enabled=True
ListView1.ListItems.Clear
i =1
Adodc1.Recordset.MoveFirst
DoWhileAdodc1。
Recordset.EOF =False
Key=Adodc1。
Recordset.Fields("username")
SetitmX= ListView1。
ListItems.Add(,, Key,i)
i= i+ 1
Adodc1。
Recordset。
MoveNext
Loop
Else
ListView1.Enabled =False
EndIf
End Sub
Private SubListView1_Click()
Text1.Text =ListView1.SelectedItem
’Adodc1.Refresh
Text2.SetFocus
EndSub
2化妆品销售系统界面
用户在登录后首页后会看到化妆品销售系统界面,分为五大部分,分别是:
库存管理、销售管理、销售查询、帮助、退出。
主要代码:
PrivateSubForm_Load()
End Sub
Private Sub关于_Click(IndexAsInteger)
gy。
Show 1
EndSub
PrivateSub 库存查询_Click(Index AsInteger)
kccx.Show1
PrivateSub库存退回_Click(Index AsInteger)
spth.Show1
EndSub
PrivateSub 日查询_Click(Index AsInteger)
Dim dbAsDatabase
DimrsAsRecordset
sl=0
zj=0
yl=0
Setdb=OpenDatabase(App。
Path&
”\db1.mdb"
)
Setrs =db.OpenRecordset("
select*from商品销售 where销售日期 like’”&Date&
"
’"
Ifrs。
EOFOrrs。
BOFThen
MsgBox(”当日没商品售出”)
rcx。
Show1
EndIf
EndSub
PrivateSub入库明细查询_Click()
rkmx。
Show 1
PrivateSub商品入库_Click(IndexAsInteger)
sprk。
Show1
EndSub
PrivateSub商品售出_Click(Index AsInteger)
spcs。
End Sub
Private Sub商品退回_Click(IndexAsInteger)
spth。
Show1
Private Sub售出商品退回_Click()
scspth.Show1
End Sub
PrivateSub退出_Click(IndexAs Integer)
UnloadMe
EndSub
Private Sub销售情况查询_Click(IndexAsInteger)
rcx.Show1
EndSub
PrivateSub赠送情况查询_Click()
zscx.Show1
EndSub3.3
查询窗口
查询窗口是按照分类来查询,通过在TextBox里输入想要查询的方式,再点击下边对应的按钮,就能显示想要查询的信息。
Private SubCommand1_Click()
UnloadMe
EndSub
PrivateSub Command2_Click()
If Combo4.Text= "”Then
cb4 = "
*”
Else
cb4 = Combo4.Text
EndIf
IfCombo1。
Text =”"
Then
cb1=”*"
Else
cb1=Combo1。
Text
EndIf
IfCombo2.Text = "
" Then
cb2= ”*”
cb2= Combo2。
EndIf
IfCombo3.Text = "
” Then
cb3="
*"
Else
cb3 = Combo3。
Text
End If
Dim db AsDatabase
DimrsAsRecordset
sl=0
zj=0
Setdb=OpenDatabase(App。
Path&”\db1.mdb")
Setrs =db.OpenRecordset(”select* from商品销售where商品名称like’"
&cb4&
”’andyear(销售日期)like’"
&
cb1&
”’andMonth(销售日期) like'
"
& cb2&
”’andday(销售日期)like’"&
cb3&
’"
Ifrs.EOF Orrs。
BOFThen
MsgBox(”没有符合条件的记录!
With MSFlexGrid1
.FormatString="
|〈商品名称|〈商品售价|<
商品售出数量|〈售出时间|<合计”
。
ColWidth(0) =0
.ColWidth
(1)= 2000
.ColWidth
(2)=1300
.ColWidth(3)=1300
.ColWidth(4) = 2000
.ColWidth(5) =1300
.Rows=1
Wi:
hj= 0
hj= rs("
商品售价")* rs(”商品数量”)
.AddItem vbTab&
rs("
商品名称") &
vbTab&
rs("
商品售价"
) &
vbTab&
rs(”商品数量”)&
rs("
销售日期”)&vbTab &hj
sl=sl+rs(”商品数量"
zj=zj+hj
rs.MoveNext
IfNot(rs。
EOFOr rs.BOF)Then
GoTo Wi
End If
.AddItemvbTab&
”合计”&
vbTab&zj&vbTab&
sl&vbTab& ""
vbTab&
zj
EndWith
EndIf
EndSub
Private SubForm_Load()
Dim raAsRecordset
Dimdb AsDatabase
Set db=OpenDatabase(App。
Path&
”\db1。
mdb”)
Setra=db。
OpenRecordset(”select* from商品库存"
If ra。
BOFOrra.EOFThen
GoToen
EndIf
WithCombo4
Wi1:
。
AddItem ra(”商品名称”)
ra.MoveNext
IfNot(ra。
EOFOrra.BOF)Then
GoToWi1
EndIf
EndWith
en:
With MSFlexGrid1
.FormatString ="|〈商品名称|<
商品售价|<
商品售出数量|<售出时间|<
合计"
.ColWidth(0)=0
ColWidth
(1) = 2000
ColWidth
(2)=1300
ColWidth(3)=1300
.ColWidth(4)= 2000
。
ColWidth(5)=1300
。
Rows= 1
End With
Publiclj AsBoolean
PrivateSubCheck1_Click()
lj=Notlj
Combo2.Visible=lj
EndSub
PrivateSub Combo1_Click(IndexAs Integer)
DimraAsRecordset
Setdb=OpenDatabase(App。
Path&”\db1.mdb”)
Setra=db.OpenRecordset(”select *from商品库存where 商品名称like’” &
Combo1(0).Text&
"’"
Text2(1).Text =ra("商品售价”)
EndSub
PrivateSub Command1_Click(IndexAs Integer)
If Combo1(0)="
Then
MsgBox("
请选择商品名称”)
GoToen
End If
IfNotIsNumeric(Trim(Text2
(1))) Then
MsgBox("
请输入正确的商品单价”)
Text2(1)。
Text =”"
Text2
(1).SetFocus
GoToen1
EndIf
DimdbAsDatabase
DimraAsRecordset
Dim rsAs Recordset
Dimrs1 AsRecordset
DimsqlAsString
Setdb=OpenDatabase(App。
Path&
”\db1.mdb”)
Setra=db。
OpenRecordset("
select*from 商品库存 where 商品名称 like ’"
&Combo1(0).Text&”’"
If ra(”商品数量"
)=0Then
MsgBox (”商品已全部售出!
”)
GoToen
End If
ra.Edit
ra(”商品数量"
)=ra("
商品数量") -1
ra。
Update
Setrs=db。
OpenRecordset("select *from 商品销售where商品名称like’”&Combo1(0)。
Text &
”'
and销售日期like'
&
Date&
”'"
Ifrs.EOFOrrs。
BOFThen
rs.AddNew
rs(”商品名称”) =Combo1(0).Text
rs(”商品售价”)=Text2(1)。
Text
rs("
商品数量”)=1
rs(”销售日期”)= Date
rs。
Edit
rs(”商品数量"
)=rs(”商品数量"
) +1
EndIf
rs。
Update
MsgBox(”商品出售成功!
IfljThen
Setra =db.OpenRecordset(”select*from 商品库存where商品名称like'
& Combo2。
Text&
ra.Edit
ra("
商品数量”)= ra("
商品数量"
)— 1
ra。
Update
aaa =0
aaa=ra("商品售价"
Setrs =db.OpenRecordset("
select* from赠送情况where商品名称 like'
” &
Combo2。
Text&
"' and赠送日期like’”& Date&
’”)
If rs.EOFOrrs.BOFThen
rs.AddNew
rs("商品名称”)= Combo2.Text
rs(”赠送数量”)=1
rs(”赠送日期")=Date
rs(”商品售价"
)= aaa
Else
rs.Edit
赠送数量") =rs(”赠送数量"
)+1
EndIf
rs.Update
Else
en:
Combo1(0)。
Text= "
"
en1:
Text2
(1).Text=””
End Sub
PrivateSubCommand2_Click(IndexAs Integer)
UnloadMe
EndSub
PrivateSubText1_Change(IndexAsInteger)
PrivateSubForm_Load()
lj=False
DimraAs Recordset
Dim dbAs Database
Setdb = OpenDatabase(App.Path &"\db1。
mdb")
Setra=db。
OpenRecordset(”select *from商品库存”)
Ifra.BOFOr ra。
EOF Then
MsgBox ("
请先入库")
GoToen
EndIf
WithCombo1(0)
Wi1:
.AddItem ra(”商品名称”)
ra。
MoveNext
If Not (ra。
EOFOr ra.BOF) Then
GoTo Wi1
EndIf
EndWith
Setdb=OpenDatabase(App.Path&
\db1。
mdb”)
Setra=db.OpenRecordset(”select*from商品库存”)
WithCombo2
Wi2:
.AddItem ra("
商品名称"
ra.MoveNext
IfNot(ra.EOF Orra.BOF)Then
GoToWi2
EndIf
End With
en:
PrivateSubCommand1_Click()
UnloadMe
PrivateSubCommand2_Click()
If Combo4.Text=”"Then
cb4=”*”
Else
cb4 =Combo4。
If Combo1。
Text ="
” Then
cb1="
Else
cb1=Combo1。
IfCombo2.Text=”" Then
cb2="*”
cb2= Combo2。
End If
IfCombo3。
Text=”” Then
cb3= ”*"
Else
cb3=Combo3.Text
EndIf
Dimdb AsDatabase
Dim rsAsRecordset
sl=0
zj=0
Set db =OpenDatabase(App.Path&”\db1.mdb”)
Setrs= db.OpenRecordset("
select* from赠送情况where商品名称 like’” &cb4&”'andyear(赠送日期)like’” &
cb1&
”’andMonth(赠送日期)like '
"&
cb2&
”’andday(赠送日期)like’”& cb3&
'
”)
Ifrs.EOF Orrs。
MsgBox (”没有符合条件的记录!
Else
WithMSFlexGrid1
.FormatString=”|<商品名称|〈商品售价|<商品赠送数量|〈赠送时间|〈合计”
.ColWidth(0)=0
ColWidth
(1)= 2000
.ColWidth
(2) =13
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 销售 管理 系统