📄 uas.~cpp
字号:
dsData->tOut->TableName="CK06.dbf";
}
//---------------------------------------------------------------------------
void __fastcall TFMain::bbCCClick(TObject *Sender)
{
if(Application->MessageBox("是否要存出库","警告",0x00000021)!=ID_OK)
return;
String sName;
if(cbFD->Text=="泉州店")
sName="'Ck01.dbf' Ck01";
if(cbFD->Text=="南安店")
sName="'Ck02.dbf' Ck02";
if(cbFD->Text=="金井店")
sName="'Ck03.dbf' Ck03";
if(cbFD->Text=="南环店")
sName="'Ck04.dbf' Ck04";
if(cbFD->Text=="九二店")
sName="'Ck05.dbf' Ck05";
if(cbFD->Text=="群英店")
sName="'Ck06.dbf' Ck06";
String sTemp="WHERE (LQ='"+dtpLQo->DateTime.FormatString("yyyy-mm-dd")+ "') AND (BC ='"+meBCo->Text+"') AND (KH='"+cbFD->Text+"')";
dsData->qCK->Close();
dsData->qCK->SQL->Clear();
dsData->qCK->SQL->Add("SELECT *");
dsData->qCK->SQL->Add("FROM"+sName);
dsData->qCK->SQL->Add(sTemp);
dsData->qCK->Open();
dsData->qCK->Refresh();
if(dsData->qCK->RecordCount>=1)
{
ShowMessage("这张表已经存在");
return;
}
if(dsData->qCKda->Active)
{
dsData->bmOut->Source = dsData->qCKda;
dsData->bmOut->Destination = dsData->tOut;
if(cbFD->Text=="泉州店")
dsData->tOut->TableName="CK01.dbf";
if(cbFD->Text=="南安店")
dsData->tOut->TableName="CK02.dbf";
if(cbFD->Text=="金井店")
dsData->tOut->TableName="CK03.dbf";
if(cbFD->Text=="南环店")
dsData->tOut->TableName="CK04.dbf";
if(cbFD->Text=="九二店")
dsData->tOut->TableName="CK05.dbf";
if(cbFD->Text=="群英店")
dsData->tOut->TableName="CK06.dbf";
dsData->bmOut->Mode = batAppend;
dsData->bmOut->Execute();
}
try{
dsData->qCKda->First();
while(!dsData->qCKda->Eof)
{
TLocateOptions Opts;
Opts.Clear();
Opts << loCaseInsensitive;
if(dsData->qKC->Locate("KM",dsData->qCKda->FieldByName("KM")->AsString,Opts))
{
dsData->qKC->Edit();
dsData->qKC->FieldByName("SL2")->Value=dsData->qKC->FieldByName("SL1")->Value;
dsData->qKC->FieldByName("SL1")->Value=dsData->qKC->FieldByName("SL")->Value;
dsData->qKC->FieldByName("SL")->Value=dsData->qKC->FieldByName("SL")->AsInteger-dsData->qCKda->FieldByName("SL")->AsInteger;
dsData->qKC->FieldByName("JJ")->Value=dsData->qCKda->FieldByName("JJ")->AsFloat;
dsData->qKC->FieldByName("SJ")->Value=dsData->qCKda->FieldByName("SJ")->AsFloat;
dsData->qKC->FieldByName("KH")->Value=dsData->qCKda->FieldByName("KH")->AsString;
dsData->qKC->Post();
}
dsData->qCKda->Next();
}
}
catch(...)
{
dsData->qKC->CancelUpdates();
return;
}
if(dsData->qCKda->Active)
{
dsData->bmOut->Source = dsData->qCKda;
dsData->bmOut->Destination = dsData->tOut;
if(cbFD->Text=="泉州店")
dsData->tOut->TableName="CK01.dbf";
if(cbFD->Text=="南安店")
dsData->tOut->TableName="CK02.dbf";
if(cbFD->Text=="金井店")
dsData->tOut->TableName="CK03.dbf";
if(cbFD->Text=="南环店")
dsData->tOut->TableName="CK04.dbf";
if(cbFD->Text=="九二店")
dsData->tOut->TableName="CK05.dbf";
if(cbFD->Text=="群英店")
dsData->tOut->TableName="CK06.dbf";
dsData->bmOut->Mode = batAppend;
dsData->bmOut->Execute();
dsData->qKC->ApplyUpdates();
dsData->qKC->CommitUpdates();
}
else
dsData->qKC->CancelUpdates();
}
//---------------------------------------------------------------------------
void __fastcall TFMain::BitBtn10Click(TObject *Sender)
{
qrfOut->qrCH->Caption=cbFD->Text;
qrfOut->qrlLQ->Caption=dtpLQo->DateTime.FormatString("yyyy'年'mm'月'dd'日'");
qrfOut->qrInto->Print();
bbCCClick(this);
}
//---------------------------------------------------------------------------
void __fastcall TFMain::BitBtn8Click(TObject *Sender)
{
qrfOut->qrCH->Caption=cbFD->Text;
qrfOut->qrlLQ->Caption=dtpLQo->DateTime.FormatString("yyyy'年'mm'月'dd'日'");
try{
qrfOut->qrInto->PreviewModal();
}
catch(...)
{
ShowMessage("预览出错");
}
}
//---------------------------------------------------------------------------
void __fastcall TFMain::bbOutClick(TObject *Sender)
{
// String S=DataPath+"lktemp.dbf",D=DataPath+"lkda.dbf";
// CopyFile(S.c_str(),D.c_str(),1);
fDA = new TfDA(this);
fDA->ShowModal()==mrOk;
dbnOut->BtnClick(nbEdit);
dsData->qCKda->FieldByName("KM")->Value=dsData->qDA->FieldByName("KM")->AsString;
dsData->qCKda->FieldByName("MC")->Value=dsData->qDA->FieldByName("MC")->AsString;
dsData->qCKda->FieldByName("GG")->Value=dsData->qDA->FieldByName("GG")->AsString;
dsData->qCKda->FieldByName("JJ")->Value=dsData->qDA->FieldByName("JJ")->AsFloat;
dsData->qCKda->FieldByName("SJ")->Value=dsData->qDA->FieldByName("SJ")->AsFloat;
dsData->qCKda->FieldByName("DW")->Value=dsData->qDA->FieldByName("DW")->AsString;
dsData->qCKda->FieldByName("SL")->Value=1;
delete fDA;
}
//---------------------------------------------------------------------------
void __fastcall TFMain::SB5Click(TObject *Sender)
{
pBD->BringToFront();
dsData->qKH->Close();
dsData->qKH->SQL->Clear();
dsData->qKH->SQL->Add("SELECT *");
dsData->qKH->SQL->Add("FROM 'Ghs.dbf' Ghs");
dsData->qKH->Open();
dsData->qKH->First();
cbGHe->Items->Clear();
while(!dsData->qKH->Eof)
{
String S=dsData->qKH->FieldByName("KH")->AsString;
cbGHe->Items->Add(S);
dsData->qKH->Next();
}
cbGHe->Text=dsData->qKH->FieldByName("KH")->AsString;
String sTemp;
if(tcKC->TabIndex<10)
sTemp=Format("WHERE KM LIKE '000%d%%'",ARRAYOFCONST(((int)tcKCBrow->TabIndex)));
else
sTemp=Format("WHERE KM LIKE '00%d%%'",ARRAYOFCONST(((int)tcKCBrow->TabIndex)));
if(!dsData->qKC->Active)
{
DM->qKC->Close();
DM->qKC->SQL->Clear();
DM->qKC->SQL->Add("SELECT *");
DM->qKC->SQL->Add("FROM 'KC.dbf' KC");
if(tcKCBrow->TabIndex)
DM->qKC->SQL->Add(sTemp);
DM->qKC->Open();
DM->qKC->First();
}
}
//---------------------------------------------------------------------------
void __fastcall TFMain::SB6Click(TObject *Sender)
{
pBH->BringToFront();
if(!DM->qBH->Active)
{
DM->qBH->Close();
DM->qBH->SQL->Clear();
DM->qBH->SQL->Add("SELECT *");
DM->qBH->SQL->Add("FROM 'Kc.dbf' Kc");
DM->qBH->SQL->Add("WHERE SL<=GJ");
DM->qBH->SQL->Add("ORDER BY KM");
DM->qBH->Open();
}
}
//---------------------------------------------------------------------------
void __fastcall TFMain::Timer1Timer(TObject *Sender)
{
lTime->Caption=Now().FormatString("tt");
}
//---------------------------------------------------------------------------
void __fastcall TFMain::BitBtn16Click(TObject *Sender)
{
qrlfBH->qrlLQ->Caption=Now().FormatString("yyyy'年'mm'月'dd'日'");
qrlfBH->qrInto->PreviewModal();
}
//---------------------------------------------------------------------------
void __fastcall TFMain::BitBtn17Click(TObject *Sender)
{
qrlfBH->qrlLQ->Caption=Now().FormatString("yyyy'年'mm'月'dd'日'");
qrlfBH->qrInto->Print();
}
//---------------------------------------------------------------------------
void __fastcall TFMain::BitBtn18Click(TObject *Sender)
{
qrlfKC->qrlType->Caption=tcKCBrow->Tabs->Strings[tcKCBrow->TabIndex];
qrlfKC->qrlLQ->Caption=Now().FormatString("yyyy'年'mm'月'dd'日'");
qrlfKC->qrInto->PreviewModal();
}
//---------------------------------------------------------------------------
void __fastcall TFMain::BitBtn19Click(TObject *Sender)
{
qrlfKC->qrlType->Caption=tcKCBrow->Tabs->Strings[tcKCBrow->TabIndex];
qrlfKC->qrlLQ->Caption=Now().FormatString("yyyy'年'mm'月'dd'日'");
qrlfKC->qrInto->Print();
}
//---------------------------------------------------------------------------
void __fastcall TFMain::bbDAClick(TObject *Sender)
{
fKH = new TfKH(this);
fKH->ShowModal();
dbnBD->BtnClick(nbEdit);
DM->qKCModi->FieldByName("KH")->AsString=dsData->qKH->FieldByName("KH")->AsString;
delete fKH;
}
//---------------------------------------------------------------------------
void __fastcall TFMain::bbIntoClick(TObject *Sender)
{
fDA = new TfDA(this);
fDA->ShowModal();
dbnInto->BtnClick(nbEdit);
dsData->qLKda->FieldByName("KM")->Value=dsData->qDA->FieldByName("KM")->AsString;
dsData->qLKda->FieldByName("MC")->Value=dsData->qDA->FieldByName("MC")->AsString;
dsData->qLKda->FieldByName("GG")->Value=dsData->qDA->FieldByName("GG")->AsString;
dsData->qLKda->FieldByName("DW")->Value=dsData->qDA->FieldByName("DW")->AsString;
dsData->qLKda->FieldByName("JJ")->Value=dsData->qDA->FieldByName("JJ")->Value;
dsData->qLKda->FieldByName("SL")->Value=1;
delete fDA;
}
//---------------------------------------------------------------------------
void __fastcall TFMain::BitBtn4Click(TObject *Sender)
{
DM->qKC->Refresh();
}
//---------------------------------------------------------------------------
void __fastcall TFMain::BitBtn21Click(TObject *Sender)
{
// qrlfLKda->qrInto->PreviewModal();
fLKda->qrDa->PreviewModal();
}
//---------------------------------------------------------------------------
void __fastcall TFMain::BitBtn22Click(TObject *Sender)
{
// qrlfLKda->qrInto->Print();
fLKda->qrDa->Print();
}
//---------------------------------------------------------------------------
void __fastcall TFMain::bbLKReClick(TObject *Sender)
{
if(cbDate->Checked)
sTime="(LQ >='"+dtpFrom->Date.FormatString("yyyy-mm-dd")+"') AND (LQ<='"+dtpTo->Date.FormatString("yyyy-mm-dd")+"')";
else sTime="";
if(cbGHc->Checked)
sGH="(KH='"+cbGHe->Text+"')";
else sGH="";
String sTemp;
if(cbGHc->Checked&&cbDate->Checked)
sTemp=" WHERE "+sTime+" AND " +sGH;
else if((!cbDate->Checked)&&!(cbGHc->Checked))
sTemp="";
else if(cbDate->Checked)
sTemp="WHERE "+sTime;
else sTemp="WHERE "+sGH;
DM->qLK->Close();
DM->qLK->SQL->Clear();
DM->qLK->SQL->Add("SELECT *");
DM->qLK->SQL->Add(" FROM 'Lk.dbf' Lk");
DM->qLK->SQL->Add(sTemp);
DM->qLK->Open();
DM->qLK->Refresh();
}
//---------------------------------------------------------------------------
void __fastcall TFMain::BitBtn24Click(TObject *Sender)
{
fCKda->qrlFD->Caption="发往"+cbFDc->Text;
// qrlfCKda->qrInto->PreviewModal();
fCKda->qrDa->PreviewModal();
}
//---------------------------------------------------------------------------
void __fastcall TFMain::BitBtn25Click(TObject *Sender)
{
fCKda->qrlFD->Caption="发往"+cbFDc->Text;
fCKda->qrDa->Print();
}
//---------------------------------------------------------------------------
void __fastcall TFMain::cbDateClick(TObject *Sender)
{
if(cbDate->Checked)
sTime="(LQ >='"+dtpFrom->Date.FormatString("yyyy-mm-dd")+"') AND (LQ<='"+dtpTo->Date.FormatString("yyyy-mm-dd")+"')";
else sTime="";
if(cbGHc->Checked)
sGH="(KH='"+cbGHe->Text+"')";
else sGH="";
String sTemp;
if(cbGHc->Checked&&cbDate->Checked)
sTemp=" WHERE "+sTime+" AND " +sGH;
else if((!cbDate->Checked)&&!(cbGHc->Checked))
sTemp="";
else if(cbDate->Checked)
sTemp="WHERE "+sTime;
else sTemp="WHERE "+sGH;
DM->qLK->Close();
DM->qLK->SQL->Clear();
DM->qLK->SQL->Add("SELECT *");
DM->qLK->SQL->Add(" FROM 'Lk.dbf' Lk");
DM->qLK->SQL->Add(sTemp);
DM->qLK->Open();
DM->qLK->Refresh();
}
//---------------------------------------------------------------------------
void __fastcall TFMain::cbGHcClick(TObject *Sender)
{
if(cbDate->Checked)
sTime="(LQ>='"+dtpFrom->Date.FormatString("yyyy-mm-dd")+"') AND (LQ<='"+dtpFrom->Date.FormatString("yyyy-mm-dd")+"')";
else sTime="";
if(cbGHc->Checked)
sGH="(KH='"+cbGHe->Text+"')";
else sGH="";
String sTemp;
if(cbGHc->Checked&&cbDate->Checked)
sTemp=" WHERE "+sTime+" AND " +sGH;
else if((!cbDate->Checked)&&!(cbGHc->Checked))
sTemp="";
else if(cbDate->Checked)
sTemp="WHERE "+sTime;
else sTemp="WHERE "+sGH;
DM->qLK->Close();
DM->qLK->SQL->Clear();
DM->qLK->SQL->Add("SELECT *");
DM->qLK->SQL->Add(" FROM 'Lk.dbf' Lk");
DM->qLK->SQL->Add(sTemp);
DM->qLK->Open();
DM->qLK->Refresh();
}
//---------------------------------------------------------------------------
void __fastcall TFMain::TabSheet7Show(TObject *Sender)
{
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -