您的位置：360文档中心› Vb登陆界面设计

Vb登陆界面设计

合集下载

实验四-数据库原理及应用(SQL Server)(第4版)-李俊山-清华大学出版社

实验四-数据库原理及应用(SQL Server)(第4版)-李俊山-清华大学出版社

实验四数据库应用系统登录模块设计与实现实验1 实验目的本实验主要学习并验证基于SQL Server2012的数据库应用系统的用户登录模块的设计及编程方法，通过本实验：（1）基本掌握基于的可视化程序编程方法。

（2）理解SQL Server2012环境下的引用名空间与连接数据库的相关概念，掌握基于和SQL Server2012的编程实现引用名空间和连接数据库的方法。

（3）基本掌握基于和SQL Server2012的数据库应用系统登录模块的设计方法和编程方法。

（4）加深对数据库应用系统实现机理和整体架构的理解，提高学生的数据库应用系统设计与开发能力。

2 实验设备与环境（1）PC台式机或笔记本1台，以及Windows软件环境。

（2）PC机上安装的SQL Server2012软件环境。

（3）程序设计语言平台。

3 实验内容基于Visual Studio平台中的语言环境和SQL Server2012数据库管理系统进行用户登录模块设计：（1）创建users表，输入用户名和口令。

（2）基于可视化编程环境，设计登陆界面，主要应包括登录界面名称，用户名和密码文本输入框，确定和取消按钮等。

（3）基于和SQL Server2012，通过确定和取消按钮功能的实现，编程实现连接数据库和关闭数据库等功能。

（4）完成相关编程和设计工作，并进行程序调试和验证实验。

4 实验要求（1）学生可以选用其它主语言，但必须是SQL Server数据库环境。

（2）独立完成登录模块编程设计，在实验结果展示部分要给出完整的程序。

（3）通过运行过程的屏幕截图，说明系统运行情况。

5 实验过程和实验结果展示及说明5.1 users表格式及创建{ 给出设计的users表格式，以及基于SQL Server创建该表的屏幕截屏 }5.2 用户登录模块功能及程序流程图{ 简述用户登录模块的功能，并用程序流程图说明其运行过程 }5.3 相关设计方法及程序代码5.4 用户登录模块运行及验证{ 简述用户登录模块的验证思路，并用运行过程的屏幕截图说明运行情况 }6 实验工作总结及收获体会{ 工作总结包括进行实验过程的做法、实验过程中曾出现的问题及解决思路和方法等，每个学生独立完成 }。

vb用户界面设计实验报告（共9篇）

vb用户界面设计实验报告（共9篇）

vb用户界面设计实验报告(共9篇) VB第7章用户界面设计一、选择题1、下列控件中，没有Caption属性的是( )。

A. 框架B. 列表框C. 复选框D. 单选按钮2、复选框的Value属性为1时，表示( )。

A. 复选框未被选中B. 复选框被选中C. 复选框内有灰色的勾D. 复选框操作有错误3、用来设置粗体字的属性是( )。

A. FontItalicB. FontNameC. FontBoldD. FontSizeE. FontUnderline4、假定定时器的Interval属性为1000，Enabled属性为Ture，调用下面的事件过程，程序运行结束后变量x的值为( )。

Dim x As IntegerSub Timer1_Timer( )For i = 1 To 10x = x + 1Next iEnd SubA. 1000B. 10000C. 10D. 以上都不对5、在下列说法中，正确的是( )。

A. 通过适当的设置，可以在程序运行期间让定时器显示在窗体上B. 在列表框中不能进行多项选择C. 在列表框中能够将项目按字母顺序从大到小排列D. 框架也有Click和DblClick事件6、在用菜单编辑器设计菜单时，必须输入的项有( )。

A. 快捷键B. 标题C. 索引D. 名称7、在下列关于菜单的说法中，错误的是( )。

A. 每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件B. 除了Click事件之外，菜单项还能响应其他的，如DblClick等事件C. 菜单项的捷径键不能任意设置D. 在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择8、在下列关于通用对话框的叙述中，错误的是( )。

A. CommandDialog1.ShowFont显示“字体”对话框B. 在“打开”或“另存为”对话框中，用户选择的文件名可以经FileTitle属性返回C. 在“打开”或“另存为”对话框中，用户选择的文件名及其路径可以经FileName属性返回D. 通用对话框可以用来制作和显示“帮助”对话框二、填空题1、复选框( )属性设置为2——Grayed时，变成灰色，禁止用户选择。

VB6.0Access制作登陆界面超详细讲解（适合新手）

VB6.0Access制作登陆界面超详细讲解（适合新手）

VB6.0 + Access‎制作登陆界面‎&超详细讲解&（适合新手）前段时间，我也为用VB‎ 6.0制作登陆界‎面而痛苦，为此，我没少上百度‎，没少查资料，终于，现在大功告成‎了，现在我也来分‎享一下我的个‎人经验！（在说步骤之前‎，我要着重强调‎，要完成本实例‎，首先得进行的‎步骤是“工程”——>“引用”——> Micros‎o ft Active‎X Data Object‎s2.X Librar‎y,即ADO(建议用2.6往上)）步骤一：建立数据库要想用Acc‎e ss中存放‎的帐号数据来‎登陆，肯定要先有存‎放帐号密码的‎数据库吧，这里假设我们‎用到的数据库‎为 Test ，其中有一张表‎，叫做test_i‎nfo ，表中有两个字‎段，分别是userID‎和 passwo‎r d ，分别存放登陆‎帐号和密码。

步骤二：新建窗体①在VB中，本就有现成的‎登陆窗体，我们可以直接‎选择，当然，也可以创建一‎个空白的窗体‎，我们自己添加‎内容（即“控件”），然后Capt‎i on 属性设置为“登陆”或者“login”，当然，也可以自己随‎意添加，主要用来让窗‎口显示我们希‎望的标题。

②建立登陆界面‎，肯定是想登陆‎成功后进入另‎一个界面，因此，我们需要再添‎加一个窗体，用来验证登陆‎是否成功，在这里，我们将这个窗‎体的Name‎(名称) 属性设为默认‎的Form2步骤三：设置窗体首先向新建的‎窗体分别添加‎两个 Label 控件、两个 TextBo‎x控件和两个Comman‎d Butto‎n，各控件属性如‎下表：如果想让按下‎回车就默认选‎择“确定”按钮，只需将 Comman‎d1 的Defau‎l t 属性更改为 True 即可，设置好后的窗‎体如下图步骤四:填写代码（最重要的一步‎）说到代码，我想就是大家‎最关切的问题‎了，那我就具体来‎说说这个代码‎吧，首先双击窗体‎，打开代码编辑‎界面，输入如下代码‎：Privat‎e Sub Form_L‎o ad() ‘此段代码的主‎要作用是当窗‎体打开时就连‎接数据库Dim conn As New ADODB.Connec‎t ionDim connec‎t ionst‎r ing As String‎Connec‎t ionst‎r ing = "Provid‎e r=Micros‎o ft.Jet.OLEDB.4.0;Data Source‎=" & "E:\Test.mdb;Persis‎t Securi‎t y Info=False" ‘将Data Source‎处的路径改为‎你本机数据库‎所在路径即可‎conn.Open connec‎t ionst‎r ingEnd Sub接着双击“确定”，同样的，输入如下代码‎：Privat‎e Sub Comman‎d1_Cli‎c k()Dim sql As String‎Dim conn As New ADODB.Connec‎t ionDim rs_log‎i n As New ADODB.Record‎s etIf Trim(Text1.Text) = "" Then ‘检测用户名正‎确与否MsgBox‎"用户名不能为‎空，请重新输入！", vbOkOn‎l y + vbExcl‎a matio‎n, "错误"Text1.SetFoc‎u sElsesql = "select‎* from Test where test_i‎n fo = '" & Text1.Text & "'" rs_log‎i n.Open sql, conn, adOpen‎K eyset‎, adLock‎P essim‎i sticIf rs_log‎i n.EOF = True ThenMsgBox‎"用户名不存在‎，请重新输入！",vbOkOn‎l y + vbExcl‎a matio‎n, "错误"Text1 = ""Text1.SetFoc‎u sElse ‘检测密码正确‎与否If Trim(rs_log‎i n.Fields‎(1)) = Trim(Text2) Thenrs_log‎i n.CloseUnload‎MeForm2.ShowElseMsgBox‎"密码错误，请重新输入！", vbOKOn‎l y + vbExcl‎a matio‎n, "错误"Text2.SetFoc‎u sEnd IfEnd IfEnd IfEnd Sub最后双击“取消”按钮，输入如下代码‎：Privat‎e Sub Comman‎d2_Cli‎c k()MsgBox‎"您已成功退出‎！", vbOkOn‎l y + vbExcl‎a matio‎n, "提示"Unload‎MeEnd Sub如果想加入三‎次输入错误就‎退出的功能，这个倒网上找‎个小代码加入‎Comman‎d_Clic‎k()就行了，思路是定义一‎个变量，赋初值为 0 ，错误一次，这个变量增加‎1，如果这个变量‎等于 3 了，就 Unload‎Me。

