【文章內容簡介】 cialEffect 屬性為“ 03 維”；在表單的圖形控件中插入兩個選項銨鈕組控件 optiongrou1, optiongrou2,并用生成器生成“產品情況管 理”、“生產雇員管理”、“銷售雇員管理”、“客戶情況管理”、“客戶訂單情況管理”字樣的幾個選項銨鈕。這樣系統主表單的創(chuàng)建和布局就全部完成了。 3）、表單構成相關源代碼： 產品情況管理選項銨鈕源代碼： set path to 產品生產 銷售 客戶管理系統 \forms do form 產品生產管理表單 .scx 生產雇員管理選項銨鈕源代碼： set path to 產品生產 銷售 客戶管理系統 \forms do form 產品生產雇員管理表單 .scx 銷售雇員管理選項銨鈕源代碼： set path to 產品 生產 銷售 客戶管理系統 \forms do form 產品銷售雇員管理表單 .scx 客戶情況管理選項銨鈕源代碼： set path to 產品生產 銷售 客戶管理系統 \forms do form 客戶管理表單 .scx 客戶訂單情況管理選項銨鈕源代碼： set path to 產品生產 銷售 客戶管理系統 \forms do form 客戶訂單管理表單 .scx 退出銨鈕源代碼： quit 密碼表單 1）、表單運行時的窗體界面： 2）、表單構成相關控件和事件： 新建一表單，保存在 產品生產 銷售 客戶管理系統 \forms\密碼表下，修改表單的 caption 屬性為“用戶權限驗證窗口”；為表單引入密碼表數據表作為數據環(huán)境，在表單上放臵兩個標簽控件，修改其Caption 屬性為“用戶名”、“密碼”；放臵兩個命令銨鈕，修改其Caption 屬性為“確認”、“退出”；在表單上放臵一個組合框控件bo1,一個文本框控件 TEXT1，文本框控件用于輸入系統登錄時的密碼；在組合框控件 bo1 的生成器選項中設臵數據庫和表為密碼表，可用字段為密碼，選定字段為用戶名，列選項中選擇用戶名作為返回值，字段名為密碼表 .用戶名 。并自行調整表單布局，使其美觀。 3）、表單構成相關源代碼： 確認按鈕源代碼： locate all for alltrim( 密碼表 . 用戶名 )==alltrim() if found() if alltrim()==alltrim(密碼表 .密碼 ) x=1 do 產品生產 銷售 客戶管理系統 \菜單 .MPR do form 產品生產 銷售 客戶管理系統 \forms\系統主表單 .scx else =+1 if =3 messagebox(對不起，密碼錯誤你不能進入！ ) quit endif messagebox(口令不正確 !請重新輸入 !,48 ,登錄信息 ) = endif endif 退出銨鈕源代碼： Quit 客戶管理表單 1）、表單運行時的窗體界面： 2）、表單構成相關控件和事件： 新建一表單，保存在 產品生產 銷售 客戶管理系統 \forms\客戶管理表單 .scx 下，修改表單的 caption 屬性為 ” 客戶管理窗口“；為表單引入客戶數據表數據環(huán)境，拖放客戶數據表字段到表單中，形成一個 grd 客戶數據表；在表單上放臵兩個命令銨鈕組控件生成兩個命令銨鈕組命令銨鈕，并修改其 caption 屬性為“添加新客戶記錄”、“編輯客戶記錄”、“刪除客戶記錄”、“第一條記錄”，“前一條記錄”、“下一條記錄”、“最 后一條記錄”；在表單上再放臵一個命令銨鈕控件，修改其 caption 屬性為“返回 amp?！?。 3）、表單構成相關源代碼： 第一條記錄按鈕源代碼： 客戶數據表 .setfocus go top messagebox(39。記錄已經在第一條 39。, 0 ,39。記錄信息 39。) 前一條記錄銨鈕源代碼： 客戶數據表 .setfocus if reo()1 skip 1 else messagebox(39。記 錄已經在第一條了 39。, 0 ,39。記錄信息 39。) endif 下一條記錄銨鈕源代碼： 客戶數據表 .setfocus () skip else messagebox(39。記錄已經在未尾了 39。, 0 ,39。記錄信息 39。) endif 最后一條記錄銨鈕源代碼： 客戶數據表 .setfocus go bottom messagebox(39。記錄在未尾了 39。, 0 , 39。記錄信息 39。) 返回按鈕源代碼： 添加新客戶記錄銨鈕源代碼： sele 客戶數據表 客戶數據表 .setfocus if =添加新客戶記錄 =保存新客戶記錄 =str(reo()) append blank else =添加新客戶記錄 =編輯客戶記錄 endif 編輯客戶記錄銨鈕代碼： sele 客戶數據表 客戶數據表 .setfocus if =編輯客戶記錄 =取消編輯 =保存編輯 =str(reo()) else =編輯客戶記錄 =添加新客戶記錄 tablerevert() endif go val() 刪除客戶記錄銨鈕代碼： sele 客戶數據表 客戶數據表 .setfocus if messagebox(是否 確認 刪除當 前記錄 !,32+4+256, 刪除 記錄)=6 = 客戶數據表 .recordsource delete next 1 pack 客戶數據表 .recordsource= endif 客戶訂單管理表單 1）、表單運行時的窗體如下： 2）、表單構成相關控件和事件： 新建一表單，保存在 產品生產 銷售 客戶管理系統 \forms\客戶 訂單管理表單 .scx 下，修改表單的 caption 屬性為 ” 客戶訂單管理窗口“；為表單引入客戶訂單數據表數據環(huán)境，拖放客戶訂單數據表字段到表單中，形成一個 grd客戶訂單數據表；在表單上放臵兩個命令銨鈕組控件生成兩個命令銨鈕組命令銨鈕，并修改其 caption 屬性為“添加新訂單記 錄”、“編輯訂單記錄”、“刪除訂單記錄”、“第一條記錄”，“前一條記錄”、“下一條記錄”、“最后一條記錄”；在表單上再放臵一個命令銨鈕控件，修改其 caption 屬性為“返回 amp。” 。 3）、表單構成相關源代碼： 添加新訂單記錄銨鈕源代碼： sele 客戶訂單數據表 客戶訂單數據表 .setfocus if =添加新訂單記錄 =保存新訂單記錄 =str(reo()) append blank else =添加新訂單記錄 =編輯訂單記錄 endif 編輯訂單記錄銨鈕代碼： sele 客戶訂單數據表 客戶訂單數據表 .setfocus if =編輯訂單記錄 =取消編輯 =保存編輯 =str(reo()) else =編輯訂單記錄 =添加新訂單記錄 tablerevert() endif go val() 刪除訂單記錄銨鈕代碼： sele 客戶訂單數據表 客戶訂單數據表 .setfocus if messagebox(是否 確認 刪除當 前記錄 !,32+4+256, 刪除 記錄)=6 = 客戶訂單數據表 .recordsource delete next 1 pack 客戶訂單數據表 .recordsource= endif 第一條記錄按鈕源代碼： 客戶訂單數據表 .setfocus go top messagebox(39。記錄已經在第一條 39。, 0 ,39。記錄信息 39。) 前一條記錄銨鈕源代碼： 客戶訂單 數據表 .setfocus if reo()1 skip 1 else messagebox(39。記錄已經在第一條了 39。, 0 ,39。記錄信息 39。) endif 下一條記錄銨鈕源代碼： 客戶訂單數據表 .setfocus () skip else messagebox(39。記錄已經在未尾了 39。, 0 ,39。記錄信息 39。) endif 最后一條記錄銨鈕源代碼： 客 戶訂單數據表 .setfocus go bottom messagebox(39。記錄在未尾了 39。, 0 , 39。記錄信息 39。) 返回按鈕源代碼： 產品銷售雇員管理表單 1）、表單運行時的窗體如下： 2）、表單構成相關控件和事件： 新建一表單，保存在 產品生產 銷售 客戶管理系統 \forms\產品銷售雇員 管理表單 .scx 下，修改表單的 caption 屬性為 ” 產品銷售雇員管理窗口“；為表單引入銷售雇員數據表數據環(huán)境，拖放銷售雇員數據表字段到 表單中；在表單上放臵兩個命令銨鈕組控件生成兩個命令銨鈕組命令銨鈕，并修改其 caption 屬性為“添加銷售雇員”、“編輯雇員記錄”、“刪除銷售雇員”、“第一條記錄”，“前一條記錄”、“下一條記錄”、“最后一條記錄”；在表單上再放臵一個命令銨鈕控件，修改其 caption 屬性為“返回 amp。” 。 3）、表單構成相關源代碼： 添加銷售雇員銨鈕源代碼： sele 銷售雇員表 if =添加銷售雇員 =保存新雇員記錄 =str(reo()) append blank else =添加銷售雇員 =編輯雇員記錄 endif 編輯雇員記錄銨鈕代碼： sele 銷售雇員表 if =編輯雇員記錄 =取消編輯 =保存編輯 =str(reo()) else =編輯雇員記錄 =添加銷售雇員 tablerevert() endif go val() 刪除銷售雇員銨鈕代碼： sele 銷售雇員表 if messagebox(是否 確認 刪除當 前記錄 !,32+4+256, 刪除 記錄)=6 delete next 1 pack endif 第一條 記錄按鈕源代碼： go top messagebox(39。記錄已經在第一條 39。, 0 ,39。記錄信息 39。) 前一條記錄銨鈕源代碼： 客戶數據表 .setfocus if reo()1 skip 1 else messagebox(39。記錄已經在第一條了 39。, 0 ,39。記錄信息 39。) endif 前一條記錄銨鈕源代碼： if reo()1 skip 1 else messagebox(39。記錄已經在第一條了 39。, 0 ,39。記錄信息 39。) endif 下一條記錄銨鈕代碼： () skip else messagebox(39。記錄已經在未尾了 39。, 0 ,39。記錄信息 39。) endif 最后一條記錄銨鈕源代碼： go bottom messagebox(39。記錄在未尾了 39。, 0 , 39。記錄信息 39。) 返回按鈕源代碼： 產品生產管 理表單 1）、表單運行時的窗體如下： 2）、表單構成相關控件和事件： 新建一表單，保存在 產品生產 銷售 客戶管理系統 \forms\產品生產管理表單 .scx 下，形成一個 grd 產品數據表；修改表單的 caption屬性為 ” 產品生產情況記錄“；為表單引入產品數據表數據環(huán)境，拖放產品數據表字段到表單中；在表單上放臵兩個命令銨鈕組控件生成兩個命令銨鈕組命令銨鈕，并修改其 caption 屬性為“添加新產品記錄”、“編輯產品記錄”、“刪除原產品記錄”、“第一條記錄”，“前一條記錄”、“下一條記錄”、“最后一條記錄”；在 表單上再放臵一個命令銨鈕控件，修改其 caption 屬性為“返回 amp?！?。 3）、表單構成相關源代碼： 添加新產品記錄銨鈕源代碼： sele 產品數據表 產品數據表 .setfocus if =添加新產品記錄 =保存新產品記錄 =str(reo()) append blank else =添加新產品記錄 =編輯 產品記錄 endif 編輯產品記錄銨鈕源代碼： sele 產品數據表 產品數據表 .setfocus if =編輯產品記錄 =取消編輯 =保存編輯 =str(reo()) else