spinfo.cpp

供销存软件

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

#include <vcl.h>
#pragma hdrstop

#include "SPinfo.h"
#include "DataModule.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TSPForm *SPForm;
//---------------------------------------------------------------------------
__fastcall TSPForm::TSPForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TSPForm::FormCreate(TObject *Sender)
{
       DM->ADOQ_SPinfo->Close();
       DM->ADOQ_SPinfo->SQL->Clear();
       DM->ADOQ_SPinfo->SQL->Add("select * from 商品信息表");
       DM->ADOQ_SPinfo->Open();

       TTreeNode *rNode,*mNode;
       TreeView1->Items->Clear();
       rNode=TreeView1->Items->Add(TreeView1->Selected,"商品类别");
       rNode->ImageIndex=1;
       rNode->SelectedIndex=1;

       DM->ADOQ_SPLB->Close();
       DM->ADOQ_SPLB->SQL->Clear();
       DM->ADOQ_SPLB->SQL->Add("select * from 商品类别表");
       DM->ADOQ_SPLB->Open();
       int n=2;
       AnsiString str,query;
       while(!DM->ADOQ_SPLB->Eof)
       {
                str=DM->ADOQ_SPLB->FieldByName("类别名称")->AsString;
                DBComboBox2->Items->Add(str.Trim());
                mNode=TreeView1->Items->AddChild(rNode,str);
                mNode->ImageIndex=n;
                mNode->SelectedIndex=n;
                n++;

                DM->ADOQ->Close();
                DM->ADOQ->SQL->Clear();
                query="select 编号 from 商品信息表 where 类别='";
                query+=str;
                query+="'";
                DM->ADOQ->SQL->Add(query);
                DM->ADOQ->Open();
                while(!DM->ADOQ->Eof)
                {
                        str=DM->ADOQ->FieldByName("编号")->Value;
                        TreeView1->Items->AddChild(mNode,str);
                        DM->ADOQ->Next();
                }
                DM->ADOQ->Close();

                DM->ADOQ_SPLB->Next();
       }
       DM->ADOQ_SPLB->Close();

       DM->ADOQ_KHinfo->Close();
       DM->ADOQ_KHinfo->SQL->Clear();
       DM->ADOQ_KHinfo->SQL->Add("select 名称 from 客户资料表 where 客户类型='供货客户'");
       DM->ADOQ_KHinfo->Open();
       while(!DM->ADOQ_KHinfo->Eof)
       {
                AnsiString str=DM->ADOQ_KHinfo->FieldByName("名称")->AsString;
                DBComboBox1->Items->Add(str.Trim());
                DM->ADOQ_KHinfo->Next();
       }
       DM->ADOQ_KHinfo->Close();
}
//---------------------------------------------------------------------------

void __fastcall TSPForm::closeBtnClick(TObject *Sender)
{
       DM->ADOQ_SPinfo->Close();
       Close();
}
//---------------------------------------------------------------------------

void __fastcall TSPForm::insertBtnClick(TObject *Sender)
{
       n=0;
       DBEdit2->SetFocus();
       postBtn->Enabled=true;
       insertBtn->Enabled=false;
       modifyBtn->Enabled=false;
       closeBtn->Enabled=false;
       DBEdit2->ReadOnly=false;
       DBEdit3->ReadOnly=false;
       DBEdit4->ReadOnly=false;
       DBEdit6->ReadOnly=false;
       DBEdit7->ReadOnly=false;
       DBEdit9->ReadOnly=false;
       DBEdit5->ReadOnly=false;
       DBComboBox1->ReadOnly=false;
       DBComboBox2->ReadOnly=false;
       DM->ADOQ_SPinfo->Last();
       AnsiString string="";
       if(DM->ADOQ_SPinfo->RecordCount!=0){
                string=DM->ADOQ_SPinfo->FieldByName("编号")->Value;
                string=string.SubString(3,6);
       }
       DM->ADOQ_SPinfo->Insert();
       if(DM->ADOQ_SPinfo->RecordCount==0)
                string="SP100001";
       else{
                int n=string.ToInt();
                n++;
                string=n;
                string="SP"+string;
       }
       ShowMessage(string);
       DM->ADOQ_SPinfo->FieldByName("编号")->Value=string;
       TreeView1->Enabled=false;
}
//---------------------------------------------------------------------------


