企業(yè)設備管理系統(tǒng)

1、第 4 章 企業(yè)設備管理系統(tǒng)公司經常需要采購一些設備，用以滿足公司正常運營的需要，采購回來的設備不能堆放在庫房里就不管了，誰想用的時候就去拿，誰想換的時候就去換。這樣，公司的設備恐怕會越來越少，公司正常的運營就會受到影響。因此，需要對公司的設備進行庫存管理，保證設備借出和歸還有序，還要能查到設備的借出情況。企業(yè)設備管理系統(tǒng)正好能滿足這個需求，它提供了對設備庫存、設備借出、設備歸還和設備統(tǒng)計信息的管理。 4.1 系統(tǒng)設計 系統(tǒng)設計是系統(tǒng)開發(fā)最為關鍵的一環(huán)，良好的系統(tǒng)設計需要把握系統(tǒng)的需求，并合理地劃分功能模塊。企業(yè)設備管理系統(tǒng)的系統(tǒng)設計還需要把握一個關鍵點，就是明確設備的惟一性，盡管設備可能一模

2、一樣，但是也應該區(qū)別開來，因為我們的借出、歸還以及借出歷史的統(tǒng)計都是要具體到某一個設備的，需要對每一個設備賦予不同的設備編號，通常會制作標簽貼在設備上，這恐怕是庫房管理員常做的工作，設備編號的方式可以根據公司具體決定。 4.1.1 功能描述 企業(yè)設備管理系統(tǒng)包括設備庫存管理、設備借出歸還管理和設備統(tǒng)計信息管理，詳細的功能描述如下。 1. 設備庫存管理 設備庫存管理包括新設備入庫、修改設備信息和陳舊設備的庫存清理。新設備入庫是對新采購的設備進行入庫的操作。修改設備信息是對入庫設備的名稱、購買人、入庫時間、設備說明等信息的修改。庫存清理，是清理庫存中不能再用的設備。 2. 設備借出歸還管理 設備借

3、出歸還管理包括設備借出管理和設備歸還管理。對于設備借出管理，如果設備已經借出，要提示用戶誰借走了設備。當借出成功的時候，需要在列表中顯示借出人、借出時間和借出設備信息，如果歸還成功，還需要顯示設備歸還時間。 3. 設備統(tǒng)計信息管理 設備統(tǒng)計信息管理包括對設備借出歷史信息、設備使用頻率信息和未歸還設備列表信息的管理。設備借出歷史統(tǒng)計顯示了一個設備所有的借出歷史，便于跟蹤設備的使用情況如果設備出現(xiàn)問題，還可以順藤摸瓜，查到誰有可能把設備弄壞了，從而找到設備損壞的原因，便于及時修理。設備使用頻率統(tǒng)計提供了設備借出次數的統(tǒng)計信息，如果一個設備借出的非常頻繁，那么企業(yè)可以考慮多購買這種設備，從而提高公司

4、的效率。未歸還設備列表提供了尚未歸還的設備信息，企業(yè)可以知道借出設備的使用情況。4.1.2 功能模塊設計 從上面的功能描述中，可以把企業(yè)設備管理系統(tǒng)分為 3 個模塊：設備庫存管理、設備借出歸還管理和設備統(tǒng)計信息管理。在每一個模塊下又提供了更為具體的功能。詳細的企業(yè)設備管理系統(tǒng)的功能模塊圖，如圖 4-1 所示。 圖 4-1 系統(tǒng)功能模塊圖4.2 數據庫設計與實現(xiàn) 數據庫設計的一個巧妙之處就是表的數量不能太多，邏輯層次也不能太多；否則統(tǒng)的升級和維護將會非常困難。 4.2.1 數據庫需求設計 通過對系統(tǒng)功能的分析，企業(yè)設備管理系統(tǒng)需要包含以下數據庫信息。 1. 設備信息 包括設備編號、設備名稱、設備

5、描述、設備入庫時間、設備購買人、設備借出狀設備借出 ID。 2. 設備借出信息 包括設備借出 ID、設備編號、借出人、借出時間和歸還時間。 4.2.2 數據庫表的設計 通過數據庫的需求，可以創(chuàng)建以下數據表。1. 設備信息表(device_info_tab) 設備信息表包含了設備的一些基本信息，還包括設備的借出信息，設備的庫存管理和設備的借出歸還管理都需要操作這個數據表，表的結構見表 4-1。 表 4-1 設備信息表 字段名稱 數據類型 可否為空 約束條件 說 明 device_code VARCHAR2(24) NOT NULL 主鍵 設備編號，要惟一 device_name VARCHAR2

