【正文】 基于以上設(shè)計(jì)原則，本系統(tǒng)中相關(guān)數(shù)據(jù)庫(kù)表結(jié)構(gòu)設(shè)計(jì)舉例如下： 客戶(hù)表 : 字段編號(hào) 字段名 字段類(lèi)型 字段寬度 是否為空 1 客戶(hù)編號(hào) Character 12 No 2 姓名 Character 8 No 3 性別 Character 2 No 4 付款方式 Character 20 No 5 繳費(fèi) Numeric 7 No 6 服務(wù)項(xiàng)目 Character 30 No 7 住宅電話(huà) Character 12 No 8 手機(jī) Character 15 No 9 家庭地址 Character 30 No 10 合同編號(hào) Character 15 No 11 生效日期 Date 8 No 12 終止日期 Date 8 No 13 服務(wù)地點(diǎn) Character 30 No 14 備注 Character 100 No 員工表 字段編號(hào) 字段名 字段類(lèi)型 字段寬度 是否為空 1 姓名 Character 8 No 2 性別 Character 2 No 3 婚姻情況 Character 6 No 4 家庭電話(huà) Character 12 No 5 文化程度 Character 8 No 6 員工編號(hào) Character 12 No 7 到公司時(shí)間 Date 8 No 8 家庭地址 Character 30 No 9 身份證號(hào) Character 18 No 10 人員狀態(tài) Character 15 No 第 41 頁(yè) 服務(wù)安排表 字段編號(hào) 字段名 字段類(lèi)型 字段寬度 是 否為空 1 員工編號(hào) Character 12 No 2 客戶(hù)編號(hào) Character 12 No 3 服務(wù)日期 Date 8 No 4 員工姓名 Character 8 No 服務(wù)記錄表 字段編號(hào) 字段名 字段類(lèi)型 字段寬度 是否為空 1 員工姓名 Character 8 No 2 客戶(hù)編號(hào) Character 15 No 3 開(kāi)始服務(wù)時(shí)間 Character 22 No 4 結(jié)束服務(wù)時(shí)間 Character 22 No 5 備注 Character 100 No 用戶(hù)表 FieldName Type Width Nulls 用戶(hù)名 Character 6 No 密碼 Character 6 No 、完整性、并發(fā)控制和恢復(fù) 信息數(shù)據(jù)是是一種非常重要的資源，因此保證數(shù)據(jù)庫(kù)的安全可靠、正確有效是非常重要的問(wèn)題。 國(guó)外曾有人對(duì)一些軟件項(xiàng)目開(kāi)發(fā)各階段的工作量進(jìn)行了統(tǒng)計(jì)，結(jié)果表明，在開(kāi)發(fā)過(guò)程中各工作階段所占全部工作量的比重分別達(dá)到系統(tǒng)分析：系統(tǒng)設(shè)計(jì)：編程：模塊調(diào)試：系統(tǒng)調(diào)試＝ 20%： 15%： 20%： 25%： 20%。 詳細(xì)的現(xiàn)狀調(diào)查目的是為了弄清現(xiàn)行系統(tǒng)的基本功能及信息流程，為了新系統(tǒng)邏輯模型提供基礎(chǔ)。 第 33 頁(yè) 第二章 系統(tǒng)分析 ： 建立一個(gè)好的管理信息系統(tǒng)，必須要有一個(gè)好的管理基礎(chǔ)。這個(gè)階段計(jì)算機(jī)硬、軟件有了很大的發(fā)展，出現(xiàn)了多用戶(hù)的分時(shí)系統(tǒng)，計(jì)算機(jī)開(kāi)始應(yīng)用于對(duì)某一個(gè)管理子系統(tǒng)的控制，并具有一定的反饋功能。 系統(tǒng)開(kāi)發(fā)采用 Microsoft 公司的 Visual Foxpro ，利用其強(qiáng)大的可視化界面功能及對(duì)數(shù)據(jù)庫(kù)的支持，先構(gòu)造一個(gè)原型，逐步增加功能，最終滿(mǎn)足需求。 企業(yè)辦公系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航。 以前做一些應(yīng)用的系統(tǒng)開(kāi)發(fā)，隨意性大，想到那里做到那里，沒(méi)有統(tǒng)一的規(guī)劃，一旦系統(tǒng)成型，出現(xiàn)錯(cuò)誤返工修改工作量大，最終的系統(tǒng)可靠性不高。 、 各個(gè)功能模塊的創(chuàng)建 主要代碼如下 : “ 確認(rèn) ” 按鈕代碼 sele user loca for allt()==allt() and allt()==allt() if foun() release thisform clear event else define mismatch_loc用戶(hù)號(hào)或口令不正確 !請(qǐng)重新輸入 . wait window mismatch_loc timeout 1 = endif 第 12 頁(yè) 主要代碼如下 : “ 新增 ” 按鈕 public ccode ccode= do form frm_custom “ 編輯 ” 按鈕 public ccode 第 13 頁(yè) if (.()).and.(.()) ccode= do form frm_custom endif “ 刪除 ” 按鈕 delete ccode= “客戶(hù)服務(wù)”按鈕 local bExist bExist=.f. for i=1 to if [i].caption=客戶(hù)服務(wù) [i].show bExist=.t. endif endfor if .not. bExist do form frm_amcustom endif 第 14 頁(yè) “保存 ”按鈕代碼 : =tableupdate(.t.) =.f. =.f. =.t. “放棄 ”按鈕代碼 =tablerevert(.t.) =.f. =.f. =.t. “表單”初始化代碼 set multilocks on =cursorsetprop(buffering,5) “表單 ”激活代碼 if len(ccode)=0 append blank else locat for allt(客戶(hù)編號(hào) )=allt(ccode) endif 第 15 頁(yè) =.f. =.f. =.t. =.t. =.f. 主要代碼如下 : 第 16 頁(yè) “設(shè)定提醒時(shí)間”代碼 public pcode if (.()).and.(.()) pcode= if len(pcode)0 do form frm_setalarm endif endif “ 編輯服務(wù)記錄 ” 代碼 public sccode if (.()).and.(.()) sccode= if len(sccode)0 do form frm_setservice endif endif “ 客戶(hù)管理 ” 代碼 local bExist bExist=.f. for i=1 to if [i].caption=客戶(hù)管理 [i].show bExist=.t. endif endfor if .not. bExist do form frm_mcustom 第 17 頁(yè) endif “編輯”按鈕代碼 =.t. =.t. =.f. =.f. =.f. =.f. =員工編號(hào) =員工姓名 ls=dtoc(服務(wù)日期 ) ds= lts= for i=1 to len(ls) if SUBSTR(ls,i,1)=/ if len(ds)2 ds=REPLCATE(0,2len(ds))+ds endif 第 18 頁(yè) lts=lts+ds ds= else ds=ds+SUBSTR(ls,i,1) endif endfor if len(ds)2 ds=REPLCATE(0,2len(ds))+ds endif lts=lts+ds 服務(wù)日期 .value=lts “ 保存 ” 按鈕代碼 if len(allt())0 .(allt())0.(allt( 服務(wù)日期 .value))=6 c= 服務(wù)日期 .value ld=ctod(subs(c,1,2)+/+subs(c,3,2)+/+subs(c,5,4)) if ld= 生效日期 .= 終止日期 .value replace 員工編號(hào) with allt(), 員工姓名 with allt(),服務(wù)日期 with ld replace 客戶(hù)編號(hào) with allt( ) =tableupdate(.t.) =.f. =.f. =.t. =.t. 第 19 頁(yè) =.t. =.t. else cMessageTitle=系統(tǒng)提示 cMessageText=日期無(wú)效 nDialogType=0+32 nanswer=MESSAGEBOX(cMessageText,nDialogType,cMessageTitle) 服務(wù)日期 .setfocus endif else cMessageTitle=系統(tǒng)提示 cMessageText=信息輸入不完整 nDialogType=0+32 nanswer=MESSAGEBOX(cMessageText,nDialogType,cMessageTitle) 服務(wù)日期 .setfocus endif “ 放棄 ” 按鈕代碼 =tablerevert(.t.) =.f. =.f. =.t. =.t. =.t. =.t. = = 服務(wù)日期 .value= 第 20 頁(yè) “ 新增 ” 按鈕代碼 append blank =.t. =.t. =.f. =.f. =.f. 開(kāi)始服務(wù)時(shí)間 .value=dtoc(date())+ +time() 結(jié)束服務(wù)時(shí)間 .value=dtoc(date())+ +time() 開(kāi)始服務(wù)時(shí)間 .setfocus “ 編輯 ” 按鈕代碼 =.t. =.t. 第 21 頁(yè) =.f. =.f. =.f. “ 刪除 ” 按鈕代碼 delete =tableupdate(.t.) if .() skip else if .() skip1 endif endif “ 保存 ” 按鈕代碼 replace 客戶(hù)編號(hào) with allt(sccode) =tableupdate(.t.) =.f. =.f. =.t. =.t. =.t. “ 放棄 ” 按鈕代碼 =tablerevert(.t.) =.f. =.f. =.t. 第 22 頁(yè) =.t. =.t. 主要代碼如下 : “新增”按鈕代碼 append blank =.t. =.t. =.f. =.f. =.f. =1 第 23 頁(yè) “編輯”按鈕代碼 =.t. =.t. =.f. =.f. =.f. if allt(人員狀態(tài) )=正在待聘人員 =1 endif if allt(人員狀態(tài) )= 正在工作人員 =2 endif if allt(人員狀態(tài) )=已回人員 =3 endif “ 保存 ” 按鈕代碼 =tableupdate(.t.) =.f. =.f. =.t. =.t. =.t. “ 放棄 ” 按鈕代碼 =tablerevert(.t.) 第 24 頁(yè) =.f. =.f. =.t. =.t. =.t. “ 刪除 ” 按鈕代碼 delete =tableupdate(.t.) if .() skip else if .() skip1 endif endif 第 25 頁(yè) “ 打印詳細(xì)資料 ” 代碼 public pccode if .() pccode=allt(客戶(hù)編號(hào) ) if len(pccode)0 set filter to allt(客戶(hù)編號(hào) )=allt(pccode) report form rpt_detcus prev set filter to endif endif “ 打印服務(wù)記錄 ” 按鈕代碼 public pccode if .() pccode=allt(客戶(hù)編號(hào) ) if len(pccode)0 set filter to allt(客戶(hù)編號(hào) )=al