mrpcal.cpp

C++Builder6下的一个生产管理系统

//-------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "mrpcal.h"
//-------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfmMrpCal *fmMrpCal;
//-------------------------------------------------------
__fastcall TfmMrpCal::TfmMrpCal(TComponent* Owner)
    : TForm(Owner)
{
}
//-------------------------------------------------------
void __fastcall TfmMrpCal::btCalClick(TObject *Sender)
{
    // 调用存储过程计算物料需求
    TQuery* pQuery = new TQuery(NULL);
    pQuery->DatabaseName = "db";
    AnsiString sql;
    sql = "exec sf_mrp计算 ";
    // 考虑库存
    if(CheckBox1->Checked)
        sql += "1,";
    else
        sql += "0,";
    // 考虑提前期
    if(CheckBox2->Checked)
        sql += "1,";
    else
        sql += "0,";
    // 考虑损耗
    if(CheckBox3->Checked)
        sql += "1";
    else
        sql += "0";
    pQuery->SQL->Add(sql);
    pQuery->ExecSQL();
    delete pQuery;
    Query2->Active = false;
    Query2->Active = true;
}
//-------------------------------------------------------

void __fastcall TfmMrpCal::BitBtn1Click(TObject *Sender)
{
    if (Application->MessageBox("是否发布本次需求计算结果?", "确定", MB_YESNO)
             == mrNo)
        return;
    // 确定计算结果,将结果导入历史,清除主生产计划
    TQuery* pQuery = new TQuery(NULL);
    pQuery->DatabaseName = "db";
    AnsiString sql;
    sql = "exec sf_mrp结果发布";
    pQuery->SQL->Add(sql);
    pQuery->ExecSQL();
    delete pQuery;
    Query1->Active = false;
    Query2->Active = true;
    Query2->Active = false;
    Query2->Active = true;
}
//-------------------------------------------------------

void __fastcall TfmMrpCal::FormClose(TObject *Sender, TCloseAction &Action)
{
    // 删除窗体并回收空间
    Action = caFree;
}
//-------------------------------------------------------