纯净水管理系统_毕业论文范文网-论文范文

搜索高级搜索

原创毕业论文

纯净水管理系统(三)

作者: 浏览:617次

免费专业论文
政治工作论文
计算机论文
营销专业论文
工程管理论文范文
医药医学论文范文
法律论文范文
生物专业论文
物理教学论文范文
人力资源论文范文
化学教学论文范文
电子专业论文范文
历史专业论文
电气工程论文
社会学专业论文
英语专业论文
行政管理论文范文
语文专业论文
电子商务论文范文
焊工钳工技师论文
社科文学论文
教育论文范文
数学论文范文
物流论文范文
建筑专业论文
食品专业论文
财务管理论文范文
工商管理论文范文
会计专业论文范文
专业论文格式
化工材料专业论文
英语教学专业论文
电子通信论文范文
旅游管理论文范文
环境科学专业论文
经济论文
人力资源论文范文
营销专业论文范文
财务管理论文范文
物流论文范文
财务会计论文范文
数学教育论文范文
数学与应用数学论文
电子商务论文范文
法律专业论文范文
工商管理论文范文
汉语言文学论文
计算机专业论文
教育管理论文范文
现代教育技术论文
小学教育论文范文
机械模具专业论文
报告,总结,申请书
心理学论文范文
学前教育论文范文

收费计算机专业论文范文

收费计算机专业论文
Delphi
ASP
VB
JSP
ASP.NET
VB.NET
java
VC
pb
VS
dreamweaver
c#.net
vf
VC++
计算机论文

毕业论文范文题目：纯净水管理系统(三)，论文范文关键词：纯净水管理系统(三)
纯净水管理系统(三)毕业论文范文介绍开始：

    Call disprecord
End Sub
Private Sub Command2_Click()
    Rs.MovePrevious
    Call disprecord
End Sub
Private Sub Command3_Click()
    Rs.MoveNext
    Call disprecord
End Sub
Private Sub Command4_Click()
    Rs.moveLast
    Call disprecord
End Sub
Private Sub Command5_Click()
    If checkdata = ture Then
       Rs.Addnew
       Rs.fields("Name") = Trim(Text1.Text2)
       Rs.Update
       MsgBox "新增数据成功！"
    End If
End Sub
Private Sub Command6_Click()
    Rs.Delete
    Rs.MoveNext
    MsgBox "删除数据成功!"
End Sub
Private Sub Command7_Click()
    Rs.fields("Name") = Trim(Text1.Text)
    Rs.fields("password") = Trim(Text2.Text)
    Rs.Update
    MsgBox "数据更新成功!"
    Call disprecord
End Sub
Private Sub Command8_Click()
    Unload Me
End Sub
Private Sub Form_load()
    Set Rs = New adodb.Recordset
    Rs.locktype = adlockoptimistic
    sqlconnection = "provider=microsoft.jet.oledb.4.0;data source" & App.Path & "\cjs.mdb"
    Rs.open "select*form[user]", sqlconnection, adopendynamic
    Call disprecord
End Sub
Private Sub disprecord()
    If Rs.EOF Then Rs.moveLast
    If Rs.BOF Then Rs.moveFirst
    Text1.Text = Rs.fields("name")
    Text2.Text = Rs.fields("password")
End Sub
Private Function checkdata() As Boolean
    If Len(Trim(Text1.Text)) <= 0 Or Len(Trim(Text2.Text)) <= 0 Then
       MsgBox "输入用户名称和密码!"
       checkdata = False
    Else
       checkdata = ture
    End If
End Function
4.2“登陆系统”模块
登陆系统模块主要接收和校验登陆的用户信息在用户信息表中是否存在。如果包含该用户，弹出主窗体；否则，提示重新输入用户信息。窗体如图13。

                          图13 登陆系统窗体
                               Fig13 Login system form
程序代码如下：
Private Sub command1_click()
    If checkdata = ture Then
       suser = Trim(Text1.Text)
       spassword = Trim(Text2.Text)
           If checkuser = ture Then
              frmmain.Show
              Me.Hide
           Else
              MsgBox "用户名称和密码错误！重新输入！"
              Text1.SetFocus
           End If
    End If
