开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 百货/超市行业 > 查看源码
SaleManage.cpp
资源名称：management_system.rar　[点击查看]
上传用户：tangpei45
上传日期：2013-07-14
资源大小：9104k
文件大小：13k
源码类别：

百货/超市行业

开发平台：

C++ Builder

SaleManage.cpp：源码内容
  1. //----------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "main.h"
  6. #include "CustomManage.h"
  7. #include "GoodManage.h"
  8. #include "SaleManage.h"
  9. #include "selectstore.h"
  11. //----------------------------------------------------------------------------
  12. #pragma resource "*.dfm"
  13. TfmSaleManage *fmSaleManage;
  14. //----------------------------------------------------------------------------
  15. __fastcall TfmSaleManage::TfmSaleManage(TComponent *Owner)
  16. : TForm(Owner)
  17. {
  18. }
  19. //----------------------------------------------------------------------------
  20. void __fastcall TfmSaleManage::FormCreate(TObject *Sender)
  21. {
  22.     // 设置明细列表的内容
  23.     sgPurDetail->Cells[0][0] = "序号";
  24.     sgPurDetail->ColWidths[0] = 32;
  25.     sgPurDetail->Cells[1][0] = "货号(双击)";
  26.     sgPurDetail->ColWidths[1] = 84;
  27.     sgPurDetail->Cells[2][0] = "品名";
  28.     sgPurDetail->ColWidths[2] = 128;
  29.     sgPurDetail->Cells[3][0] = "单位";
  30.     sgPurDetail->ColWidths[3] = 32;
  31.     sgPurDetail->Cells[4][0] = "数量";
  32.     sgPurDetail->ColWidths[4] = 64;
  33.     sgPurDetail->Cells[5][0] = "仓库(双击)";
  34.     sgPurDetail->ColWidths[5] = 64;
  35.     sgPurDetail->Cells[6][0] = "单价";
  36.     sgPurDetail->ColWidths[6] = 64;
  37.     sgPurDetail->Cells[7][0] = "金额";
  38.     sgPurDetail->ColWidths[7] = 64;
  39.     sgPurDetail->Cells[8][0] = "税率";
  40.     sgPurDetail->ColWidths[8] = 32;
  41.     sgPurDetail->Cells[9][0] = "税额";
  42.     sgPurDetail->ColWidths[9] = 64;
  43.     sgPurDetail->Cells[10][0] = "不含税额";
  44.     sgPurDetail->ColWidths[10] = 64;
  45.     // 设置序号
  46.     for(int i=1;i<30; i++)
  47.     {
  48.         sgPurDetail->Cells[0][i] = i;
  49.     }
  50.     // 自动调用btNewClick方法,新建销售单
  51.     btNewClick(NULL);
  52.     m_CurrentCol = 1;
  53.     m_CurrentRow = 1;
  54. }
  55. //---------------------------------------------------------------------------
  56. void __fastcall TfmSaleManage::FormClose(TObject *Sender,
  57.       TCloseAction &Action)
  58. {
  59.     // 删除窗体并回收空间
  60.     Action = caFree;
  61. }
  62. //---------------------------------------------------------------------------
  63. void __fastcall TfmSaleManage::cboCustomCodeDropDown(TObject *Sender)
  64. {
  65.     // 弹出客户窗体，供用户选择客户
  66.     TfmCustomManage *pForm = new TfmCustomManage(Application);
  67.     // 改窗口不应可以编辑，把table的可以编辑属性关闭
  68.     pForm->DBNavigator->Enabled = false;
  69.     pForm->DataSource1->AutoEdit = false;
  70.     pForm->FormStyle = fsNormal;
  71.     pForm->WindowState = wsNormal;
  72.     pForm->m_Input = true;
  73.     pForm->Visible = false;
  74.     pForm->Position = poScreenCenter;
  75.     pForm->ShowModal();
  76.     // 赋予客户编号
  77.     if(!pForm->m_szSelectCode.IsEmpty())
  78.         cboCustomCode->Text = pForm->m_szSelectCode;
  79.     delete pForm;
  80.     this->Refresh();
  81.     // 获取客户信息
  82.     cboCustomCodeChange(NULL);
  83. }
  84. //---------------------------------------------------------------------------
  86. void __fastcall TfmSaleManage::cboCustomCodeChange(TObject *Sender)
  87. {
  88.     // 获取客户信息
  89.     Query2->Close();
  90.     Query2->SQL->Clear();
  91.     Query2->SQL->Add("select 名称 from 客户清单 where 客户编号='"
  92.         + cboCustomCode->Text + "'");
  93.     Query2->Open();
  94.     if(Query2->RecordCount > 0)
  95.     {
  96.         edCustomName->Text = Query2->FieldByName("名称")->AsString;
  97.     }
  98.     Query2->Close();
  99. }
  100. //---------------------------------------------------------------------------
  102. void __fastcall TfmSaleManage::sgPurDetailDblClick(TObject *Sender)
  103. {
  104.     // 第二列双击，选择商品; 双击第五列,选择仓库
  105.     if(sgPurDetail->Col != 1 && sgPurDetail->Col != 5 ) return;
  106.     if(sgPurDetail->Col == 1)
  107.     {
  108.         // 弹出客户窗体，供用户选择客户
  109.         TfmGoodManage *pForm = new TfmGoodManage(Application);
  110.         // 改窗口不应可以编辑，把table的可以编辑属性关闭
  111.         pForm->DBNavigator->Enabled = false;
  112.         pForm->DataSource1->AutoEdit = false;
  113.         pForm->FormStyle = fsNormal;
  114.         pForm->WindowState = wsNormal;
  115.         pForm->m_Input = true;
  116.         pForm->Visible = false;
  117.         pForm->Position = poScreenCenter;
  118.         pForm->ShowModal();
  119.         // 赋予客户编号
  120.         if(!pForm->m_szSelectCode.IsEmpty())
  121.         {
  122.             sgPurDetail->Cells[1][sgPurDetail->Row] = pForm->m_szSelectCode;
  123.             // 获取商品商信息
  124.             sgPurDetail->Col = 4;
  125.         }
  126.         delete pForm;
  127.         this->Refresh();
  128.     }
  129.     if(sgPurDetail->Col == 5)
  130.     {
  131.         // 弹出选择仓库窗体，供用户选择仓库
  132.         TfmSelectStore *pForm = new TfmSelectStore(Application);
  133.         // 改窗口不应可以编辑，把table的可以编辑属性关闭
  134.         pForm->Position = poScreenCenter;
  135.         pForm->m_szGoodID = sgPurDetail->Cells[1][sgPurDetail->Row];
  136.         // 查询指定货号的商品库存信息
  137.         pForm->Query1->SQL->Clear();
  138.         AnsiString sql;
  139.         sql = "select 仓库,库存数量 from 库存库 where 货号='";
  140.         sql += sgPurDetail->Cells[1][sgPurDetail->Row] + "'";
  141.         pForm->Query1->SQL->Add(sql);
  142.         pForm->Query1->Open();
  143.         pForm->ShowModal();
  144.         // 赋予选择的仓库
  145.         if(!pForm->m_szSelectStore.IsEmpty())
  146.         {
  147.             sgPurDetail->Cells[5][sgPurDetail->Row] = pForm->m_szSelectStore;
  148.             // 如果需要检查销售数量不能大于库存数量,在此保存仓库的库存数量
  149.             // 并在保存按钮的单击事件中作检查就可以了
  150.         }
  151.         delete pForm;
  152.         this->Refresh();
  153.     }
  154. }
  155. //---------------------------------------------------------------------------
  156. void __fastcall TfmSaleManage::sgPurDetailSelectCell(TObject *Sender,
  157.       int ACol, int ARow, bool &CanSelect)
  158. {
  159.     if(ACol==2 || ACol==3 || (ACol>=7 && ACol<=10))  // 不可以编辑的列
  160.         CanSelect = false;
  161.     // 根据货号更新商品信息
  162.     if(m_CurrentCol == 1)
  163.     {
  164.         Query2->Close();
  165.         Query2->SQL->Clear();
  166.         Query2->SQL->Add("select 品名,单位 from 商品清单 where 货号='"
  167.             + sgPurDetail->Cells[1][m_CurrentRow] + "'");
  168.         Query2->Open();
  169.         if(Query2->RecordCount > 0)
  170.         {
  171.             sgPurDetail->Cells[2][m_CurrentRow] = Query2->FieldByName("品名")->AsString;
  172.             sgPurDetail->Cells[3][m_CurrentRow] = Query2->FieldByName("单位")->AsString;
  173.             // 默认税率为17
  174.             sgPurDetail->Cells[8][m_CurrentRow] = "17";
  175.         }
  176.         Query2->Close();
  177.     }
  178.     else if((m_CurrentCol == 4 || m_CurrentCol == 6) &&
  179.         !sgPurDetail->Cells[4][m_CurrentRow].IsEmpty() &&
  180.         !sgPurDetail->Cells[6][m_CurrentRow].IsEmpty())  // 计算金额
  181.     {
  182.         double fTotalMoney, fNoTax, fTax, fTaxRatio;
  183.         fTaxRatio = StrToFloat(sgPurDetail->Cells[8][m_CurrentRow]);
  184.         // 不含税金额
  185.         fTotalMoney = StrToFloat(sgPurDetail->Cells[4][m_CurrentRow]) *
  186.             StrToFloat(sgPurDetail->Cells[6][m_CurrentRow]);
  187.         fNoTax = fTotalMoney/(1+fTaxRatio/100);
  188.         fTax = fTotalMoney - fNoTax;
  189.         sgPurDetail->Cells[7][m_CurrentRow] = FormatFloat("0.00",fTotalMoney);
  190.         sgPurDetail->Cells[9][m_CurrentRow] = FormatFloat("0.00",fTax);
  191.         sgPurDetail->Cells[10][m_CurrentRow]  = FormatFloat("0.00",fNoTax);
  192.         // 计算汇总信息
  193.         fTotalMoney = 0;
  194.         fTax = 0;
  195.         fNoTax = 0;
  196.         for(int i=1; i<30; i++)
  197.         {
  198.             if(!sgPurDetail->Cells[7][i].IsEmpty())
  199.             {
  200.                 fTotalMoney += StrToFloat(sgPurDetail->Cells[7][i]);
  201.                 fTax += StrToFloat(sgPurDetail->Cells[9][i]);
  202.                 fNoTax += StrToFloat(sgPurDetail->Cells[10][i]);
  203.             }
  204.         }
  205.         edTotal->Text = FormatFloat("0.00",fTotalMoney);
  206.         edTax->Text = FormatFloat("0.00",fTax);
  207.         edNoTax->Text = FormatFloat("0.00",fNoTax);
  208.     }
  209.     m_CurrentCol = ACol;
  210.     m_CurrentRow = ARow;
  211. }
  212. //---------------------------------------------------------------------------
  214. void __fastcall TfmSaleManage::sgPurDetailKeyPress(TObject *Sender,
  215.       char &Key)
  216. {
  217.     if(Key ==13)
  218.     {
  219.         // 跳到下一个单元格
  220.         if(m_CurrentCol == 1)
  221.             sgPurDetail->Col = 4;
  222.         else if(m_CurrentCol == 4 || m_CurrentCol == 5)
  223.             sgPurDetail->Col = m_CurrentCol + 1;
  224.         else if(m_CurrentCol == 6)   // 下一行
  225.         {
  226.             sgPurDetail->Col = 1;
  227.             sgPurDetail->Row = m_CurrentRow + 1;
  228.         }
  229.     }
  230. }
  231. //---------------------------------------------------------------------------
  232. void __fastcall TfmSaleManage::btNewClick(TObject *Sender)
  233. {
  234.     // 新建销售单，清空各种信息
  235.     cboPeople->Text = "";
  236.     cboCustomCode->Text = "";
  237.     edCustomName->Text = "";
  238.     edTotal->Text = "";
  239.     edNoTax->Text = "";
  240.     edTax->Text = "";
  241.     // 清空销售明细
  242.     for(int i=1; i<11; i++)
  243.         for(int j=1; j<30; j++)
  244.            sgPurDetail->Cells[i][j] = "";
  245.     // 设置制单人、日期等初始信息
  246.     TDateTime dt;
  247.     dt = dt.CurrentDateTime();
  248.     edDate->Text = dt.DateString();
  249.     edMan->Text = ((TfmMain*) Application->MainForm)->m_szUserName;
  250.     // 设置业务员数据词库
  251.     Query2->SQL->Clear();
  252.     Query2->SQL->Add("select 姓名 from 业务员清单");
  253.     Query2->Open();
  254.     while(!Query2->Eof)
  255.     {
  256.         cboPeople->Items->Add(Query2->FieldByName("姓名")->AsString);
  257.         Query2->Next();
  258.     }
  259. }
  260. //---------------------------------------------------------------------------
  261. // 保存销售单,写入销售单和销售单明细
  262. void __fastcall TfmSaleManage::btSaveClick(TObject *Sender)
  263. {
  264.     // 这里加入合法性检查,例如客户不能为空等
  265.     if(cboCustomCode->Text.IsEmpty()) return;
  266.     // 获取单据ID
  267.     AnsiString szID,szID1;
  268.     AnsiString sql;
  269.     Query2->SQL->Clear();
  270.     Query2->SQL->Add("select max(编号) as 编号 from 销售单历史");
  271.     Query2->Open();
  272.     TField* pField = Query2->FieldByName("编号");
  273.     if(pField->IsNull)
  274.         szID = "0000000001";
  275.     else
  276.     {
  277.         AnsiString szT = "0000000000";
  278.         szID = pField->AsInteger + 1;
  279.         szID = szT.SubString(1,10-szID.Length()) + szID;
  280.     }
  281.     Query2->Close();
  282.     // 删除已有数据
  283.     Query2->SQL->Clear();
  284.     Query2->SQL->Add("delete from 销售单明细 where 销售单号='" + szID + "'");
  285.     Query2->ExecSQL();
  286.     Query2->Close();
  287.     Query2->SQL->Clear();
  288.     Query2->SQL->Add("delete from 销售单 where 编号='" + szID + "'");
  289.     Query2->ExecSQL();
  290.     Query2->Close();
  291.     // 写入销售单
  292.     Query1->SQL->Clear();
  293.     sql = "insert into 销售单(编号,客户编号,销售日期,制单人,业务员,";
  294.     sql += "税价合计,不含税价,税额) values('" + szID + "','";
  295.     sql += cboCustomCode->Text + "','" + edDate->Text + "','" + edMan->Text+"','";
  296.     sql += cboPeople->Text + "'," + edTotal->Text + "," + edNoTax->Text;
  297.     sql += "," + edTax->Text + ")";
  298.     Query1->SQL->Add(sql);
  299.     Query1->ExecSQL();
  300.     Query1->Close();
  301.     // 写入明细
  302.     Query2->SQL->Clear();
  303.     Query2->SQL->Add("select max(编号) as 编号  from 销售单明细历史");
  304.     Query2->Open();
  305.     pField = Query2->FieldByName("编号");
  306.     if(pField->IsNull)
  307.         szID1 = "0";
  308.     else
  309.         szID1 = pField->AsInteger;
  310.     Query2->Close();
  311.     // 如果遇到货号为空的行就结束写入
  312.     for(int i=1; i<30 && !sgPurDetail->Cells[1][i].IsEmpty(); i++)
  313.     {
  314.         // 数量单价为空的跳过
  315.         if(sgPurDetail->Cells[4][i].IsEmpty() || sgPurDetail->Cells[6][i].IsEmpty())
  316.             continue;
  317.         szID1 = IntToStr(StrToInt(szID1)+1);
  318.         AnsiString szT = "0000000000";
  319.         szID1 = szT.SubString(1,10-szID1.Length()) + szID1;
  320.         sql = "insert into 销售单明细(编号,销售单号,货号,销售数量,销售价,仓库,";
  321.         sql += "税价合计,税率,不含税价,税额) values('" + szID1 + "','";
  322.         sql += szID + "','" + sgPurDetail->Cells[1][i] + "',";
  323.         sql += sgPurDetail->Cells[4][i]+"," + sgPurDetail->Cells[6][i] + ",'";
  324.         sql += sgPurDetail->Cells[5][i] + "'," + sgPurDetail->Cells[7][i] + ",";
  325.         sql += sgPurDetail->Cells[8][i] + "," + sgPurDetail->Cells[9][i] + ",";
  326.         sql += sgPurDetail->Cells[10][i] + ")";
  327.         Query1->SQL->Clear();
  328.         Query1->SQL->Add(sql);
  329.         Query1->ExecSQL();
  330.         Query1->Close();
  331.     }
  332. }
  333. //---------------------------------------------------------------------------
  334. // 删除当前行
  335. void __fastcall TfmSaleManage::btDeleteClick(TObject *Sender)
  336. {
  337.     for(int i=1; i<11; i++)
  338.         sgPurDetail->Cells[i][m_CurrentRow] = "";
  339. }
  340. //---------------------------------------------------------------------------
  341. // 打印输出并确认销售单,调用sf_销售单存储过程增加库存和应付款
  342. void __fastcall TfmSaleManage::btPrintClick(TObject *Sender)
  343. {
  344.     // 保存数据
  345.     btSaveClick(NULL);
  346.     if(Application->MessageBox("是否记帐确认销售单?","提示",MB_YESNO) == IDYES)
  347.     {
  348.         // 调用sf_销售单存储过程增加库存和应付款
  349.         Query1->SQL->Clear();
  350.         Query1->SQL->Add("exec sf_销售单");
  351.         Query1->ExecSQL();
  352.         Query1->Close();
  353.         // 保存成功,清除数据
  354.         btNewClick(NULL);
  355.     }
  356. }
  357. //---------------------------------------------------------------------------