huopin.cpp

库存管理系统源码

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

#include <vcl.h>
#pragma hdrstop

#include "huopin.h"
#include "datamodul.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tfrm_huopin *frm_huopin;
//---------------------------------------------------------------------------
__fastcall Tfrm_huopin::Tfrm_huopin(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_huopin::Button1Click(TObject *Sender)
{
    DataModule1->tb_huopin->First();    
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_huopin::Button2Click(TObject *Sender)
{
    if(!DataModule1->tb_huopin->Bof)
        DataModule1->tb_huopin->Prior();
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_huopin::Button3Click(TObject *Sender)
{
    if(!DataModule1->tb_huopin->Eof)
        DataModule1->tb_huopin->Next();    
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_huopin::Button4Click(TObject *Sender)
{
    DataModule1->tb_huopin->Last();
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_huopin::Button6Click(TObject *Sender)
{
    int answer;
    answer=Application->MessageBox("确定删除吗？","警告",MB_YESNO);
    if(answer==6)
        DataModule1->tb_huopin->Delete() ;

}
//---------------------------------------------------------------------------
void __fastcall Tfrm_huopin::Button5Click(TObject *Sender)
{
    DataModule1->tb_huopin->Append();    
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_huopin::Button7Click(TObject *Sender)
{
    DataModule1->tb_huopin->Edit();    
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_huopin::Button8Click(TObject *Sender)
{
    DataModule1->tb_huopin->Post();    
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_huopin::Button11Click(TObject *Sender)
{
    DataModule1->tb_huopin->Cancel();    
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_huopin::Button9Click(TObject *Sender)
{
    DataModule1->tb_huopin->Filtered =false;
    DataModule1->tb_huopin->Filter=
    ComboBox1->Text+ComboBox3->Text+"'"+ComboBox2->Text+"'" ;
    //ShowMessage(ComboBox1->Text+ComboBox3->Text+"'"+ComboBox2->Text+"'");
    DataModule1->tb_huopin->Filtered =true;
    DataModule1->tb_huopin->FindFirst();
    Edit1->Text=IntToStr(DataModule1->tb_huopin->RecordCount);
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_huopin::Button10Click(TObject *Sender)
{
    DataModule1->tb_huopin->Filtered =false;
    Edit1->Text=IntToStr(DataModule1->tb_huopin->RecordCount);
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_huopin::DBLookupComboBox1Click(TObject *Sender)
{
    DataModule1->qry_search->Close();
    DataModule1->qry_search->SQL->Clear();
    DataModule1->qry_search->SQL->Add
    ("select 仓库名称 from 仓库信息 where 仓库编号='" +
    DBLookupComboBox1->Text+"'");
    DataModule1->qry_search->Open();

    DBEdit8->Text=DataModule1->qry_search->FieldByName("仓库名称")->AsString;

    

}
//---------------------------------------------------------------------------