rukudan.cpp

库存管理系统源码

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

#include <vcl.h>
#pragma hdrstop

#include "rukudan.h"
#include "datamodul.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tfrm_ruku *frm_ruku;
//---------------------------------------------------------------------------
__fastcall Tfrm_ruku::Tfrm_ruku(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_ruku::Button1Click(TObject *Sender)
{
    DataModule1->tb_ruku->First();
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_ruku::Button2Click(TObject *Sender)
{
    if(!DataModule1->tb_ruku->Bof)
        DataModule1->tb_ruku->Prior();

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

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

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

void __fastcall Tfrm_ruku::Button5Click(TObject *Sender)
{
    DataModule1->tb_ruku->Append();
    Button8->Enabled = TRUE;

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

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

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

void __fastcall Tfrm_ruku::Button8Click(TObject *Sender)
{
    if(StrToInt(DBEdit5->Text)<=0)
    {
        MessageBox(NULL,"数量不能为0或者小于0","警告",MB_OK);
        return;
    }
    AnsiString sSql;
    sSql = "Select * from  货品信息 where 货品编号 = '" + DBEdit4->Text + "'";
    Query1->SQL->Clear();
    Query1->SQL->Add(sSql);
    Query1->Active = TRUE;
    if(Query1->Eof)
    {
       MessageBox(NULL,"没有这种编号的商品","警告",MB_OK);
       DBEdit4->SetFocus();
       return;
    }

    DataModule1->tb_ruku->Post();

    sSql = "Update 货品信息 set 现有库存 = 现有库存 + " +
        DBEdit5->Text + " where 货品编号 = '" + DBEdit4->Text + "'";
    Query1->SQL->Clear();
    Query1->SQL->Add(sSql);
    Query1->ExecSQL();
    Button8->Enabled = FALSE;
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_ruku::Button11Click(TObject *Sender)
{
    DataModule1->tb_ruku->Cancel();
    Button8->Enabled = TRUE;
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_ruku::Button10Click(TObject *Sender)
{
    DataModule1->tb_ruku->Filtered=false;
    Edit1->Text=IntToStr(DataModule1->tb_ruku->RecordCount);
}
//---------------------------------------------------------------------------

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

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