在好例子网,分享、交流、成长!
您当前所在位置:首页C/C++ 开发实例数据库操作 → MFC 通过CDatabase连接Sybase数据库向商场上传营业数据

MFC 通过CDatabase连接Sybase数据库向商场上传营业数据

数据库操作

下载此实例
  • 开发语言:C/C++
  • 实例大小:3.72M
  • 下载次数:14
  • 浏览次数:214
  • 发布时间:2018-07-26
  • 实例类别:数据库操作
  • 发 布 人:tangjiazhu
  • 文件格式:.zip
  • 所需积分:5
 相关标签: 数据库 Sybase db 上传 MFC

实例介绍

【实例简介】

    门店使用的是SQL SERVER数据库,商场使用的是SYBASE数据库,通过MFC将商家的营业数据,加工后上传至商场指定的Sybase数据库中.

【实例截图】

from clipboard

【核心代码】


void CYCYWUPDlg::OnOK()
{
// TODO: 在此添加专用代码和/或调用基类
//"prodiver={Sybase ASE ODBC Driver};dsn=apdb1;uid=ap1dbo;pwd=ap1dbop"
m_progress.SetRange(0,10000);
m_progress.SetStep(1);
SetDlgItemText(IDC_OUTPUT,_T("正在远程数据库..."));
CString sybaseconn("prodiver={Sybase ASE ODBC Driver};dsn=");
sybaseconn =setting.m_dsn;
sybaseconn =";uid=";
sybaseconn =setting.m_uid;
sybaseconn =";pwd=";
sybaseconn =setting.m_pwd;
TRY{
m_sybase.SetLoginTimeout(0);
m_sybase.SetQueryTimeout(0);
m_sybase.OpenEx(sybaseconn,CDatabase::noOdbcDialog);
SetDlgItemText(IDC_OUTPUT,_T("连接数据库连接成功。"));
m_progress.SetPos(10);
}
CATCH_ALL(e)
{
e->ReportError();
AfxMessageBox(_T("连接SYBASE数据库失败!!"));
return;
}
END_CATCH_ALL
SetDlgItemText(IDC_OUTPUT,_T("正在本地生成上传数据..."));
CString ssql;
ssql="IF EXISTS(SELECT * FROM DBO.SYSOBJECTS WHERE ID = OBJECT_ID(N\'[DBO].[T_YCYW_D]\') AND OBJECTPROPERTY(ID, N\'ISUSERTABLE\') = 1)\r"
"DROP TABLE DBO.T_YCYW_H\r"
"CREATE TABLE T_YCYW_H(\r"
"SALENO VARCHAR(30) NOT NULL,\r"
"SALEDATE DATETIME NOT NULL,\r"
"VENDORNO CHAR(13) NULL,\r"
"SALEQTY DECIMAL(13,4) NULL,\r"
"YMONEY DECIMAL(13,4) NULL,\r"
"SMONEY DECIMAL(13,4) NULL,\r"
"ZMONEY DECIMAL(13,4) NULL,\r"
"SALEDAY DATETIME NOT NULL,\r"
"SALEYEAR CHAR(4) NULL,\r"
"SALEMONTH CHAR(2) NULL,\r"
"CURPERIOD CHAR(6) NULL)\r"
"INSERT T_YCYW_H SELECT B.EAT_INDEX SALENO,MAX(A.EAT_ETIME) SALEDATE,\'##VENDOMO##\' VENDOMO,COUNT(C.EAT_AUTOID) SALEQTY,\r"
"MAX(B.EAT_TOTALMONEY) YMONEY,MAX(B.EAT_CHECKMONEY) SMONEY,MAX(B.EAT_TOTALMONEY-B.EAT_CHECKMONEY) ZMONEY,\r"
"MAX(B.RPT_DATE) SALEDAY,MAX(YEAR(B.RPT_DATE)) SALEYEAR,MAX(MONTH(B.RPT_DATE)) SALEMONTH,MAX(LEFT(CONVERT(CHAR(6),B.RPT_DATE,112),6)) CURPERIOD\r"
"FROM EAT_INFO A,EAT_MONEYINFO B,EAT_CONSUME C\r"
"WHERE A.EAT_CHECKINDEX=B.EAT_INDEX AND A.EAT_AUTOID=C.EAT_AUTOID AND B.RPT_DATE BETWEEN \'##BDATE##\' AND \'##EDATE##\'\r"
"GROUP BY B.EAT_INDEX\r"
"\r"
"IF EXISTS(SELECT * FROM DBO.SYSOBJECTS WHERE ID = OBJECT_ID(N\'[DBO].[T_YCYW_D]\') AND OBJECTPROPERTY(ID, N\'ISUSERTABLE\') = 1)\r"
"DROP TABLE DBO.T_YCYW_D\r"
"CREATE TABLE T_YCYW_D(\r"
"SALENO VARCHAR(16) NOT NULL,\r"
"ITEMNO CHAR(13) NOT NULL,\r"
"SERIALNO  INT NULL,\r"
"BARCODE CHAR(13) NULL,\r"
"ITEMNAME VARCHAR(40) NULL,\r"
"PRICE DECIMAL(13,4) NULL,\r"
"ITEMQTY DECIMAL(13,4) NULL,\r"
"YMONEY DECIMAL(13,4) NULL,\r"
"ZMONEY DECIMAL(13,4) NULL,\r"
"SALEMOUNT DECIMAL(13,4) NULL)\r"
"DECLARE @ROW INT,@ROWCOUNT INT,@SALENO VARCHAR(30),@ROW2 INT,@ROWCOUNT2 INT\r"
"DECLARE @ITEMNO VARCHAR(30),@SERIALNO INT,@ITEMNAME VARCHAR(30),@PRICE DECIMAL(13,4),@ITEMQTY DECIMAL(13,4)\r"
"DECLARE @YMONEY DECIMAL(13,4),@ZMONEY DECIMAL(13,4),@SALEMOUNT DECIMAL(13,4)\r"
"DECLARE @SQL NVARCHAR(2000)\r"
"DECLARE INFO_CURSOR INSENSITIVE CURSOR\r"
"FOR\r"
"SELECT SALENO FROM T_YCYW_H\r"
"OPEN INFO_CURSOR\r"
"SELECT @ROW=1,@ROWCOUNT=@@CURSOR_ROWS\r"
"WHILE (@ROW<=@ROWCOUNT)\r"
"BEGIN\r"
"FETCH NEXT FROM INFO_CURSOR INTO @SALENO\r"
"DECLARE CONSUME_CURSOR INSENSITIVE CURSOR\r"
"FOR\r"
"SELECT MAX(D.EAT_XFCODE),MAX(D.EAT_XFNAME),AVG(C.EAT_PRICE),SUM(C.EAT_NUMBER),SUM(C.EAT_SALEPRICE),SUM(C.EAT_SALEPRICE-C.EAT_SALEZKPRICE),SUM(C.EAT_SALEZKPRICE)\r"
"FROM EAT_CONSUME C,EAT_XFBM D,EAT_INFO B\r"
"WHERE B.EAT_AUTOID=C.EAT_AUTOID AND B.EAT_CHECKINDEX=@SALENO AND D.EAT_XFBMID=C.EAT_XFBMID\r"
"GROUP BY B.EAT_AUTOID,C.EAT_XFBMID\r"
"ORDER BY MIN(C.CREAT_TIME)\r"
"OPEN CONSUME_CURSOR\r"
"SELECT @ROW2=1,@ROWCOUNT2=@@CURSOR_ROWS,@SERIALNO=0\r"
"WHILE (@ROW2<=@ROWCOUNT2)\r"
"BEGIN\r"
"FETCH NEXT FROM CONSUME_CURSOR INTO @ITEMNO,@ITEMNAME,@PRICE,@ITEMQTY,@YMONEY,@ZMONEY,@SALEMOUNT\r"
"SET @SERIALNO=@SERIALNO 1\r"
"SET @SQL=\'INSERT T_YCYW_D VALUES(\'\'\' RIGHT(@SALENO,14) \'\'\',\'\'\' @ITEMNO \'\'\',\'\'\' CAST(@SERIALNO AS VARCHAR(20)) \'\'\',\'\'\'\',\'\'\' \r"
"@ITEMNAME \'\'\',\' CAST(@PRICE AS VARCHAR(17)) \',\' CAST(@ITEMQTY AS VARCHAR(17)) \',\' CAST(@YMONEY AS VARCHAR(17))\r"
" \',\' CAST(@ZMONEY AS VARCHAR(17)) \',\' CAST(@SALEMOUNT AS VARCHAR(17)) \')\'\r"
"EXEC SP_EXECUTESQL @SQL\r"
"PRINT @SQL\r"
"SET @ROW2=@ROW2 1\r"
"END\r"
"CLOSE CONSUME_CURSOR\r"
"DEALLOCATE CONSUME_CURSOR\r"
"SET @ROW=@ROW 1\r"
"END\r"
"CLOSE INFO_CURSOR\r"
"DEALLOCATE INFO_CURSOR\r"
"UPDATE T_YCYW_H\r"
"SET SALENO=RIGHT(SALENO,14)\r";
CString ssql2;
ssql2="delete t_ycyw_d\r"
"from t_ycyw_h,t_ycyw_d\r"
"where t_ycyw_d.saleno=t_ycyw_h.saleno and t_ycyw_h.saleday between '##BDATE##' and '##EDATE##'\r"
"delete t_ycyw_h\r"
"where saleday between '##BDATE##' and '##EDATE##'\r";
//////////////////////////////////////////////////////////////////////////////
ssql.Replace(_T("##VENDOMO##"),setting.m_no);
UpdateData();
{
CString time;
char tmptime[10];
SYSTEMTIME systime;
m_reqtime.GetTime(&systime);
itoa(systime.wYear,tmptime,10);
time=tmptime;
time ='-';
itoa(systime.wMonth,tmptime,10);
if(strlen(tmptime)==1)
{
tmptime[2]=tmptime[1];
tmptime[1]=tmptime[0];
tmptime[0]='0';
}
time =tmptime;
time ='-';
itoa(systime.wDay,tmptime,10);
if(strlen(tmptime)==1)
{
tmptime[2]=tmptime[1];
tmptime[1]=tmptime[0];
tmptime[0]='0';
}
time =tmptime;
ssql.Replace(_T("##BDATE##"),time);
ssql2.Replace(_T("##BDATE##"),time);
}
{
CString time;
char tmptime[10];
SYSTEMTIME systime;
m_rktime.GetTime(&systime);
itoa(systime.wYear,tmptime,10);
time=tmptime;
time ='-';
itoa(systime.wMonth,tmptime,10);
if(strlen(tmptime)==1)
{
tmptime[2]=tmptime[1];
tmptime[1]=tmptime[0];
tmptime[0]='0';
}
time =tmptime;
time ='-';
itoa(systime.wDay,tmptime,10);
if(strlen(tmptime)==1)
{
tmptime[2]=tmptime[1];
tmptime[1]=tmptime[0];
tmptime[0]='0';
}
time =tmptime;
ssql.Replace(_T("##EDATE##"),time);
ssql2.Replace(_T("##EDATE##"),time);
}
m_progress.SetPos(100);
//////////////////////////////////////////////////////////////////////////////
m_local.BeginTrans();
TRY{
m_local.ExecuteSQL(ssql);
SetDlgItemText(IDC_OUTPUT,_T("本地数据生成成功。"));
m_progress.SetPos(300);
}
CATCH_ALL(e)
{
m_local.Rollback();
e->ReportError();
AfxMessageBox(_T("本地数据库执行失败,操作已回滚!!"));
return;
}
END_CATCH_ALL
m_local.CommitTrans();
ssql="select * from t_ycyw_h";
CString insertstr;
CRecordset rs(&m_local);
CString tmp;
CRecordset rscount(&m_local);
CDBVariant count;
CString sqlcount("select count(saleno) from t_ycyw_h");
TRY
{
SetDlgItemText(IDC_OUTPUT,_T("开始上传单据主表数据..."));
m_sybase.BeginTrans();
m_sybase.ExecuteSQL(ssql2);
rs.Open(CRecordset::snapshot,ssql,CRecordset::readOnly);
rscount.Open(CRecordset::snapshot,sqlcount,CRecordset::readOnly);
rscount.GetFieldValue((short)0,count,SQL_C_SLONG);
m_progress.SetStep(4000/count.m_lVal);
rscount.Close();
while(!rs.IsEOF())
{
insertstr="insert t_ycyw_h values(\'";
int j=rs.GetODBCFieldCount();
for(short i=0;i<j;i )
{
rs.GetFieldValue(i,tmp);
if(i>=3 && i<=6)
{
if(i==3)
insertstr.Delete(insertstr.GetLength()-1);
insertstr =tmp;
insertstr =',';
if(i==6)
insertstr ='\'';
}
else
{
insertstr =tmp;
insertstr ="\',\'";
}
}
insertstr.Delete(insertstr.GetLength()-1);
insertstr.Delete(insertstr.GetLength()-1);
insertstr =')';
//AfxMessageBox(insertstr);
m_sybase.ExecuteSQL(insertstr);
m_progress.StepIt();
rs.MoveNext();
}
rs.Close();
ssql="select * from t_ycyw_d";
SetDlgItemText(IDC_OUTPUT,_T("开始上传单据明细数据..."));
rs.Open(CRecordset::snapshot,ssql,CRecordset::readOnly);
sqlcount="select count(saleno) from t_ycyw_d";
rscount.Open(CRecordset::snapshot,sqlcount,CRecordset::readOnly);
rscount.GetFieldValue((short)0,count,SQL_C_SLONG);
m_progress.SetStep(5000/count.m_lVal);
rscount.Close();
while(!rs.IsEOF())
{
insertstr="insert t_ycyw_d values(\'";
for(short i=0;i<rs.GetODBCFieldCount();i )
{
rs.GetFieldValue(i,tmp);
if(i<=4 && i!=2)
{
insertstr =tmp;
insertstr ="\',\'";
}
else
{
if(i==5 || i==2)
insertstr.Delete(insertstr.GetLength()-1);
insertstr =tmp;
insertstr =',';
if(i==2)
insertstr ='\'';
}
}
insertstr.Delete(insertstr.GetLength()-1);
insertstr =')';
m_sybase.ExecuteSQL(insertstr);
m_progress.StepIt();
rs.MoveNext();
}
rs.Close();
m_sybase.CommitTrans();
m_progress.SetPos(10000);
SetDlgItemText(IDC_OUTPUT,_T("数据上传完成。"));
}
CATCH_ALL(e)
{
m_sybase.Rollback();

e->ReportError();
m_sybase.Close();
AfxMessageBox(insertstr);
AfxMessageBox(_T("向服务器上传过程出现错误,操作已回滚!"));
return;
}
END_CATCH_ALL
m_sybase.Close();
// CDialogEx::OnOK();
}

