毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 课程设计 >> 正文

VB+ORACL超市收费系统 第9页

更新时间:2008-5-13:  来源:毕业论文


VB+ORACL超市收费系统 第9页

第5章                    系统详细设计

 

5.1  系统设计

 

整个系统开发包括两个部分:一部分是数据库设计,另一部分是VB前台界面。其中实现的功能有辣大功:商品存取数据录入、商品库存数据查询、销售数据录入、商品购买数据单、交接班结转清、销售业绩查询汇总。

    在现代化的社会中,超市将发挥越来越重要的作用。超市管理工作已经渗透到超市日常工作的方面,无论是其自身还是所发挥的作用。随着时代的进步,超市也逐渐变得庞大起来,为了超市的创新、发展以及经济效益,如何管理好超市商品的进出,成为管理超市中的一个大的问题。

为了实现企业的信息化建设,与人员的分工明确。开发本系统,实现了从供应商到顾客的一条龙管理,使领导与员工任务明确,各负其责,逐层上报的原则,使每一道程序都有专人看管,并且解决了超市工作人员工作强度大的问题。

 

5.1.1   VB前台界面设计如下:

 

在此之前先介绍一下登录界面的设计,用户登录系统后点击进入进入系统,点击退出则系统退出.界面如图5.1所示。

 

若图片无法显示请联系QQ752018766

 

                              5.1 系统登录图

代码如下所示:

Private Sub Command1_Click()

Dim a As New Form2  定义下一界面为a

a.Show   显示下一界面

End Sub

Private Sub Command2_Click()

End   界面退出

End Sub

 

 

 

5.1.1.1 超市收费系统功能模块

 

在该模块中主要对系统中的主要功能选择,功能如图5.2所示。

 

 

 

商品存商品购买数据单

商品存取货数据录入

 

 

 

 

 

若图片无法显示请联系QQ752018766

销售业绩查询汇总

超市收费系统

商品库存数据查询

             

 

                    

交接班结转清

 

 

 


 

5.2超市收费系统

 

超市收费系统功能模块图如图5.3所示。

 

若图片无法显示请联系QQ752018766

 

                           5.3 超市收费系统功能模块图

 

当用户进入系统以后,可以看到想选择使用的功能,进入其中可进行显示录入查询功能,并把结果保存到数据库中的相关表中。

部分代码如下:

Private Sub Command1_Click()

Dim B As New Form3

B.Show

End Sub

Private Sub Command2_Click()

Dim E As New Form5

E.Show

End Sub

Private Sub Command4_Click()

Dim F As New Form6

F.Show

End Sub

Private Sub Command5_Click()

Dim D As New Form4

D.Show

End Sub

Private Sub Command6_Click()

Dim G As New Form7

G.Show

End Sub

Private Sub Command7_Click()

Dim X As New Form1

X.Show

说明:在此界面代码主要是点击按钮进入其他界面.

 

5.1.1.2 商品存取货数据录入

 

(1)在文本框中分别添加相应的数据,单击“添加”按钮如图5.4所示,完成添加信息任务。

当想要查询某些信息时,在相应文本框中输入数据,点击查询则在界面显示所查询的信息。

若图片无法显示请联系QQ752018766

5.4商品存取货数据录入模块图

3部分代码如下:

3部分代码如下:

 

Private Sub Command1_Click()

Textbox1.Text = ""

Textbox2.Text = ""

Textbox3.Text = ""

Textbox4.Text = ""

Textbox5.Text = ""

Textbox6.Text = ""

Textbox1.focus

End Sub

说明:以上代码实现数据清空功能

 

Private Sub Command2_Click()

If Trim(Text1.Text) <> "" Then

 If str = "" Then

   str = "员工编号='" + Trim(Text1.Text) + "'"

   Else

   str = str + "and员工编号='" + Trim(Text1.Text) + "'"

   End If

   End If

If Trim(Text2.Text) <> "" Then

  If str = "" Then

   str = "仓库编号='" + Trim(Text2.Text) + "'"

   Else

   str = str + "and仓库编号='" + Trim(Text2.Text) + "'"

   End If

   End If

If Trim(Text3.Text) <> "" Then

 If str = "" Then

   str = "取货数量='" + Trim(Text3.Text) + "'"

   Else

   str = str + "and取货数量='" + Trim(Text3.Text) + "'"

   End If

   End If

   If Trim(Text4.Text) <> "" Then

  If str = "" Then

   str = "存货数量='" + Trim(Text4.Text) + "'"

   Else

   str = str + "and存货数量='" + Trim(Text4.Text) + "'"

   End If

   End If

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

VB+ORACL超市收费系统 第9页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。