warehouse.cpp

来自「库存管理系统源码」· C++ 代码 · 共 71 行

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

#include <vcl.h>
#pragma hdrstop

#include "warehouse.h"
#include "datamodul.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tfrm_cangk *frm_cangk;
//---------------------------------------------------------------------------
__fastcall Tfrm_cangk::Tfrm_cangk(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_cangk::Button1Click(TObject *Sender)
{
    DataModule1->tb_cangku->First() ;
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_cangk::Button2Click(TObject *Sender)
{
    if(!DataModule1->tb_cangku->Bof)
        DataModule1->tb_cangku->Prior() ;
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_cangk::Button3Click(TObject *Sender)
{
    if(!DataModule1->tb_cangku->Eof)
        DataModule1->tb_cangku->Next() ;
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_cangk::Button4Click(TObject *Sender)
{
        DataModule1->tb_cangku->Last();
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_cangk::Button5Click(TObject *Sender)
{
    DataModule1->tb_cangku->Append();
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_cangk::Button6Click(TObject *Sender)
{
    int answer;
    answer=Application->MessageBox("确定删除吗？","警告",MB_YESNO);
    if(answer==6)
        DataModule1->tb_cangku->Delete() ;
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_cangk::Button7Click(TObject *Sender)
{
    DataModule1->tb_cangku->Edit();    
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_cangk::Button8Click(TObject *Sender)
{
    DataModule1->tb_cangku->Post() ;    
}
//---------------------------------------------------------------------------