实例下载地址

MFC 通过CDatabase连接Sybase数据库向商场上传营业数据

不能下载?内容有错? 点击这里报错 + 投诉 + 提问

好例子网口号:伸出你的我的手 — 分享

网友评论

发表评论

(您的评论需要经过审核才能显示)

查看所有0条评论>>

小贴士

感谢您为本站写下的评论,您的评论对其它用户来说具有重要的参考价值,所以请认真填写。

  • 类似“顶”、“沙发”之类没有营养的文字,对勤劳贡献的楼主来说是令人沮丧的反馈信息。
  • 相信您也不想看到一排文字/表情墙,所以请不要反馈意义不大的重复字符,也请尽量不要纯表情的回复。
  • 提问之前请再仔细看一遍楼主的说明,或许是您遗漏了。
  • 请勿到处挖坑绊人、招贴广告。既占空间让人厌烦,又没人会搭理,于人于己都无利。

关于好例子网

本站旨在为广大IT学习爱好者提供一个非营利性互相学习交流分享平台。本站所有资源都可以被免费获取学习研究。本站资源来自网友分享,对搜索内容的合法性不具有预见性、识别性、控制性,仅供学习研究,请务必在下载后24小时内给予删除,不得用于其他任何用途,否则后果自负。基于互联网的特殊性,平台无法对用户传输的作品、信息、内容的权属或合法性、安全性、合规性、真实性、科学性、完整权、有效性等进行实质审查;无论平台是否已进行审查,用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。本站所有资源不代表本站的观点或立场,基于网友分享,根据中国法律《信息网络传播权保护条例》第二十二与二十三条之规定,若资源存在侵权或相关问题请联系本站客服人员,点此联系我们。关于更多版权及免责申明参见 版权及免责申明

;
报警