yuangong.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "yuangong.h"
#include "datamodul.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tfrm_yg *frm_yg;
//---------------------------------------------------------------------------
__fastcall Tfrm_yg::Tfrm_yg(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_yg::Button1Click(TObject *Sender)
{
    DataModule1->tb_ygxx->First();
}
//---------------------------------------------------------------------------

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

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

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

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

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

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

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

void __fastcall Tfrm_yg::Button11Click(TObject *Sender)
{
    DataModule1->tb_ygxx->Cancel() ;    
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_yg::Button10Click(TObject *Sender)
{
    DataModule1->tb_ygxx->Filtered =false;
    //DataModule1->tb_ygxx->Active =true;
    Edit1->Text= IntToStr(DataModule1->tb_ygxx->RecordCount);
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_yg::Button9Click(TObject *Sender)
{
    DataModule1->tb_ygxx->Filtered =false;
    DataModule1->tb_ygxx->Filter=
    ComboBox1->Text+ComboBox3->Text+"'"+ComboBox2->Text+"'" ;
    ShowMessage(ComboBox1->Text+ComboBox3->Text+"'"+ComboBox2->Text+"'");
    DataModule1->tb_ygxx->Filtered =true;
    DataModule1->tb_ygxx->FindFirst();
    Edit1->Text= IntToStr(DataModule1->tb_ygxx->RecordCount);
}
//---------------------------------------------------------------------------