void __fastcall TSPForm::cancelBtnClick(TObject *Sender)
{
       if(!closeBtn->Enabled)
       {
                TreeView1->Enabled=true;
                DM->ADOQ_SPinfo->Cancel();
                insertBtn->Enabled=true;
                modifyBtn->Enabled=true;
                closeBtn->Enabled=true;
                DBEdit2->ReadOnly=true;
                DBEdit3->ReadOnly=true;
                DBEdit4->ReadOnly=true;
                DBEdit6->ReadOnly=true;
                DBEdit7->ReadOnly=true;
                DBEdit9->ReadOnly=true;
                DBEdit5->ReadOnly=true;
                DBComboBox1->ReadOnly=true;
                DBComboBox2->ReadOnly=true;
                postBtn->Enabled=false;
       }
}
//---------------------------------------------------------------------------

void __fastcall TSPForm::modifyBtnClick(TObject *Sender)
{
       n=1;
       DBEdit2->SetFocus();
       TreeView1->Enabled=false;
       postBtn->Enabled=true;
       insertBtn->Enabled=false;
       modifyBtn->Enabled=false;
       closeBtn->Enabled=false;
       DBEdit2->ReadOnly=false;
       DBEdit3->ReadOnly=false;
       DBEdit4->ReadOnly=false;
       DBEdit6->ReadOnly=false;
       DBEdit7->ReadOnly=false;
       DBEdit9->ReadOnly=false;
       DBEdit5->ReadOnly=false;
       DBComboBox1->ReadOnly=false;
       DBComboBox2->ReadOnly=false;
       DM->ADOQ_SPinfo->Edit();
}
//---------------------------------------------------------------------------

void __fastcall TSPForm::postBtnClick(TObject *Sender)
{
       if(n==0){        //添加时
                  //新增树结点
                  TTreeNode *rNode;
                  AnsiString str=DBComboBox2->Text.Trim();
                  for(int i=0;i<TreeView1->Items->Count;i++)
                        if(TreeView1->Items->Item[i]->Level==1 && TreeView1->Items->Item[i]->Text==str)
                        {
                                str=DBEdit1->Text.Trim();
                                rNode=TreeView1->Items->Item[i];
                                TreeView1->Items->AddChild(rNode,str);
                        }
       }

       DM->ADOQ_SPinfo->Post();
       insertBtn->Enabled=true;
       modifyBtn->Enabled=true;
       closeBtn->Enabled=true;
       DBEdit2->ReadOnly=true;
       DBEdit3->ReadOnly=true;
       DBEdit4->ReadOnly=true;
       DBEdit6->ReadOnly=true;
       DBEdit7->ReadOnly=true;
       DBEdit9->ReadOnly=true;
       DBEdit5->ReadOnly=true;
       DBComboBox1->ReadOnly=true;
       DBComboBox2->ReadOnly=true;
       postBtn->Enabled=false;
       TreeView1->Enabled=true;
}
//---------------------------------------------------------------------------


void __fastcall TSPForm::TreeView1Change(TObject *Sender, TTreeNode *Node)
{
       if(TreeView1->Selected->IsFirstNode())
       {
                DM->ADOQ_SPinfo->Close();
                DM->ADOQ_SPinfo->SQL->Clear();
                DM->ADOQ_SPinfo->SQL->Add("select * from 商品信息表");
                DM->ADOQ_SPinfo->Open();
       }else if(TreeView1->Selected->Level==1){
                DM->ADOQ_SPinfo->Close();
                DM->ADOQ_SPinfo->SQL->Clear();
                AnsiString str="select * from 商品信息表 where 类别='";
                str+=TreeView1->Selected->Text;
                str+="'";
                DM->ADOQ_SPinfo->SQL->Add(str);
                DM->ADOQ_SPinfo->Open();
       }else{
                DM->ADOQ_SPinfo->Close();
                DM->ADOQ_SPinfo->SQL->Clear();
                AnsiString str=TreeView1->Selected->Text;
                str="select * from 商品信息表 where 编号='"+str;
                str+="'";
                DM->ADOQ_SPinfo->SQL->Add(str);
                DM->ADOQ_SPinfo->Open();
       }
}
//---------------------------------------------------------------------------


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

void __fastcall TSPForm::FormClose(TObject *Sender, TCloseAction &Action)
{
        DM->ADOQ_SPinfo->Close();
}
//---------------------------------------------------------------------------