stock.~cpp

销售分析,JUSCO,日月周查询,待完善.

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

#include <vcl.h>
#pragma hdrstop

#include "stock.h"
#include "datam.h"
#include "goods.h"
#include "mainform.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SUIForm"
#pragma link "SUIImagePanel"
#pragma link "SUIDBCtrls"
#pragma link "SUIEdit"
#pragma link "SUIButton"
#pragma link "SUIGroupBox"
#pragma resource "*.dfm"
Tstockfm *stockfm;
//---------------------------------------------------------------------------
__fastcall Tstockfm::Tstockfm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tstockfm::suiEdit1KeyPress(TObject *Sender, char &Key)
{
  AnsiString str;

if(Key==VK_RETURN){
 if(!suiEdit1->Text.IsEmpty()&&(suiEdit1->Text.Length()>=6&&suiEdit1->Text.Length()<=9)){
   if (suiEdit1->Text.Length()==6){
      suiEdit1->Text="000"+suiEdit1->Text.Trim();
   }
   if (suiEdit1->Text.Length()==7){
      suiEdit1->Text="00"+suiEdit1->Text.Trim();
   }
   if (suiEdit1->Text.Length()==8){
      suiEdit1->Text="0"+suiEdit1->Text.Trim();
   }
  str="select * from itmaster where item_code='"+suiEdit1->Text.Trim()+"'";
  try{
  dm->tmp->Active=false;
   dm->tmp->SQL->Clear();
   dm->tmp->SQL->Add(str);
    dm->tmp->Active=true;

  }catch(...){
  }
 
 suiNumberEdit1->SetFocus();
 }
}
}
}
//---------------------------------------------------------------------------


void __fastcall Tstockfm::suiNumberEdit1KeyPress(TObject *Sender,
      char &Key)
{
AnsiString dc,flag;
if(suiNumberEdit1->Text.IsEmpty())
return;
if(  suiRadioButton2->Checked){
dc="2999";
flag="Y";

  } else{
  dc="    ";
flag="N";
  }

if(Key==VK_RETURN){

 if ( dm->tmp->RecordCount==1){
       try{
   dm->order->Append();
   dm->order->FieldByName("qty")->AsString=suiNumberEdit1->Text.Trim();
  dm->order->FieldByName("item_code")->AsString=dm->tmp->FieldByName("item_code")->AsString;
    dm->order->FieldByName("podate")->AsString=FormatDateTime("yyyymmdd",DateTimePicker1->Date);
    dm->order->FieldByName("returndc")->AsString=dc;
    dm->order->FieldByName("flag")->AsString=flag;
   dm->order->Post();
   dm->order->Refresh();
    suiEdit1->Text="";
    suiNumberEdit1->Text="";
    suiEdit1->SetFocus();
    Label3->Caption="数量";
     }
    catch(...){
    Label3->Caption="一件商品在一批中不可订两次";
    }
  }
}
}
//---------------------------------------------------------------------------

void __fastcall Tstockfm::FormCreate(TObject *Sender)
{
  dm->order->Active=true;
 // dm->poweek->Active=true;
  dm->poday->Active=true;
}
//---------------------------------------------------------------------------



void __fastcall Tstockfm::FormDestroy(TObject *Sender)
{
dm->order->Active=false;
  dm->poweek->Active=false;
  dm->poday->Active=false;
}
//---------------------------------------------------------------------------


void __fastcall Tstockfm::suiButton2Click(TObject *Sender)
{
AnsiString str;
str 

}
//---------------------------------------------------------------------------