打印

用VC开发进销存是我的一大错误吗？

reika

黄金会员

Rank: 9 Rank: 9 Rank: 9

UID: 3570
帖子: 10364
精华: 2
活力: 707
财富: 6214
来自: 马甲1号粉丝会
注册时间: 2005-6-30

发短消息
加为好友
当前离线

61楼 大中小发表于 2007-12-2 17:40 只看该作者

网上C/C++的代码比Pascal的多，所以换一种语言可以有效的利用前人很多库和源码。

这年头，造房子不在是从烧砖头开始了，而是搭积木。

虽然Pascal也能做游戏啊什么的，但是还是C/C++的示例，源码比较多。
所以要转变。

欢迎加入马甲1号粉丝会的二线粉丝会，reika粉丝会。
二线粉丝成员：CodeCoolie，Mzren，5bxb，超级小菜鸟，不知道歪，jonssen，Vista，withy

TOP

兰兰

热心会员

Rank: 3 Rank: 3

UID: 13072
帖子: 642
精华: 0
活力: 25
财富: 803
注册时间: 2007-12-2

发短消息
加为好友
当前离线

62楼 大中小发表于 2007-12-2 19:26 只看该作者

BS天下第一

做人要低调！
发截图，我们就信你了！
不然我BS你！

TOP

yongweisun

青铜会员

Rank: 5 Rank: 5

UID: 7659
帖子: 885
精华: 1
活力: 556
财富: 596
注册时间: 2006-5-31

发短消息
加为好友
当前离线

63楼 大中小发表于 2007-12-2 21:42 只看该作者

引用:

原帖由 reika 于 2007-12-2 17:40 发表

网上C/C++的代码比Pascal的多，所以换一种语言可以有效的利用前人很多库和源码。

这年头，造房子不在是从烧砖头开始了，而是搭积木。

虽然Pascal也能做游戏啊什么的，但是还是C/C++的示例，源码比较 ...

对啰，就是什么方便用什么。语言算个p啊，关键是工作量的大小。那种语言的现成代码多，做起来方便，就用哪个。
下次我也发个争论贴，专门谈语言，肯定热。。。。态度越不好，争论越激烈。想想芙蓉姐姐怎么成名的吧。。。。。。

TOP

w1984721

青铜会员

Rank: 5 Rank: 5

UID: 9549
帖子: 1981
精华: 1
活力: 3
财富: 257
注册时间: 2006-12-1

发短消息
加为好友
当前离线

64楼 大中小发表于 2007-12-3 11:18 只看该作者

晕，被这么多人骂！

TOP

w1984721

青铜会员

Rank: 5 Rank: 5

UID: 9549
帖子: 1981
精华: 1
活力: 3
财富: 257
注册时间: 2006-12-1

发短消息
加为好友
当前离线

65楼 大中小发表于 2007-12-3 11:24 只看该作者

本人公布一些我的软件代码--为了开元

//录入单据头--包括:单据编号,建帐日期,单位编码,单位名称,等..
bool CFormJHRK:

utHead()
{
  //把记录保存到后台数据库中，我自创的ADO类要比DEPHI反问数据库要方便。
   m_DataRun.add1("单据头");
   m_DataRun.put1("引索",m_lIndex);
   m_DataRun.put1("单据编号",m_DJID);
   m_DataRun.put1("单据类型",m_Kinds);
   m_DataRun.put1("日期",m_Date);
   m_DataRun.put1("摘要",m_Remark);
   m_DataRun.put1("单位ID",m_lGYSID);
   m_DataRun.put1("员工ID",m_lYGID);
   m_DataRun.put1("仓库ID",m_lCKID);
   m_DataRun.put1("开票类型ID",m_lKPLXID);
   m_DataRun.put1("备注",m_Remark1);
   m_DataRun.put1("合计数量",m_dTotalNumber);
   m_DataRun.put1("折前合计金额",m_dZQTotalMoney);
   m_DataRun.put1("合计金额",m_dTotalMoney);
   m_DataRun.put1("优惠金额",m_dYHMoney);
   m_DataRun.put1("优惠后金额",m_dYHHMoney);
   m_DataRun.put1("科目ID",m_FKAccoutID);
   m_DataRun.put1("现金银行金额",m_dFKMoney);
   m_DataRun.put1("税额",m_dTotalTax);
   m_DataRun.put1("库存商品",m_dKCGood);
   m_DataRun.put1("应收应付",m_dYFMoney);
   m_DataRun.put1("余额",m_dYFMoney);
   if(!m_DataRun.up1())
   {
   m_DataRun.RollbackTrans();//回滚事务
   MessageBox("数据录入出错!","警告",MB_ICONSTOP);
   return 0;
   }
   else
   return 1;

//------------------------------------------------------
if(m_dFKMoney>0)
{
      m_DataRun.add1("单据");
   m_DataRun.put1("引索",m_lIndex);
   m_DataRun.put1("结算引索",m_lIndex);//结算引索
   m_DataRun.put1("结算金额",m_dFKMoney);
   m_DataRun.put1("结算余额",m_dYFMoney);

         if(!m_DataRun.up1())
{
            m_DataRun.RollbackTrans();//回滚事务
            MessageBox("数据录入出错!","警告",MB_ICONSTOP);
            return 0;
}
         else
            return 1;
}

TOP

x_uy_u_n

热心会员

Rank: 3 Rank: 3

UID: 11257
帖子: 721
精华: 0
活力: 505
财富: 0
注册时间: 2007-5-8

发短消息
加为好友
当前离线

66楼 大中小发表于 2007-12-3 11:42 只看该作者

很好,很强大啊,你的竟然这么方便,为什么要萌生换DELPHI的念头呢?忽悠大家?

Search author named w1984721 ，You will be surprised.

TOP

w1984721

青铜会员

Rank: 5 Rank: 5

UID: 9549
帖子: 1981
精华: 1
活力: 3
财富: 257
注册时间: 2006-12-1

发短消息
加为好友
当前离线

67楼 大中小发表于 2007-12-3 12:04 只看该作者

//应收应付款录入

bool CFormJHRK:

utYFMoney()
{
  double m_Money=0;
  long n=0;//单位性质

  sql.Format("select * from 单位 where ID=%d",m_lGYSID);
if(m_DataRun.CheckSQLResult1(sql))
m_DataRun.get1("单位性质",n);

  sql.Format("select * from 应收应付 where 单位ID=%d",m_lGYSID);
  if(m_DataRun.CheckSQLResult1(sql))
{
   if(n==1)//假如为供应商
   {
   m_DataRun.get1("应付款",m_Money);
   m_Money+=m_dYFMoney;
   m_DataRun.put1("应付款",m_Money);
   }
   else//客户
   {
   m_DataRun.get1("应收款",m_Money);
   m_Money+=m_dYFMoney;
   m_DataRun.put1("应收款",m_Money);
   }
      if(!m_DataRun.up1())
{
      m_DataRun.RollbackTrans();//回滚事务
      MessageBox("数据录入出错!","警告",MB_ICONSTOP);
      return 0;
}
}
else
{
   if(n==1)//假如为供应商
   {
   m_DataRun.add1("应收应付");
   m_DataRun.put1("单位ID",m_lGYSID);
   m_DataRun.put1("应付款",m_dYFMoney);
   }
   else//客户
   {
   m_DataRun.add1("应收应付");
   m_DataRun.put1("单位ID",m_lGYSID);
   m_DataRun.put1("应收款",m_dYFMoney);
   }
      if(!m_DataRun.up1())
{
      m_DataRun.RollbackTrans();//回滚事务
      MessageBox("数据录入出错!","警告",MB_ICONSTOP);
      return 0;
}
}

return 1;
}

TOP

w1984721

青铜会员

Rank: 5 Rank: 5

UID: 9549
帖子: 1981
精华: 1
活力: 3
财富: 257
注册时间: 2006-12-1

发短消息
加为好友
当前离线

68楼 大中小发表于 2007-12-3 12:05 只看该作者

//科目录入

bool CFormJHRK:

utSubject()
{
   double m_dFSMoney=0;
   double m_dLJMoney=0;
//库存商品
   sql="select * from 科目 where ID='10101'";
   if(m_DataRun.CheckSQLResult1(sql))
   {
      m_DataRun.get1("本月发生额",m_dFSMoney);
   m_DataRun.get1("累计金额",m_dLJMoney);
      m_dFSMoney+=m_dKCGood;
      m_dLJMoney+=m_dKCGood;
      m_DataRun.put1("本月发生额",m_dFSMoney);
      m_DataRun.put1("累计金额",m_dLJMoney);

   if(!m_DataRun.up1())
   {
      m_DataRun.RollbackTrans();//回滚事务
      MessageBox("数据录入出错!","警告",MB_ICONSTOP);
      return 0;
   }
   }

//现金银行
if(m_dFKMoney!=0)
{
   sql.Format("select * from 科目 where ID='%s'",m_FKAccoutID);
   if(m_DataRun.CheckSQLResult1(sql))
   {
      m_DataRun.get1("本月发生额",m_dFSMoney);
   m_DataRun.get1("累计金额",m_dLJMoney);
      m_dFSMoney-=m_dFKMoney;
      m_dLJMoney-=m_dFKMoney;
      m_DataRun.put1("本月发生额",m_dFSMoney);
      m_DataRun.put1("累计金额",m_dLJMoney);

      if(!m_DataRun.up1())
   {
         m_DataRun.RollbackTrans();//回滚事务
         MessageBox("数据录入出错!","警告",MB_ICONSTOP);
         return 0;
   }
   }
}

//［应付款合计］
   sql="select * from 科目 where ID='10201'";
   if(m_DataRun.CheckSQLResult1(sql))
   {
      m_DataRun.get1("本月发生额",m_dFSMoney);
   m_DataRun.get1("累计金额",m_dLJMoney);
      m_dFSMoney+=m_dYFMoney;
      m_dLJMoney+=m_dYFMoney;
      m_DataRun.put1("本月发生额",m_dFSMoney);
      m_DataRun.put1("累计金额",m_dLJMoney);

      if(!m_DataRun.up1())
   {
         m_DataRun.RollbackTrans();//回滚事务
         MessageBox("数据录入出错!","警告",MB_ICONSTOP);
         return 0;
   }
   }

//应交税金
if(m_dTotalTax!=-1)
{
   sql="select * from 科目 where ID='10204'";
      if(m_DataRun.CheckSQLResult1(sql))
{
      m_DataRun.get1("本月发生额",m_dFSMoney);
   m_DataRun.get1("累计金额",m_dLJMoney);
      m_dFSMoney-=m_dTotalTax;
      m_dLJMoney-=m_dTotalTax;
      m_DataRun.put1("本月发生额",m_dFSMoney);
      m_DataRun.put1("累计金额",m_dLJMoney);
         if(!m_DataRun.up1())
{
            m_DataRun.RollbackTrans();//回滚事务
            MessageBox("数据录入出错!","警告",MB_ICONSTOP);
            return 0;
}

}
}
//对方的优惠
if(m_dYHMoney!=0)
{
   sql="select * from 科目 where ID='1030303'";
      if(m_DataRun.CheckSQLResult1(sql))
{
      m_DataRun.get1("本月发生额",m_dFSMoney);
   m_DataRun.get1("累计金额",m_dLJMoney);
      m_dFSMoney+=m_dYHMoney;
      m_dLJMoney+=m_dYHMoney;
      m_DataRun.put1("本月发生额",m_dFSMoney);
      m_DataRun.put1("累计金额",m_dLJMoney);

      if(!m_DataRun.up1())
   {
         m_DataRun.RollbackTrans();//回滚事务
         MessageBox("数据录入出错!","警告",MB_ICONSTOP);
         return 0;
   }
}
}

return 1;
}

TOP

w1984721

青铜会员

Rank: 5 Rank: 5

UID: 9549
帖子: 1981
精华: 1
活力: 3
财富: 257
注册时间: 2006-12-1

发短消息
加为好友
当前离线

69楼 大中小发表于 2007-12-3 12:06 只看该作者

//科目帐本录入

bool CFormJHRK:

utSubjectBook()
{
//库存商品
   sql="select * from 科目 where ID='10101'";
   double m_dLJMoney=0;
   CString m_ID="";
   if(m_DataRun.CheckSQLResult1(sql))
   {
   m_ID="10101";
   m_DataRun.get1("累计金额",m_dLJMoney);
   m_DataRun.add1("科目帐本");
   m_DataRun.put1("引索",m_lIndex);
   m_DataRun.put1("科目编码",m_ID);
   m_DataRun.put1("日期",m_Date);
   m_DataRun.put1("增加金额",m_dKCGood);
   m_DataRun.put1("余额",m_dLJMoney);
         if(!m_DataRun.up1())
   {
            m_DataRun.RollbackTrans();//回滚事务
            MessageBox("数据录入出错!","警告",MB_ICONSTOP);
            return 0;
   }
   }

//现金银行
if(m_dFKMoney!=0)
{
   sql.Format("select * from 科目 where ID='%s'",m_FKAccoutID);
   if(m_DataRun.CheckSQLResult1(sql))
   {
   m_DataRun.get1("累计金额",m_dLJMoney);
   m_DataRun.add1("科目帐本");
   m_DataRun.put1("引索",m_lIndex);
   m_DataRun.put1("科目编码",m_FKAccoutID);
   m_DataRun.put1("日期",m_Date);
   m_DataRun.put1("减少金额",m_dFKMoney);
   m_DataRun.put1("余额",m_dLJMoney);
      if(!m_DataRun.up1())
   {
            m_DataRun.RollbackTrans();//回滚事务
            MessageBox("数据录入出错!","警告",MB_ICONSTOP);
            return 0;
   }

   }
}

//［应付款合计］
   sql="select * from 科目 where ID='10201'";
   if(m_DataRun.CheckSQLResult1(sql))
   {
   m_ID="10201";
   m_DataRun.get1("累计金额",m_dLJMoney);
   m_DataRun.add1("科目帐本");
   m_DataRun.put1("引索",m_lIndex);
   m_DataRun.put1("科目编码",m_ID);
   m_DataRun.put1("日期",m_Date);
   m_DataRun.put1("增加金额",m_dYFMoney);
   m_DataRun.put1("余额",m_dLJMoney);
         if(!m_DataRun.up1())
   {
            m_DataRun.RollbackTrans();//回滚事务
            MessageBox("数据录入出错!","警告",MB_ICONSTOP);
            return 0;
   }
   }
//应交税金
   if(m_dTotalTax!=-1)
   {
         sql="select * from 科目 where ID='10204'";
         if(m_DataRun.CheckSQLResult1(sql))
{
            m_ID="10204";
            m_DataRun.get1("累计金额",m_dLJMoney);
            m_DataRun.add1("科目帐本");
            m_DataRun.put1("引索",m_lIndex);
            m_DataRun.put1("科目编码",m_ID);
            m_DataRun.put1("日期",m_Date);
            m_DataRun.put1("减少金额",m_dTotalTax);
            m_DataRun.put1("余额",m_dLJMoney);
            if(!m_DataRun.up1())
   {
            m_DataRun.RollbackTrans();//回滚事务
            MessageBox("数据录入出错!","警告",MB_ICONSTOP);
            return 0;
   }
}
   }

//对方的优惠
if(m_dYHMoney!=0)
   {
         sql="select * from 科目 where ID='1030303'";
         if(m_DataRun.CheckSQLResult1(sql))
{
            m_ID="1030303";
            m_DataRun.get1("累计金额",m_dLJMoney);
            m_DataRun.add1("科目帐本");
            m_DataRun.put1("引索",m_lIndex);
            m_DataRun.put1("科目编码",m_ID);
            m_DataRun.put1("日期",m_Date);
            m_DataRun.put1("增加金额",m_dYHMoney);
            m_DataRun.put1("余额",m_dLJMoney);
            if(!m_DataRun.up1())
   {
            m_DataRun.RollbackTrans();//回滚事务
            MessageBox("数据录入出错!","警告",MB_ICONSTOP);
            return 0;
   }
}
   }
return 1;
}

TOP

w1984721

青铜会员

Rank: 5 Rank: 5

UID: 9549
帖子: 1981
精华: 1
活力: 3
财富: 257
注册时间: 2006-12-1

发短消息
加为好友
当前离线

70楼 大中小发表于 2007-12-3 12:07 只看该作者

//单位帐本录入

bool CFormJHRK:

utDWBook()
{
double m_YE=0.0;
bool m_b=0;
sql.Format("select * from 应收应付 where 单位ID=%d",m_lGYSID);
if(m_DataRun.CheckSQLResult1(sql))
{
   m_DataRun.get1("应付款",m_YE);
   m_b=1;
}

m_DataRun.add1("单位帐本");
m_DataRun.put1("引索",m_lIndex);
m_DataRun.put1("日期",m_Date);
m_DataRun.put1("单位ID",m_lGYSID);
m_DataRun.put1("增加",m_dYFMoney);

if(m_b)//有记录
{
   m_YE+=m_dYFMoney;
   m_DataRun.put1("余额",m_YE);
}
else
{
   m_DataRun.put1("余额",m_dYFMoney);
}

if(!m_DataRun.up1())
   {
   m_DataRun.RollbackTrans();//回滚事务
   MessageBox("数据录入出错!","警告",MB_ICONSTOP);
   return 0;
   }
   else
      return 1;
}

TOP