vb课程设计电子文档

vb课程设计电子文档

目录一、程序设计的需求分析与设计目标 (2)1.1课程设计的目的 (2)二、界面设计 (2)2.1程序首页 (2)2.2 登陆界面 (3)2.3索引目录 (4)2.4 XX宿舍简介 (4)2.5个人信息 (5)2.6宿舍成员简介 (6)2.7文艺展览 (7)2.8信息记录与预览 (8)2.9结束界面 (9)三、触发顺序流程图 (10)四，源程序代码.......................................................................... 错误！未定义书签。

4.1 程序首页............................................................................... 错误！未定义书签。

4.2 登陆界面............................................................................... 错误！未定义书签。

4.3索引目录................................................................................ 错误！未定义书签。

4.4 XX宿舍简介......................................................................... 错误！未定义书签。

4.5 个人信息............................................................................... 错误！未定义书签。

4.6 宿舍成员简介....................................................................... 错误！未定义书签。

数据库课程设计---图书管理系统

数据库课程设计---图书管理系统

目录第1章绪论 -------------------------------------------------------- 2 1.1系统开发背景介绍---------------------------------------------- 2 1.2开发工具的选择------------------------------------------------ 2 1.3系统主要内容简介--------------------------------------------- 2第2章需求分析 ---------------------------------------------------- 3 2.1 总体需求----------------------------------------------------- 3 2。

2 管理员的需求分析--------------------------------------------- 3 2。

3 借阅/还书的需求分析------------------------------------------ 3 2.4 借阅者的需求分析---------------------------------------------- 3 2.5 图书信息的需求分析-------------------------------------------- 3 2.6 实际功能------------------------------------------------------ 4第3章概念结构设计 ------------------------------------------------ 5 3.1 E-R图简介---------------------------------------------------- 5 3。

2本系统的总体E-R图------------------------------------------- 6第4章数据库设计 -------------------------------------------------- 7 4。

程序的设计--客房管理系统的设计毕业设计

程序的设计--客房管理系统的设计毕业设计

唐山学院毕业设计设计题目： 程序设计--客房管理系统系别：班级：姓名：指导教师：2012年8月31 日 程序设计----客房管理系统摘要本文主要针对客房信息管理系统设计原则以及步骤的一个简单的介绍客房信息管理系统将是客房普遍应用的系统。

因此作为计算机应用专业的人员不仅要掌握数据库的知识，而且要开发适应的系统达到学以致用的目的，才能体现出大学生的素质所在。

本系统主要对客房的基本设置进行浏览添加、修改、删除等操作，以及对客户的基本信息浏览添加、修改、删除等操作。

而且包括用户权限的设置。

附加功能主要有帮助信息，系统简单易懂，用户操作起来既轻松又便捷。

关键字:客房管理系统数据库用户权限目录摘要 (1)关键字 (1)一、概述 (2)1.1目的以及意义 (2)1.2系统实现的具体功能 (2)1.3系统的主要特点 (2)1.4系统运行的软、硬件环境 (2)二、功能需求分析 (3)2.1社会背景和发展状况 (3)2.2功能需求分析 (3)2.3系统性能分析 (3)三、系统设计 (3)3.1软件的开发环境和开发平台 (3)3.2系统框架图 (4)3.3项目设计方案说明 (4)四、技术实现 (5)4.1数据库的设计 (5)4.2界面设计 (7)五、总结 (12)参考文献 (14)附录 (15)一、概述随着经济文化水平的显著提高，人们对生活效率的提高，客房管理是各大宾馆的主要日常管理工作之一，涉及到登记、结算等各个方面，随着计算机的飞速发展，尤其是以计算机与通信技术为基础的信息系统正处于蓬勃发展的时期。

客房管理工作日趋繁重、复杂的工作。

迫切需要研制开发一款功能强大，操作简单，具有人性化的客房管理系统。

1.1目的以及意义客房管理系统是与我们日常生活息息相关的问题。

客房管理日益复杂, 这就需要借助日益发达的计算机技术和信息技术, 来建立一个客房管理系统作为管理辅助手段, 减少劳动强度, 提高服务质量和管理水平, 进而促进经济效率, 为客房的有效运行提供保障。

vb qq

vb qq

实验四QQ登录应用程序
Combo1中选择收入标准，Text1中显示相应的税率；组合框中的数据项可在属
图1 QQ登录界面图2 QQ好友展示界面图3 好友聊天界面
登录界面好友展示界面个人资料聊天界面
作品功能介绍：
1.qq登陆界面功能，QQ图片展示QQ账号密码输入，密码字符为*登录按钮，检测账号密码正确进入好友展示界面。

具备查杀木马功能（可选如果账号输入有误，给出msgbox消息框。

7. 添加combo 控件，实现登录状态（在线、隐身、离开）选择，使用public变量实现好友状态显示
自己的在线状态颜色随机变幻；换肤功能，单击“换肤”，窗体背景色变换颜色；
QQ聊天界面分组显示成员头像；单击个人头像显示个人资料；
个人资料功能，显示跟人资料；计算工资所得税；你到已经快乐生活了多少天，其中学习用了多少小时，睡觉用了多少小时；
聊天窗口功能，复制，粘贴，剪切。

发送消息；改变字体颜色；。

vb_可视化编程技术课程设计--企业销售合同管理系统

vb_可视化编程技术课程设计--企业销售合同管理系统

辽宁工业大学可视化编程技术课程设计（论文）题目：企业销售合同管理系统院（系）：专业班级：学号：学生姓名：指导教师：姜瑶教师职称：助教起止时间： 2012.11.26至2012.12.9课程设计（论文）任务及评语目录第1章课程设计目的与要求 (1)1.1 课程设计目的 (1)1.2 课程设计的实验环境 (1)1.3 课程设计的预备知识 (1)1.4 课程设计要求 (1)第2章课程设计内容 (2)2.1 系统功能设计 (2)2.2 系统详细设计 (2)2.3 系统运行与测试 (15)第3章课程设计总结 (16)参考文献 (17)第1章课程设计目的与要求1.1 课程设计目的本课程的课程设计实际是学生学习完《可视化编程技术》课程后，进行的一次全面的综合训练，其目的在于加深对可视化编程技术基本知识的理解，掌握运用VB开发应用程序的基本方法及基本技巧。

1.2 课程设计的实验环境硬件要求能运行Windows 9.X操作系统的微机系统。

软件：Microsoft Visual Basic 6.0Microsoft Access 20031.3 课程设计的预备知识熟悉Visual Basic 6.0程序设计的基本语法知识及常用技巧。

1.4 课程设计要求按课程设计指导书提供的课题，每个小组设计一个完整的管理系统应用程序。

要求根据规定设计系统的具体要求，按照应用程序的设计步骤和VB的基本知识应用程序的分析与实现。

应根据基本学时分配合理安排设计时间，并独立完成各方面的设计。

选择同一题目的同学，可以共同协作完成一个应用程序的开发任务。

要求书写详细的设计说明书，对有复杂的代码段和程序段的部分，应画出程序流程图，写出全部的代码。

在界面设计中，需画出每个窗体的布局，进行属性说明，杜绝雷同。

第2章课程设计内容2.1系统功能设计2.1.1 系统功能分析主要完成学生成绩的管理，包括：（1）排课管理。

主要完成课程的添加、修改、删除和查询。

QQ登录界面代码

QQ登录界面代码

