企业进销存系统的设计与实现
图表 3-7查询窗口
其实现过程中的关键技术如下：
（1）当操作员进行查询操作时，判断进行操作的模块：
case 1:
m_hListCxjg.InsertColumn(0, \入库单号\LVCFMT_CENTER,
80) ;
……
break ;
case 2:
80) ;
m_hListCxjg.InsertColumn(0, \退货单号\LVCFMT_CENTER,
……
m_hDatabase.ListCancelInStockToCtrl(&m_hListCxjg) ; break ; …… default:
（2）设置DrawInfo函数，实现设置打印信息： void CDlgPrint::DrawInfo(CDC &memDC, PRNINFO PrnInfo) {
if(memDC.m_hDC == NULL) return;
21
企业进销存系统的设计与实现
int nCurPage = PrnInfo.nCurPage; //当前页 BOOL IsPrint = PrnInfo.IsPrint; ……
switch(m_nCxSelected) {
case 1:
strcpy(szTitle, \入库管理\ break ; case 2:
strcpy(szTitle, \入库退货管理\ break ; …… }
//是否打印
3.7 帐务管理模块
帐务管理模块实现供应商与客户的结款信息添加、修改、删除和保存操作。
新建一个对话框并设置控件如下：
图表 3-8供应商结款管理设计窗口
22
企业进销存系统的设计与实现
其实现过程中关键技术如下所示：
当操作员进行增加操作时，根据判断当前属性页，切换到增加信息页，并清空所有文本信息：
void CDlgProviderPay::OnBtnAdd() {
switch(m_hTabProviderPay.GetCurSel()) {
case 0: {
break ; } case 1: {
TabCtrlOfSelect(0) ; break ; } }
m_hEditPayID.SetWindowText(\ ……
m_hBtnSave.EnableWindow() ; m_hEditPayID.SetFocus() ; }
3.8 数据库连接公共模块
进销存信息管理系统使用ADO技术操作数据库，在程序中导入ADO COM接口来实现对SQL Server 2000的操作。为了操作简单，将对数据库的各种操作封装在CDatabase类中。
在实现的过程中使用的关键技术如下所示：
验证用户登录身份使用IsVerifyUser成员函数
int CDatabase::IsVerifyUser(char *m_szUser, char *m_szPwd, char *m_szLevel) {
sprintf(m_szSql, \= '%s'\
23
企业进销存系统的设计与实现
try{
m_Rsp = m_Connection->Execute(_bstr_t(m_szSql), &v, adCmdText) ; if(!m_Rsp->GetadoEOF()) {
v = m_Rsp->GetCollect(\ if(atoi(_bstr_t(v)) == 0) {//系统
strcpy(m_szLevel, \系统管理员\
} else {//普通
strcpy(m_szLevel, \普通管理员\
}
return 1 ; } }
return 0 ;
}
24
企业进销存系统的设计与实现
4 各模块功能测试及结果分析
4.1 主对话框与系统登录模块测试
运行SQL SERVER 2000 的服务管理器后，打开程序，显示登陆对话框，输入用户名和密码后进入系统。
4.2 信息管理模块测试
点入基本信息管理菜单后，分别测试各个信息管理的对话框，并测试了对话框里的各个控件，如下图所示：
图表 4-1信息管理操作界面
4.3 商品进货模块测试
点击进入商品入库管理菜单，测试商品入库管理和商品入库退货管理的模块，如下图所示：
25