pddata.cpp

供销存软件

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

#include <vcl.h>
#pragma hdrstop

#include "pdData.h"
#include "addSP.h"
#include "DataModule.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TpdindataForm *pdindataForm;
//---------------------------------------------------------------------------
__fastcall TpdindataForm::TpdindataForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TpdindataForm::FormCreate(TObject *Sender)
{
         DM->ADO_CK->Close();
         DM->ADO_CK->SQL->Clear();
         DM->ADO_CK->SQL->Add("select * from 仓库信息表");
         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();
}
//---------------------------------------------------------------------------


void __fastcall TpdindataForm::SpeedButton1Click(TObject *Sender)
{
        TaddSPForm *addSPForm=new TaddSPForm(this);
        addSPForm->ShowModal();
        SPnum->Text=addSPForm->SPname;
        delete addSPForm;
}
//---------------------------------------------------------------------------


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