QQ登录界面代码login.asp:<form name="login" method="post" action="after_login.asp"> 用户名:<input name="user_name" size="12" maxlength="16">密码:<input name="password" size="12" type="password"maxlength="16"><input align="absMiddle" id="image1" name="image1"src="images/login.gif" type="image" WIDTH="37" HEIGHT="20"> </form>coon.asp:<%connstr = "DBQ=" + server.mappathuser.mdb") +";DRIVER={Microsoft Access Driver (*.mdb)}"Set conn=Server.createobject("ADODB.CONNECTION")conn.Open connstr%>外加after_login.asp登录验证页面:<!--#include file="Conn.Asp"--><%Dim UserName,PassWordUserName=replace(trim(Request.Form("Username")),"'","‘") PassWord=replace(trim(Request.Form("PassWord")),"'","‘")If UserName="" or PassWord="" ThenResponse.Write ("<script>alert('会员登陆失败!\n\n错误原因:会员帐号和密码未填。

数据库VB编写公司产品信息管理系统界面源代码

数据库VB编写公司产品信息管理系统界面源代码

If (Adodc1.Recordset.RecordCount = 0) Then '无记录才可注册新用户
If KEY1.Text = KEY2.Text Then
Adodc1.Recordset.AddNew
Adodc1.Recordset("用户名") = USERNAME.Text
strName = "'" + FIND_USER.Text + "'"
Adodc1.RecordSource = "select * from 产品清单 where 型号 = " + strName
Adodc1.Refresh
End SLeabharlann b ///////////////////////////////////////////////
制作人：成都信息工程学院 => 缪林
///////////////////////////////////////////////
本数据库操作软件实现的是公司产品信息管理，在VB平台上创建可操作界面，实现功能有：
Adodc1.Refresh
DataGrid1.Col = UserCol
Adodc1.Recordset.Delete '删除
Adodc1.Recordset.Update
Adodc1.RecordSource = "select * from 产品清单"
Adodc1.Recordset("价格") = blank3.Text
Adodc1.Recordset("产地") = blank4.Text

(初稿一)VB的图书管理系统设计与实现

(初稿一)VB的图书管理系统设计与实现

毕业设计(论文)题目：郫县三中图书管理系统设计与实现姓名：高建指导教师：袁乖宁专业：计算机网络技术层次：专科成绩评定表毕业论文（设计）任务书目录1.前言 (1)1.1系统开发的背景 (1)1.2系统开发的目的及意义 (1)1.3系统开发环境 (2)2.1可行性分析 (3)2.2系统功能需求分析 (3)2.3数据流程分析 (5)2．31数据流图 (5)4．系统详细设计及实现 (11)4.1启动登录 (11)4.2新书入库 (12)4.3图书信息查询 (12)4.4新证登记 (13)4.5密码修改 (14)5．实施概况 (16)5.1系统测试 (16)5.2系统运行与维护 (16)5.3系统的转换方案 (17)结论 (18)谢辞 (18)参考文献: (19)摘要随着人类社会的发展，人类对知识的需求也不断地增长。

在这种形势下，书籍就渐渐地成为人们获取并增长知识的主要途径，而图书馆就自然而然地在人们的生活中占据了一定的位置，如何科学地管理图书馆不但关系到读者求知的方便程度，也关系到图书馆的发展，因此，开发一套完善的图书馆管理系统就成不可少了。

本文介绍了在Visual Basic6.0环境下采用“自上而下地总体规划，自下而上地应用开发”的策略开发本系统的详细过程，提出实现图书馆信息管理、资源共享的基本目标，从而推动迈向数字化图书馆的步伐，并阐述系统结构设计和功能设计，从图书的入库登记到查询浏览，从借书证发放到图书的借阅，形成了一个整体自动化管理模式。

关键词：图书管理 Visual Basic Access1.前言随着电子计算机和通信技术的发展，人类已经逐渐地进入信息化社会。

信息和材料、能源一样成为一种社会的基本生产资料，在人类的社会生产活动中发挥着重要的作用。

同时人们对信息和数据的利用与处理也已进入自动化、网络化和社会化的阶段，因此，开发相关的管理信息系统已经成为各行各业的必要和必需了，管理信息系统作为一门边缘学科，集管理科学、信息科学、系统科学、现代通信技术和电子计算机技术于一体，可以解决企业或组织所面临的问题，对内来看，可以提高工作效率；对外来看，获得竞争优势。

VB+SQL学生信息管理系统

VB+SQL学生信息管理系统

计算机网络数据库设计题目: 学生信息管理系统学号xx姓名xx专业xxxx日期2006年12月8日随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长。

面对庞大的信息量需要有学生管理系统来提高学生管理工作的效率。

通过这样的系统可以做到信息的规范管理、科学统计和快速查询、修改、增加、删除等，从而减少管理方面的工作量。

本系统主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、规范化和自动化，其主要任务是用计算机对学生各种信息进行日常管理，如查询、修改、增加、删除，另外还考虑到学生选课，针对这些要求设计了学生信息管理系统本系统主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、规范化和自动化，其主要任务是用计算机对学生各种信息进行日常管理，如查询、修改、增加、删除，另外还考虑到学生选课，针对这些要求设计了学生信息管理系统。

本系统主要包括学生信息查询、教务信息维护和学生选课三部分。

其功能主要有：⒈有关学籍等信息的输入，包括输入学生基本信息、所在班级、所学课程和成绩等。

⒉学生信息的查询，包括查询学生基本信息、所在班级、已学课程和成绩等。

⒊学生信息的修改。

⒋班级管理信息的输入，包括输入班级设置、年级信息等。

⒌班级管理信息的查询。

⒍班级管理信息的修改。

⒎学生课程的设置和修改。

学生信息管理系统是为本校开发的，本系统所采用的语言是Visual Basic，用Microsoft Access 2000数据库完成。

该系统总体有四部分组成，包括学生信息查询、教务信息维护、学生选课及用户管理。

通过本系统，把本校内部查询学生信息、教务信息、学生选课各个环节进行有效地计划、组织和控制。

通过本校内部的信息，依据统一数据信息进行管理，把任何一块信息所产生的数据变动及时地反映给其它相关信息，做到数据共享。

本系统主要信息流程为：教务信息维护接受学生的信息，学生信息查询根据教务信息维护的学生信息做出对所接收的信息合理性进行判断，并交于信息维护进行相应的修改，再把信息存入数据库中。

VB课堂点名回答问题系统的设计与实现

VB课堂点名回答问题系统的设计与实现

VB课堂点名回答问题系统的设计与实现目录中文摘要 (Ⅰ)英文摘要 (Ⅱ)第一章标题 (1)第一节标题 (1)一、 (2)二、 (3)第二节标题·······················一、··························二、··························第二章标题·························第一节标题·······················一、··························二、··························第二节标题·······················一、··························二、··························参考文献··························附录（可选）························致谢····························第一章前言第一节研究背景及目的意义近些年来，我国大学生的整体素质不断下降，一方面是由于政策上的放松，另外一个不可忽视的原因便是大学课堂越来越低的到课率。

vb程序设计登陆界面代码详例

vb程序设计登陆界面代码详例

vb程序设计登陆界面代码详例Imports System.Data.SqlClientPublic Class frmMagementMain'Inherits System.Windows.Forms.FormDim constr As String = "User ID=sa;pwd=a;Initial Catalog=zbb;Data Source=(local)" '定义一个变量，连接字符串Dim sqlstr As String = "select * from manid" '定义一个变量，SQL语句Dim mycon As New SqlConnection(constr) '定义一个变量，为一个连接对象Dim mycom As New SqlCommand(sqlstr, mycon) '定义一个变量，为命令对象Dim myReader As SqlDataReader '定义一个变量，阅读器Dim i As Integer = 0Dim userIDsys() As ArrayPrivate Sub frmMagementMain_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Loadmycon.Open() '打开这个联接myReader = mycom.ExecuteReader '把这个命令的连接送入阅读器myReader.Read()Dim k As Integer = 0While myReader.Read 'while 为遍历集合的每一项，用阅读器的read的方法来读取'定义一个变量的第一项k = k + 1'MsgBox(myReader.Item(1))End WhileMsgBox(k)End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click' Visual Basic 2005' Declare a new TextBox.Dim TextBox2 As New TextBox' Set the location below the first TextBoxTextBox2.Left = 102TextBox2.Top = 242' Add the TextBox to the form's Controls collection.Me.Controls.Add(TextBox2)TextBox2.Text = "这可是我动态加的控件呀"End SubPrivate Sub mnu_magement_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles mnu_magement.ClickDim frmlogin As frmlogin = New frmloginfrmlogin.Show()'GBmagemetPeple.Left = 8'GBmagemetPeple.Top = 28'GBmagemetPeple.Visible = TrueEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.ClickEnd SubEnd Class/////////////////////////////////////Imports System.Data.SqlClientPublic Class frmloginDim i As Integer = 0Dim constr1 As String = "" '定义一个变量，连接字符串Dim sqlstr1 As String = ""Dim mycon1 As New SqlConnection(constr1) '定义一个变量，为一个连接对象Dim mycom1 As New SqlCommand(sqlstr1, mycon1) '定义一个变量，为命令对象Dim myReader1 As SqlDataReader '定义一个变量，阅读器Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles OK_Button.ClickIf txtUsename.Text = "" Or txtPassword.Text = "" ThenMsgBox("请输入用户名和密码")Exit SubEnd Ifsqlstr1 = "select * from mgpep where usernameID='" & txtUsename.Text & "' andpasswordID='" & txtPassword.Text & "'" '定义一个变量，SQL语句constr1 = "User ID=sa;pwd=a;Initial Catalog=SaleCD;DataSource=(local)" '定义一个变量，连接字符串mycon1.ConnectionString = constr1mandText = sqlstr1mycon1.Open() '重新打开这个联接myReader1 = mycom1.ExecuteReader '第二次把这个命令的连接送入阅读器If myReader1.VisibleFieldCount = 0 ThenMsgBox("密码不对请重新输入～")Exit SubEnd IfmyReader1.Read() '阅读器重新使用read方法On Error GoTo ssIf myReader1(0) > 0 ThenfrmMagementMain.GBmagemetPeple.Visible = Truesqlstr1 = "select * from mgpep"If mycon1.State = 1 Thenmycon1.Close()End Ifmycon1.Open()myReader1 = mycom1.ExecuteReader '把这个命令的连接送入阅读器Dim userIDsys(myReader1.VisibleFieldCount - 1, 2)'ReDim userIDsys(10, 2)Dim k As Integer = 0While myReader1.ReadfrmMagementMain.CmbUser.Items.Add(myReader1(0)) For i = 0 To 2userIDsys(k, i) = myReader1.Item(i)Nextk = k + 1End WhileMsgBox("已经成功登录～")mycon1.Close()Me.Close()Exit SubElseMsgBox("您没有权限登录～")mycon1.Close()Me.Close()Exit SubEnd Ifss:MsgBox("您没有权限登录～")Me.Close()End SubPrivate Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Cancel_Button.ClickMe.Close()End SubEnd ClassPublic ADOcn As ConnectionPublic Sub main()Dim strSQLServer As StringstrSQLServer = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=图书销售管理系统;DataSource=longmingxue\SQLEXPRESS"Set ADOcn = New ConnectionADOcn.Open = strSQLServerFrmMain.ShowEnd SubPrivate Sub Command1_Click()Dim ADOrs As New RecordsetDim strSQL As StringDim strXB As StringADOrs.ActiveConnection = ADOcnADOrs.Open "select 学号 from 学生表"If Not ADOrs.EOF ThenMsgBox "该学号已经存在，不能继续添加～", vbCritical + vbOKOnly, "信息提示"ElseIf Option1.Value ThenstrXB = "男"ElsestrXB = "女"End IfstrSQL = "Insert Into 学生表( 学号,姓名,性别)"strSQL = strSQL + " Values('" + Text1 + "','"strSQL = strSQL + Text2 + "','" + strXB + "')"ADOcn.Execute strSQLMsgBox "添加成功～", vbOKOnly, "信息提示"End IfEnd Sub。

计算机毕业设计论文_基于VB Access小区水电管理系统

计算机毕业设计论文_基于VB Access小区水电管理系统

摘要 (1)Abstract (2)第一章引言 (4)1．1 课题背景 (4)1．2 系统简介 (5)第二章系统的分析 (6)2．1 系统开发的目标和思想 (6)2．2 系统的可行性分析 (8)第三章系统的设计 (18)3．1 系统的功能结构设计 (18)3．2 系统的数据库设计3．3 界面设计与代码设计 (23) (24)结束语 (46)致谢 (47)参考文献 (48)摘要传统的电费管理都是由工作人员手工查表,抄表完成的,其中要完成用户电费的收取,每月抄度,用户购电情况查询,以及列出欠费用户的信息名单,之类的信息.其工作强度大,工作流程繁琐,由于工作人员的不细心,将会造成电费收支的出错也是经常发生的.鉴于以上原因我们有必要开发一种帮作电费管理人员的软件系统,可以完成检查用户用电情况,每月抄度,信息录入以及基本数据维护的各项功能.本系统采用visual basic 6.0与微软Access数据库方式.界面尽量做到人性化,数据维护方面做到可靠安全.关键字: 电费管理,visual basic, Access,数据库AbstractElectricity from the traditional management staff are artisanal Chabiao, meter reading completed, which should be completed by the users of electricity per month penalty for users to buy electricity enquiries, and a list of user information channels list such information. Its work-intensive, cumbersome workflow, because staff are not careful. would result in the tariff revenue is recurring mistakes. Given the above reasons we need to develop a management software to help make electricity system, the user can complete the inspection of electricity monthly copied degrees, Information includes basic data and the maintenance function. with the system using visual basic Microsoft Access 6.0 database. as far as possible humanization interface, data maintenance to reliable security.keyword : tariff management, visual basic, Access, the database第一章引言1．1课题背景传统的电费管理都是由工作人员手工查表,抄表完成的,其中要完成用户电费的收取,每月抄度,用户购电情况查询,以及列出欠费用户的信息名单,之类的信息.其工作强度大,工作流程繁琐,由于工作人员的不细心,将会造成电费收支的出错也是经常发生的.鉴于以上原因我们有必要开发一种帮作电费管理人员的软件系统,可以完成检查用户用电情况,每月抄度,信息录入以及基本数据维护的各项功能.本系统采用visual basic 6.0与微软Access数据库方式.界面尽量做到人性化,数据维护方面做到可靠安全.1．2系统简介本系统主要由以下几大功能模块组成:一. 用户交费:(交纳电费,本日小节)二.本月抄度:(单户抄度多户抄度)三.资料导出(全部清单,欠费清单)四.数据查询(电费查询与统计,用户欠费查询)五.信息录入(资料录入,资料修改, 资料删除)六.系统数据维护(数据备份,数据恢复)七.基本数据维护(用户类型维护, 操作员维护)八.帮助九.退出第二章系统的分析2．1系统开发的目标和思想本系统主要服务于电费管理人员的日常工作.设计思路主要参照工作人员抄表,记录资料,资料管理,信息录入等方面的工作流程展开的.2．2系统的可行性分析本系统采用visual basic6.0与微软的access作为数据库结合.在系统编写上具有可行性.经济方面:本系统可以服务电厂,电费管理单位,为企业节省人力开支.社会方面:服务于大众,方便抄表人员工作,可靠方便.第三章系统的设计3．1系统的功能结构设计3．2系统的数据库设计1.用户类型表:2.密码表:3.MaxID表:3．3界面设计与代码设计1.用户登陆界面设计:3．4界面设计与代码设计用户登陆界面代码分析:Private Sub Command1_Click()Dim rstpchard As New ADODB.RecordsetDim reHard As StringDim getid As StringreHard = GetpcHard(getid)rstpchard.Open "select * from getpchard ", gCnn, adOpenKeyset, adLockBatchOptimisticIf rstpchard.RecordCount = 0 Thenrstpchard.AddNewrstpchard.Fields(0) = reHardrstpchard.UpdateBatch adAffectCurrentElseIf Trim(reHard) <> Trim(rstpchard.Fields(0)) ThenMsgBox " 对不起，使用不合法请与开发者联系！", vbInformationEndEnd IfEnd IfIf Check1.Value = 1 ThenSet rec = New ADODB.Recordsetrec.Open "select * from 记住密码", gCnn, 3, 3rec("标记") = "1"If Combo2.Text <> "" Thenrec("姓名") = Combo2.TextElserec("姓名") = ""End IfIf Combo1.Text <> "" Thenrec("权限") = Combo1.TextElserec("权限") = ""End IfIf Text2.Text <> "" Thenrec("密码") = Text2.TextElserec("密码") = ""End Ifrec.Updaterec.CloseElseSet rec = New ADODB.Recordsetrec.Open "select * from 记住密码", gCnn, 3, 3rec("标记") = "0"rec.Updaterec.CloseEnd IfDim rec1 As ADODB.RecordsetSet rec1 = New ADODB.Recordsetrec1.Open "select * from 登录人员", gCnn, 3, 3Set rec = New ADODB.Recordsetrec.Open "select * from 密码表where 姓名='" & Combo2.Text & "'and 操作权限='" & Combo1.Text & "'and 密码='" & Text2.Text & "'", gCnn, 3, 3If rec.EOF = False ThenIf rec("操作权限") <> "管理员" Then' FRMMAIN.XZCK.Enabled = FalseMDIme.mczy.Enabled = FalseMDIme.xtwh.Enabled = FalseMDIme.del.Enabled = False' FRMMAIN.DJGL.Enabled = False' FRMMAIN.delte.Enabled = FalseElse' Me.XZCK.Enabled = TrueMDIme.mczy.Enabled = TrueMDIme.xtwh.Enabled = TrueCreateNewKey HKEY_CURRENT_USER, "ZhiYuanTechnologe"SetKeyValue HKEY_CURRENT_USER, "ZhiYuanTechnologe", "UserName", dlj, REG_SZSetKeyValue HKEY_CURRENT_USER, "ZhiYuanTechnologe", "PassWord", dlj, REG_SZ' FRMMAIN.DJGL.Enabled = True' FRMMAIN.delte.Enabled = TrueEnd Ifrec1("姓名") = Combo2.Textrec1.Updaterec1.CloseMe.HideGuser = Combo2.TextMDIme.ShowElseMsgBox "权限或密码不正确，请重试!", vbInformationEnd Ifrec.CloseEnd SubPrivate Sub Command11_Click()End SubPrivate Sub Command2_Click()Combo2.Text = ""Text2.Text = ""Combo1.Text = ""End SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Command4_Click()Me.HideFRMMMXG.Show 1End SubPrivate Sub Form_Activate()Text2.Text = ""Combo1.Text = ""Combo2.Text = ""Set rec = New ADODB.Recordsetrec.Open "select * from 记住密码", gCnn, 3, 3If rec("标记") = "0" Or rec("标记") = "1" ThenCheck1.Value = rec("标记")End Ifrec.CloseSet rec = New ADODB.Recordsetrec.Open "select * from 记住密码", gCnn, 3, 3If rec("标记") = 1 ThenCombo2.Text = rec("姓名")Combo1.Text = rec("权限")Text2.Text = rec("密码")End Ifrec.CloseCommand1.SetFocusEnd SubPrivate Sub Form_Load()gCnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password= " & DbPassword & " ;Data Source= " & _App.Path & "\data\dbdb.mdb;Persist Security Info=False"gCnn.CursorLocation = adUseClientgCnn.OpenSet rec = New ADODB.Recordsetrec.Open "select distinct 姓名from 密码表", gCnn, 3, 3With Combo2Do Until rec.EOF.AddItem rec("姓名")rec.MoveNextLoopEnd Withrec.CloseSet rec = NothingEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Cancel = TrueSelect Case MsgBox("此操作将退出本系统，继续吗？", vbYesNo, "警告") Case vbYesCancel = FalseEndCase ElseCancel = TrueEnd SelectEnd Sub2.主界面设计:主界面代码设计:Private Sub alllm_Click()frmList.qfFlg = FalsefrmList.ShowEnd SubPrivate Sub backup_Click()frmbeifen.ShowEnd SubPrivate Sub benrixiaojie_Click() frmCount.ShowEnd SubPrivate Sub Command1_Click() frameFee.Visible = FalseEnd SubPrivate Sub cmdQuery_Click()Dim rst As New ADODB.Recordsetrst.Open " select * from panelinfo where holder='" & Me.txtUser & "' and delflag<>true ", gCnn, adOpenStatic, adLockBatchOptimisticIf rst.RecordCount <> 0 Thendcvalue.Text = rst.Fields(2)txtUserName(0) = rst.Fields(1)txtUserName(1) = rst.Fields!nowecounttxtUserName(2) = rst.Fields!cendcodedtpwdate.Value = rst.Fields(4)txtUserName(3) = Format(rst.Fields!lMoney, "###0.00")txtUserName(4) = Format(rst.Fields!bmoney, "###0.00")txtUserName(6) = Format(rst.Fields!lsFee, "###0.00")'txtUserName(5) = txtUserName(1) * rst.Fields!lMoney *(rst.Fields!lightScale / 100) + txtUserName(1) * txtUserName(4) * (1 -rst.Fields!lightScale / 100)txtUserName(5) = Format(txtUserName(1) * rst.Fields!lMoney * (rst.Fields!lightScale / 100) + rst.Fields!nowecount * rst.Fields!bmoney * (1 - rst.Fields!lightScale / 100), "###0.00")txtUserName(8) = rst.Fields(9)txtUserName(7) = Format(Val(txtUserName(5)) + Val(txtUserName(6)), "####0.00")dcNum.Text = rst.Fields(1)ElseMsgBox " 没有查询到数据! ", vbInformationEnd Ifrst.CloseSet rst = NothingEnd SubPrivate Sub dcNum_Click(Area As Integer)Dim rst As New ADODB.Recordsetrst.Open " select * from panelinfo where holderid='" & dcNum.Text & "'and delflag<>true ", gCnn, adOpenKeyset, adLockBatchOptimisticIf Not rst.EOF Thendcvalue.Text = rst.Fields(2)txtUserName(0) = rst.Fields(1)txtUserName(1) = rst.Fields!nowecounttxtUserName(2) = rst.Fields!cendcodedtpwdate.Value = rst.Fields(4)txtUserName(3) = Format(rst.Fields!lMoney, "###0.00")txtUserName(4) = Format(rst.Fields!bmoney, "###0.00")txtUserName(6) = Format(rst.Fields(8), "####0.00")txtUserName(5) = Format(txtUserName(1) * txtUserName(3) *(rst.Fields!lightScale / 100) + txtUserName(1) * txtUserName(4) * (1 -rst.Fields!lightScale / 100), "####0.00")txtUserName(8) = rst.Fields(9)txtUserName(7) = Format(Val(txtUserName(5)) + Val(txtUserName(6)), "####0.00")End Ifrst.CloseEnd SubPrivate Sub dcvalue_Click(Area As Integer)Dim rst As New ADODB.Recordsetrst.Open " select * from panelinfo where holderid='" & dcvalue.BoundText & "' and delflag<>true ", gCnn, adOpenStatic, adLockBatchOptimistic If Not rst.EOF Thendcvalue.Text = rst.Fields(2)txtUserName(0) = rst.Fields(1)txtUserName(1) = rst.Fields!nowecounttxtUserName(2) = rst.Fields!cendcodedtpwdate.Value = rst.Fields(4)txtUserName(3) = Format(rst.Fields!lMoney, "###0.00")txtUserName(4) = Format(rst.Fields!bmoney, "###0.00")txtUserName(6) = Format(rst.Fields!lsFee, "###0.00")'txtUserName(5) = txtUserName(1) * rst.Fields!lMoney *(rst.Fields!lightScale / 100) + txtUserName(1) * txtUserName(4) * (1 -rst.Fields!lightScale / 100)txtUserName(5) = Format(txtUserName(1) * rst.Fields!lMoney *(rst.Fields!lightScale / 100) + rst.Fields!nowecount * rst.Fields!bmoney * (1 -rst.Fields!lightScale / 100), "###0.00")txtUserName(8) = rst.Fields(9)txtUserName(7) = Format(Val(txtUserName(5)) + Val(txtUserName(6)), "####0.00")dcNum.Text = rst.Fields(1)End Ifrst.CloseSet rst = NothingEnd SubPrivate Sub dcvalue_KeyPress(KeyAscii As Integer)KeyAscii = 0End SubPrivate Sub del_Click()frmdel.ShowEnd SubPrivate Sub dhcb_Click() usrcopyP.ShowEnd SubPrivate Sub dhcp_Click() frmCopyP.ShowEnd SubPrivate Sub duohu_Click() frmCuifei.muser1 = 2frmCuifei.ShowEnd SubPrivate Sub edit_Click() frmEdit.ShowEnd SubPrivate Sub exit_Click()EndEnd SubPrivate Sub insert_Click() frmInsert.Show 1End SubPrivate Sub jiaonadianfei_Click() frmFee.ShowEnd SubPrivate Sub M_USERYTPE_Click() FRMUSERTYPE.Show 1End SubPrivate Sub MDIForm_Load()loadAddEnd SubPublic Sub loadAdd()If rst.State = 1 Thenrst.CloseEnd Ifrst.Open " select * from panelinfo where delflag<>true ", gCnn, adOpenKeyset, adLockBatchOptimisticIf rst.RecordCount <> 0 ThenSet dcvalue.RowSource = rstdcvalue.BoundColumn = "holderID"dcvalue.ListField = "holder"Set dcNum.DataSource = rstSet dcNum.RowSource = rstdcNum.ListField = "holderid"If Not rst.EOF ThendcNum.Text = rst.Fields!holderiddcvalue.Text = rst.Fields(2)txtUserName(0) = rst.Fields(1)txtUserName(1) = rst.Fields!nowecounttxtUserName(2) = rst.Fields!cendcodedtpwdate.Value = rst.Fields(4)txtUserName(3) = Format(rst.Fields!lMoney, "##0.00")txtUserName(4) = Format(rst.Fields!bmoney, "###.0.00")txtUserName(6) = rst.Fields!lsFeetxtUserName(5) = Val(txtUserName(1)) * Val(txtUserName(3)) *(Val(rst.Fields!lightScale) / 100) + Val(txtUserName(1)) * Val(txtUserName(4)) * (1 - rst.Fields!lightScale / 100)txtUserName(8) = rst.Fields(9)txtUserName(7) = Val(txtUserName(5)) + Val(txtUserName(6))rst.Fields!cFeeMoney = txtUserName(7)rst.UpdateBatch adAffectCurrentEnd IfEnd IfEnd SubPublic Sub loadData(Hid As String)Dim rst As New ADODB.RecordsetDim cnn As New ADODB.ConnectionDim Atimes As IntegerDim sqlAdd As Stringcnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password= " & DbPassword & " ;Data Source= " & _App.Path & "\data\dbdb.mdb;Persist Security Info=False"cnn.CursorLocation = adUseClientcnn.OpenIf Trim(Hid) <> "" Thenrst.Open " select * from panelinfo where holderid='" & Hid & "' and delflag<>true ", cnn, adOpenStatic, adLockBatchOptimisticElserst.Open " select * from panelinfo where delflag<>true ", cnn, adOpenStatic, adLockBatchOptimisticEnd IfIf Not rst.EOF ThendcNum.Text = rst.Fields!holderiddcvalue.Text = rst.Fields(2)txtUserName(0) = rst.Fields(1)txtUserName(1) = rst.Fields!nowecounttxtUserName(2) = rst.Fields!cendcodedtpwdate.Value = rst.Fields(4)txtUserName(3) = Format(rst.Fields!lMoney, "####0.00")txtUserName(4) = Format(rst.Fields!bmoney, "####0.00")txtUserName(6) = Format(rst.Fields!lsFee, "####0.00")'txtUserName(5) = Format(txtUserName(1) * txtUserName(3) *(rst.Fields!lightScale / 100) + txtUserName(1) * txtUserName(4) * (1 -rst.Fields!lightScale / 100), "####0.00")If rst.Fields!Atimes = 0 ThenAtimes = 1ElseAtimes = rst.Fields!AtimesEnd IftxtUserName(5) = Format(Val(txtUserName(1)) * txtUserName(3) * Atimes, "####0.00")txtUserName(8) = rst.Fields(9)txtUserName(7) = Format(Val(txtUserName(5)) + Val(txtUserName(6)), "####0.00")rst.Fields!cFeeMoney = txtUserName(7)rst.UpdateBatch adAffectCurrentEnd Ifrst.Closecnn.CloseEnd SubPrivate Sub MDIForm_Unload(Cancel As Integer)gCnn.CloseSet gcon = NothingEnd SubPrivate Sub mgcf_Click()frmFeefind.ShowEnd SubPrivate Sub mhf_Click()frmdaoru.ShowEnd SubPrivate Sub msf_Click()frmFind1.ShowEnd SubPrivate Sub qianfeilm_Click()frmList.qfFlg = TruefrmList.ShowEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Trim(Button.Key)Case "a"frmFee.Show 1Case "b"frmCopyP.ShowCase "c"frmFee.Show 1Case "d"frmbeifen.Show 1Case "e"frmdaoru.Show 1Case "f"frmFeefind.Show 1Case "g"frmFind1.Show 1Case "dhcb1"Case "dbcb2"Case "j"X = MsgBox("真的要退出吗？", vbYesNo + vbQuestion, "警告") If X = vbYes ThenEndElseEnd IfEnd SelectEnd SubPrivate Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)Select Case ButtonMenu.KeyCase "dhcb1"frmCopyP.ShowCase "dhcb2"usrcopyP.ShowEnd SelectEnd SubPrivate Sub weihu_Click()FRMYHSD.ShowEnd SubPrivate Sub yihu_Click()frmCuifei.muser1 = 1frmCuifei.ShowEnd Sub4.备份界面设计::备份代码设计:Private Sub Command1_Click()Dim a As Stringa = App.Patha = a & "\"b = Text1.Text'On Error GoTo errhandle:Dim filename As Stringfilename = "" & Text1.Text & "dbdb.mdb"If a = Text1.Text ThenMsgBox "备份目录与原文件目录相同,请重新选择!"Exit SubEnd IfIf Dir("" & b & "dbdb.mdb") <> "" ThenDim llp As Stringllp = MsgBox("此目录下已有该文件，要覆盖吗？", vbYesNo, "备份文件") If llp = vbYes ThenKill ("" & b & "dbdb.mdb")FileCopy "" & a & "\data\dbdb.mdb", "" & b & "dbdb.mdb"Dim ll = MsgBox(" 备份成功! ", vbOKOnly, "提示")ElseExit SubEnd IfElseFileCopy "" & a & "\data\dbdb.mdb", "" & b & "dbdb.mdb"Dim llll = MsgBox(" 备份成功! ", vbOKOnly, "提示")End IfExit Sub'errhandle:'MsgBox "出现错误，不能复制", vbOKOnly + vbCritical, "复制文件" 'Resume NextEnd SubPrivate Sub Command2_Click()'dy'Me.HideUnload MeEnd SubPrivate Sub Dir1_Change()'Drive1.Drive = Dir1If Right(Dir1.Path, 1) <> "\" ThenText1.Text = Dir1.Path + "\"ElseText1.Text = Dir1.PathEnd IfCommand1.Enabled = TrueEnd SubPrivate Sub Dir1_Click()If Right(Dir1.Path, 1) <> "\" ThenText1.Text = Dir1.Path + "\"ElseText1.Text = Dir1.PathEnd IfCommand1.Enabled = TrueEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub Form_Activate()Command1.Enabled = FalsegCnn.CloseChDrive App.PathChDir App.Path'Text1.SetFocus'Text1.Text = "c:\"Text1.Text = CurDir()Text1.Enabled = FalseEnd SubPrivate Sub Form_Load()ChDrive App.PathChDir App.PathEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)dyEnd SubPrivate Sub Form_Unload(Cancel As Integer)If gCnn.State = 0 ThengCnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password= " & DbPassword & " ;Data Source= " & _App.Path & "\data\dbdb.mdb;Persist Security Info=False"gCnn.CursorLocation = adUseClientgCnn.OpenEnd IfMDIme.loadAddEnd Sub5.单户抄表界面设计:单户抄表代码设计:Private Sub Command2_Click()Dim cnn As New ADODB.ConnectionDim rstE As New ADODB.RecordsetDim cmdExe As New mandDim nowEv As DoubleDim sqlAdd As StringIf Trim(txtUserName(0).Text) = "" ThenMsgBox " 没有要抄表用户，请先添加用户！", vbInformationExit SubEnd IfIf Trim(txtUserName(9).Text) = "" ThenMsgBox " 请先输入数据！", vbInformationExit SubEnd IfIf Trim(txtUserName(9).Text) < Trim(txtUserName(2).Text) ThenMsgBox " 输入数据错误，当前止码太小！", vbInformationExit SubEnd Ifcnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;JetOLEDB:database password= " & DbPassword & " ;Data Source= " & _ App.Path & "\data\dbdb.mdb;Persist Security Info=False"cnn.CursorLocation = adUseClientcnn.OpencmdExe.ActiveConnection = cnnrstE.Open "select nowecount from panelinfo where holderID= '" &Trim(txtUserName(0)) & "'", cnn, adOpenStatic, adLockBatchOptimistic nowEv = Val(rstE.Fields(0).Value) + (Val(txtUserName(9)) -Val(txtUserName(2)))sqlAdd = "update panelinfo set LEndPCode=" & Val(txtUserName(2).Text) & ",cEndCode=" & Val(txtUserName(9).Text) & ",nowEcount=" & nowEv & " ,writedate=#" & dtpwdate(1) & "# where holderID= '" & Trim(txtUserName(0)) & "'"mandText = sqlAddcmdExe.Execute sqlAdd' cnn.Execute sqlAddtxtUserName(2).Text = txtUserName(9)txtUserName(9) = ""cnn.CloseMsgBox " 数据保存完成！", vbInformationUnload MeEnd SubPrivate Sub Form_Load()Dim rst As New ADODB.RecordsetDim sqlEdit As Stringdtpwdate(1).Value = Format(Now, "yyyy-mm-dd")sqlEdit = "select * from panelinfo "sqlEdit = sqlEdit & " where holderid='" & Trim(MDIme.txtUserName(0)) & "'and delflag<>true"rst.Open sqlEdit, gCnn, adOpenStatic, adLockBatchOptimisticIf Not rst.EOF ThentxtUserName(0) = rst.Fields(1)txtUserName(1) = rst.Fields(2)txtUserName(2) = rst.Fields!cendcodedtpwdate(0).Value = rst.Fields(4)End Ifbuttontime = FalseEnd SubPrivate Sub Form_Unload(Cancel As Integer)MDIme.loadData (txtUserName(0))Cancel = 0End SubPrivate Sub nextuser_Click()Dim rst As New ADODB.RecordsetDim sqlEdit As StringsqlEdit = "select * from panelinfo "sqlEdit = sqlEdit & " where holderid<>'" & Trim(txtUserName(0)) & "'and delflag<>true "rst.Open sqlEdit, gCnn, adOpenStatic, adLockBatchOptimisticIf buttontime = False ThenIf Not rst.EOF ThentxtUserName(0) = rst.Fields(1)txtUserName(1) = rst.Fields(2)txtUserName(2) = rst.Fields!cendcodedtpwdate(0).Value = rst.Fields(4)buttontime = TrueEnd IfElserst.MoveNextIf Not rst.EOF ThentxtUserName(0) = rst.Fields(1)txtUserName(1) = rst.Fields(2)txtUserName(2) = rst.Fields!cendcodedtpwdate(0).Value = rst.Fields(4)buttontime = TrueEnd IfEnd IfEnd SubPrivate Sub txtUserName_KeyPress(Index As Integer, KeyAscii As Integer)If Index = 9 ThenIf KeyAscii <> 8 And KeyAscii <> 46 And KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0End IfEnd Sub6.数据导入界面设计:数据导入代码设计:Private Sub Command1_Click()On Error GoTo errhandle:Dim a As Stringa = App.Patha = a & "\"b = Text1.TextDim filename As StringIf Dir("" & a & "计费系统数据库.mdb") <> "" ThenDim ll As Stringll = MsgBox("此目录下有此文件要覆盖吗", vbYesNo, "复制文件") If ll = vbYes ThenKill ("" & a & "计费系统数据库.mdb")FileCopy "" & Text1.Text & "", "" & a & "计费系统数据库.mdb" Dim ll = MsgBox("数据导入成功", vbOKOnly, "提示")ElseExit SubEnd IfElseFileCopy "" & Text1.Text & "", "" & a & "计费系统数据库.mdb" Dim llpllp = MsgBox("数据导入成功", vbOKOnly, "提示")End IfExit Suberrhandle:MsgBox "出现错误，不能复制", vbOKOnly + vbCritical, "复制文件" End SubPrivate Sub Command2_Click()dyUnload MeEnd SubPrivate Sub Dir1_Change()If Right(Dir1.Path, 1) <> "\" ThenText1.Text = Dir1.Path + "\"ElseText1.Text = Dir1.PathEnd IfFile1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()If Drive1.Drive = "a:" ThenMsgBox "不能从A盘导入"Exit SubEnd IfDir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click()Text1.Text = Text1.Text + File1.filenameCommand1.Enabled = TrueEnd SubPrivate Sub Form_Activate()gCnn.CloseCommand1.Enabled = False'Text1.Text = "c:\"Text1.Text = CurDir()Text1.Enabled = FalseEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) dyUnload MeEnd SubPrivate Sub Form_Unload(Cancel As Integer)If gCnn.State = 0 ThengCnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password= " & DbPassword & " ;Data Source= " & _App.Path & "\data\dbdb.mdb;Persist Security Info=False"gCnn.CursorLocation = adUseClientgCnn.OpenEnd IfMDIme.loadAddEnd Sub7.数据删除界面设计:数据删除代码设计:Private Sub cmdAsure_Click()If MsgBox(" 你确定要删除该数据吗? ", vbInformation + vbYesNo) <> vbYes ThenExit SubEnd IfIf Trim(MDIme.dcvalue.BoundText) <> "" ThenDim cnn As New ADODB.ConnectionDim sqlAdd As Stringcnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password= " & DbPassword & " ;Data Source= " & _App.Path & "\data\dbdb.mdb;Persist Security Info=False"cnn.CursorLocation = adUseClientcnn.OpensqlAdd = "update panelinfo set delflag=true"sqlAdd = sqlAdd & " where holderid='" &Trim(MDIme.dcvalue.BoundText) & "'"cnn.Execute sqlAddcnn.CloseMsgBox " 数据删除完成！", vbInformationEnd IfEnd SubPrivate Sub Command1_Click()For i = 0 To 10If i <> 9 ThenMDIme.txtUserName(i) = ""End IfNextMDIme.dcNum = ""MDIme.dcvalue = ""Unload MeEnd SubPrivate Sub Form_Load()Dim rst As New ADODB.RecordsetDim sqlEdit As StringsqlEdit = "select * from panelinfo "sqlEdit = sqlEdit & " where holderid='" & Trim(MDIme.txtUserName(0)) & "' and delflag<>true "rst.Open sqlEdit, gCnn, adOpenKeyset, adLockBatchOptimisticIf Not rst.EOF ThentxtUserName(0) = rst.Fields(1)txtUserName(1) = rst.Fields(2)txtUserName(2) = rst.Fields(3)dtpWdate.Value = rst.Fields(4)txtUserName(3) = rst.Fields(5)txtUserName(4) = Format(rst.Fields(6), "####0.00") txtUserName(5) = Format(rst.Fields(7), "####0.00") txtUserName(6) = rst.Fields(8)txtUserName(7) = rst.Fields(9)txtUserName(8) = rst.Fields(10)txtUserName(9) = rst.Fields!cendcodechangeE = rst.Fields!cendcodecEcount = rst.Fields!nowecountIf rst.Fields(14) <> Null ThenDTPicker1.Value = rst.Fields(14)End IftxtUserName(10) = rst.Fields!cFeeMoneyEnd Ifrst.CloseEnd SubPrivate Sub Form_Unload(Cancel As Integer) MDIme.loadAddEnd Sub8.数据修改界面设计:数据修改代码设计:Dim changeE As DoubleDim cEcount As DoublePrivate Sub cmdAsure_Click()If Trim(MDIme.dcvalue.BoundText) <> "" ThenDim cnn As New ADODB.ConnectionDim sqlAdd As Stringcnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password= " & DbPassword & " ;Data Source= " & _App.Path & "\data\dbdb.mdb;Persist Security Info=False"cnn.CursorLocation = adUseClientcnn.OpensqlAdd = "update panelinfo set holderid='" & txtUserName(0) & "',holder='" & txtUserName(1) & "',LEndPCode='" & txtUserName(2) &"',CopyDate=# " & dtpWdate.Value & "# ,lightscale=" & txtUserName(3) & ",lsfee=" & txtUserName(4) & ",lmoney=" & txtUserName(5) & ",bmoney=" & txtUserName(6) & ",cname='" & txtUserName(7) & "',memotext='" &txtUserName(8) & "',cEndCode=" & txtUserName(9) & ",cFeeMoney=" &Val(txtUserName(10)) & " ,nowecount=" & changeE & ",atimes=" & Me.Text1 & ""sqlAdd = sqlAdd & " where holderid='" &Trim(MDIme.dcvalue.BoundText) & "'"cnn.Execute sqlAddsqlAdd = "update 用户类型set UNITPRICE=" & Me.txtUserName(5) & " where ATypeID=" & dcob用途.BoundTextcnn.CloseMsgBox " 数据修改完成！", vbInformationEnd IfEnd SubPrivate Sub Command1_Click()Unload MeEnd SubPrivate Sub dcob用途_Click(Area As Integer)Dim rst As New ADODB.RecordsetIf dcob用途.BoundText <> "" Thenrst.Open "select * from 用户类型where ATypeID=" & dcob用途.BoundText & "", gCnn, adOpenStatic, adLockBatchOptimisticMe.txtUserName(5) = Format(rst.Fields(2), "###0.00")rst.CloseElseMsgBox " 请先添加用户电表类型信息! ", vbInformationExit SubEnd IfEnd SubPrivate Sub Form_Load()Dim rst As New ADODB.RecordsetDim sqlEdit As StringsqlEdit = "select * from panelinfo "sqlEdit = sqlEdit & " where holderid='" & Trim(MDIme.txtUserName(0)) & "' and delflag<>true "rst.Open sqlEdit, gCnn, adOpenKeyset, adLockBatchOptimisticIf Not rst.EOF ThentxtUserName(0) = rst.Fields(1)txtUserName(1) = rst.Fields(2)txtUserName(2) = rst.Fields(3)。

VB登录界面代码

VB登录界面代码

VB登录界面代码方法一：VB登录界面代码Option ExplicitPrivate Sub cmdCancel_Click()Dim intResult As Integer'请求用户确认是否真的退出系统登录intResult = MsgBox("你选择了退出系统登录，退出将不能启动企业人事管理系统！" & vbcrlf_ & "是否真的退出？", vbYesNo, "登录验证")If intResult = vbYes Then End'根据用户选择结束应用程序End SubPrivate Sub CmdOK_Click()Dim UserName As StringDim userpassword As StringDim str As StringDim nTryCount As IntegerDim rs As New ADODB.RecordsetSet rs = New ADODB.RecordsetUserName = Trim(txtUserName.Text) userpassword = Trim(txtpassword.Text)str = "select * from 用户信息表 where 用户名='" &UserName & "' and 用户密码 = '" & userpassword & " '"rs.Open str, connectString, adOpenKeyset, 2If rs.EOF Then '登录失败MsgBox "对不起，无此用户或者密码不正确！请重新输入！！", vbCritical, "错误"txtUserName.Text = ""txtpassword.Text = ""txtUserName.SetFocusnTryCount = nTryCount + 1If nTryCount >= 3 ThenMsgBox "您无权操作本系统！", vbCritical, "无权限"Unload MeEnd IfElse '登陆成功主界面.ShowUnload MeEnd IfEnd Sub方法二：Private Sub Command1_Click()Dim username As StringDim userpassword As StringDim try_times As Integertry_times = 0username = Trim$(user.text)userpassword = Trim$(password.text)If user.text = "" ThenMsgBox "用户名不能为空！", vbOKOnly + vbInformation, "友情提示"user.SetFocusExit SubEnd IfIf password.text = "" ThenMsgBox "密码不能为空！", vbOKOnly + vbInformation, "友情提示"password.SetFocusExit SubEnd IfDim strSQL As StringstrSQL = "select * from staff where sno='" & username & "' and password='" & userpassword & "'"Dim str As New ADODB.RecordsetSet str = New ADODB.Recordsetstr.CursorLocation = adUseClientstr.Open strSQL, conn, adOpenStatic, adLockReadOnlyWith strIf .State = adStateOpen Then .Close.Open strSQLIf .EOF Thentry_times = try_times + 1If try_times = 3 ThenMsgBox "您已经三次尝试进入本系统，均不成功，系统将会自动关闭", vbOKOnly + vbCritical, "警告"Unload MeElseMsgBox "对不起，用户名不存在或密码不正确！", vbOKOnly + vbQuestion, "警告"user.SetFocususer.text = ""password.text = ""End IfElseUnload Mefrm_main.ShowEnd IfEnd WithEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Set conn = New ADODB.Connectionconn.ConnectionString = "dsn=LMS"conn.OpenLogin.ShowEnd SubPrivate Sub password_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenCommand1.SetFocusEnd Sub请问各位高手这两个控件里面都绑定表格(DataGrid1 MSHFlexGrid)我想在添加、修改和删除时。

教务管理系统(vb)

教务管理系统(vb)

教务管理系统的设计与实现摘要教务管理是学生管理信息的统计、上报、查询工作费时费力，并且数据保密性、准确性难以保证。

因此，开发出一套高效、实用的教务管理系统，提高学生管理工作的自动化水平成为当务之急。

本设计在分析了教务管理现状和工作特点的基础上，以实际应用为核心，以微软公司的Microsoft Office Access 2003作为数据开发平台，根据数据库原理和数据库，并且运用面向对象的编程语Microsoft Visual Basic 6.0及其它计算机应用技术，集成开发了一套符合学生管理工作实际的教务管理系统。

该系统实现的主要功能模块包括用户登录模块，用户注册模块，文件管理模块，系统管理管理员模块，课程管理模块，及教师查询模块等。

本文详细介绍了该系统分析、概要设计、系统的数据库的逻辑结构设计、模块界面和功能设计、系统测试和分析等设计与实现过程，最后表述了一下个人的心得体会。

关键词：教务管理；数据库；Microsoft Office Access 2003,Microsoft Visual Basic 6.0一系统分析1.1开发背景现如今高等院校的招生人数越来越多，必然就会有大量的学生信息、教师信息及课程信息需要处理。

如果只靠人力来完成，这将会变成一项非常繁琐、复杂的工作，而且还有可能出现很多意想不到的错误，给管理这些数据带来了极大的不便，越来越不适合高校的发展需要。

因此，为了提高教务管理工作的效率，减少错误的出现，节约大量的人力资源，教务管理也已经从手工操作转到计算机自动化信息处理阶段，所有高校都迫切需要计算机技术来进行教务信息的辅助管理。

在使用了教务管理系统后，可以提高各类信息的准确性和及时性，将信息准确无误地输入计算机并在数据库中存储起来。

按照规范设定标准代码，大大保证了统计原始数据的准确性，在进行课程的分析设计时可以最大限度地减少人为影响，大大提高工作效率。

教务管理系统是一个庞大而复杂的系统，它包括对教师信息的管理，对课程资料的管理，对学生信息的管理和对学生成绩的管理等主要功能。

VB 教程

VB 教程

VB 教程VB（Visual Basic）是一种基于事件驱动的可视化编程语言，它是微软公司开发的一种易于学习和使用的高级编程语言。

VB 主要用于在 Windows 操作系统上开发各种应用程序，如窗体应用程序、Web 应用程序和数据库应用程序等。

本教程将介绍 VB 的基础知识和编程技巧，帮助初学者快速入门。

第一部分：VB 基础1. VB 环境设置- 安装 VB 开发工具- 配置开发环境2. VB 语法- 变量和数据类型- 运算符和表达式- 控制语句（if-else、for、while 循环等）- 函数和过程- 数组和集合3. VB 窗体设计- 创建窗体应用程序 - 窗体元素和布局管理 - 事件和事件处理第二部分：VB 高级编程1. VB 数据库连接- 连接数据库- 执行 SQL 查询- 数据读写操作2. VB 文件处理- 文件读写操作- 文件夹操作3. VB 进程和线程- 进程概念和创建- 线程概念和创建4. VB 网络编程- TCP/IP 协议- 套接字编程第三部分：VB 实例项目1. 学生成绩管理系统- 数据库连接和 CRUD 操作 - 窗体设计和布局- 学生成绩统计和分析2. 聊天程序- 套接字编程实现消息传递 - 窗体设计和界面布局- 用户登陆和消息发送功能3. 文件批量处理工具- 文件读取和处理- 批量操作和文件转换- 界面设计和使用说明以上是本教程中的一些主要内容，通过学习这些知识，读者可以掌握 VB 编程的基本技能和一些高级编程技巧。

VB 虽然是一种老旧的编程语言，但在 Windows 应用程序开发中依然有广泛的应用，掌握 VB 编程将会为你的职业发展增添不少机会。

最后，希望本教程能为初学者提供一条非常好的入门指南，也希望读者在学习的过程中能够多动手实践，通过编写实际的项目来提高自己的编程能力。

祝愿大家在 VB 编程的道路上取得成功！。

  1. 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

Vb登陆界面设计
1.所用主要控件，以及关键属性：
2.使用了什么样的过程和方法
登陆界面程序代码：
Dim i As Integer, j As Integer
Private Sub Command1_Click()
If Text2 <> "2008512" Then
j = j + 1
i = MsgBox("请重新输入密码？", vbOKCancel + vbQuestion, "密码错误！" & "第" & j & "次")
If i = 1 Then
Text2.Text = ""
Text2.SetFocus
If j > 3 Then
MsgBox ("密码错误3次，强制退出！")
End
Else
Text2.Text = ""
Text2.SetFocus
End If
End If
If i = 2 Then
End
End If
Else
Load Form2
Form2.Show
End If
End Sub
Private Sub Text1_LostFocus()
If IsNumeric(Text1) = False Then
MsgBox ("请输入数字！")
End If
End Sub
程序实现的功能：
用户名必须输入数字，不然会出现提示窗口：请输入数字。

密码如果输入正确则进入form2登录成功界面，输入错误会出现提示窗口：密码错误！第n次，请重新输入，当三次输入错误时，提示密码输入超过3次，程序自动结束。

3．上机遇到的问题
开始对于变量的声明不是很清楚，不懂全局变量和局部变量的作用范围，后来上百度搜索并且和同学讨论使得程序得以顺利编完。

循环的嵌套问题还是不是很清楚，下课还要在研究一下，多参照些课外资料，多上网搜搜。

Vb的学习使得自己对编程的恐惧心理大大减小，上课老师的演示激发了我浓厚的兴趣，同时可视化的面向对象的编程使得很多功能容易实现，这也在很大程度上增强自己的自信心。

相关文档
最新文档