亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? goods.cpp

?? 銷售分析,JUSCO,日月周查詢,待完善.
?? CPP
字號: 
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "goods.h"
#include "mainform.h"
#include "datam.h"
#include "daysql.h"
#include "prt.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SUIButton"
#pragma link "SUIComboBox"
#pragma link "SUIDBCtrls"
#pragma link "SUIEdit"
#pragma link "SUIForm"
#pragma link "SUIImagePanel"
#pragma link "SUIPopupMenu"
#pragma link "SUIGroupBox"
#pragma link "SUIDlg"
#pragma link "SUIListBox"
#pragma link "SUIMemo"
#pragma link "SUIRadioGroup"
#pragma resource "*.dfm"
Tgoodsform *goodsform;
//---------------------------------------------------------------------------
__fastcall Tgoodsform::Tgoodsform(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall Tgoodsform::suiEdit1KeyPress(TObject *Sender, char &Key)
{
 AnsiString str;
if(suiEdit1->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 itmaster.*,bar2item.barcode from itmaster  left join bar2item on bar2item.item_code=itmaster.item_code where itmaster.item_code='"+suiEdit1->Text.Trim()+"'";
  try{
  dm->tmp->Active=false;
   dm->tmp->SQL->Clear();
   dm->tmp->SQL->Add(str);
    dm->tmp->Active=true;

  }catch(...){
  }
}
}
suiComboBox1->Enabled=dm->tmp->Active;
   suiComboBox2->Enabled=dm->tmp->Active;
     suiComboBox3->Enabled=dm->tmp->Active;
      suiDBLookupComboBox4->Enabled=dm->tmp->Active;
      suiButton1->Enabled=dm->tmp->Active;
       suiButton2->Enabled=dm->tmp->Active;
}
//---------------------------------------------------------------------------






