parent.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Parent.h"
//-----------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfmParent *TfmParent;
//-----------------------------------------------------------------
__fastcall TfmParent::TfmParent(TComponent* Owner)
    : TForm(Owner)
{
    this->SetButtonEnable(0); 
}
//-----------------------------------------------------------------
void __fastcall TfmParent::FormClose(TObject *Sender, TCloseAction &Action)
{
    // 删除窗体并回收空间
    Action = caFree;
}
//-----------------------------------------------------------------
void __fastcall TfmParent::btFirstClick(TObject *Sender)
{
    // 到首记录
    Table1->First();
}
//-----------------------------------------------------------------
void __fastcall TfmParent::btPriorClick(TObject *Sender)
{
    // 到前一记录
    Table1->Prior();
}
//-----------------------------------------------------------------
void __fastcall TfmParent::btNextClick(TObject *Sender)
{
    // 到下一记录
    Table1->Next();
}
//-----------------------------------------------------------------
void __fastcall TfmParent::btLastClick(TObject *Sender)
{
    // 到尾记录
    Table1->Last();
}
//-----------------------------------------------------------------
void __fastcall TfmParent::btNewClick(TObject *Sender)
{
    // 设置按钮状态
    SetButtonEnable(1);
    // 新增记录
    Table1->Append();
}
//-----------------------------------------------------------------
void __fastcall TfmParent::btEditClick(TObject *Sender)
{
    // 设置按钮状态
    SetButtonEnable(1);
    // 编辑记录
    Table1->Edit();
}
//-----------------------------------------------------------------
void __fastcall TfmParent::btDeleteClick(TObject *Sender)
{
    if (Application->MessageBox("是否删除记录?", "确定", MB_YESNO)
             == mrYes)
    {
        DataSource1->Edit();
        // 删除记录
        Table1->Delete();
    }
}
//-----------------------------------------------------------------
void __fastcall TfmParent::btSaveClick(TObject *Sender)
{
    // 保存记录
    Table1->Post();
    // 设置按钮状态
    SetButtonEnable(0);
}
//-----------------------------------------------------------------
void __fastcall TfmParent::btCancelClick(TObject *Sender)
{
    // 取消编辑
    Table1->Cancel();
    // 设置按钮状态
    SetButtonEnable(0);
}
//-----------------------------------------------------------------
void __fastcall TfmParent::btExitClick(TObject *Sender)
{
    this->Close();
}
//-----------------------------------------------------------------
// 设置各种按钮的状态
void TfmParent::SetButtonEnable(int nStatus)
{
    if(nStatus == 1)
    {
        btFirst->Enabled = false;
        btPrior->Enabled = false;
        btNext->Enabled = false;
        btLast->Enabled = false;
        btNew->Enabled = false;
        btEdit->Enabled = false;
        btDelete->Enabled = false;
        btSave->Enabled = true;
        btCancel->Enabled = true;
    }
    else
    {
        btFirst->Enabled = true;
        btPrior->Enabled = true;
        btNext->Enabled = true;
        btLast->Enabled = true;
        btNew->Enabled = true;
        btEdit->Enabled = true;
        btDelete->Enabled = true;
        btSave->Enabled = false;
        btCancel->Enabled = false;
    }
}
//-----------------------------------------------------------------