1、仓库管理系统 仓库管理是整个物资供应管理系统的核心。本实例着重讲解仓库管理模块,给出数据库设计和程序实现过程。 1、系统设计 1、1系统设计目标 系统开发的总统任务是实现企业物资设备管理的系统化、规范化和自动化,从而达到仓库管理效率的目的。 1、2开发设计思想 在本系统的设计过程中,为了克服仓库管理信息处理量大的困难,满足计算机管理的需要,采取了下面的一些原则: ● ● 统一各种原始单据的格式,统一帐目和报表的格式。 ● ● 删除不必要的管理冗余,实现管理规范化、科学化。 ● ●
2、 程序代码标准化,软件统一化,确保软件的可维护性和实用性。 ● ● 界面尽量简单化,做到实用、方便,尽量满足企业不同层次员工的需要。 ● ● 建立操作日志,系统自动记录所进行的各种操作。 1、3系统功能分析 本例中的仓库管理系统需要完成的功能主要有以下几点: ● ● 仓库管理各种信息的输入,包括入库、出库、还库、需求信息的输入等。 ● ● 仓库管理各种信息的查询、修改和维护。 ● ● 设备采购报表的生成。 ● ● 在库存管理中加入最高储备和最低储备字段,对仓库中的物资设备实现监控
3、和报警。 ● ● 企业各部门的物资需求的管理。 ● ● 操作日志的管理。 ● ● 仓库管理系统的使用帮助。 1、4系统功能模块设计 在系统功能分析的基础上,结合Visual C++程序编制的特点,得到如图1-1所示的系统功能模块图。 仓库管理系统 系统模块 维护模块 输入模块 查看模块 报表模块 帮助模块 入库模块 还库模块 出库模块 需求模块 日志管理
4、 图1-1 系统功能模块图 2、数据库设计 2、1数据库需求分析 在仔细调查企业仓库物资设备管理过程的基础上,得到本系统所处理的数据流程如图1-2所示: 仓库现有库存 各部门需求 企业生产计划 汇总 设备采购 设备出库 设备入库 设备还库 图1-2 数据流程图 本实例设计的数据项和数据结构如下: ● ● 设备代码信息,包括的数据项有设备号、设备名称。 ● ● 现有库存信息,包
5、括的数据项有设备、现有数目、总数目、最大库存和最小库存。 ● ● 设备使用信息,包括的数据项有使用的设备、使用部门、数目、使用时间和出库时状态等。 ● ● 设备采购信息,包括的数据项有采购的设备、采购员、供应商、采购数目和采购时间等。 ● ● 设备归还信息,包括的数据项有归还设备、归还部门、归还数目、归还时间和经手人等。 ● ● 设备需求信息,包括的数据项有需求的部门、需求设备、需求数目和需求时间等。 2、2数据库概念结构设计 本实例根据上面的设计规划出的实体有库存实体、入库实体、出库实体、采购实体、还库实体和需求实体,各实体
6、的E-R图及其关系描述如下: 现有库存 设备号 现有库存 警戒库存 总数 图1-3 库存实体E-R图 入库 设备号 供应商信息 采购价格数量 采购员 图1-4 入库实体E-R图 出库 设备号 使用部门 数量时间 经手人 图1-5 出库实体E-R图 部门需求 设备号 需
7、求部门 需求数量 需求时间 图1-6 部门需求实体E-R图 设备还库 设备号 还库时间、人 还库数量 经手人 图1-7 还库实体E-R图 计划采购 设备号 库存信息 供应信息 时间 图1-8计划采购实体E-R图 入库 现有库存 出库 还库 部门需求 设备采购
8、 图1-9实体和实体之间的关系E-R图 2、3数据库逻辑结构设计 在上面的实体以及实体之间的关系的基础上,形成数据库中的表格和各个表格之间的关系。仓库管理系统数据库中各个表格的设计结果如下面的几个表格所示。每个表格表示在数据库中的一个表。 表1-1 设备代码表device_code 列名 数据类型 可否为空 说明 code VARCHAR2(6) NOTNULL 设备号(主键) name VARCHAR2(20) NULL 设备名称 表1-2
9、 设备入库表device_in 列名 数据类型 可否为空 说明 code VARCHAR2(6) NOTNULL 设备号 in_date DATE NOTNULL 入库时间(主键) provider VARCHAR2(20) NULL 供应商 teleno VARCHAR2(10) NULL 供应商电话 in_number NUMBER(6) NULL 入库数量 price NUMBER(6) NULL 价格 buyer VARCHAR2(10) NULL 采购员
10、 表1-3 设备出库表device_out 列名 数据类型 可否为空 说明 code VARCHAR2(6) NOTNULL 设备号 department VARCHAR2(20) NULL 使用部门 out_date DATE NULL 出库时间(主键) out_state NUMBER(1) NULL 出库状态 out_person VARCHAR2(10) NULL 经手人 out _number NUMBER(6) NOTNULL 出库数量
11、taker VARCHAR2(10) NULL 领取人 usage VARCHAR2(20) NULL 用途 表1-4 现有库存表device 列名 数据类型 可否为空 说明 code VARCHAR2(6) NOTNULL 设备号(主键) now_number NUMBER(6) NULL 现有库存 high _number NUMBER(6) NULL 最大库存 low _number NUMBER(6) NULL 最少库存 total
12、number NUMBER(6) NULL 总数 表1-5 部门需求表device_need 列名 数据类型 可否为空 说明 code VARCHAR2(6) NOTNULL 设备号 department VARCHAR2(20) NOTNULL 部门名称 need _number NUMBER(6) NULL 需求数量 begin_date DATE NULL 需求开始时间 end_date DATE NULL 需求结束时间 表1-6
13、 设备还库表device_return 列名 数据类型 可否为空 说明 code VARCHAR2(6) NOTNULL 设备号 return_date DATE NULL 还库时间(主键) keeper VARCHAR2(20) NULL 仓库管理员 return_ number NUMBER(6) NULL 归还数量 return_date VARCHAR2(10) NULL 归还人 表1-7 操作日志表 ho
14、wdo 列名 数据类型 可否为空 说明 do_user VARCHAR2(10) NOTNULL 操作员 do_what VARCHAR2(40) NOTNULL 操作内容 do_date DATE NOTNULL 操作时间 表1-8 设备采购计划表device_wantbuy 列名 数据类型 可否为空 说明 code VARCHAR2(6) NOTNULL 设备号 now_number NUMBER(6) NULL 现有库存 total_number NU
15、MBER(6) NULL 总库存 max_number NUMBER(6) NULL 最大库存 buy_number NUMBER(6) NULL 购买数量 provider VARCHAR2(10) NULL 供应商 price NUMBER(6) NULL 价格 buy_date DATE NULL 计划采购时间(主键) 3、数据库结构的实现 4、创建应用程序 (1) (1) 选择“FileNew”中的“新建项目”选项卡中“MFC AppWizard(exe)”,设置
16、合适的目录和项目名,比如“E:\Project”目录下的“DMS”项目。 (2) (2) 创建一个对话框应用程序(“Dialog Based”),单击“Next”按钮。 (3) (3) 由于在这个项目中将要使用ADO,所以在MFC AppWizard的第二步,需要选中“Automation”选项,使应用程序能够支持自动化对象。如图1-10所示 (4) (4) 单击“Finish”按钮结束项目的创建。主对话框名为CDMSDlg。 (5) (5) 项目创建完毕后,在头文件stdafx.h
17、中加入下面4行: #import“c:\programfiles\commonfiles\system\ado\msado15.dll”no_namespace(”EOF”,”adoEOF”) #include”icrsint.h” inline void TESTHR(HRESULT x){if FAILED(x)_com_issue_error(x);}; #define DATEFMT Cstring(“’%s”’) 5、操作日志模块的设计 (1)写日志模块 图1-10 使应用程序支持自动化 先定义一个名为
18、ClogMngr的类 //LogMngr.h //定义一个Log管理器 class CLogMngr { public: CLogMngr(); virtual ~CLogMngr(); public: bool AddLog(LPCSTR op); void Setup(_ConnectionPtr cnnt, CString& user) { m_DBCnt = cnnt; m_user = user; } protected: _ConnectionPtr m_DBCnt; CString m_user; }; 下面是Cl
19、ogMngr::AddLog内部实现详细过程。 //LogMngr.cpp //向数据库中添加Log记录的代码。 bool CLogMngr::AddLog(LPCSTR op) { CTime tm = CTime::GetCurrentTime(); CString sql_; sql_.Format("INSERT INTO HOWDO (do_user,do_what,do_date) VALUES('%s','%s','%d-%d-%d %d:%d:%d')", m_user, op, tm.GetYear(), tm.GetMonth(),
20、tm.GetDay(), tm.GetHour(), tm.GetMinute(), tm.GetSecond()); _bstr_t sql = sql_; try { m_DBCnt->Execute(sql,NULL,adCmdText); } catch(_com_error& e) { CString Error = e.ErrorMessage(); AfxMessageBox(e.ErrorMessage()); return false; }
21、 return true; } (2)读日志模块 图1-11 查看日志窗口 初始化界面代码如下: BOOL CDlgViewLog::OnInitDialog() { CDialog::OnInitDialog(); m_list.InsertColumn(0,"操作员"); m_list.InsertColumn(1,"操作日期"); m_list.InsertColumn(2,"操作内容"); RECT rect; m_list.GetWindowRect(&rect); int wid = rect.r
22、ight - rect.left; m_list.SetColumnWidth(0,wid/3); m_list.SetColumnWidth(1,wid/3); m_list.SetColumnWidth(2,wid/3); m_list.SetExtendedStyle(LVS_EX_FULLROWSELECT); RefreshData(); return TRUE; // return TRUE unless you set the focus to a control // EXCEPTION: OCX Prope
23、rty Pages should return FALSE } void CDlgViewLog::RefreshData() { m_list.DeleteAllItems(); m_list.SetRedraw(FALSE); _bstr_t strSQL("SELECT * FROM HOWDO"); _RecordsetPtr MySet; int i = 0; try { MySet.CreateInstance(__uuidof(Recordset)); MySet = m_DBCnt->Execute(strSQ
24、L,NULL,adCmdText); _variant_t Holder; while(!MySet->adoEOF) { Holder = MySet->GetCollect("do_user"); if(Holder.vt!=VT_NULL) m_list.InsertItem(i, (char*)(_bstr_t)Holder); Holder = MySet->GetCollect("do_date"); if (Holder.vt!=VT_NULL) m_list.SetItemText(i,
25、1, (char*)(_bstr_t)Holder); Holder = MySet->GetCollect("do_what"); if(Holder.vt!=VT_NULL) m_list.SetItemText(i, 2, (char*)(_bstr_t)Holder); MySet->MoveNext(); } MySet->Close(); } catch(_com_error& e) { AfxMessageBox(e.ErrorMessage()); m_list.Set
26、Redraw(TRUE); return; } m_list.SetRedraw(TRUE); } void CDlgViewLog::OnClickListVllog(NMHDR* pNMHDR, LRESULT* pResult) { int i = m_list.GetSelectionMark(); m_opr = m_list.GetItemText(i,0); m_date = m_list.GetItemText(i,1); m_op = m_list.GetItemText(i
27、2); UpdateData(FALSE); *pResult = 0; } //DlgViewLog.cpp //删除所有日志记录的函数。 void CDlgViewLog::OnBtnVlrmall() { _bstr_t strSQL("TRUNCATE TABLE HOWDO"); try { m_DBCnt->Execute(strSQL,NULL,adCmdText); } catch(_com_error& e) { AfxMessageBox(e.ErrorMessage()); En
28、dDialog(0); } RefreshData(); } 6、登录窗口的设计和程序初始化 在CDMSDlg::OnInitDialog()中加入这样一段代码: //DMSDlg.cpp //弹出登录界面 CDlgLogIn dlg; do { if (!dlg.DoModal()) EndDialog(0); } while (dlg.m_UsrName.GetLength()==0); 它的目的是弹出图1-12所示的登录对话框,并从中获得一个有效的用户名。 图1-12
29、 登录界面 得到有效用户名后,程序用如下代码: // DMSDlg.cpp //建立数据库连接,初始化成员变量 //登录数据库,若失败,则关闭程序。 { m_DBCnt.CreateInstance(__uuidof(Connection)); CString sql_; sql_.Format("DSN=DMS;UID=%s;PWD=%s",dlg.m_UsrName,dlg.m_UsrPwd); _bstr_t sql=sql_;//建立连接 m_DBCnt->Open(sql,"","",-1);//初始化日志管理器 m_logMngr
30、Setup(m_DBCnt,dlg.m_UsrName);//记录此次登录 m_logMngr.AddLog("登录数据库"); } catch(_com_error& e) { AfxMessageBox(e.ErrorMessage()); this->EndDialog(0); } 在程序结束时关闭数据库连接。 // DMSDlg.cpp //关闭数据库连接 void CDMSDlg::OnDestroy() { CDialog::OnDestroy(); m_DBCnt->C
31、lose(); } 7、主对话框界面的设计 登录完成后,显示出主对话框。它的界面设计如图1-13所示,单击某个按钮就能弹出某个功能的界面。 图1-13 主对话框界面 以其中“设备代码”按钮为例,说明它的事件处理函数。代码如下: // DMSDlg.cpp //显示设备代码管理界面 void CDMSDlg::OnBtnDevcode() { CDlgDevcode dlg; dlg.Setup(m_DBCnt,&m_logMngr); this->ShowWindow(SW_HIDE); dlg.DoModal(); this->
32、ShowWindow(SW_SHOW); } 其他按钮的事件处理函数,代码与“设备代码”按钮的事件处理函数相同。 8、设备代码管理窗口的建立 对话框类名为CdlgDevcode设计如图1-14所示 图1-14 设备代码管理窗口 //DlgDevcode.cpp //对话框的初始化 BOOL CDlgDevcode::OnInitDialog() { CDialog::OnInitDialog();//切分列表控件 m_list.InsertColumn(0,"设备号"); m_list.InsertColumn(1,"设备名"); RE
33、CT rect; m_list.GetWindowRect(&rect); int wid = rect.right - rect.left; m_list.SetColumnWidth(0,wid/2); m_list.SetColumnWidth(1,wid/2); m_list.SetExtendedStyle(LVS_EX_FULLROWSELECT);//读取已有数据 RefreshData(); return TRUE; } // DlgDevcode.cpp //消息映射部分 BEGIN_MESSAGE_MAP(CDlgDevcode
34、 CDialog) //{{AFX_MSG_MAP(CDlgDevcode) ON_NOTIFY(NM_CLICK, IDC_LIST_DEVCODE, OnClickListDevcode) //}}AFX_MSG_MAP END_MESSAGE_MAP() //事件处理部分 void CDlgDevcode::OnClickListDevcode(NMHDR* pNMHDR, LRESULT* pResult) { int i = m_list.GetSelectionMark(); m_code = m_list.GetItemText(i,0
35、); m_name = m_list.GetItemText(i,1); UpdateData(FALSE); *pResult = 0; } 其余程序的清单如下: // DlgDevcode.cpp : implementation file // #include "stdafx.h" #include "DMS.h" #include "DlgDevcode.h" #ifdef _DEBUG #define new DEBUG_NEW #undef THIS_FILE static char THIS_FILE[] = __FILE__
36、 #endif //////////////////////////////////////////////////////////////////////////// // CDlgDevcode dialog CDlgDevcode::CDlgDevcode(CWnd* pParent /*=NULL*/) : CDialog(CDlgDevcode::IDD, pParent) { //{{AFX_DATA_INIT(CDlgDevcode) m_code = _T(""); m_name = _T(""); //}}AFX_DATA_INIT m_D
37、BCnt = NULL; m_log = NULL; } void CDlgDevcode::DoDataExchange(CDataExchange* pDX) { CDialog::DoDataExchange(pDX); //{{AFX_DATA_MAP(CDlgDevcode) DDX_Control(pDX, IDC_LIST_DEVCODE, m_list); DDX_Text(pDX, IDC_EDIT_DCCODE, m_code); DDX_Text(pDX, IDC_EDIT_DCNAME, m_name); //}}AFX_D
38、ATA_MAP } BEGIN_MESSAGE_MAP(CDlgDevcode, CDialog) //{{AFX_MSG_MAP(CDlgDevcode) ON_NOTIFY(NM_CLICK, IDC_LIST_DEVCODE, OnClickListDevcode) ON_BN_CLICKED(IDC_BTN_DCADD, OnBtnDcadd) ON_BN_CLICKED(IDC_BTN_DCDEL, OnBtnDcdel) ON_BN_CLICKED(IDC_BTN_DCUPD, OnBtnDcupd) //}}AFX_MSG_MAP END
39、MESSAGE_MAP() //////////////////////////////////////////////////////////////////////////// // CDlgDevcode message handlers //负责读取已有数据的函数 void CDlgDevcode::RefreshData() { m_list.DeleteAllItems(); m_list.SetRedraw(FALSE); _bstr_t strSQL("SELECT * FROM DEVICE_CODE"); _RecordsetPtr MyS
40、et; int i = 0; try { MySet.CreateInstance(__uuidof(Recordset)); //执行SOL语句读取记录 MySet = m_DBCnt->Execute(strSQL,NULL,adCmdText); _variant_t Holder; while(!MySet->adoEOF) { //取出code字段的数据 Holder = MySet->GetCollect("code"); if(Holder.vt!=VT_NULL) m_list.Inse
41、rtItem(i, (char*)(_bstr_t)Holder); //取出name字段的数据 Holder = MySet->GetCollect("name"); if(Holder.vt!=VT_NULL) m_list.SetItemText(i, 1, (char*)(_bstr_t)Holder); MySet->MoveNext(); } } catch(_com_error& e) { AfxMessageBox(e.ErrorMessage()); m_li
42、st.SetRedraw(TRUE); return; } m_list.SetRedraw(TRUE); } //负责添加记录的函数 void CDlgDevcode::OnBtnDcadd() { UpdateData(); CString sql_; sql_.Format("INSERT INTO DEVICE_CODE (code,name) VALUES('%s','%s')", m_code, m_name); _bstr_t sql = sql_; try {
43、 m_DBCnt->Execute(sql,NULL,adCmdText); } catch(_com_error& e) { AfxMessageBox(e.ErrorMessage()); return; } m_log->AddLog("添加设备记录。"); RefreshData(); } //负责删除记录的函数 void CDlgDevcode::OnBtnDcdel() { UpdateData(); CString sql_; sq
44、l_.Format("DELETE FROM DEVICE_CODE WHERE CODE='%s'",m_code); _bstr_t sql = sql_; try { m_DBCnt->Execute(sql,NULL,adCmdText); } catch(_com_error& e) { AfxMessageBox(e.ErrorMessage()); return; } m_log->AddLog("删除设备记录。"); Re
45、freshData(); } //负责更新数据的函数 void CDlgDevcode::OnBtnDcupd() { UpdateData(); CString sql_; sql_.Format("UPDATE DEVICE_CODE SET NAME='%s' WHERE CODE='%s'",m_name,m_code); _bstr_t sql = sql_; try { m_DBCnt->Execute(sql,NULL,adCmdText); } catch(_com_error& e)
46、 { AfxMessageBox(e.ErrorMessage()); return; } m_log->AddLog("更新设备记录。"); RefreshData(); } 9、库存信息管理窗口的创建 用户可以在此新增、修改、删除某种设备的记录。单击主对话框中的“库存信息”按钮,将出现图1-15所示的界面。新增记录时,用户在“设备号”组合框中选择一个设备号,在下面填入各种数量,之后单击“新增”按钮即可向表中增加记录。 修改记录时,用户单击列表中某一行,程序利用1
47、8提到的方法,在窗口下面把这一行记录的详细信息显示出来,用户即可对之修改。 “设备号”这个子窗口初始化的时候有如下代码: //DlgDev.cpp //对话框的初始化 BOOL CDlgDev::OnInitDialog() { CDialog::OnInitDialog(); //切分列表控件 m_list.InsertColumn(0,"设备号"); m_list.InsertColumn(1,"现存数量"); m_list.InsertColumn(2,"最大数量"); m_list.InsertColumn(3,"最小数量"); m_list
48、InsertColumn(4,"总数"); RECT rect; m_list.GetWindowRect(&rect); int wid = rect.right - rect.left; m_list.SetColumnWidth(0,wid/5); m_list.SetColumnWidth(1,wid/5); m_list.SetColumnWidth(2,wid/5); m_list.SetColumnWidth(3,wid/5); m_list.SetColumnWidth(4,wid/5); m_list.SetExtendedS
49、tyle(LVS_EX_FULLROWSELECT); _RecordsetPtr pRst = NULL; IADORecordBinding *picRs = NULL; //Interface Pointer declared.(VC++ Extensions) CDevCodeRs rs; try { _bstr_t strSQL("SELECT * FROM DEVICE_CODE"); TESTHR(pRst.CreateInstance(__uuidof(Recordset))); /
50、/读取所有的设备编号 pRst = m_DBCnt->Execute(strSQL, NULL, adCmdText); //数据绑定 TESTHR(pRst->QueryInterface(__uuidof(IADORecordBinding),(LPVOID*)&picRs)); TESTHR(picRs->BindToRecordset(&rs)); int i = 0; while (!pRst->adoEOF) { //向组合框控件中添加所有的设备编号 m_devs.AddString(rs.m_sz_code);






