startpd.cpp

供销存软件

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

#include <vcl.h>
#pragma hdrstop

#include "startPD.h"
#include "DataModule.h"
#include "login.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TpdForm *pdForm;
//---------------------------------------------------------------------------
__fastcall TpdForm::TpdForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TpdForm::FormCreate(TObject *Sender)
{        //盘点标志=1表示已盘点，0未盘点
        DM->ADO_CK->Close();
        DM->ADO_CK->SQL->Clear();
        DM->ADO_CK->SQL->Add("select 仓库名称 from 仓库信息表 where 盘点标志=0");
        DM->ADO_CK->Open();
        while(!DM->ADO_CK->Eof)
        {
                ComboBox1->Items->Add(DM->ADO_CK->FieldByName("仓库名称")->AsString.Trim());
                DM->ADO_CK->Next();
        }
        DM->ADO_CK->Close();

        if(ComboBox1->Items->Count==0)
        {
                Label3->Caption="没有可以盘点的仓库，不能开始新的盘点......";
        }else{
                Label3->Caption="请选择仓库开始盘点，准备就绪......";
                ComboBox1->ItemIndex=0;
                okBtn->Enabled=true;
        }
}
//---------------------------------------------------------------------------

void __fastcall TpdForm::okBtnClick(TObject *Sender)
{
         Date1->Time=Time1->Time;
         bool n=Now().CurrentDateTime().operator >(Date1->DateTime);
         if(n)
         {      Label3->Caption="盘点存盘成功，请进行数据录入......";
                okBtn->Enabled=false;
         }else{
               ShowMessage("盘点开始时间有误，请重新设置");
                return;
         }

         DM->ADOQ->Close();
         DM->ADOQ->SQL->Clear();
         DM->ADOQ->SQL->Add("select * from 盘点信息表");
         DM->ADOQ->Open();
         int num;
         if(DM->ADOQ->RecordCount==0)
         {
                num=1710000001;
         }else{
                DM->ADOQ->Last();
                num=DM->ADOQ->FieldByName("单号")->AsInteger+1;
         }
         //DM->ADOQ->Close();

         DM->ADOQ_RKD->Close();
         DM->ADOQ_RKD->SQL->Clear();
         AnsiString str="select * from 入库信息表 where 盘点标志=0 and 接收仓库='";
         str+=ComboBox1->Text;
         str+="'";
         str+=" and ";
         str+="入库时间<=#";
         str+=Date1->Date.DateString();
         str+='#';
         //ShowMessage(str);
         DM->ADOQ_RKD->SQL->Add(str);
         DM->ADOQ_RKD->Open();
         //ShowMessage("1");
         if(DM->ADOQ_RKD->RecordCount!=0)
         {
                 DM->ADOQ->Insert();
                 DM->ADOQ->FieldByName("单号")->AsInteger=num;
                 DM->ADOQ->FieldByName("时间")->AsString=Date1->DateTime.DateTimeString();
                 DM->ADOQ->FieldByName("仓库名称")->AsString=ComboBox1->Text;
                 DM->ADOQ->FieldByName("操作员")->AsString=LoginForm->Edituser->Text;
                 DM->ADOQ->Post();

                 DM->ADO_CK->Close();
                 DM->ADO_CK->SQL->Clear();
                 AnsiString s="select * from 仓库信息表 where 仓库名称='";
                 s+=ComboBox1->Text;
                 s+="'";
                 DM->ADO_CK->SQL->Add(s);
                 DM->ADO_CK->Open();
                 DM->ADO_CK->Edit();
                 DM->ADO_CK->FieldByName("盘点标志")->AsInteger=1;
                 DM->ADO_CK->Post();

                 //DM->ADO_CK->Close();
                 //DM->ADO_CK->SQL->Clear();
                 //DM->ADO_CK->SQL->Add("select * from 盘点商品表");
                 //DM->ADO_CK->Open();
                 //DM->ADO_CK->FieldByName("盘点单号")->AsInteger=num;
                 //DM->ADO_CK->FieldByName("商品编码")->AsString

         }else{
                Label3->Caption="没有数据，请进行入库初始化......";
         }
}
//---------------------------------------------------------------------------

void __fastcall TpdForm::BitBtn2Click(TObject *Sender)
{
         Close();
}
//---------------------------------------------------------------------------


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