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

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

百货/超市行业

开发平台：

C++ Builder

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