gonghuoshang.cpp

库存管理系统源码

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

#include <vcl.h>
#pragma hdrstop

#include "gonghuoshang.h"
#include "datamodul.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tfrm_ghs *frm_ghs;
//---------------------------------------------------------------------------
__fastcall Tfrm_ghs::Tfrm_ghs(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_ghs::Button1Click(TObject *Sender)
{
    DataModule1->tb_ghs->First();    
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_ghs::Button3Click(TObject *Sender)
{
    DataModule1->tb_ghs->Next();    
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_ghs::Button2Click(TObject *Sender)
{
    DataModule1->tb_ghs->Prior();    
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_ghs::Button4Click(TObject *Sender)
{
    DataModule1->tb_ghs->Last() ;  
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_ghs::Button6Click(TObject *Sender)
{
    int answer;
    answer=Application->MessageBox("确定删除吗？","警告",MB_YESNO);
    if(answer==6)
        DataModule1->tb_ghs->Delete() ;
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_ghs::Button5Click(TObject *Sender)
{
    DataModule1->tb_ghs->Append();
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_ghs::Button7Click(TObject *Sender)
{
    DataModule1->tb_ghs->Edit();    
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_ghs::Button8Click(TObject *Sender)
{
    DataModule1->tb_ghs->Post();    
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_ghs::Button11Click(TObject *Sender)
{
    DataModule1->tb_ghs->Cancel();
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_ghs::Button10Click(TObject *Sender)
{
    DataModule1->tb_ghs->Filtered=false;
    Edit1->Text=IntToStr(DataModule1->tb_ghs->RecordCount);
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_ghs::Button9Click(TObject *Sender)
{
    DataModule1->tb_ghs->Filtered =false;
    DataModule1->tb_ghs->Filter=
    ComboBox1->Text+ComboBox3->Text+"'"+ComboBox2->Text+"'" ;
    ShowMessage(ComboBox1->Text+ComboBox3->Text+"'"+ComboBox2->Text+"'");
    DataModule1->tb_ghs->Filtered =true;
    DataModule1->tb_ghs->FindFirst();
    Edit1->Text=IntToStr(DataModule1->tb_ghs->RecordCount);
}
//---------------------------------------------------------------------------