bs_manage.cpp

供销存软件

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

#include <vcl.h>
#pragma hdrstop

#include "BS_manage.h"
#include "addKH.h"
#include "addSP.h"
#include "DataModule.h"
#include "login.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TbsForm *bsForm;
//---------------------------------------------------------------------------
__fastcall TbsForm::TbsForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TbsForm::insertBtnClick(TObject *Sender)
{
        money=0;
        DM->ADOQ->Close();
        DM->ADOQ->SQL->Clear();
        DM->ADOQ->SQL->Add("select * from 商品仓库交互表");
        DM->ADOQ->Open();
        while(!DM->ADOQ->Eof){
                 DM->ADOQ->Delete();
                 DM->ADOQ->Next();
        }

        SPnum->Text="";
        THsum->Text="";
        THprice->Text="";
        Money->Text="";
        Tsum->Text="";
        DM->ADOQ_SPinfo->Close();

        DM->ADOQ_RKD->Close();
        DM->ADOQ_RKD->SQL->Clear();
        DM->ADOQ_RKD->SQL->Add("select * from 报损信息表");
        DM->ADOQ_RKD->Open();
        
        DBEdit1->Enabled=true;
        DBEdit2->Enabled=true;
        DBEdit3->Enabled=true;
        DBEdit4->Enabled=true;
        DBEdit5->Enabled=true;
        //DBEdit6->Enabled=true;
        SPnum->Enabled=true;
        THsum->Enabled=true;
        THprice->Enabled=true;
        DBComboBox1->Enabled=true;
        addSP->Enabled=true;
        calButton->Enabled=true;
        okBtn->Enabled=true;
        noBtn->Enabled=true;
        insertBtn->Enabled=false;
        postBtn->Enabled=true;
        if(DM->ADOQ_RKD->RecordCount==0)
                n=1510000001;
        else{
                DM->ADOQ_RKD->Last();
                n=DM->ADOQ_RKD->FieldByName("编号")->AsInteger+1;
        }
        DM->ADOQ_RKD->Insert();
        DM->ADOQ_RKD->FieldByName("编号")->AsInteger=n;
        DM->ADOQ_RKD->FieldByName("报损时间")->Value=Now().CurrentDateTime().DateTimeString();
}
//---------------------------------------------------------------------------

void __fastcall TbsForm::FormCreate(TObject *Sender)
{
       money=0;
       n=0;

       DM->ADOQ->Close();
       DM->ADOQ->SQL->Clear();
       DM->ADOQ->SQL->Add("select * from  仓库信息表");
       DM->ADOQ->Open();
       AnsiString str;
       while(!DM->ADOQ->Eof){
                 str=DM->ADOQ->FieldByName("仓库名称")->AsString;
                 DBComboBox1->Items->Add(str.Trim());
                 DM->ADOQ->Next();
       }

        DM->ADOQ->Close();
        DM->ADOQ->SQL->Clear();
        DM->ADOQ->SQL->Add("select * from 商品仓库交互表");
        DM->ADOQ->Open();
        while(!DM->ADOQ->Eof){
                 DM->ADOQ->Delete();
                 DM->ADOQ->Next();
        }
}
//---------------------------------------------------------------------------

void __fastcall TbsForm::addSPClick(TObject *Sender)
{
       //打开增加商品窗口
        TaddSPForm *addSPForm=new TaddSPForm(this);
        addSPForm->ShowModal();
        SPnum->Text=addSPForm->SPname;
        delete addSPForm;

        //显示对应的商品信息
        DM->ADOQ_SPinfo->Close();
        DM->ADOQ_SPinfo->SQL->Clear();
        AnsiString str="select * from 商品信息表 where 编号='";
        str+=SPnum->Text;
        str+="'";
        DM->ADOQ_SPinfo->SQL->Add(str);
        DM->ADOQ_SPinfo->Open();

        DM->ADOQ_RKSP->Close();
        DM->ADOQ_RKSP->SQL->Clear();
        AnsiString jsck=DBComboBox1->Text;
        str="select 库存数量 from 仓库商品表 where 仓库名称='";
        str+=jsck;
        str+="' and 商品编号='";
        str+=SPnum->Text.Trim();
        str+="'";
        DM->ADOQ_RKSP->SQL->Add(str);
        DM->ADOQ_RKSP->Open();
        DM->ADOQ_RKSP->Last();
        jsck=DM->ADOQ_RKSP->FieldByName("库存数量")->AsInteger;
        KCsum->Text=jsck;
        DM->ADOQ_RKSP->Close();

        DM->ADOQ_RKSP->Close();
        DM->ADOQ_RKSP->SQL->Clear();
        str="select * from 入库商品表 where 商品编号='";
        str+=SPnum->Text;
        str+="'";
        DM->ADOQ_RKSP->SQL->Add(str);
        DM->ADOQ_RKSP->Open();
        if(DM->ADOQ_RKSP->RecordCount==0)
                inPrice->Text="";
        else{
                DM->ADOQ_RKSP->Last();
                inPrice->Text=DM->ADOQ_RKSP->FieldByName("价格")->AsString;
        }
        DM->ADOQ_RKSP->Close();
}
//---------------------------------------------------------------------------

void __fastcall TbsForm::calButtonClick(TObject *Sender)
{
        //计算金额，实际数量
        double price=0;
        int sum=0;
        if(THprice->Text=="")
                ShowMessage("退货价格不允许为空。");
        else
                price=THprice->Text.ToDouble();
        if(THsum->Text=="")
                
                ShowMessage("退货数量不允许为空。");
        else
                sum=THsum->Text.ToInt();
        Money->Text=price*sum;

        sum=KCsum->Text.ToInt()-sum;
        Tsum->Text=sum;
}
//---------------------------------------------------------------------------

void __fastcall TbsForm::okBtnClick(TObject *Sender)
{
        DM->ADOQ->Insert();
        DM->ADOQ->FieldByName("单号")->AsInteger=n;
        DM->ADOQ->FieldByName("金额")->Value=Money->Text;
        DM->ADOQ->FieldByName("商品编号")->AsString=SPnum->Text;
        DM->ADOQ->FieldByName("商品名称")->AsString=DBEdit1->Text;
        DM->ADOQ->FieldByName("单位")->AsString=DBEdit2->Text;
        DM->ADOQ->FieldByName("商品规格")->AsString=DBEdit3->Text;
        DM->ADOQ->FieldByName("单价")->AsInteger=THprice->Text.ToInt();
        DM->ADOQ->FieldByName("数量")->AsInteger=THsum->Text.ToInt();
        DM->ADOQ->FieldByName("当前库存数量")->AsInteger=Tsum->Text.ToInt();
        DM->ADOQ->FieldByName("单个利润")->Value=THprice->Text.Trim().ToDouble()-inPrice->Text.Trim().ToDouble();
        DM->ADOQ->Post();
        DBGrid1->DataSource=DM->DS;

        money+=Money->Text.ToDouble();
        AnsiString str1=money;
        DM->ADOQ_RKD->FieldByName("总金额")->Value=str1;
}
//---------------------------------------------------------------------------

void __fastcall TbsForm::noBtnClick(TObject *Sender)
{
        SPnum->Text="";