chukudan.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "chukudan.h"
#include "datamodul.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tfrm_chuku *frm_chuku;
//---------------------------------------------------------------------------
__fastcall Tfrm_chuku::Tfrm_chuku(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_chuku::Button1Click(TObject *Sender)
{
    DataModule1->tb_chuku->First();    
}
//---------------------------------------------------------------------------

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

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

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

void __fastcall Tfrm_chuku::Button5Click(TObject *Sender)
{
    DataModule1->tb_chuku->Append();
    Button8->Enabled = TRUE;    
}
//---------------------------------------------------------------------------

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

    DataModule1->tb_chuku->Delete();
}
//---------------------------------------------------------------------------

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

void __fastcall Tfrm_chuku::Button8Click(TObject *Sender)
{
       if(StrToInt(DBEdit6->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_chuku->Post();

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

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

void __fastcall Tfrm_chuku::Button11Click(TObject *Sender)
{
    DataModule1->tb_chuku->Cancel();
    Button8->Enabled = FALSE;
}
//---------------------------------------------------------------------------

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

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

void __fastcall Tfrm_chuku::Button10Click(TObject *Sender)
{
    DataModule1->tb_chuku->Filtered=false;
}
//---------------------------------------------------------------------------