精通
英语
和
开源
,
擅长
开发
与
培训
,
胸怀四海
第一信赖
本项目为小型MIS,模拟实现种植园财务管理功能,该项目基于VC6.0平台和Access数据库开发。功能组成图如下:

void state::OnButton_state() //实现统计功能的类
// TODO: Add your control notification handler code here
UpdateData();//得到对话框输入的数据
CString str_salary1,str_salary2,str_salary3,str_salary4,str_salary5;//定义四个存放四种蔬菜的Cstring类对象
DOUBLE salary[5];//定义五个计算利润的变量
int i=0;
vegRs rs_veg;
rs_veg.m_strFilter="Year>=#"
+m_start_time.Format("%Y-%m-%d")
+"# and Year <#"
+m_end_time.Format("%Y-%m-%d")+"#";
rs_veg.Open();
if (rs_veg.GetRecordCount()>0)//查询那一年四种蔬菜的信息
{
salary[0]=atof(rs_veg.m_Yield)*atof(rs_veg.m_Price);//计算第一种蔬菜的利润
str_salary1.Format("%f",salary[0]);
rs_veg.MoveNext();salary[1]=atof(rs_veg.m_Yield)*atof(rs_veg.m_Price);
str_salary2.Format("%f",salary[1]);
rs_veg.MoveNext();
salary[2]=atof(rs_veg.m_Yield)*atof(rs_veg.m_Price);
str_salary3.Format("%f",salary[2]);
rs_veg.MoveNext();salary[3]=atof(rs_veg.m_Yield)*atof(rs_veg.m_Price);
str_salary4.Format("%f",salary[3]);
salary[4]=salary[0]+salary[1]+salary[2]+salary[3];//计算总利润
str_salary5.Format("%f",salary[4]);
}
rs_veg.Close();
salaryRs rs(&db);
rs.m_strFilter="year ='"+m_state_year+"'";//检查是否已经有当年的记录
rs.Open();
if (rs.GetRecordCount()==0)//如果没有当年的记录
{
rs.AddNew();
rs.m_year=m_state_year;
rs.m_salary1=str_salary1;//salary1
rs.m_salary2=str_salary2;
rs.m_salary3=str_salary3;
rs.m_salary4=str_salary4;
rs.m_salary_sum=str_salary5;
rs.Update();
}
else //如果有当年的记录
{
rs.m_salary1=str_salary1;//salary1
rs.m_salary2=str_salary2;
rs.m_salary3=str_salary3;
rs.m_salary4=str_salary4;
rs.m_salary_sum=str_salary5;
}
rs.Close();
salaryRs rs2(&db);
UpdataList(rs2);//更新列表框
}