Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
End If
End Sub
图 1.12 更新密码界面
二．画笔程序
(1)窗体设计：主要用到的控件有Combo1、Option、Frame、CommonDialog、菜单等。
(2)功能设计：
①画笔功能：点击一下菜单中的“画笔”，既可以在窗体中有鼠标画任意线段。
具体代码如下：
Private Sub huabi_Click()
flag = 0
Form1.DrawWidth = Combo1.Text
If Button = 1 Then
Line -(X, Y), pcolor
End If
End Sub
②颜色功能：添加CommonDialog部件，运用CommonDialog1将VB与电脑程序所代颜色相连，通过代码可以使VB使用颜色
具体代码如下：
Private Sub yanse_Click()
CommonDialog1.Action = 3
pcolor = CommonDialog1.Color
End Sub
③橡皮功能：橡皮功能的实现即鼠标划过的地方，用背景色覆盖。
具体代码如下：
Private Sub xiangpi_Click()
flag = 1
xiangpi.Enabled = True
End Sub
④绘制标准几何图形功能
直线：在直线长度出入框中输入要画直线的长度，设好坐标，点选直线，即可在指定区域画出一条直线。
具体代码如下：
Private Sub Option1_Click()
若图片无法显示请联系QQ752018766,本论文免费,转发请注明源于www.751com.cn
Private Sub Option2_Click()
Circle (100 * Val(Text3.Text), 100 * Val(Text4.Text)), 300 * Val(Text2.Text), pcolor
End Sub
正方形：设置直线长度（在这里即为长方形边长），坐标，点选正方形，即可画出一个正方形。
具体代码如下：
Private Sub Option3_Click()
Line Step(100 * Val(Text3.Text), 100 * Val(Text4.Text))-Step(100 * Val(Text1.Text), 100 * Val(Text1.Text)), pcolor, B
End Sub
图 2.1 画笔程序界面
5．设计体会
通过此次课程设计，我整体的了解了VB与数据可的结合使用。
具体步骤如下：
1：打开连接：例如：Recordset.Open 带有 ActiveConnection 操作数，该操作数可以是文字字符串（表示字符串的变量），或者是代表一个已打开的连接的 Connection 对象。对象中的多数方法具有属性，当操作数缺省时属性可以提供参数。使用 Connection.Open，可以省略显式 ConnectionString 操作数并通过将 ConnectionString 的属性设置为“DSN=pubs;uid=sa;pwd=;database=pubs”隐式地提供信息。与此相反，连接字符串中的关键字操作数 uid 和 pwd 可为 Connection 对象设置 UserID 和 Password 参数。
2：创建命令
查询命令要求数据源返回含有所要求信息行的 Recordset 对象。
如上所述，“命令字符串”之类的操作数可表示为：
代表字符串的文字串或变量。本教程可使用命令字符串“SELECT * from authors”查询 pubs 数据库中的 authors 表中的所有信息。
3：执行命令
必须在发出命令之前打开连接，每个发出命令的方法分别代表不同的连接：
Connection.Execute 方法使用由 Connection 对象自身表现的连接。
Command.Execute 方法使用在其 ActiveConnection 属性中设置的 Connection 对象。
Recordset.Open 方法所指定的或者是连接字符串，或者是 Connection 对象操作数；否则使用在其 ActiveConnection 属性中设置的 Connection 对象。
通过这两个星期的学习，发现了自己的很多不足，自己知识的很多漏洞，看到了自己的实践经验还是比较缺乏。所设计的系统还有很多不足，比如统计功能不够适用，报表比较少，结构也不完善，有点头轻脚重等等。有机会会继续完善本程序，改进以上不足，并增加数据库文护、更新功能，提供安全登陆，增加数据表功能等等。
经过两个的努力奋斗,仓库管理系统终于制作完成,这次课设使我受益非浅,同时, 由于这次课程设计时间短、任务重，所以该系统存在许多的不足，希望老师能谅解。
在此感谢老师两个星期以来，不惜辛苦的为我们辅导，答疑，使我们能按时顺利完成课程设计。
6．参考文献
[1] 刘新民,蔡琼,白康生编著.Visual Basic 6.0程序设计[M].北京:清华大学出版社，2004.3 20-25
[2] 刘韬, 骆娟, 何旭洪编著. Visual basic 数据库系统开发实例导航[M].北京:人民邮电出版社，2003.8 159-203
[3] 黄明, 梁旭编著. Visual Basic 6.0 信息系统设计与开发实例[M].北京:机械工业出版社，2004.4 241-256
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页