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

VB电表管理信息系统 第3页

更新时间:2010-4-5:  来源:毕业论文
VB电表管理信息系统 第3页
第二章 系统的分析
2.1 系统开发的目标和思想
   本系统主要服务于电费管理人员的日常工作.设计思路主要参照工作人员抄表,记录资料,资料管理,信息录入等方面的工作流程展开的.
2.2 系统的可行性分析
本系统采用visual basic6.0与微软的access作为数据库结合.在系统编写上具有可行性.
经济方面:本系统可以服务电厂,电费管理单位,为企业节省人力开支.
社会方面:服务于大众,方便抄表人员工作,可靠方便.
第三章 系统的设计
3.1 系统的功能结构设计
3.2 系统的数据库设计
1. 用户类型表:
字段名称 数据类型 说明
ATypeID 自动编号 
AType 文本 电费类型
UNITPRICE 货币 
Adate 日期/时间 电费设置日期
2. 密码表:
字段名称 数据类型
姓名 文本
操作权限 文本
密码 文本
3. MaxID表:
字段名称 数据说明
TableName 文本
MaxID 数字
3.3 界面设计与代码设计
1.用户登陆界面设计:
3.4 界面设计与代码设计
用户登陆界面代码分析:
Private Sub Command1_Click()
Dim rstpchard As New ADODB.Recordset
Dim reHard As String
Dim getid As String
reHard = GetpcHard(getid)
rstpchard.Open "select * from getpchard ", gCnn, adOpenKeyset, adLockBatchOptimistic
If rstpchard.RecordCount = 0 Then
   rstpchard.AddNew
   rstpchard.Fields(0) = reHard
   rstpchard.UpdateBatch adAffectCurrent
Else
 If Trim(reHard) <> Trim(rstpchard.Fields(0)) Then
    MsgBox " 对不起,使用不合法请与开发者联系! ", vbInformation
    End
 End If
End If
If Check1.Value = 1 Then
Set rec = New ADODB.Recordset
rec.Open "select * from 记住密码", gCnn, 3, 3
rec("标记") = "1"
If Combo2.Text <> "" Then
rec("姓名") = Combo2.Text
Else
rec("姓名") = ""
End If
If Combo1.Text <> "" Then
rec("权限") = Combo1.Text
Else
rec("权限") = ""
End If
If Text2.Text <> "" Then
rec("密码") = Text2.Text
Else
rec("密码") = ""
End If
rec.Update
rec.Close
Else
Set rec = New ADODB.Recordset
rec.Open "select * from 记住密码", gCnn, 3, 3
rec("标记") = "0"
rec.Update
rec.Close
End If
Dim rec1 As ADODB.Recordset
Set rec1 = New ADODB.Recordset
rec1.Open "select * from 登录人员", gCnn, 3, 3
Set rec = New ADODB.Recordset
rec.Open "select * from 密码表 where 姓名='" & Combo2.Text & "'and 操作权限='" & Combo1.Text & "'and 密码='" & Text2.Text & "'", gCnn, 3, 3
If rec.EOF = False Then
    If rec("操作权限") <> "管理员" Then
'        FRMMAIN.XZCK.Enabled = False
       MDIme.mczy.Enabled = False
       MDIme.xtwh.Enabled = False

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

VB电表管理信息系统 第3页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

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