End Sub
Private Function checkdata() As Boolean
    If Len(Trim(Text1.Text)) <= 0 Or Len(Trim(Text2.Text)) <= 0 Then
       MsgBox "用户名称和密码不能为空！"
       Text1.SetFocus
       checkdata = False
    Else
       checkdata = True
    End If
End Function
Private Function checkuser() As Boolean
    Dim rs As adodb.Recordset
    Set rs = New adodb.Recordset
    rs.cursortype = adopenkeyset
    rs.locktype = adlockoptimistic
    sqlconnection = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\cjs.mdb"
    rs.open "select*from [user] where name='" & Trim(suser) & "'and password='" & Trim(spassword) & "'", sqlconnection
    If rs.recordcount = 1 Then
       checkuser = ture
    Else
       checkuser = False
    End If
End Function
4.3 “主窗体”模块
主窗体模块包括一个菜单栏、一个状态栏和2个CommandButton控件。主窗体如图14。

                                      图14 主窗体模块图
                                  Fig14 Main form module chart
程序代码如下：
Private Sub Command15_Click()
    Call reg_Click
End Sub
Private Sub Form_Load()
    StatusBar1.Panels(3).Text = "用户名称：" & suser
End Sub
Private Sub Command1_Click()
    Call user_Click
End Sub
Private Sub Command10_Click()
    Call incardsearch_Click
End Sub
Private Sub Command11_Click()
    Call showtip_Click
End Sub
Private Sub Command12_Click()
    Call outcard_Click
End Sub
Private Sub Command13_Click()
    Call cardsearch_Click
End Sub
Private Sub Command14_Click()
    Call incard_Click
End Sub
Private Sub Command2_Click()
    Call customer_Click
End Sub
Private Sub Command3_Click()
    Call instore_Click
End Sub
Private Sub Command4_Click()
    Call storesearch_Click
End Sub
Private Sub Command5_Click()
    Call outstore_Click
End Sub
Private Sub Command6_Click()
    Call insearch_Click

首页上一页 1 2 3 4 5 6 下一页尾页 3/6/6

以上为本篇毕业论文范文纯净水管理系统(三)的介绍部分。

本论文在计算机论文栏目，由论文网(www.zjwd.net)整理,更多论文,请点论文范文查找

相关论文

收费专业论文
汉语言文学论文
物理学论文
自动化专业论文
测控技术专业论文
历史学专业论文
机械模具专业论文
金融专业论文
电子通信专业论文
材料科学专业论文
英语专业论文
会计专业论文
行政管理专业论文
财务管理专业论文
电子商务国贸专业
法律专业论文
教育技术学专业论文
物流专业论文
人力资源专业论文
生物工程专业论文
市场营销专业论文
土木工程专业论文
化学工程专业论文
文化产业管理论文
工商管理专业论文
护理专业论文
数学教育专业论文
数学与应用数学专业
心理学专业论文
信息管理专业论文
工程管理专业论文
工业工程专业论文
制药工程专业论文
电子机电信息论文
现代教育技术专业
新闻专业论文
艺术设计专业论文
采矿专业论文
环境工程专业论文
西班牙语专业论文
热能与动力设计论文
工程力学专业论文
酒店管理专业论文
安全管理专业论文
交通工程专业论文
体育教育专业论文
教育管理专业论文
日语专业论文
德语专业论文
理工科专业论文
轻化工程专业论文
社会工作专业论文
乡镇企业管理
给水排水专业
服装设计专业论文
电视制片管理专业
旅游管理专业论文
物业管理专业论文
信息管理专业论文
包装工程专业论文
印刷工程专业论文
动画专业论文
环境艺术专业论文
信息计算科学专业
物流专业论文范文
人力资源论文范文
营销专业论文范文
工商管理论文范文
汉语言文学论文范文
法律专业论文范文
教育管理论文范文
小学教育论文范文
学前教育论文范文
财务会计论文范文

电子商务论文范文

上一篇：三维重构技术在X光检测领域中的匹..

下一篇：五子棋游戏的开发