【文章內(nèi)容簡介】 稱3負責(zé)人VARCHAR50無否否倉庫負責(zé)人4備注VARCHAR4000無是否無5FLGBIT11否否刪除的標(biāo)志(5) 單位性質(zhì)表單位性質(zhì)表記錄了某個單位屬于供應(yīng)商還是屬于客戶，或者是其它，結(jié)構(gòu)如下：序號字段名稱數(shù)據(jù)類型大小默認值可否為空主健說明1編號INT4無否是單位性質(zhì)號2單位性質(zhì)VARCHAR255無是否單位性質(zhì)名(6) 聯(lián)系人表聯(lián)系人表記錄了各個單位的主要聯(lián)系人的信息，結(jié)構(gòu)如下：序號字段名稱數(shù)據(jù)類型大小默認值可否為空主健說明1編號INT4無否是編號2單位編號INT4無否否所屬的單位3聯(lián)系人VARCHAR300無否否人名4固定電話VARCHAR100無是否電話號碼5移動電話VARCHAR100無是否手機號6備注VARCHAR5000無是否無7FLGBIT11否否刪除的標(biāo)志(7) 業(yè)務(wù)單據(jù)主表業(yè)務(wù)單據(jù)主表記錄了各種單據(jù)的主要信息，如采購入庫單、銷售出庫單等，結(jié)構(gòu)如下：序號字段名稱數(shù)據(jù)類型大小默認值可否為空主健說明1編號INT4無否是主表編號2單號VARCHAR50無否否單號3單位編號INT4無否否哪些單位4經(jīng)辦人VARCHAR50無否否經(jīng)辦人5備注VARCHAR4000無是否無6倉庫編號INT4無否否倉庫7發(fā)生日期DATETIME8無是否業(yè)務(wù)發(fā)生的時間8系統(tǒng)日期DATETIME8無否否存單的時間9定單類型INT4無否否屬于采購或銷售單等 10FLGBIT11否否刪除的標(biāo)志(8) 業(yè)務(wù)單據(jù)明細表業(yè)務(wù)單據(jù)明細表記錄了各種單據(jù)的詳細信息，如商品的采購價、采購數(shù)量等，結(jié)構(gòu)如下：序號字段名稱數(shù)據(jù)類型大小默認值可否為空主健說明1編號INT4無否是明細單編號2訂單編號VARCHAR50無否否主單編號3商品編號INT4無否否商品4單價MONEY8無否否商品單價5數(shù)量INT4無否否商品數(shù)量6備注VARCHAR4000無是否無7FLGBIT11否否刪除的標(biāo)志數(shù)據(jù)庫中最基本的表是用戶表、商品檔案表、單位檔案和倉庫檔案表。用戶表：包括用戶名、密碼、是否是管理員。商品檔案表：包括了商品的基本信息。單位檔案表：存放供應(yīng)商、客戶的基本信息。倉庫檔案表：倉庫名、倉庫負責(zé)人之累的信息。這四張表間沒有直接聯(lián)系。①業(yè)務(wù)單據(jù)主表存入了用戶表的用戶編號、單位檔案表的單位編號、倉庫檔案表的倉庫編號。②業(yè)務(wù)單據(jù)明細表存入了業(yè)務(wù)單據(jù)主表的單號、商品檔案表的商品編號。如圖所示： 表間關(guān)系圖這個模塊主要是連接程序和數(shù)據(jù)庫。DataModu頁面只要放一個ADOConnection控件。ADOConnection控件的作用是連接數(shù)據(jù)庫。如圖所示。 數(shù)據(jù)模塊圖系統(tǒng)連接數(shù)據(jù)庫，： 數(shù)據(jù)庫連接圖第4章 功能模塊設(shè)計為了保護本系統(tǒng)數(shù)據(jù)，本系統(tǒng)實行管理員使用用戶名及密碼登錄系統(tǒng)，并且設(shè)置一個超級管理員，不可被刪除。啟動系統(tǒng)后，會出現(xiàn)一個系統(tǒng)登陸框，要求你輸入用戶名，并正確的填入該用戶名的密碼。用戶名可直接下拉找到，或自己輸入。如果用戶名或密碼輸入錯誤，則系統(tǒng)會提示你“用戶名稱或用戶密碼不正確，請重試”。 程序開啟時需要自動添加用戶名的下拉框內(nèi)容，登錄系統(tǒng)時要驗證用戶名、密碼是否正確。用戶名、密碼存儲在用戶表中，字段名為UserName和PassWord。檢驗通過后，程序進入主窗體。登錄模塊的主要程序代碼如下：procedure (Sender: TObject)。 //程序開啟時自動添加用戶名的下拉框內(nèi)容var i:Integer。begin inherited。 := False。 := 39。Select * From 用戶表 Where Flg = 139。 := True。 if then Exit。 for i:=0 to 1 do //查找出的用戶名導(dǎo)入下拉框 begin ((39。UserName39。).AsString)。 。 end。end。procedure (Sender: TObject)。 //確定 按鈕begin inherited。 FisLogin := False。 := False。 := 39。Select * From 用戶表 Where UserName = 39。39。39。++39。39。39。 and PassWord = 39。39。39。++39。39。39。39。 := True。 if not then //用戶名、密碼正確的情況 begin LoginName := (39。UserName39。).AsString。 LoginID := (39。ID39。).AsString。 isManage:= (39。isManage39。).AsBoolean。 FisLogin := True。 ModalResult := mrOk。 end else begin :=39。39。 :=39。39。 if ShowMessageBox(39。用戶名或密碼出錯，請重試！39。,39。系統(tǒng)提示39。) mrOk then Exit。 end。end。登錄進入系統(tǒng)后，首先會看到一個主窗口，它分為以下幾部分：頂部是系統(tǒng)的菜單欄，每個菜單對應(yīng)了不同的操作功能。管理員登陸到主窗體后，可以根據(jù)需要選擇他所想要的進行操作的模塊，進行相應(yīng)的操作。 主窗體界面系統(tǒng)主窗口需要為用戶提供使用各種功能的途徑，因此，這部分的代碼主要是根據(jù)用戶的選擇調(diào)用各個功能模塊。在窗口中調(diào)用各個功能模塊的方法主要是通過主菜單的各個菜單處理過程中編寫相應(yīng)的代碼完成的。主要程序代碼如下：procedure (Sender: TObject)。begin inherited。 。 //更改密碼end。procedure (Sender: TObject)。begin inherited。 if = True then //用戶管理 else begin ShowMessageBox(39。只有超級管理員用戶才能進入此頁！39。,39。系統(tǒng)提示39。)。 Exit。 end。end。procedure (Sender: TObject)。begin inherited。 Close。 //退出end。procedure (Sender: TObject)。begin inherited。 。 //采購入庫商品匯總表end。procedure (Sender: TObject)。begin inherited。 。 //采購?fù)素浬唐穮R總表end?！?用戶權(quán)限模塊設(shè)計這個模塊主要是用戶的設(shè)置，密碼的修改。用戶管理頁面只有超級管理員登錄才能打開，其它用戶不能用。密碼修改只能修改自己的。 用戶管理界面 密碼修改界面用戶權(quán)限模塊主要是在系統(tǒng)設(shè)置的菜單下。這個模塊和登陸有關(guān)，主要編輯數(shù)據(jù)庫中的用戶表。用戶管理界面設(shè)計：設(shè)置用戶權(quán)限，只有超級管理員可以進入這個界面，進行增刪改用戶操作；增加用戶，默認密碼為空；修改用戶，只能修改用戶的名稱；刪除用戶，直接從數(shù)據(jù)庫中刪除用戶信息。代碼如下：procedure (Sender: TObject)。 //添加 按鈕begin inherited。 FrmUserEdit := (Self)。 if = mrOK then //返回“確定”，則把新用戶加入數(shù)據(jù)庫 begin 。 (39。UserName39。).AsString := 。 (39。PassWord39。).AsString := 39。39。 。 end。 。end。procedure (Sender: TObject)。 //修改 按鈕begin inherited。 if (39。isManage39。).AsBoolean then //如果是超級管理員，不可被修改 begin (39。系統(tǒng)用戶不能修改！39。, 39。系統(tǒng)提示39。, MB_OKCANCEL + MB_ICONINFORMATION)。 Exit。 end。 FrmUserEdit := (Self)。 := (39。UserName39。).AsString。 if = mrOK then //確定修改，則把修改后的內(nèi)容改入數(shù)據(jù)庫 begin 。 (39。UserName39。).AsString := 。 。 end。 。end。procedure (Sender: TObject)。 //刪除 按鈕begin inherited。 if (39。isManage39。).AsBoolean then //超級管理員不可被刪 begin (39。系統(tǒng)用戶不能刪除！39。, 39。系統(tǒng)提示39。, MB_OKCANCEL + MB_ICONINFORMATION)。 Exit。 end。 if (39。是否要刪除此記錄！39。, 39。系統(tǒng)提示39。, MB_OKCANCEL + MB_ICONINFORMATION) = IDOK then begin 。 //直接刪除數(shù)據(jù)庫里的用戶 end。end。修改密碼：在修改密碼時，要檢查舊密碼是否正確、兩次輸入的新密碼是否正確。如果全部都正確，則根據(jù)登陸的用戶名查出用戶信息，把密碼修改了。function : Boolean。 //修改密碼begin Result := False。 if (39。PassWord39。).AsString //檢查舊密碼 39。39。++39。39。 then begin (39。舊密碼不正確！39。, 39。系統(tǒng)提示39。, MB_OKCANCEL + MB_ICONINFORMATION)。 Exit。 end。 if then //檢查兩次輸入的新密碼是否一致 begin (39。新密碼不正確！39。, 39。系統(tǒng)提示39。, MB_OKCANCEL + MB_ICONINFORMATION)。 Exit。 end。 。 (39。PassWord39。).AsString := 39。39。++39。39。 。 Result := True。end。procedure (Sender: TObject)。 //找出登錄的用戶信息var SQL:string。begin inherited。 SQL := 39。Select * From 用戶表