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

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

百货/超市行业

开发平台：

C++ Builder

Main.~cpp：源码内容
  1. //---------------------------------------------------------------------------
  3. #include <vcl.h>
  4. #pragma hdrstop
  6. #include "Main.h"
  7. #include "login.h"
  8. #include "GoodManage.h"
  9. #include "SupplyManage.h"
  10. #include "CustomManage.h"
  11. #include "PurchaseManage.h"
  12. #include "SaleManage.h"
  13. #include "StoreQuery.h"
  14. #include "Right.h"
  16. //---------------------------------------------------------------------------
  17. #pragma package(smart_init)
  18. #pragma resource "*.dfm"
  19. TfmMain *fmMain;
  20. //---------------------------------------------------------------------------
  21. __fastcall TfmMain::TfmMain(TComponent* Owner)
  22.     : TForm(Owner)
  23. {
  24. }
  25. //---------------------------------------------------------------------------
  26. void __fastcall TfmMain::FormCreate(TObject *Sender)
  27. {
  28.     TfmLogin *pForm = new TfmLogin(Application);
  29.     pForm->ShowModal();
  30.     if(pForm->m_szUserCode.IsEmpty())
  31.     // 取消了,退出程序
  32.     {
  33.         Application->Terminate();
  34.     }
  35.     else
  36.     {
  37.         m_szUserCode = pForm->m_szUserCode;
  38.         m_szUserName = pForm->m_szUserName;
  39.         StatusBar1->Panels->Items[1]->Text = m_szUserName;
  40.     }
  41.     delete pForm;
  43.     // 设置功能菜单的状态,屏蔽用户不可操作的功能
  44.     // 如果是系统管理员登录,则不设置
  45.     if(m_szUserCode = "1") return;
  46.     TQuery* pQuery = new TQuery(NULL);
  47.     pQuery->DatabaseName = "db";
  48.     pQuery->SQL->Add("select 权限名称 from 权限清单 where 用户编号='" + m_szUserCode + "'");
  49.     pQuery->Open();
  50.     TStringList* plst = new TStringList();
  51.     while(!pQuery->Eof)
  52.     {
  53.         plst->Add(pQuery->FieldByName("权限名称")->AsString);
  54.         pQuery->Next();
  55.     }
  56.     // 判断是否可操作,不在plst列表中表示不可操作,菜单变灰色
  57.     for(int j=0; j<MainMenu1->Items->Count; j++)
  58.     {
  59.         TMenuItem* pItem = MainMenu1->Items->Items[j];
  60.         for(int i=0; i<pItem->Count; i++)
  61.         {
  62.             TMenuItem* pSubItem = pItem->Items[i];
  63.             if(pSubItem->Count == 0 && plst->IndexOf(pSubItem->Caption)<=0)
  64.                 pSubItem->Enabled = false;
  65.         }
  66.     }
  67.     delete pQuery;
  68.     delete plst;
  69. }
  70. //---------------------------------------------------------------------------
  71. TForm* TfmMain::FormExist(AnsiString szCaption)
  72. {
  73.     for(int i=0; i<this->MDIChildCount; i++)
  74.     {
  75.         TForm *pForm = this->MDIChildren[i];
  76.         if(pForm->Caption == szCaption)
  77.             return pForm;   // 已存在窗体,返回该窗体
  78.     }
  79.     return NULL;    // 不存在窗体,返回空值
  80. }
  81. //---------------------------------------------------------------------------
  82. void __fastcall TfmMain::mnuGoodManageClick(TObject *Sender)
  83. {
  84.     // 显示商品信息维护窗体
  85.     TForm *pForm = FormExist("商品信息维护");
  86.     // 如果已存在则激活，否则新建一个窗体
  87.     if(pForm)
  88.         pForm->SetFocus();
  89.     else
  90.         pForm = new TfmGoodManage(Application);
  91.     pForm->Show();
  92. }
  93. //---------------------------------------------------------------------------
  94. void __fastcall TfmMain::mnuSupplyManageClick(TObject *Sender)
  95. {
  96.     // 显示供货商信息维护窗体
  97.     TForm *pForm = FormExist("供货商信息维护");
  98.     // 如果已存在则激活，否则新建一个窗体
  99.     if(pForm)
  100.         pForm->SetFocus();
  101.     else
  102.         pForm = new TfmSupplyManage(Application);
  103.     pForm->Show();
  104. }
  105. //---------------------------------------------------------------------------
  106. void __fastcall TfmMain::mnuCustomManageClick(TObject *Sender)
  107. {
  108.     // 显示客户信息维护窗体
  109.     TForm *pForm = FormExist("客户信息维护");
  110.     // 如果已存在则激活，否则新建一个窗体
  111.     if(pForm)
  112.         pForm->SetFocus();
  113.     else
  114.         pForm = new TfmCustomManage(Application);
  115.     pForm->Show();
  116. }
  117. //---------------------------------------------------------------------------
  118. void __fastcall TfmMain::mnuPurchaseManageClick(TObject *Sender)
  119. {
  120.     // 显示进货单窗体
  121.     TForm *pForm = FormExist("进货单");
  122.     // 如果已存在则激活，否则新建一个窗体
  123.     if(pForm)
  124.         pForm->SetFocus();
  125.     else
  126.         pForm = new TfmPurchaseManage(Application);
  127.     pForm->Show();
  128. }
  129. //---------------------------------------------------------------------------
  130. void __fastcall TfmMain::mnuSaleManageClick(TObject *Sender)
  131. {
  132.     // 显示销售单窗体
  133.     TForm *pForm = FormExist("销售单");
  134.     // 如果已存在则激活，否则新建一个窗体
  135.     if(pForm)
  136.         pForm->SetFocus();
  137.     else
  138.         pForm = new TfmSaleManage(Application);
  139.     pForm->Show();
  140. }
  141. //---------------------------------------------------------------------------
  142. void __fastcall TfmMain::mnuStockQueryClick(TObject *Sender)
  143. {
  144.     // 显示库存查询窗体
  145.     TForm *pForm = FormExist("库存查询");
  146.     // 如果已存在则激活，否则新建一个窗体
  147.     if(pForm)
  148.         pForm->SetFocus();
  149.     else
  150.         pForm = new TfmStoreQuery(Application);
  151.     pForm->Show();
  152. }
  153. //---------------------------------------------------------------------------
  154. void __fastcall TfmMain::mnuRightManageClick(TObject *Sender)
  155. {
  156.     // 显示权限管理窗体
  157.     TForm *pForm = FormExist("权限管理");
  158.     // 如果已存在则激活，否则新建一个窗体
  159.     if(pForm)
  160.         pForm->SetFocus();
  161.     else
  162.         pForm = new TfmRightManage(Application);
  163.     pForm->Show();
  164. }
  165. //---------------------------------------------------------------------------