void __fastcall Tgoodsform::suiDBLookupComboBox4Enter(TObject *Sender)
{
  AnsiString str;
  if(dm->tmp->RecordCount==0)
 return;
suiEdit1->Text="";
  str="select itmaster.*,bar2item.barcode from itmaster  left join bar2item on bar2item.item_code=itmaster.item_code where itmaster.vendor_code='"+dm->supply->FieldByName("vendor_code")->AsString+"'";
  try{
  dm->tmp->Active=false;
   dm->tmp->SQL->Clear();
   dm->tmp->SQL->Add(str);
    dm->tmp->Active=true;

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

void __fastcall Tgoodsform::suiPanel1DblClick(TObject *Sender)
{
AnsiString str;
suiEdit1->Text="";
 dm->tmp->Filtered=false;
  str="select itmaster.*,bar2item.barcode from itmaster  left join bar2item on bar2item.item_code=itmaster.item_code ";
  try{
  dm->tmp->Active=false;
   dm->tmp->SQL->Clear();
   dm->tmp->SQL->Add(str);
    dm->tmp->Active=true;

  }catch(...){
  }
  

   suiComboBox1->Enabled=dm->tmp->Active;
    suiComboBox2->Enabled=dm->tmp->Active;
     suiComboBox3->Enabled=dm->tmp->Active;
      suiDBLookupComboBox4->Enabled=dm->tmp->Active;
      suiButton1->Enabled=dm->tmp->Active;
       suiButton2->Enabled=dm->tmp->Active;


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







void __fastcall Tgoodsform::suiButton2Click(TObject *Sender)
{
AnsiString str;
if(dm->tmp->Active)
Label7->Caption=" 記錄總數:"+IntToStr(dm->tmp->RecordCount)+"   ";

//str="insert into temptable(caption,item_code) select "+usr+suiInputDialog1->ValueText.Trim()+" ,item_code from itmaster
suiInputDialog1->ShowModal();
if( suiInputDialog1->ValueText.IsEmpty()||dm->tmp->RecordCount>13000||!dm->tmp->Active)
return;
 dm->temp->Active=true;
dm->tmp->First();
while(!dm->tmp->Eof){

try{


dm->temp->Append();
dm->temp->FieldByName("caption")->AsString=usr+suiInputDialog1->ValueText.Trim();
dm->temp->FieldByName("item_code")->AsString=dm->tmp->FieldByName("item_code")->AsString;
dm->temp->Post();
}catch(...){
}
 dm->tmp->Next();
 }
 dm->temp->Active=false;
dm->temp->Active=true;
}
//---------------------------------------------------------------------------



void __fastcall Tgoodsform::FormCreate(TObject *Sender)
{
dm->dept->Active=true;
   dm->sect->Active=true;
   dm->artcode->Active=true;
    dm->tmp->Active=false;
 // suiComboBox1->Enabled=dm->tmp->Active;
  //  suiComboBox2->Enabled=dm->tmp->Active;
  //   suiComboBox3->Enabled=dm->tmp->Active;
      suiDBLookupComboBox4->Enabled=dm->tmp->Active;
      suiButton1->Enabled=dm->tmp->Active;
       suiButton2->Enabled=dm->tmp->Active;
        dm->dept->First();
 while(!dm->dept->Eof){

  suiComboBox1->Items->Add(dm->dept->FieldByName("Dept_code")->AsString);
   dm->dept->Next();
     }
        dm->sect->First();
 while(!dm->sect->Eof){
  suiComboBox2->Items->Add(dm->sect->FieldByName("section_code")->AsString);
   dm->sect->Next();
  }



   dm->artcode->First();
 while(!dm->artcode->Eof){
 suiComboBox3->Items->Add(dm->artcode->FieldByName("article_code")->AsString);
 dm->artcode->Next();
}
 //dm->itemconn->DataSet->GetFieldNames(suiListBox1->Items);

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

void __fastcall Tgoodsform::FormDestroy(TObject *Sender)
{

dm->tmp->Filtered=false;
   dm->tmp->Active=false;
}
//---------------------------------------------------------------------------





void __fastcall Tgoodsform::suiButton1Click(TObject *Sender)
{
if (dm->tmp->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->tmp;
dm->TOEXCEL->Execute() ;
}catch(...){
}
}
 }
}
//---------------------------------------------------------------------------

void __fastcall Tgoodsform::suiComboBox1Enter(TObject *Sender)
{
  AnsiString str;
suiEdit1->Text="";
   str="select itmaster.*,bar2item.barcode from itmaster  left join bar2item on bar2item.item_code=itmaster.item_code where itmaster.dept_code='"+suiComboBox1->Text.Trim()+"'";
  try{
  dm->tmp->Active=false;
   dm->tmp->SQL->Clear();
   dm->tmp->SQL->Add(str);
    dm->tmp->Active=true;

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

void __fastcall Tgoodsform::suiComboBox2Enter(TObject *Sender)
{
 AnsiString str;

suiEdit1->Text="";
  str="select itmaster.*,bar2item.barcode from itmaster  left join bar2item on bar2item.item_code=itmaster.item_code where itmaster.section_code='"+suiComboBox2->Text.Trim()+"'";
  try{
  dm->tmp->Active=false;
   dm->tmp->SQL->Clear();
   dm->tmp->SQL->Add(str);
    dm->tmp->Active=true;

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

void __fastcall Tgoodsform::suiComboBox3Enter(TObject *Sender)
{
 AnsiString str;

suiEdit1->Text="";
  str="select itmaster.*,bar2item.barcode from itmaster  left join bar2item on bar2item.item_code=itmaster.item_code where itmaster.article_code='"+suiComboBox3->Text.Trim()+"'";
  try{
  dm->tmp->Active=false;
   dm->tmp->SQL->Clear();
   dm->tmp->SQL->Add(str);
    dm->tmp->Active=true;

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

void __fastcall Tgoodsform::suiDBEdit3Change(TObject *Sender)
{
  suiButton1->Enabled=dm->tmp->Active;
       suiButton2->Enabled=dm->tmp->Active;
       suiDBLookupComboBox4->Enabled=dm->tmp->Active;
  //   suiComboBox2->Text=dm->sect->FieldByName("section_code")->AsString;
 suiComboBox3->Text=dm->artcode->FieldByName("article_code")->AsString;
//ShowMessage(dm->sect->FieldByName("section_code")->AsString);

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

void __fastcall Tgoodsform::suiDBEdit2Change(TObject *Sender)
{
   suiComboBox2->Text=dm->sect->FieldByName("section_code")->AsString;       
}
//---------------------------------------------------------------------------

void __fastcall Tgoodsform::suiDBEdit1Change(TObject *Sender)
{
  suiComboBox1->Text=dm->dept->FieldByName("dept_code")->AsString;      
}
//---------------------------------------------------------------------------






//void __fastcall Tgoodsform::suiListBox1DblClick(TObject *Sender)
//{
//int i;
    //        i=suiListBox1->ItemIndex;
 //
//suiEdit2->Text=suiListBox1->Items->operator [](i);
//ItemIndex
//}
//---------------------------------------------------------------------------







//void __fastcall Tgoodsform::suiListBox2DblClick(TObject *Sender)
//{
//suiEdit2->Text=suiListBox1->Items->operator [](suiListBox1->ItemIndex)+suiListBox2->Items->operator[](suiListBox2->ItemIndex);
//}
//---------------------------------------------------------------------------

//void __fastcall Tgoodsform::suiListBox3DblClick(TObject *Sender)
//{


//dm->dayseq->ParamByName(suiListBox1->Items->operator [](suiListBox1->ItemIndex));
//if( dm->dayseq->FieldByName(suiListBox1->Items->operator [](suiListBox1->ItemIndex))->AsString.operator [](1).IsNumeric))
//ShowMessage( dm->dayseq->FieldByName(suiListBox1->Items->operator [](suiListBox1->ItemIndex))->DataType());
//suiEdit2->Text=suiEdit2->Text+suiListBox3->Items->operator [](suiListBox3->ItemIndex);
//}
//---------------------------------------------------------------------------


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






void __fastcall Tgoodsform::suiButton3Click(TObject *Sender)
{
Tprint *form=new Tprint(this);
if (dm->tmp->Filtered){
if (suiRadioButton1->Checked)
form->QRLabel14->Caption=suiRadioButton1->Caption;
else if   (suiRadioButton2->Checked)
form->QRLabel14->Caption=suiRadioButton2->Caption;
else
form->QRLabel14->Caption=suiRadioButton3->Caption;
 }else
  form->QRLabel14->Caption="庫存查詢條件不限";

form->onstock->PreviewModal();
delete form;
form=NULL;
}
//---------------------------------------------------------------------------



void __fastcall Tgoodsform::suiRadioButton1Click(TObject *Sender)
{
if(suiRadioButton1->Checked)
dm->tmp->Filtered=false;
dm->tmp->Filter="stock_onhand>0";
dm->tmp->Filtered=true;;
}
//---------------------------------------------------------------------------

void __fastcall Tgoodsform::suiRadioButton2Click(TObject *Sender)
{
 if(suiRadioButton2->Checked)
dm->tmp->Filtered=false;
dm->tmp->Filter="stock_onhand<0";
dm->tmp->Filtered=true;;       
}
//---------------------------------------------------------------------------

void __fastcall Tgoodsform::suiRadioButton3Click(TObject *Sender)
{
   if(suiRadioButton3->Checked)
dm->tmp->Filtered=false;
dm->tmp->Filter="stock_onhand=0";
dm->tmp->Filtered=true;;
}
//---------------------------------------------------------------------------


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



void __fastcall Tgoodsform::suiRadioButton4Click(TObject *Sender)
{
if(suiRadioButton4->Checked) {
if (!suiNumberEdit1->Text.IsEmpty()){
dm->tmp->Filtered=false;
dm->tmp->Filter="stock_onhand='"+suiNumberEdit1->Text.Trim()+"'";
dm->tmp->Filtered=true;}
}
}
//---------------------------------------------------------------------------

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
欧美日韩五月天| 亚洲最新在线观看| 国产女人18毛片水真多成人如厕| 日韩理论电影院| 春色校园综合激情亚洲| 精品成人在线观看| 日韩精品一二三| 欧美四级电影网| 三级欧美在线一区| 日韩一区中文字幕| 91农村精品一区二区在线| ●精品国产综合乱码久久久久| 欧美一级黄色大片| 国产美女在线精品| 久久久国产综合精品女国产盗摄| 极品少妇xxxx偷拍精品少妇| 欧美刺激午夜性久久久久久久| 国产午夜亚洲精品羞羞网站| 成人午夜免费视频| 久久精品72免费观看| 久久蜜桃香蕉精品一区二区三区| 6080日韩午夜伦伦午夜伦| 麻豆精品国产91久久久久久| 精品久久五月天| 欧美美女黄视频| 国产精品资源在线观看| 亚洲日本丝袜连裤袜办公室| 国产日韩欧美精品在线| 精品日韩一区二区三区 | 成人动漫一区二区在线| 椎名由奈av一区二区三区| 久久久久久久久97黄色工厂| 91精品国产综合久久久久久| 欧美午夜在线一二页| 欧美日韩一区中文字幕| 欧美日韩亚洲综合在线| 欧美专区在线观看一区| 精品亚洲欧美一区| 韩国av一区二区三区四区 | 国产精品福利av| 欧美日韩免费电影| 国产999精品久久久久久绿帽| 一区二区三区毛片| 一区二区三区中文在线| 一级中文字幕一区二区| 亚洲成人免费看| 国产视频一区在线播放| 国产女主播在线一区二区| 欧美经典一区二区三区| 欧美三级欧美一级| 欧美高清视频在线高清观看mv色露露十八| 欧美性一区二区| 这里只有精品99re| 久久午夜免费电影| 制服丝袜亚洲色图| 日韩视频在线观看一区二区| 欧美精品一区二区三区在线| 国产欧美精品国产国产专区| 亚洲人吸女人奶水| 欧美国产激情一区二区三区蜜月| 国产亚洲污的网站| 亚洲婷婷综合色高清在线| 亚洲国产精品久久久久秋霞影院| 国产精品久久久久久亚洲伦| 一区二区三区四区乱视频| 天涯成人国产亚洲精品一区av| 国产精品毛片a∨一区二区三区| 日韩精品中文字幕在线不卡尤物| 久久免费的精品国产v∧| 日韩毛片高清在线播放| 日韩精品一二三区| 国产a级毛片一区| 在线观看亚洲成人| 日韩精品在线看片z| 国产精品美女视频| 午夜精品一区二区三区免费视频 | 久久综合久久综合久久| 中文字幕亚洲区| 午夜欧美视频在线观看| 国产麻豆精品theporn| 日本久久精品电影| 一道本成人在线| 91在线观看视频| 日韩欧美中文一区二区| 国产精品初高中害羞小美女文| 午夜精品久久久久久| 国产精品1区2区3区| 欧美日韩精品一区二区天天拍小说| 久久综合成人精品亚洲另类欧美| 一区二区三国产精华液| 激情综合色综合久久综合| 色94色欧美sute亚洲线路一久 | 精彩视频一区二区三区| 一本一道久久a久久精品| 欧美成人伊人久久综合网| 亚洲黄网站在线观看| 亚洲精品你懂的| 国产中文字幕一区| 欧美喷水一区二区| 国产精品久久久久一区二区三区共 | 久久精品国产网站| 日本高清无吗v一区| 久久精品一区二区三区不卡牛牛| 午夜精品福利在线| 91在线观看地址| 国产精品美日韩| 国产福利一区在线观看| 国产精品夜夜爽| 欧美久久久久免费| 一区二区三区在线播| 国产a精品视频| 2024国产精品视频| 精品亚洲国产成人av制服丝袜| 欧美日韩一区二区三区不卡| 国产精品国产自产拍高清av王其| 国产精品一品二品| 久久久不卡网国产精品一区| 老司机精品视频一区二区三区| 777午夜精品免费视频| 亚洲一区二区视频在线观看| 国内精品在线播放| 日韩一区二区电影| 日本欧洲一区二区| 国产成人精品一区二区三区网站观看| 8x福利精品第一导航| 亚洲成av人片在线观看| 91福利社在线观看| 一区二区三区波多野结衣在线观看 | 欧美电影在线免费观看| 亚洲国产日韩av| 欧美精品电影在线播放| 亚洲国产sm捆绑调教视频| 欧美性高清videossexo| 亚洲一区二区高清| 欧美丝袜自拍制服另类| 亚洲va欧美va天堂v国产综合| 欧洲亚洲精品在线| 亚洲国产精品一区二区久久恐怖片 | 大尺度一区二区| 国产精品色哟哟| 99re热视频这里只精品| 日韩一区二区免费电影| 日本美女一区二区| 精品免费国产二区三区| 国产乱国产乱300精品| 亚洲国产激情av| 91亚洲午夜精品久久久久久| 亚洲精品国产无天堂网2021 | 免费的成人av| 欧美亚洲日本一区| 午夜不卡av在线| 日韩女优视频免费观看| 国产精品69久久久久水密桃| 最新热久久免费视频| 一本到不卡精品视频在线观看| 一区二区三区产品免费精品久久75| 欧美日韩亚洲综合在线| 精品亚洲免费视频| 国产精品区一区二区三区| 色偷偷成人一区二区三区91| 亚洲成在人线免费| 精品国产乱码久久久久久浪潮| 国产suv精品一区二区6| 亚洲欧美激情插| 欧美一区二区三区在线观看视频| 亚洲另类中文字| 555夜色666亚洲国产免| 国产精品99久久久久| 亚洲黄色录像片| 日韩午夜激情免费电影| 国产91在线观看丝袜| 亚洲一区二区影院| 久久久久久免费| 在线观看日韩精品| 毛片一区二区三区| 亚洲欧美在线观看| 日韩欧美一级特黄在线播放| 99这里只有久久精品视频| 国产亚洲欧美在线| 91国产免费观看| 国产一区999| 午夜影院在线观看欧美| 久久毛片高清国产| 精品视频一区二区三区免费| 国产一区二区日韩精品| 一区二区欧美精品| 国产女人aaa级久久久级 | 午夜久久福利影院| 欧美国产综合色视频| 欧美日韩国产首页在线观看| 国产成人在线色| 日本在线观看不卡视频| 亚洲日本一区二区| 久久久91精品国产一区二区三区| 欧美三级乱人伦电影| av高清久久久| 国产在线精品免费| 免费一级片91| 亚洲成av人片在线| 一区二区三区日韩欧美|