- 1、本文档共71页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
15.4.2 创建各子窗体 (2)选择数据源 数据源选择如图15-28所示: 图 15-28 选择图表数据源 15.4.2 创建各子窗体 (3)选择图表字段 选择图表字段如图15-29所示: 图 15-29 图表字段选择 15.4.2 创建各子窗体 (4)选择图表样式 图表样式选择如图15-30所示 图 15-30 图表样式选择 15.4.2 创建各子窗体 (5)创建图表标题 创建图表标题如图15-31所示: 图 15-31 图表标题 15.4.2 创建各子窗体 (6)图表窗体代码 简单的图表不需要我们编代码,系统自动生成。若我们对图表有特别需要,可适当加些代码,这里不再细述。完成的销售图表如图15-32所示: 图 15-32 销售金额图表 15.5 系统代码运行调试 系统代码运行调试,是设计应用软件的关键环节,无论多么仔细的编写代码,都可能会出错。 15.5.1 系统登录代码调试 1.系统启动后出现登录界面 (1)用户名及密码正确,登录成功。 (2)若用户名或密码有误,不可登录,三次登录不成功,即取消登录。 (3)若是以管理员身份登录,所有命令按钮均可使用。若是以普通用户身份登录,只可查询,其余按钮均不可用。 2.连接数据库 (1)打开数据库 登录成功后,数据库应能自动打开。 15.5.2 数据编辑录入窗体代码调试 1.添加数据 (1)入库单号、销售单号关键字段不可重复,若重复系统应提示重新输入。 (2)数据类型不匹配或越界时,系统要提示限。 (3)添加数据有误时,可取消重新输入。 (4)添加记录时,每添加完一项,系统的焦点会自动转到下一项。 2.删除数据 (1)删除数据时,系统要提示是否确认删除。 3.编辑查看数据 (1)一般在窗体中至少要有“第一条记录”、“下一条记录”、“上条记录”、“上一条记录”四个命令按钮。当点击“第一条记录”时,“下一条记录”按钮可用,“上一条记录”不可用。当点击“最后一条记录”时,“下一条记录”按钮不可用。 (2)在记录BOF和EOF处,系统进行提示。 15.5.3 数据查询窗体代码 1.单选按钮 (1)选择其中一个按钮进行查询时,其余单选按钮不可用。 2.输出结果 (1)符合查询条件 本系统设置按“销售单号”查询,或按“车辆名称”查询,或按“日期”查询。检验一下输出的结果是否符合查询条件。 (2)查询结果形式 查询的结果可用记录形式输出,也可以用图表的形式输出。 15.4.2 创建各子窗体 DTPicker DTPicker1 当前日期 CommandButton cmd_first 第一条记录 cmd_pre 前一条记录 cmd_next 后一条记录 cmd_last 最后一条记录 Cmd_modi 修改记录 Cmd_del 删除记录 Cmd_quit 退出 Frame Frame1 入库单 Frame2 查看入库信息 Frame3 修改入库信息 ADODC ADODC1 ADODC1 15.4.2 创建各子窗体 ③连接数据库 选择设置ADODC控件的ConnectionString属性(参考项目十四) ④用文件框绑定数据 属性 DataSource Adodc1 DataField 入库单号(相应字段) 图 15-15 文本框数据绑定 15.4.2 创建各子窗体 ⑤数据输出 数据输出如图15-16所示: 图 15-16 修改/删除入库单数据输出 15.4.2 创建各子窗体 ⑥销售单、库存信息及客户信息等窗体设计与入库单相同,可自行设计 ⑦“修改/删除入库单”主要代码 控制焦点在控件中的访问顺序代码: 要实现该功能,可以使用KeyDown事件和SetFocus方法,如当我们修改完“入库单号”以后,让焦点自动移到“日期”,代码如下: Private Sub txtnum_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then DTPicker1.SetFocus End Sub 15.4.2 创建各子窗体 当我们点击“修改”命令按钮时,让焦点自动移到“入库单号”,代码如下: Private Sub Cmd_modi_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then txtnum.SetFocus End Sub “前一条”命令按钮代码: Private Sub Cmd_pre_Click() Cmd_next.Enabled = False Cmd_pre.E
文档评论(0)