chmain.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "chmain.h"
#include "datam.h"
#include "daysql.h"
#include "mainform.h"
#include "sas.h"
#include "sumsql.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SUIForm"
#pragma link "SUIButton"
#pragma link "SUIDBCtrls"
#pragma link "SUIEdit"
#pragma link "SUIImagePanel"
#pragma link "SUIComboBox"
#pragma resource "*.dfm"
Tchoice *choice;
//---------------------------------------------------------------------------
__fastcall Tchoice::Tchoice(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tchoice::suiEdit1KeyPress(TObject *Sender, char &Key)
{
  AnsiString str;
if(suiEdit2->Text.IsEmpty())
return;
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(...){
  }
  if ( dm->tmp->RecordCount==1){
   dm->tmp->DisableControls();
   dm->temp->Append();
   dm->temp->FieldByName("caption")->AsString=suiEdit2->Text.Trim();
  dm->temp->FieldByName("item_code")->AsString=dm->tmp->FieldByName("item_code")->AsString;
   dm->temp->FieldByName("item_desc")->AsString=dm->tmp->FieldByName("item_desc")->AsString;

   dm->temp->Post();
   dm->temp->Refresh();
   dm->tmp->EnableControls();
   suiEdit1->Text="";
  }
}
}
}
//---------------------------------------------------------------------------
void __fastcall Tchoice::FormCreate(TObject *Sender)
{
//suiEdit2->Text="查询"+DateTimeToStr(Now());
AnsiString temp;
//suiEdit3->Text=dm->temp->FieldByName("caption")->AsString.Trim();
dm->dayseq->Active=false;
dm->dayseq->Filtered=false;
DateTimePicker1->Date=Now()-1;
DateTimePicker2->Date=Now()-1;
   dm->temp->Active=true;
   dm->temp->Filtered=false;
        if( dm->temp->RecordCount==0 )
        return;

      dm->temp->First();
 while(!dm->temp->Eof){
 if (temp!=dm->temp->FieldByName("caption")->AsString.Trim()){
  suiEdit2->Items->Add(dm->temp->FieldByName("caption")->AsString);
  temp=dm->temp->FieldByName("caption")->AsString.Trim();
  }
   dm->temp->Next();
     }

   suiButton3->Enabled=false;


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

void __fastcall Tchoice::suiButton1Click(TObject *Sender)
{
dm->temp->Delete();
dm->temp->Active=false;
dm->temp->Active=true;
dm->temp->Refresh();
}
//---------------------------------------------------------------------------

void __fastcall Tchoice::suiButton2Click(TObject *Sender)
{
AnsiString str;
 suiButton3->Enabled=true;
str="select store,date ,itmaster.dept_code,itmaster.section_code,itmaster.article_code,detail.item_code,itmaster.item_desc ,QTY  as quantity,cust  as customs,itmaster.price ,NETAMT  as sell  FROM DETAIL left join itmaster on detail.item_code=itmaster.item_code " ;
str=str+"where detail.item_code in (select item_code from temptable where caption='"+suiEdit2->Text.Trim()+"') AND date >=# "+StrToDate(DateTimePicker1->Date.DateString())+"# and date <=#"+StrToDate(DateTimePicker2->Date.DateString())+"#";

if (!suiComboBox1->Text.IsEmpty())
str=str+" and store='"+suiComboBox1->Text.Trim()+"'";

try{
dm->dayseq->Active=false;
dm->dayseq->SQL->Clear();
dm->dayseq->SQL->Add(str);
dm->dayseq->Active=true;

}catch(...){
}



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





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

void __fastcall Tchoice::suiDBGrid2Enter(TObject *Sender)
{
   suiEdit3->Text=dm->temp->FieldByName("caption")->AsString.Trim();
suiEdit2->Text=dm->temp->FieldByName("caption")->AsString.Trim();

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


void __fastcall Tchoice::suiButton3Click(TObject *Sender)
{
  if (dm->dayseq->RecordCount==0)
     return;
 Tanay *form=new Tanay(this);
form->ShowModal();
delete form;       
}
//---------------------------------------------------------------------------

void __fastcall Tchoice::suiButton5Click(TObject *Sender)
{

  AnsiString str;
  suiButton3->Enabled=false;
str="select store,itmaster.dept_code,itmaster.section_code,itmaster.article_code,itmaster.vendor_code,detail.item_code,itmaster.item_desc,itmaster.stock_onhand  ,SUM(QTY) AS Quantity ,SUM(cust) AS customs ,itmaster.price ,SUM(NETAMT) as total FROM DETAIL left join itmaster on detail.item_code=itmaster.item_code  " ;
str=str+" where detail.item_code in (select item_code from temptable where caption='"+suiEdit2->Text.Trim()+"') AND date >=# "+StrToDate(DateTimePicker1->Date.DateString())+"# and date <=#"+StrToDate(DateTimePicker2->Date.DateString())+"#  ";

if (!suiComboBox1->Text.IsEmpty())
str=str+" and store='"+suiComboBox1->Text.Trim()+"'";

str=str+" GROUP BY store,itmaster.dept_code,itmaster.section_code,itmaster.article_code,detail.item_code,itmaster.item_desc,itmaster.vendor_code,itmaster.price,stock_onhand";
try{
dm->dayseq->Active=false;
dm->dayseq->SQL->Clear();
dm->dayseq->SQL->Add(str);
dm->dayseq->Active=true;

}catch(...){
}
}
//---------------------------------------------------------------------------

void __fastcall Tchoice::suiButton6Click(TObject *Sender)
{
if (dm->dayseq->Active){
SaveDialog1->Filter = "EXCEL files (*.xls)|*.XLS";
  if(SaveDialog1->Execute()){
    dm->LOCAL->DatabaseName=SaveDialog1->InitialDir;
    dm->LOCAL->TableName=SaveDialog1->FileName;
   // SaveDialog1->FileName;
   try{
    dm->TOEXCEL->Source=dm->dayseq;
dm->TOEXCEL->Execute() ;
}catch(...){
}
}
 }
}
//---------------------------------------------------------------------------

void __fastcall Tchoice::suiEdit2Change(TObject *Sender)
{
dm->temp->Filtered=false;
dm->temp->Filter="caption='"+suiEdit2->Text.Trim()+"'";
 dm->temp->Filtered=true;
}
//---------------------------------------------------------------------------


void __fastcall Tchoice::FormDestroy(TObject *Sender)
{
dm->tmp->Active=false;
dm->dayseq->Active=false;
dm->dayseq->Filtered=false;
}
//---------------------------------------------------------------------------

void __fastcall Tchoice::suiDBGrid2DblClick(TObject *Sender)
{
   suiEdit3->Text=dm->temp->FieldByName("caption")->AsString.Trim();
suiEdit2->Text=dm->temp->FieldByName("caption")->AsString.Trim();
dm->temp->Filtered=false;
}
//---------------------------------------------------------------------------

void __fastcall Tchoice::suiButton7Click(TObject *Sender)
{
AnsiString str;
str="delete from temptable where caption='"+suiEdit3->Text.Trim()+"'";
dm->temp->Active=false;
try{
dm->act->Active=false;
dm->act->SQL->Clear();
 dm->act->SQL->Add(str);
 dm->act->ExecSQL();
 }catch(...){
 }
 dm->temp->Active=false;
dm->temp->Active=true;
 dm->temp->Filtered=true;

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