记录添加到销售列表和销售详单里。
退出:点击该按钮即实现退出销售界面。
(3)核心代码: bool CheckCString ampm_Numberx //检查是否含不是数字的项 forint i 0i ltm_Numberx.GetLengthi ifisdigitm_Numberxi return false return true void Sell::OnTotal UpdateDatatrue int Index1JiShu bool JintrueKchecktrue CMedManageApp app CMedManageApp AfxGetApp ifm_Name.IsEmpty //若药名栏为空 MessageBoxquot请输入药名!quot else ifm_Kind.IsEmpty //若类别栏为空 MessageBoxquot请输入药品类别!quot else ifCheckm_Number //若类别栏中含非法字符 MessageBoxquot数据栏含非法字符!quot else ifCheckm_Price //若类别栏中含非法字符 MessageBoxquot价格栏含非法字符!quot else Index1app-gtsingle.GetYaoNum1 ifIndex1 whileIndex1-- ifm_Nameapp-gtsingle.GetYaoIndex11-gtYName ifatoiapp-gtsingle.GetYaoIndex11-gtYNumberltatoim_Number MessageBoxquot库存不够quotKcheckfalse else JiShuIndex1 Kchecktrue break else Kcheckfalse ifKchecktrue Index1app-gtsingle.GetYaoNum2 whileIndex1-- ifapp-gtsingle.GetYaoIndex12-gtYNamem_Name MessageBoxquot列表中已经有该项了quot Jinfalse ifJintrue app-gtsingle.AddYaom_Namem_Kindm_Numberm_Price2 int tempatoiapp-gtsingle.GetYaoJiShu1-gtYNumber-atoim_Number app-gtsingle.GetYaoJiShu1-gtYNumber.Formatquotdquottemp m_Total.Formatquotdquotatoim_Numberatoim_Price UpdateDatafalse VC药品销售管理系统源代码总框图 int Index Indexapp-gtsingle.GetYaoNum2 m_XiaoList.ResetContent //列表清空 forint i0iltIndexi//逐条加入信息 m_XiaoList.AddStringapp-gtsingle.GetYaoi2-gtYName else MessageBoxquot库存中没有此货物quot MessageBoxquot库存中还没有此货物quot void Sell::OnOK CDialog::OnOK void Sell::OnSelchangeList1 CMedManageApp app CMedManageApp AfxGetApp int nIndexm_XiaoList.GetCurSel m_SingXiao.ResetContent ifnIndexLB_ERR m_SingXiao.AddStringapp-gtsingle.GetYaonIndex2-gtYName m_SingXiao.AddStringapp-gtsingle.GetYaonIndex2-gtYKind m_SingXiao.AddStringapp-gtsingle.GetYaonIndex2-gtYNumber m_SingXiao.AddStringapp-gtsingle.GetYaonIndex2-gtYPrice m_Nameapp-gtsingle.GetYaonIndex2-gtYName m_Kindapp-gtsingle.GetYaonIndex2-gtYKind m_Numberapp-gtsingle.GetYaonIndex2-gtYNumber m_Priceapp-gtsingle.GetYaonIndex2-gtYPrice UpdateDatafalse void Sell::OnButsearch int Index CMedManageApp app CMedManageApp AfxGetApp Indexapp-gtsingle.GetYaoNum2 m_XiaoList.ResetContent //列表清空 forint i0iltIndexi //逐条加入信息 m_XiaoList.AddStringapp-gtsingle.GetYaoi2-gtYName void Sell::OnButalter UpdateDatatrue CMedManageApp app CMedManageApp AfxGetApp int nIndexm_XiaoList.GetCurSel CString temp ifnIndexLB_ERR tempapp-gtsingle.GetYaonIndex2-gtYNumber app-gtsingle.GetYaonIndex2.