6、(24) NOT NULL 無 設備名稱 description VARCHAR2(1000) NULL 無 設備描述 oper_date DATE NOT NULL 無 設備入庫時間 buyer VARCHAR2(24) NULL 無 設備購買人 Lend_status INTEGER NULL 無 設備借出狀態(tài) lend_id INTEGER NULL 無 設備借出 ID，借出 ID 是惟一的但可以為空 2. 設備借出信息表(device_lend_info_tab) 設備借出信息表包含了設備的借出和歸還信息，設備借出、設備歸還，以及統(tǒng)計信息的管理都需要用到這個數據表，表的結構見表 4-2

7、。 表 4-2 設備借出信息表 字段名稱 數據類型 可否為空 約束條件 說 明 lend_id INTEGER NOT NULL 主鍵 借出 ID，ID 值從系列中獲取) device_code VARCHAR2(24) NOT NULL 外鍵(device_info_tab) 設備編號 borrower VARCHAR2(24) NOT NULL 無 借出人 borrow_date DATE NULL 無 設備借出時間 return_date DATE NULL 無 設備歸還時間 4.2.3 數據庫表的創(chuàng)建 利用第 3 章中講述的方法創(chuàng)建表空間 dbdevice 和數據庫用戶 dbdevic

8、e，其中數據庫用戶的密碼為 dbdevice，選擇的默認表空間為 dbdevice。 創(chuàng)建企業(yè)設備管理系統(tǒng)的所有數據表的 SQL 語句如下： -創(chuàng)建設備信息表 CREATE TABLE device_info_tab( device_code VARCHAR2(24) NOT NULL, device_name VARCHAR(24) NOT NULL, description VARCHAR(1000) NULL,oper_date DATE NOT NULL, buyer VARCHAR2(24) NULL, lend_status INTEGER NULL CHECK (lend_sta

9、tus IN (0, 1), lend_id INTEGER NULL ); -添加設備編號主鍵 ALTER TABLE device_info_tab ADD ( PRIMARY KEY (device_code) ) ;-創(chuàng)建設備借出信息表 CREATE TABLE device_lend_info_tab( lend_id INTEGER NOT NULL, device_code VARCHAR2(24) NOT NULL, borrower VARCHAR(24) NOT NULL, borrow_date DATE NULL, return_date DATE NULL ); -添

10、加借出 ID 主鍵 ALTER TABLE device_lend_info_tab ADD ( PRIMARY KEY (lend_id) ) ; -添加設備編號外鍵 ALTER TABLE device_lend_info_tab ADD ( FOREIGN KEY (device_code) REFERENCES device_info_tab ) ; -創(chuàng)建可以遞增的系列號供 lend_id 使用 CREATE SEQUENCE seq_lend_id INCREMENT BY 1 START WITH 1 NOMAXVALUE NOMINVALUE NOCYCLE; 利用 Oracl

11、e SQLPlus WorkSheet 工具執(zhí)行上述的 SQL 語句從而創(chuàng)建數據庫表。需要說明的是，在打開 Oracle SQLPlus Worksheet 的“Oracle Enterprise Manager 登錄”窗口的時候，需要在“用戶名”文本框中輸入企業(yè)設備管理系統(tǒng)的用戶名 dbdevice，在“口令”文本框中輸入用戶密碼 dbdevice，在“服務”文本框中輸入數據庫的本地服務名 ORADB，選擇連接方式 Normal，登錄成功后，再運行上述的 SQL 語句。 4.3 系統(tǒng)的實現(xiàn) 完成了系統(tǒng)功能模塊的設計和數據庫表的創(chuàng)建后，就可以創(chuàng)建一個企業(yè)設備管理系統(tǒng)。 4.3.1 創(chuàng)建應用程序

12、 運行 Visual C+，選擇 File|New 命令，彈出 New 對話框。從 Projects 列表中選擇 MFC AppWizard(exe)向導，在 Location 文本框中選擇項目工程的目錄“D:VCSAMPLE”，在Project name 文本框中輸入工程文件的名稱 DeviceDBS，單擊 OK 按鈕，進入 MFC AppWizard Step 1 頁面，從應用程序的類型中選擇 Dialog based 選項，從語言列表中選擇“中文(中國)(APPWZCHS.DLL)”，單擊 Finish 按鈕，DeviceDBS 對話框的應用程序創(chuàng)建完畢。4.3.2 創(chuàng)建主對話框的界面

13、主對話框的布局如圖 4-2 所示。其中包括設備庫存管理、設備借出歸還管理和設備統(tǒng)計信息管理 3 個部分。3. 設備庫存管理 控件類型、ID 及說明見表 4-3。 表 4-3 設備庫存管理控件列表 控件類型 ID 屬 性 變量或函數 Group Box IDC_STATIC 設備庫存管理 無 Label IDC_STATIC 設備編號 無 Edit Box IDC_EDIT_DEVICECODE 無 CString 類型變量 m_strDeviceCode Label IDC_STATIC 設備名稱 無 Edit Box IDC_EDIT_DEVICENAME 無 CString 類型變量 m_

14、strDeviceName Label IDC_STATIC 購買人 無 Edit Box IDC_EDIT_BUYER 無 CString 類型變量 m_strBorrower Label IDC_STATIC 入庫時間 無 Date Time Picker IDC_DT_DATE Short Date COleDateTime 類型變量 m_oleOperDate Date Time Picker IDC_DT_TIME Time COleDateTime 類型變量 m_oleOperTime Label IDC_STATIC 設備說明 無 Edit Box IDC_EDIT_DESCRI

15、PTION 無 CString 類型變量 m_strDescription Button IDC_BTN_DEVICE_ADD 新設備入庫 函數 OnBtnDeviceAdd ()處理新設備的入庫管理 Button IDC_BTN_DEVICE_MOD 修改設備信息 函數 OnBtnDeviceMod ()修改設備信息 Button IDC_BTN_DEVICE_DEL 庫存清理 函數 OnBtnDeviceDel ()處理庫存設備的清理管理 Group Box IDC_STATIC 設備信息 無 List Control IDC_LIST_DEVICE 無 列表框控件類型變量 m_listD

16、evice4. 設備借出歸還管理 控件類型、ID 及說明見表 4-4。 表 4-4 設備借出歸還管理控件列表 控件類型 ID 屬 性 變量或函數 Group Box IDC_STATIC 設備借出歸還管理 無 Label IDC_STATIC 請輸入借書人 無 Edit Box IDC_EDIT_BORROWER 無 CString 類型變量 m_strBorrower Label IDC_STATIC 請選擇設備名稱 無 Combo Box IDC_COMBO_NAME 無 列表框控件變量 m_comboName，CString 類型變量m_strSelectedName Label IDC

17、_STATIC 請選擇設備編號 無 Combo Box IDC_COMBO_CODE 無 列表框控件變量 m_comboCode，CString 類型變量m_strSelectedCode Button IDC_BTN_LEND 借出 函數 OnBtnLend ()處理設備借出管理 Button IDC_BTN_RETURN 歸還 函數 OnBtnReturn ()處理設備歸還管理 Group Box IDC_STATIC 借出信息 無 List Control IDC_LIST_LEND 無 列表框控件類型變量 m_listLend 5. 設備統(tǒng)計信息管理 控件類型、ID 及說明見表 4-5

18、。 表 4-5 設備統(tǒng)計信息管理控件列表 控件類型 ID 屬 性 變量或函數 Group Box IDC_STATIC 設備統(tǒng)計信息管理 無 Button IDC_BTN_LEND_LIST 設備借出歷史統(tǒng)計 函數 OnBtnLendList ()處理設備借出歷史統(tǒng)計 Button IDC_BTN_FREQUENCY_LIST 設備使用頻率統(tǒng)計 函數 OnBtnFrequencyList ()處理設備使用頻率統(tǒng)計 Button IDC_BTN_LENT_DEVICE 未歸還設備列表 函數 OnBtnLentDevice ()處理未歸還設備統(tǒng)計 Button IDC_SYS_EXIT 退出 函數

19、 OnSysExit()處理系統(tǒng)退出代碼 主對話框類名稱為 CDeviceDBSDlg，資源 ID 為 IDD_DEVICEDBS_DIALOG，對話框名稱為“企業(yè)設備管理系統(tǒng)”。主界面用到了兩個列表框控件分別顯示設備信息和借出信息。需要為這兩個列表框控件添加顯示的列，從而顯示相應的數據信息。為了代碼設計的清晰，在CDeviceDBSDlg類中定義了一個InitControl私有函數負責添加控件的顯示列， InitControl函數的代碼如下： void CDeviceDBSDlg:InitControl() /設置列表框控件擴展風格 DWORD dwExStyle = LVS_EX_FULL

20、ROWSELECT | LVS_EX_GRIDLINES | LVS_EX_HEADERDRAGDROP | LVS_EX_ONECLICKACTIVATE | LVS_EX_UNDERLINEHOT; m_listDevice.SetExtendedStyle(dwExStyle); m_listLend.SetExtendedStyle(dwExStyle); /初始化設備信息列表框控件 m_listDevice.InsertColumn(0,"設備編號",LVCFMT_CENTER,80); m_listDevice.InsertColumn(1,"設備名稱

21、",LVCFMT_CENTER,80); m_listDevice.InsertColumn(2,"設備入庫時間",LVCFMT_CENTER,140); m_listDevice.InsertColumn(3,"設備購買人",LVCFMT_CENTER,80);m_listDevice.InsertColumn(4,"設備描述",LVCFMT_CENTER,200); /初始化議題列表框控件 m_listLend.InsertColumn(0,"借出 ID",LVCFMT_CENTER,80); m_l

22、istLend.InsertColumn(1,"設備編號",LVCFMT_CENTER,80); m_listLend.InsertColumn(2,"設備名稱",LVCFMT_CENTER,80); m_listLend.InsertColumn(3,"借出人",LVCFMT_CENTER,80); m_listLend.InsertColumn(4,"設備借出時間",LVCFMT_CENTER,140); m_listLend.InsertColumn(5,"設備歸還時間",LVCFMT_C

23、ENTER,140); 在 OnInitDialog 函數末尾處添加 InitControl 函數的調用，這樣系統(tǒng)在啟動的時候，就可以看到已添加顯示列的列表框控件。 4.3.3 顯示數據到界面上 當系統(tǒng)啟動之后，可以將數據庫中的數據顯示到界面上，需要處理數據庫的連接和顯示數據到界面上的兩個過程。 1. 數據庫的連接 數據庫的連接需要 3 個參數： ODBC 數據源名稱、數據庫用戶名稱和數據庫用戶密碼。其中數據源名稱為 ORADB，數據庫用戶的名稱和密碼均為 dbdevice?？紤]到讀者配置的數據源和用戶名可能不一樣，可以從配置文件中獲取這些參數信息，配置文件的格式如下： General 數據庫

24、數據源=oradb 數據庫用戶=dbdevice 數據庫密碼=dbdevice 把這段文字保存為 DeviceDBS.ini 文件，可以根據讀者自己配置的數據源、數據用戶和密碼修改文件中的相應設置，并把 DeviceDBS.ini 文件放在 DeviceDBS.exe 運行程序的同一目錄下。 在 CDeviceDBSDlg 類中定義了一個私有類型的 ConnectDB 函數，處理數據庫的連接，代碼如下： void CDeviceDBSDlg:ConnectDB() char szPath255; /獲取應用程序完全路徑 :GetModuleFileName(NULL,szPath,255);

25、CString strFileName = szPath;/獲取所在的目錄名稱 strFileName.Delete(strFileName.ReverseFind()+1,strFileName.GetLength ()-strFileName.ReverseFind()-1); /構造配置文件的完全路徑 strFileName += "DeviceDBS.ini" TCHAR sz101; memset(sz,0,sizeof(TCHAR)*101); /獲取配置文件中數據庫數據源的值,如果沒有,默認值為 oradb GetPrivateProfileString(_T

26、("General"),_T(" 數 據 庫 數 據 源"),_T("oradb"),sz,100,strFileName); CString strSource(sz); GetPrivateProfileString(_T("General"),_T(" 數 據 庫 用 戶"),_T("dbdevice"),sz,100,strFileName); CString strUser(sz); GetPrivateProfileString(_T("General&

27、quot;),_T(" 數 據 庫 密 碼"),_T("dbdevice"),sz,100,strFileName); CString strPwd(sz); /創(chuàng)建連接字符串. CString strConnect; strConnect.Format("DSN=%s;UID=%s;PWD=%s",strSource,strUser,strPwd); /打開數據庫的連接,并且捕獲異常 TRY m_db.OpenEx(strConnect,CDatabase:noOdbcDialog); CATCH(CDBException,ex)

28、AfxMessageBox (ex->m_strError); AfxMessageBox (ex->m_strStateNativeOrigin); AND_CATCH(CMemoryException,pEx) pEx->ReportError(); AfxMessageBox ("memory exception"); AND_CATCH(CException,e) TCHAR szError100; e->GetErrorMessage(szError,100); AfxMessageBox (szError); END_CATCH Init

29、CtrlData(); 函數ConnectDB利用系統(tǒng)的GetPrivateProfileString函數從文件中獲取數據庫的配置參數， GetPrivateProfileString 函數的原型如下： DWORD GetPrivateProfileString( LPCTSTR lpAppName, LPCTSTR lpKeyName, LPCTSTR lpDefault, LPTSTR lpReturnedString, DWORD nSize, LPCTSTR lpFileName ); 其中第 1 個參數是 Section 的名稱，對應 DeviceDBS.ini 文件中的 Gener

30、al，即中括號所包含的內容 General；第 2 個參數是鍵的名稱，如 DeviceDBS.ini 文件中的“數據庫數據源”、“數據庫用戶”和“數據庫密碼”；第 3 個參數是默認值，如果沒用成功獲得鍵值，那么就取lpDefault代表的數據；第 4 個參數是保存鍵值的緩沖區(qū)；第 5 個參數是緩沖區(qū)的大小；第 6 個參數是文件的完全路徑。 由于第 6 個參數需要獲取文件 DeviceDBS.ini 的完全路徑，因而需要利用系統(tǒng)的GetModuleFileName 函數先獲取應用程序 DeviceDBS.exe 所在的路徑(因為 DeviceDBS.ini文件和應用程序 DeviceDBS.ex

31、e 在同一目錄下)，然后構造配置文件 DeviceDBS.ini 的完全路徑。當從文件中獲取到數據庫配置參數之后，就可以創(chuàng)建數據庫連接字符串，利用CDatabase 的 OpenEx 方法打開數據庫的連接，并處理數據庫的異常。 2. 顯示數據到界面上 連接數據庫之后，需要把數據庫中的設備信息顯示到設備信息列表框控件中，并刷新借出歸還管理中的設備名稱和設備編號兩個列表框中的顯示數據。因而在 CDeviceDBSDlg類中定義了一個 InitCtrlData 私有函數，負責顯示這些數據。同時還定義一個RefreshComboNameData 函數，根據數據庫的最新數據刷新借出歸還管理中的兩個列表框

32、的數據。在對設備信息添加、修改和刪除之后都需要調用 RefreshComboNameData 函數來更新列表框中的顯示數據。同時還需要定義兩個分別把數據插入到列表框控件中的函數，分別為：InsertDeviceInfoItem 和 InsertLendInfoItem。在連接數據庫成功之后，不需要顯示借出信息，因為比較多，也不是很重要，只需在借出和歸還成功之后顯示借出信息。在DeviceDBSDlg.h 文件中添加這 4 個私有函數的定義，代碼如下： /從數據庫獲取設備信息并更新到控件中 void InitCtrlData(); /更新設備名稱和設備編號列表框的信息 void RefreshC

33、omboNameData(); /向設備信息控件中添加信息 void InsertDeviceInfoItem(CString code, CString name, CString date, CString buyer, CString description); /向借出信息控件中添加借出信息 void InsertLendInfoItem(int id,CString code,CString name,CString borrower,CString lendDate,CString returnDate); 向設備信息列表框控件中添加設備信息的函數是 InsertDeviceInf

34、oItem，代碼如下： void CDeviceDBSDlg:InsertDeviceInfoItem(CString code, CString name, CString date, CString buyer, CString description) /獲取當前的記錄條數. int nIndex = m_listDevice.GetItemCount(); LV_ITEM lvItem; lvItem.mask = LVIF_TEXT ; lvItem.iItem = nIndex; /行數 lvItem.iSubItem = 0; lvItem.pszText = (char*)(LPCTSTR)code; /第一列 /在最后一行插入記錄值. m_listDevice.InsertItem(&lvItem); /設置該行的其他列的值. m_listDevice.SetItemText(nIndex,1,name); m_listDevice.SetItemText(nIndex,2,date); m_listDevice.SetItemText(nIndex,3,buyer); m_listDevice.SetItemText(nIndex,4,description); 向借出信息列表框控件中添加借出信息的函數是 InsertLendI