《01物料信息模块》由会员分享，可在线阅读，更多相关《01物料信息模块（6页珍藏版）》请在金锄头文库上搜索。
1、第1集 物料信息模块（共 6 页 第 5 页）第1步 1新建“企业信息系统”项目打开Foxtable软件，新建一个项目本集要实现的界面效果如下图所示：第2步 250新建“物料信息表”删除表B、表C数据表删除表数据表其它查看表结构双击第一列列名：物料编号确定双击第二列列名：物料名称确定双击第三列列名：型号规格；字符长度：50确定双击第四列列名：单价；数据类型：单精度小数确定双击第五列列名：单位确定双击第六列列名：供货厂家确定双击第七列列名：备注信息；数据类型：备注确定删除第八、九、十列关闭“查看表结构”窗口数据表重命名物料信息表确定删除“物料信息表”中所有空行第3步 1146新建“MAIN”表数
2、据表增加表确定请输入表名：MAIN确定删除“MAIN”中的所有空行数据表其它查看表结构删除前面九列保留“第十列”双击第十列列名：MAIN确定关闭“查看表结构”窗口将“MAIN”拖到“物料信息表”的左边第4步 1420新建“物料信息表”窗口管理项目窗口管理增加窗口窗口名称：物料信息表确定选中“物料信息表”设计窗口将“窗口”拖大一点设置“属性”（窗口标题：物料信息表；窗口类型：主窗口）第5步 1582向窗口添加相关“控件”，如第1步中的图所示：加入“表”控件设置“属性”（停靠：右拖到左边一点；锚定：全部选上；绑定表：物料信息表；）加入“按钮”控件设置“属性”（名称：导入；标题：导入；）双击“导入”
3、按钮输入代码提示：在“帮助”文件的“搜索”中输入“Merger”回车后双击“Merger”找到“示例七”对应的代码：Dim mg As New Mergermg.SourcePath = c:data销售管理.xlsmg.Format = excel 指定格式mg.SourceTableName = 订单 指定要合并的表mg.DataTableName = 订单 指定接收数据的表mg.Merge() 开始合并将上面的代码修改成：Dim mg As New Mergermg.SourcePath = c:物料信息.xlsmg.Format = excel 指定格式mg.SourceTableNa
4、me = 物料信息 指定要合并的表mg.DataTableName = 物料信息表 指定接收数据的表mg.Merge() 开始合并将“物料信息”表复制一份存放到C盘代码修改完成后确定文件预览是导入关闭窗口第6步 2653向窗口添加“新增”控件，如第1步中的图所示：加入“按钮”控件设置“属性”（标题：新增；名称：新增）双击“新增”按钮输入代码：Tables(物料信息表).AddNew代码输入完成后确定文件预览是输入一些数据，验证“新增”按钮是否有效第7步 3052接下来解决防止“物料编号”重复输入的问题关闭“物料信息表”窗口关闭“窗口设计器”窗口关闭“窗口管理”窗口选择“物料信息表”右击“物料编
5、号”列列属性（禁止重复：True）确定选择“MAIN”管理项目窗口管理物料信息表应用窗口验证重复输入的问题是否解决按“ESC键”取消关闭“物料信息表”窗口第8步 3403向窗口添加“删除”控件，如第1步中的图所示：管理项目窗口管理物料信息表设计窗口关闭“窗口管理”加入“删除”控件设置“属性”（标题：删除；名称：删除）双击“删除”按钮输入代码：If MessageBox.Show(是否删除?,确认,MessageBoxButtons.OKCancel,MessageBoxIcon.Question) =DialogResult.OK ThenTables(物料信息表).Current.Delet
6、eEnd If代码输入完成后确定文件预览是验证删除时是否有提示第9步 5130下面实现“复合查询”，如第1步中的图所示：加入“分组框”控件并调整好大小设置“属性”（标题：查询条件；名称：查询条件）加入“组合框”控件设置“属性”（名称：厂家）加入“标签”控件设置“属性”（文本：厂家:）第10步 5568现在编写事件代码选择“物料信息表（窗口）”选择“事件”点进“AfterLoad”输入代码：Dim cj As WinForm.ComboBox = e.Form.Controls(厂家)cj.ComboList = DataTables(物料信息表).GetComboListString(供货厂家
7、)代码输入完成后确定文件预览是验证是否能显示不同的厂家第11步 6352继续完成“复合查询”，如第1步中的图所示：加入“组合框”控件设置“属性”（名称：物料名称）加入“标签”控件设置“属性”（文本：物料名称:）选择“物料名称”组合框选择“事件”点进“Enter”输入代码：Dim cj As WinForm.ComboBox = e.Form.Controls(厂家)Dim wlmc As WinForm.ComboBox = e.Form.Controls(物料名称)wlmc.ComboList = DataTables(物料信息表).GetComboListString(物料名称,供货厂家=
8、 & cj.Text & )代码输入完成后确定文件预览是验证是否能显示不同的物料名称（提示：为了能看到效果，将某一物料名称修改一下，如将“JAT”厂家的“车把”改成“车把111”，再进行验证。）第12步 9003继续完成“复合查询”，如第1步中的图所示：加入“文本框”控件设置“属性”（名称：物料编号）加入“标签”控件设置“属性”（文本：物料编号:）加入“文本框”控件设置“属性”（名称：型号规格）加入“标签”控件设置“属性”（文本：型号规格:）加入“按钮”控件设置“属性”（标题：查询；名称：查询）双击“查询”按钮输入代码：Dim cj As WinForm.ComboBox = e.Form.C
9、ontrols(厂家)Dim wlmc As WinForm.ComboBox = e.Form.Controls(物料名称)Dim wlbh As WinForm.TextBox = e.Form.Controls(物料编号)Dim xhgg As WinForm.TextBox = e.Form.Controls(型号规格)Tables(物料信息表).Filter=供货厂家 = & cj.Text & and 物料名称 like * & wlmc.Text & * and 物料编号 like * & wlbh.Text & * and 型号规格 like * & xhgg.Text & *
10、代码输入完成后确定文件预览是验证是否能根据不同的查询条件进行查询第13步 12412下面解决重新打开窗口时显示所有记录的问题选择“物料信息表（窗口）”选择“事件”点进“AfterLoad”加入新的代码（蓝色底纹标记）：Dim cj As WinForm.ComboBox = e.Form.Controls(厂家)cj.ComboList = DataTables(物料信息表).GetComboListString(供货厂家)Tables(物料信息表).Filter = 代码输入完成后确定文件预览是验证是否显示所有记录第14步 12785下面实现“全部”显示，如第1步中的图所示：加入“按钮”控件
11、设置“属性”（标题：全部；名称：全部）双击“全部”按钮输入代码：Dim cj As WinForm.ComboBox = e.Form.Controls(厂家)Dim wlmc As WinForm.ComboBox = e.Form.Controls(物料名称)Dim wlbh As WinForm.TextBox = e.Form.Controls(物料编号)Dim xhgg As WinForm.TextBox = e.Form.Controls(型号规格)cj.Text = wlmc.Text = wlbh.Text = xhgg.Text = Tables(物料信息表).Filter
12、 = 代码输入完成后确定文件预览是验证是否清空并显示全部记录第15步 13403下面实现“导出”，如第1步中的图所示：加入“按钮”控件设置“属性”（标题：导出；名称：导出）复制一份“物料信息”表（模板）到桌面上关闭“窗口设计器”窗口关闭“窗口管理”窗口打印输出报表管理（Excel）增加点进“模板文件”找到桌面的“物料信息”表模板目标文件：物料信息.xls确定管理项目窗口管理选择“物料信息表”设计窗口双击“导出”按钮输入代码：（提示：在“帮助”文件的“搜索”中输入“基于模板”回车后双击“基于模板”找到对应的代码）Dim Book As New XLS.Book(ProjectPath & Att
13、achments物料信息.xls)Dim fl As String = ProjectPath & Reports物料信息.xlsBook.Build() 生成细节区Book.Save(fl) 保存工作簿Dim Proc As New Process 打开工作簿Proc.File = flProc.Start()代码输入完成后确定文件预览是验证是否能导出所选择的物料信息第16步 15372下面添加“记录窗口”控件，如第1步中的图所示：加入“记录窗口”控件，调整好位置和大小设置“属性”（绑定表：物料信息表）文件预览是验证切换到不同记录时，是否能在记录窗口显示不同的数据关闭“物料信息表”窗口关闭“窗口设计器”窗口关闭“窗口管理”窗口选择“物料信息表”右击“备注信息”列列属性行高倍数：2确定管理项目窗口管理物料信息表设计窗口文件预览是验证备注信息是否能显示两行数据第17步 15993下面做一个隔行交错显示的效果选择“表”设置“属性”（选定行背景颜色：LightSkyBlue；整行突出：True）文件预览是验证是否有效果关闭“物料信息表”窗口关闭“窗口设计器”窗口关闭“窗口管理”窗口选择“物料信息表”数据表表样式配色方案交替行（背景颜色：LightGray）确定MAIN管理项目窗口管理选择“物料信息表”应用窗口查看一下效果第18步 16381下面显示所
