proneed.~cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "ProNeed.h"
#include "selectmaterial.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Parent"
#pragma resource "*.dfm"
TfmProNeed *fmProNeed;
//---------------------------------------------------------------------------
__fastcall TfmProNeed::TfmProNeed(TComponent* Owner)
    : TfmParent(Owner)
{
    // 设置按钮状态
    this->SetButtonEnable(0);
    BitBtn2->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TfmProNeed::btNewClick(TObject *Sender)
{
    // 设置按钮状态
    BitBtn2->Enabled = true;
    DBRadioGroup1->SetFocus();
    DBRadioGroup1->ItemIndex = 0;
    EditDBEdit->SetFocus();
    // 注意如何调用父类窗体的方法
    TfmParent::btNewClick(NULL);
}
//---------------------------------------------------------------------------
void __fastcall TfmProNeed::btEditClick(TObject *Sender)
{
    // 设置按钮状态
    BitBtn2->Enabled = true;
    // 注意如何调用父类窗体的方法
    TfmParent::btEditClick(NULL);
}
//---------------------------------------------------------------------------
void __fastcall TfmProNeed::btSaveClick(TObject *Sender)
{
    // 设置按钮状态
    BitBtn2->Enabled = false;
    // 注意如何调用父类窗体的方法
    TfmParent::btSaveClick(NULL);
}
//---------------------------------------------------------------------------
void __fastcall TfmProNeed::btCancelClick(TObject *Sender)
{
    // 设置按钮状态
    BitBtn2->Enabled = false;
    // 注意如何调用父类窗体的方法
    TfmParent::btCancelClick(NULL);
}
//---------------------------------------------------------------------------
void __fastcall TfmProNeed::BitBtn2Click(TObject *Sender)
{
    TfmSelectMat* pFm = new TfmSelectMat(NULL);
    pFm->ShowModal();
    if(pFm->Table1->FieldByName("物料编号"))
    {
        EditDBEdit->SetFocus();
        EditDBEdit->Text = pFm->Table1->FieldByName("物料编号")->AsString;
    }
    delete pFm;
}
//---------------------------------------------------------------------------
void __fastcall TfmProNeed::EditDBEditChange(TObject *Sender)
{
    TQuery* pQuery = new TQuery(NULL);
    pQuery->DatabaseName = "db";
    AnsiString sql;
    sql = "select 物料名称 from 物料主文件 where 物料编号 = '";
    sql += EditDBEdit->Text + "'";
    pQuery->SQL->Add(sql);
    pQuery->Open();
    Edit4->Text = pQuery->FieldByName("物料名称")->AsString;
    pQuery->Close();
    delete pQuery;
}
//---------------------------------------------------------------------------
void __fastcall TfmProNeed::EditDBEdit2Change(TObject *Sender)
{
    // 根据年份和计划期设置开始日期和结束日期
    if(!EditDBEdit2->Text.IsEmpty() && !EditDBEdit3->Text.IsEmpty())
    {
        TQuery* pQuery = new TQuery(NULL);
        pQuery->DatabaseName = "db";
        AnsiString sql;
        sql = "select 开始日期,结束日期 from 工厂日历 where 年份 = ";
        sql += EditDBEdit2->Text + "and 计划期 = " + EditDBEdit3->Text;
        pQuery->SQL->Add(sql);
        pQuery->Open();
        EditDBEdit4->Text = pQuery->FieldByName("开始日期")->AsString;
        EditDBEdit5->Text = pQuery->FieldByName("结束日期")->AsString;
        pQuery->Close();
        delete pQuery;
    }
}
//---------------------------------------------------------------------------
void __fastcall TfmProNeed::BitBtn1Click(TObject *Sender)
{
    Table1->Filter = "";
    AnsiString szFilter;
    // 设置条件
    if(!Edit1->Text.IsEmpty())
        szFilter = "物料编号 = '" + Edit1->Text + "*' and ";
    if(!Edit2->Text.IsEmpty())
        szFilter += "年份 = " + Edit2->Text + " and ";
    if(!Edit3->Text.IsEmpty())
        szFilter += "计划期 = " + Edit3->Text + " and ";
    // 清除最后多余的and
    szFilter = szFilter.SubString(1,szFilter.Length()-5);
    Table1->Filtered = false;
    Table1->Filter = szFilter;
    Table1->Filtered = true;
}
//---------------------------------------------------------------------------
void __fastcall TfmProNeed::Edit1KeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    // 回车查询
    if(Key == 13)
    {
        BitBtn1Click(NULL);
    }    
}
//---------------------------------------------------------------------------