01物料信息模塊

1、第1步 1新建“企業(yè)信息系統(tǒng)”項目打開foxtable軟件，新建一個項目本集要實現(xiàn)的界面效果如下圖所示：第2步 250新建“物料信息表”刪除表b、表c數(shù)據(jù)表刪除表數(shù)據(jù)表其它查看表結(jié)構(gòu)雙擊第一列列名：物料編號確定雙擊第二列列名：物料名稱確定雙擊第三列列名：型號規(guī)格；字符長度：50確定雙擊第四列列名：單價；數(shù)據(jù)類型：單精度小數(shù)確定雙擊第五列列名：單位確定雙擊第六列列名：供貨廠家確定雙擊第七列列名：備注信息；數(shù)據(jù)類型：備注確定刪除第八、九、十列關(guān)閉“查看表結(jié)構(gòu)”窗口數(shù)據(jù)表重命名物料信息表確定刪除“物料信息表”中所有空行第3步 1146新建“main”表數(shù)據(jù)表增加表確定請輸入表名：main確定刪除“m

2、ain”中的所有空行數(shù)據(jù)表其它查看表結(jié)構(gòu)刪除前面九列保留“第十列”雙擊第十列列名：main確定關(guān)閉“查看表結(jié)構(gòu)”窗口將“main”拖到“物料信息表”的左邊第4步 1420新建“物料信息表”窗口管理項目窗口管理增加窗口窗口名稱：物料信息表確定選中“物料信息表”設(shè)計窗口將“窗口”拖大一點設(shè)置“屬性”（窗口標題：物料信息表；窗口類型：主窗口）第5步 1582向窗口添加相關(guān)“控件”，如第1步中的圖所示：加入“表”控件設(shè)置“屬性”（?？浚河彝系阶筮呉稽c；錨定：全部選上；綁定表：物料信息表；）加入“按鈕”控件設(shè)置“屬性”（名稱：導入；標題：導入；）雙擊“導入”按鈕輸入代碼提示：在“幫助”文件的“搜索”中輸

3、入“merger”回車后雙擊“merger”找到“示例七”對應(yīng)的代碼：dim mg as new mergermg.sourcepath = "c:data銷售管理.xls"mg.format = "excel" '指定格式mg.sourcetablename = "訂單" '指定要合并的表mg.datatablename = "訂單" '指定接收數(shù)據(jù)的表mg.merge() '開始合并將上面的代碼修改成：dim mg as new mergermg.sourcepath = &qu

4、ot;c:物料信息.xls"mg.format = "excel" '指定格式mg.sourcetablename = "物料信息" '指定要合并的表mg.datatablename = "物料信息表" '指定接收數(shù)據(jù)的表mg.merge() '開始合并將“物料信息”表復制一份存放到c盤代碼修改完成后確定文件預(yù)覽是導入關(guān)閉窗口第6步 2653向窗口添加“新增”控件，如第1步中的圖所示：加入“按鈕”控件設(shè)置“屬性”（標題：新增；名稱：新增）雙擊“新增”按鈕輸入代碼：tables("物料

5、信息表").addnew代碼輸入完成后確定文件預(yù)覽是輸入一些數(shù)據(jù)，驗證“新增”按鈕是否有效第7步 3052接下來解決防止“物料編號”重復輸入的問題關(guān)閉“物料信息表”窗口關(guān)閉“窗口設(shè)計器”窗口關(guān)閉“窗口管理”窗口選擇“物料信息表”右擊“物料編號”列列屬性（禁止重復：true）確定選擇“main”管理項目窗口管理物料信息表應(yīng)用窗口驗證重復輸入的問題是否解決按“esc鍵”取消關(guān)閉“物料信息表”窗口第8步 3403向窗口添加“刪除”控件，如第1步中的圖所示：管理項目窗口管理物料信息表設(shè)計窗口關(guān)閉“窗口管理”加入“刪除”控件設(shè)置“屬性”（標題：刪除；名稱：刪除）雙擊“刪除”按鈕輸入代碼：if

