VB+Access物流运输管理系统 第6页

1.“原料入库表”。结构如表所示：

包含入库单编号、供货单编号、供货商名称、供货数量、原料编号、运输费用、原料单价、原料金额、入库时间

2.“原料领退表” 结构如表所示：

包含领退单编号、原料编号、领退数量、仓库管理员、领退日期、单价、领料人、原料名称

3.“供货商信息表” 结构如表所示：

包括供应商名称、供应商编号、供应商地址、供应商电话、联系人、原料名称、供应商传真号、供应商开户行、供应商银行帐号

4. “车辆管理表” 结构如表所示：

包括车辆编号、出车时间、回车时间、文修时间、状态

4.3系统功能概述

后台数据库使用ACCESS数据库，以Microsoft Visual staudio 2005作为开发平台，系统通过主页面选择进入入库管理系统和出库管理系统

4.3.1系统登录功能

不难发现，在很多系统设计中都少不了，系统登陆这一模块，登陆模块能使管理员允许的用户进入查询或者输入相关信息，这一模块的设计不仅能方便用户查询相关信息，而且还能保证数据不丢失和被盗取篡改，作为系统的门户，登陆模块是很重要的。

系统登陆代码设计如下：

Private Sub Command1_Click()
If id.Text = "" Then
MsgBox "用户名不能为空！", vbOKOnly + vbInformation, "友情提示"
id.SetFocus
Exit Sub
End If
若图片无法显示请联系QQ752018766,本论文免费,转发请注明源于www.751com.cn

Dim strSQl As String
strSQl = "select * from Users where users_name='" & Trim$(id.Text) & "' and password='" & Trim$(password.Text) & "' "

Dim str As New ADODB.Recordset
Set str = New ADODB.Recordset
str.CursorLocation = adUseClient
str.Open strSQl, conn, adOpenStatic, adLockReadOnly

With str
If .State = adStateOpen Then .Close
.Open strSQl

上一页  [1] [2] [3] [4] [5] [6] [7] [8] 下一页