inck_manage.cpp

供销存软件

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

#include <vcl.h>
#pragma hdrstop

#include "inCK_manage.h"
#include "DataModule.h"
#include "addSP.h"
#include "addKH.h"
#include "login.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TinForm *inForm;
//---------------------------------------------------------------------------
__fastcall TinForm::TinForm(TComponent* Owner)
        : TForm(Owner)
{

}
//---------------------------------------------------------------------------
void __fastcall TinForm::FormCreate(TObject *Sender)
{
        money=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){
                 str=DM->ADOQ->FieldByName("名称")->AsString;
                 DBComboBox2->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 TinForm::JSButtonClick(TObject *Sender)
{
        //计算金额，有效天数，实际数量
        double price=0;
        int sum=0;
        if(Price->Text=="")
                ShowMessage("此次进价不允许为空。");
        else
                price=Price->Text.ToDouble();
        if(inSum->Text=="")
                
                ShowMessage("入库数量不允许为空。");
        else
                sum=inSum->Text.ToInt();
        Money->Text=price*sum;

        sum+=KCsum->Text.ToInt();
        trueSum->Text=sum;

        sum=DateTimePicker2->Date-DateTimePicker1->Date;
        sum+=1;
        daySum->Text=sum;
}
//---------------------------------------------------------------------------


void __fastcall TinForm::addSpBtnClick(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();
        str="select * from 入库商品表 where 商品编号='";
        str+=SPnum->Text;
        str+="'";
        DM->ADOQ_RKSP->SQL->Add(str);
        DM->ADOQ_RKSP->Open();
        if(DM->ADOQ_RKSP->RecordCount==0)
                BefPrice->Text="";
        else{
                DM->ADOQ_RKSP->Last();
                BefPrice->Text=DM->ADOQ_RKSP->FieldByName("价格")->AsString;
        }        

        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();
}
//---------------------------------------------------------------------------


void __fastcall TinForm::addKHButtonClick(TObject *Sender)
{
        DM->ADOQ_KHinfo->Close();
        DM->ADOQ_KHinfo->SQL->Clear();
        DM->ADOQ_KHinfo->SQL->Add("select * from 客户资料表 where 客户类型='供货客户'");
        DM->ADOQ_KHinfo->Open();
        //打开增加客户窗口
        TaddKHForm *addKHForm=new TaddKHForm(this);
        addKHForm->ShowModal();
        KHname->Text=addKHForm->KHname;
        delete addKHForm;
}
//---------------------------------------------------------------------------

void __fastcall TinForm::okBtnClick(TObject *Sender)
{       //入库商品表增加数据
        DM->ADOQ->Insert();
        DM->ADOQ->FieldByName("单号")->AsInteger=n;
        DM->ADOQ->FieldByName("出厂日期")->AsString=DateTimePicker1->Date.DateString();
        DM->ADOQ->FieldByName("有效日期")->AsString=DateTimePicker2->Date.DateString();
        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=Price->Text.ToInt();
        DM->ADOQ->FieldByName("数量")->AsInteger=inSum->Text.ToInt();
        DM->ADOQ->FieldByName("当前库存数量")->AsInteger=trueSum->Text.ToInt();
        DM->ADOQ->Post();
        DBGrid1->DataSource=DM->DS;

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

void __fastcall TinForm::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();
        }

        KHname->Text="";
        SPnum->Text="";
        BefPrice->Text="";
        inSum->Text="";
        Price->Text="";
        Money->Text="";
        daySum->Text="";
        trueSum->Text="";
        KCsum->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;
        BefPrice->Enabled=true;
        inSum->Enabled=true;
        Price->Enabled=true;
        Money->Enabled=true;
        daySum->Enabled=true;
        trueSum->Enabled=true;
        DBComboBox1->Enabled=true;
        DBComboBox2->Enabled=true;
        addKHButton->Enabled=true;
        addSpBtn->Enabled=true;
        JSButton->Enabled=true;
        okBtn->Enabled=true;
        noBtn->Enabled=true;
        insertBtn->Enabled=false;
        postBtn->Enabled=true;
        if(DM->ADOQ_RKD->RecordCount==0)
                n=1010000001;
        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();
}