word完美格式
数据存储 名称 说明
商品信息表 记录商品的基本信息 员工表 记录员工的基本信息 客户表 记录客户的基本信息 供应商表 记录供应商的基本信息 仓库表 记录仓库的基本信息 库存表 记录库存信息
销售登记表 记录销售时的的商品及数量信息
销售票号表 记录销售时的客户、经手人、操作员、日期等信息 入库登记表 记录入库时的商品及数量信息
入库票号表 记录入库时的供应商、经手人、操作员、日期等信息 结算方式表 用于存储结算方式
精心整理 学习帮手
word完美格式
下面是收银台有关代码： Void SRecord:OnSsaveButton() {
//TODO:Add your control notification hander code here CSring
SaleID=””,GoodsID=”2”,Price=”2”,Count=”2”,Acount=”2”,StubNumber=””,Date=””;
CString sql; Int gcount=0;
Float price=0,account=0; CDataManage dm;
/**********************************************************/ /*GoodsID*/
m_GoodsID.GetWindowText(GoodsID); if(GoodsID.GetLength()==0) {
MessageBox(“请输入数据”,”提示”);
Return; }
/*SaleID*/
/**********************************************************/
精心整理 学习帮手
word完美格式
try {
dm.ConnectDataBase();
Recordl->Open(_variant_t(“Sale”),
_ variant_t((IDispatch *)DataConn,true),adOpenKeyset, adLockOptimistic,adCmdTable); }
catch(_com_error& e) {
MassageBox(e.ErrorMassage(),”提示”); }
/***********************************************************/ Sql.Format(“select SaleID from Sale”); try {
Record->Open((_variant_t)sql.DataConn.GetInterPtr(),adOpenKeyset, adLockOptimistic,adCmdText);
}
catch(_com_error& e) {
MassageBox(e.ErrorMassage(),”提示”)
精心整理 学习帮手
word完美格式
}
If(Recordl->RecordCount>0) {
Recordl-> MoveLast();
SaleID=(TCHAR*)(_bstr_t)Recordl->GetItem((long)0)->Value; Int saleid=atoi(SaleID); saleid+=1;
SaleID.Format(“%d”,saleid); } else {
SaleID=”20120001”; } /*Price*/
/*******************************************************/ try {
dm.ConnectDataBase();
Recordl->Open(_variant_t(“Sale”),
_ variant_t((IDispatch *)DataConn,true),adOpenKeyset, adLockOptimistic,adCmdTable);
精心整理 学习帮手
word完美格式
}
Catch(_com_error& e) {
MassageBox(e.ErrorMassage(),”提示”); }
/*******************************************************/ Sql.Format(“select SaleID from Sale”); try {
Record->Open((_variant_t)sql.DataConn.GetInterPtr(),adOpenKeyset, adLockOptimistic,adCmdText);
}
catch(_com_error& e) {
MassageBox(e.ErrorMassage(),”提示”) }
If(Recordl->RecordCount>0) {
Price==(TCHAR*)(_bstr_t)Recordl->GetItem((long)0)->Value; price=(float)atof(Price); }
精心整理 学习帮手