6、messagebox.show("是否刪除?","確認",messageboxbuttons.okcancel,messageboxicon.question) =dialogresult.ok thentables("物料信息表").current.deleteend if代碼輸入完成后確定文件預(yù)覽是驗證刪除時是否有提示第9步 5130下面實現(xiàn)“復合查詢”，如第1步中的圖所示：加入“分組框”控件并調(diào)整好大小設(shè)置“屬性”（標題：查詢條件；名稱：查詢條件）加入“組合框”控件設(shè)置“屬性”（名稱：廠家）加入“標簽”控件設(shè)置“屬性”（文本：廠

7、家:）第10步 5568現(xiàn)在編寫事件代碼選擇“物料信息表（窗口）”選擇“事件”點進“afterload”輸入代碼：dim cj as winform.combobox = e.form.controls("廠家")cj.combolist = datatables("物料信息表").getcomboliststring("供貨廠家")代碼輸入完成后確定文件預(yù)覽是驗證是否能顯示不同的廠家第11步 6352繼續(xù)完成“復合查詢”，如第1步中的圖所示：加入“組合框”控件設(shè)置“屬性”（名稱：物料名稱）加入“標簽”控件設(shè)置“屬性”（文本：物料名稱

8、:）選擇“物料名稱”組合框選擇“事件”點進“enter”輸入代碼：dim cj as winform.combobox = e.form.controls("廠家")dim wlmc as winform.combobox = e.form.controls("物料名稱")wlmc.combolist = datatables("物料信息表").getcomboliststring("物料名稱","供貨廠家= '" & cj.text & "'"

9、; )代碼輸入完成后確定文件預(yù)覽是驗證是否能顯示不同的物料名稱（提示：為了能看到效果，將某一物料名稱修改一下，如將“jat”廠家的“車把”改成“車把111”，再進行驗證。）第12步 9003繼續(xù)完成“復合查詢”，如第1步中的圖所示：加入“文本框”控件設(shè)置“屬性”（名稱：物料編號）加入“標簽”控件設(shè)置“屬性”（文本：物料編號:）加入“文本框”控件設(shè)置“屬性”（名稱：型號規(guī)格）加入“標簽”控件設(shè)置“屬性”（文本：型號規(guī)格:）加入“按鈕”控件設(shè)置“屬性”（標題：查詢；名稱：查詢）雙擊“查詢”按鈕輸入代碼：dim cj as winform.combobox = e.form.controls(&qu

10、ot;廠家")dim wlmc as winform.combobox = e.form.controls("物料名稱")dim wlbh as winform.textbox = e.form.controls("物料編號")dim xhgg as winform.textbox = e.form.controls("型號規(guī)格")tables("物料信息表").filter="供貨廠家 = '" & cj.text & "' and 物料名稱

11、 like '*" & wlmc.text & "*' and 物料編號 like '*" & wlbh.text & "*' and 型號規(guī)格 like '*" & xhgg.text & "*'"代碼輸入完成后確定文件預(yù)覽是驗證是否能根據(jù)不同的查詢條件進行查詢第13步 12412下面解決重新打開窗口時顯示所有記錄的問題選擇“物料信息表（窗口）”選擇“事件”點進“afterload”加入新的代碼（藍色底紋標記）：dim cj a

12、s winform.combobox = e.form.controls("廠家")cj.combolist = datatables("物料信息表").getcomboliststring("供貨廠家")tables("物料信息表").filter = ""代碼輸入完成后確定文件預(yù)覽是驗證是否顯示所有記錄第14步 12785下面實現(xiàn)“全部”顯示，如第1步中的圖所示：加入“按鈕”控件設(shè)置“屬性”（標題：全部；名稱：全部）雙擊“全部”按鈕輸入代碼：dim cj as winform.combobo

13、x = 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("型號規(guī)格")cj.text = ""wlmc.text = ""wlbh.text = ""xhgg.

14、text = ""tables("物料信息表").filter = ""代碼輸入完成后確定文件預(yù)覽是驗證是否清空并顯示全部記錄第15步 13403下面實現(xiàn)“導出”，如第1步中的圖所示：加入“按鈕”控件設(shè)置“屬性”（標題：導出；名稱：導出）復制一份“物料信息”表（模板）到桌面上關(guān)閉“窗口設(shè)計器”窗口關(guān)閉“窗口管理”窗口打印輸出報表管理（excel）增加點進“模板文件”找到桌面的“物料信息”表模板目標文件：物料信息.xls確定管理項目窗口管理選擇“物料信息表”設(shè)計窗口雙擊“導出”按鈕輸入代碼：（提示：在“幫助”文件的“搜索”中輸入“基于模

15、板”回車后雙擊“基于模板”找到對應(yīng)的代碼）dim book as new xls.book(projectpath & "attachments物料信息.xls")dim fl as string = projectpath & "reports物料信息.xls"book.build() '生成細節(jié)區(qū)book.save(fl) '保存工作簿dim proc as new process '打開工作簿proc.file = flproc.start()代碼輸入完成后確定文件預(yù)覽是驗證是否能導出所選擇的物料信息第16步

16、 15372下面添加“記錄窗口”控件，如第1步中的圖所示：加入“記錄窗口”控件，調(diào)整好位置和大小設(shè)置“屬性”（綁定表：物料信息表）文件預(yù)覽是驗證切換到不同記錄時，是否能在記錄窗口顯示不同的數(shù)據(jù)關(guān)閉“物料信息表”窗口關(guān)閉“窗口設(shè)計器”窗口關(guān)閉“窗口管理”窗口選擇“物料信息表”右擊“備注信息”列列屬性行高倍數(shù)：2確定管理項目窗口管理物料信息表設(shè)計窗口文件預(yù)覽是驗證備注信息是否能顯示兩行數(shù)據(jù)第17步 15993下面做一個隔行交錯顯示的效果選擇“表”設(shè)置“屬性”（選定行背景顏色：lightskyblue；整行突出：true）文件預(yù)覽是驗證是否有效果關(guān)閉“物料信息表”窗口關(guān)閉“窗口設(shè)計器”窗口關(guān)閉“窗口

17、管理”窗口選擇“物料信息表”數(shù)據(jù)表表樣式配色方案交替行（背景顏色：lightgray）確定main管理項目窗口管理選擇“物料信息表”應(yīng)用窗口查看一下效果第18步 16381下面顯示所需要的字段管理項目窗口管理物料信息表設(shè)計窗口表設(shè)置“屬性”（顯示列：物料編號|100|物料名稱|100|供貨廠家|80|型號規(guī)格|200|單位|40|單價|50）文件預(yù)覽是查看一下效果說明：如果覺得“備注信息”列太占寬度，可以去掉。但是，記錄窗口中的“備注信息”也隨之去掉了。為了解決這一問題，可以進行如下操作：第19步 17032關(guān)閉“物料信息表”窗口關(guān)閉“窗口設(shè)計器”窗口關(guān)閉“窗口管理”窗口選擇“物料信息表”右擊

18、任一列取消隱藏列勾上“備注信息”選項確定右擊“備注信息”列列屬性記錄窗口（在記錄窗口顯示：true）確定main管理項目窗口管理選擇“物料信息表”設(shè)計窗口文件預(yù)覽是查看一下效果可以嘗試通過“記錄窗口”新增一條記錄，然后刪除第20步17494下面新建“物料信息”菜單關(guān)閉“物料信息表”窗口關(guān)閉“窗口設(shè)計器”窗口關(guān)閉“窗口管理”窗口管理項目菜單設(shè)計點進“功能區(qū)（集合）”增加標題：我的工作臺點進“功能組（集合）”增加標題：基礎(chǔ)資料點進“項目（集合）”增加標準按鈕標題：物料信息點進“大圖標”，選擇“l(fā)egend.png”選擇“事件”點進“click”輸入代碼：forms("物料信息表").open確定確定（功能組1 項目）確定（功能區(qū)1 功能組）確定（功能區(qū)）確定（ribbenmenu設(shè)計器）點擊“物料信息”菜單按鈕可查看效果第21步 18261下面實現(xiàn)“關(guān)閉”，如第1步中的圖所示：按ctrl+shift+f12可返回系統(tǒng)