【導讀】師的指導下進行的研究工作及取得的成果。盡我所知，除文中特別加。而使用過的材料。均已在文中作了明確的說明并表示了謝意。除了文中特別加以標注引用的內容外，本論文。不包含任何其他個人或集體已經(jīng)發(fā)表或撰寫的成果作品。究做出重要貢獻的個人和集體，均已在文中以明確方式標明。全意識到本聲明的法律后果由本人承擔。同意學校保留并向國家有關部門或機構送交論文的復印件和電子版，允許論文被查閱和借閱。本人授權大學可以將本學位。印或掃描等復制手段保存和匯編本學位論文。涉密論文按學校規(guī)定處理。此系統(tǒng)能夠大量的節(jié)省人力資源，更好的增加公司的產(chǎn)值，使。得公司能夠在當今的社會競爭中有更大的生存能力。售，包含對商品信息、進貨單、退貨單和庫存進行操作。各種單據(jù)的匯總使其可。方便，是小型企業(yè)批發(fā)管理的必備工具。

　　

【正文】 e。 if then Exit。 for i:=0 to 1 do //查找出的用戶名導入下拉框 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)的菜單欄，每個菜單對應了不同的操作功能。 管理員登陸到主窗體后，可以根據(jù)需要選擇他所想要的進行操作的模塊，進行相應的操作。 浙江大 學城市學院畢業(yè)論文 第 4 章 功能模塊設計 16 主窗體界面設計 圖 主窗體 界面 主窗體代碼設計 系統(tǒng)主窗口需要為用戶提供使用各種功能的途徑，因此，這部分的代碼主要是根據(jù)用戶的選擇調用各個功能模塊。在窗口中調用各個功能模塊的方法主要是通過主菜單的各個菜單處理過程中編寫相應的代碼完成的。 主要程序代碼如下 ： procedure (Sender: TObject)。 begin inherited。 。 //更改密碼 end。 procedure (Sender: TObject)。 begin inherited。 if = True then //用戶管理 else begin ShowMessageBox(39。只有超級管理員用戶才能進入此頁！ 39。,39。系統(tǒng)提示 39。)。 Exit。 浙江大 學城市學院畢業(yè)論文 第 4 章 功能模塊設計 17 end。 end。 procedure (Sender: TObject)。 begin inherited。 Close。 //退出 end。 procedure (Sender: TObject)。 begin inherited。 。 //采購入庫商品匯總表 end。 procedure (Sender: TObject)。 begin inherited。 。 //采購退貨商品匯總表 end。 …… 用戶權限 模塊設計 這個模塊主要是用戶的設置，密碼的修改。 用戶管理頁面只有超級管理員登錄才能打開，其它用戶不能用。密碼修改只能修改自己的 。 用戶權限 模塊界面 設計 圖 用戶 管理 界面 浙江大 學城市學院畢業(yè)論文 第 4 章 功能模塊設計 18 圖 密碼修改界面 用戶權限 模塊 代碼 設計 用戶權限模塊 主要是在系統(tǒng)設置的菜單下。 這個模塊和登陸有關， 主要編輯數(shù)據(jù)庫中的用戶表。 用戶管理界面 設計：設置用戶權限，只有 超級管理員 可以進入這個界面，進行 增刪改用戶 操作；增加用戶，默認密碼為空； 修改用戶，只能修改用戶的名稱；刪除用戶，直接 從數(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。 浙江大 學城市學院畢業(yè)論文 第 4 章 功能 模塊設計 19 if = mrOK then //確定修改，則把修改后的內容改入數(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 浙江大 學城市學院畢業(yè)論文 第 4 章 功能模塊設計 20 SQL:string。 begin inherited。 SQL := 39。Select * From 用戶表 Where ID = 39。+ 。 := False。 := SQL。 := True。 end。 基礎信息管理 模塊設計 這個模塊主要是一些基礎信息的設置，比如往來單位管理、商品信息管理和倉庫管理。 往來單位管理包括客戶和供應商兩部分。商品信息管理主要是對商品的規(guī)格、單位、名稱等信息的增加、修改、刪除、查詢。 倉庫管理主要是對倉庫的名稱、管理員等信息的增加、修改、刪除、查詢。 基礎信息管理 模塊界面 設計 圖 往來單位管理界面 浙江大 學城市學院畢業(yè)論文 第 4 章 功能模塊設計 21 圖 倉庫檔案管理界面 圖 商品 檔案管理界面 基礎信息 管理模塊代碼 設計 三個頁面都比較類似， 都以 增加、刪除、修改、查詢 為主。就以往來單位管理為例。往來單位管理界面包括的按鈕：客戶、供應商、添加、修改、刪除、查詢。 客戶按鈕：主要使 頁面中的表格顯示出客戶列表。打開往來單位管理界面時系統(tǒng)默認顯示客戶列表。 供應商按鈕：主要使頁面中的表格顯示出供應商列表。 說明 ： procedure (Sender: TObject)。 //DBGrid1 頁面的 添加 begin 浙江大 學城市學院畢業(yè)論文 第 4 章 功能模塊設計 22 inherited。 FrmComeInfoEdit := (Self)。 := False。 := 39。Select * From 單位檔案 Where flg = 139。 := True。 。 if = mrOk then begin (39。單位性質 39。).AsInteger := i。 ()。 := False。 := True。 end else begin ()。 end。 。 。 end。 procedure (Sender: TObject)。 //DBGrid1 的修改 begin inherited。 if then Exit。 FrmComeInfoEdit := (Self)。 := False。 := 39。Select * From 單位檔案 Where flg = 1 and 編號 = 39。+ (39。編號 39。).AsString。 := True。 。 if = mrOk then begin (39。單位性質 39。).AsInteger := i。 ()。 := False。 := True。 end 浙江大 學城市學院畢業(yè)論文 第 4 章 功能模塊設計 23 else begin ()。 end。 。 。 end。 procedure (Sender: TObject)。 //DBGrid1 的刪除 begin inherited。 if ShowMessageBox(39。是否刪除此記錄！ 39。,39。系統(tǒng)提示 39。) mrOk then Exit。 。 (39。flg39。).AsBoolean := False。 。 := False。 := True。 。 end。 procedure (Sender: TObject)。 //查詢 var SQL:string。 OldSQL:string。 begin inherited。 OldSQL := 39。select * from 單位檔案 Where flg = 1 and 單位性質 = 39。 + inttostr(i)。 if (OldSQL,ADODataSet1,SQL) = mrOk then begin := False。 := SQL。 := True。 end。 end。 采購、銷售模塊設計 采購模塊分成兩