基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 5 元　

支付宝支付

微信支付

   源码介绍

---

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

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();
}