第一章 01物料信息模块.docVIP

第1步 [1]新建“企业信息系统”项目 打开Foxtable软件，新建一个项目 本集要实现的界面效果如下图所示： 第2步 [250]新建“物料信息表” 删除表B、表C 数据表——删除表 数据表——其它——查看表结构 双击第一列——列名：物料编号——确定 双击第二列——列名：物料名称——确定 双击第三列——列名：型号规格；字符长度：50——确定 双击第四列——列名：单价；数据类型：单精度小数——确定 双击第五列——列名：单位——确定 双击第六列——列名：供货厂家——确定 双击第七列——列名：备注信息；数据类型：备注——确定 删除第八、九、十列 关闭“查看表结构”窗口 数据表——重命名——物料信息表——确定 删除“物料信息表”中所有空行 第3步 [1146]新建“MAIN”表 数据表——增加表——确定——请输入表名：MAIN——确定 删除“MAIN”中的所有空行 数据表——其它——查看表结构 删除前面九列——保留“第十列” 双击第十列——列名：MAIN——确定 关闭“查看表结构”窗口 将“MAIN”拖到“物料信息表”的左边 第4步 [1420]新建“物料信息表”窗口 管理项目——窗口管理——增加窗口 窗口名称：物料信息表——确定 选中“物料信息表”——设计窗口 将“窗口”拖大一点——设置“属性”（窗口标题：物料信息表；窗口类型：主窗口） 第5步 [1582]向窗口添加相关“控件”，如第1步中的图所示： 加入“表”控件——设置“属性”（停靠：右——拖到左边一点；锚定：全部选上；绑定表：物料信息表；） 加入“按钮”控件——设置“属性”（名称：导入；标题：导入；） 双击“导入”按钮——输入代码 提示：在“帮助”文件的“有哪些信誉好的足球投注网站”中输入“Merger”——回车后双击“Merger”——找到“示例七”对应的代码： Dim mg As New Mergermg.SourcePath = c:\data\销售管理.xlsmg.Format = excel 指定格式mg.SourceTableName = 订单 指定要合并的表mg.DataTableName = 订单 指定接收数据的表mg.Merge() 开始合并 将上面的代码修改成： Dim mg As New Merger mg.SourcePath = c:\物料信息.xls mg.Format = excel 指定格式 mg.SourceTableName = 物料信息 指定要合并的表 mg.DataTableName = 物料信息表 指定接收数据的表 mg.Merge() 开始合并 将“物料信息”表复制一份存放到C盘 代码修改完成后——确定 文件——预览——是——导入——关闭窗口 第6步 [2653]向窗口添加“新增”控件，如第1步中的图所示： 加入“按钮”控件——设置“属性”（标题：新增；名称：新增） 双击“新增”按钮——输入代码： Tables(物料信息表).AddNew 代码输入完成后——确定 文件——预览——是 输入一些数据，验证“新增”按钮是否有效 第7步 [3052]接下来解决防止“物料编号”重复输入的问题 关闭“物料信息表”窗口——关闭“窗口设计器”窗口——关闭“窗口管理”窗口 选择“物料信息表”——右击“物料编号”列——列属性（禁止重复：True）——确定 选择“MAIN”——管理项目——窗口管理——物料信息表——应用窗口 验证重复输入的问题是否解决 按“ESC键”取消——关闭“物料信息表”窗口 第8步 [3403]向窗口添加“删除”控件，如第1步中的图所示： 管理项目——窗口管理——物料信息表——设计窗口——关闭“窗口管理” 加入“删除”控件——设置“属性”（标题：删除；名称：删除） 双击“删除”按钮——输入代码： If MessageBox.Show(是否删除?,确认,MessageBoxButtons.OKCancel,MessageBoxIcon.Question) =DialogResult.OK Then Tables(物料信息表).Current.Delete End If 代码输入完成后——确定 文件——预览——是——验证删除时是否有提示 第9步 [5130]下面实现“复合查询”，如第1步中的图所示： 加入“分组框”控件并调整好大小——设置“属性”（标题：查询条件；名称：查询条件） 加入“组合框”控件——设置“属性”（名称：厂家） 加入“标签”控件——设置“属性”（文本：厂家:） 第10步 [5568]现在编写事件代码 选择“物料信息表（窗口）”——选择“事件”——点进“AfterLoad”——输入代码： Dim cj As WinForm.ComboBox = e.Form.Controls(厂家) cj.ComboList = DataTab