📄 uas.~cpp
字号:
dsData->qFD->Close();
dsData->qFD->SQL->Clear();
dsData->qFD->SQL->Add("SELECT *");
dsData->qFD->SQL->Add("FROM 'Fd.dbf' Fd");
dsData->qFD->Open();
dsData->qFD->First();
cbFDc->Items->Clear();
cbFDc->Text=dsData->qFD->FieldByName("KH")->AsString;
while(!dsData->qFD->Eof)
{
String S=dsData->qFD->FieldByName("KH")->AsString;
cbFDc->Items->Add(S);
dsData->qFD->Next();
}
cbFDc->Text=dsData->qFD->FieldByName("KH")->AsString;
bbCKReClick(0);
}
//---------------------------------------------------------------------------
void __fastcall TFMain::cbFDcChange(TObject *Sender)
{
DM->qCK->Close();
String sName="'Ck01.dbf' Ck01";
if(cbFDc->Text=="泉州店")
sName="'Ck01.dbf' Ck01";
if(cbFDc->Text=="南安店")
sName="'Ck02.dbf' Ck02";
if(cbFDc->Text=="金井店")
sName="'Ck03.dbf' Ck03";
if(cbFDc->Text=="南环店")
sName="'Ck04.dbf' Ck04";
if(cbFDc->Text=="九二店")
sName="'Ck05.dbf' Ck05";
if(cbFDc->Text=="群英店")
sName="'Ck06.dbf' Ck06";
DM->qCK->SQL->Clear();
DM->qCK->SQL->Add("SELECT *");
DM->qCK->SQL->Add(" FROM "+sName);
if(cbDate2->Checked)
DM->qCK->SQL->Add("WHERE"+sTimeo);
DM->qCK->Open();
DM->qCK->Refresh();
}
//---------------------------------------------------------------------------
void __fastcall TFMain::TabSheet6Show(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();
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();
cbGHe->Text=dsData->qKH->FieldByName("KH")->AsString;
while(!dsData->qKH->Eof)
{
String S=dsData->qKH->FieldByName("KH")->AsString;
cbGHe->Items->Add(S);
dsData->qKH->Next();
}
bbLKReClick(0);
}
//---------------------------------------------------------------------------
void __fastcall TFMain::cbGHeChange(TObject *Sender)
{
if(!cbGHc->Checked)
return;
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::cbDate2Click(TObject *Sender)
{
if(cbDate2->Checked)
sTimeo="( LQ >='"+dtpTimeI1->Date.FormatString("yyyy-mm-dd")+"') AND (LQ<='"+dtpTimeI2->Date.FormatString("yyyy-mm-dd")+"')";
else sTimeo="";
DM->qCK->Close();
String sName="'Ck01.dbf' Ck01";
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";
DM->qCK->SQL->Clear();
DM->qCK->SQL->Add("SELECT *");
DM->qCK->SQL->Add(" FROM "+sName);
if(cbDate2->Checked)
{
DM->qCK->SQL->Add("WHERE "+sTimeo);
}
DM->qCK->Open();
DM->qCK->Refresh();
}
//---------------------------------------------------------------------------
void __fastcall TFMain::BitBtn11Click(TObject *Sender)
{
DM->qBH->Refresh();
}
//---------------------------------------------------------------------------
void __fastcall TFMain::sbMainDrawPanel(TStatusBar *StatusBar,
TStatusPanel *Panel, const TRect &Rect)
{
TCanvas *pCanvas = StatusBar->Canvas;
static bool sbFlag=true;
if(sbFlag&&(Panel->Index==1))
{
sbFlag=false;
sbImage->Width=Rect.Right-Rect.Left+150;
sbImage->Height=Rect.Bottom-Rect.Top+10;
TCanvas *pC = sbImage->Canvas;
TRect Section = Rect;
int SectionWidth = (Rect.Right - Rect.Left)/36;
TColor FillColor(clBlack);
Section.Right = Section.Left + 5*SectionWidth;
pC->Brush->Color = FillColor;
pC->Brush->Style = bsSolid;
pC->FillRect(Section);
// Section.Left+=5*SectionWidth;
for (int j=0;j<=38;j++)
{
Section.Right = Section.Left + SectionWidth;
FillColor = (TColor) RGB(((1)*j),
((5)*j),
((6)*j));
pC->Brush->Color = FillColor;
pC->FillRect(Section);
Section.Left += SectionWidth;
}
}
pCanvas->Brush->Style=bsClear;
if(Panel->Index==0)
{
pCanvas->Brush->Color = clBlack;
pCanvas->FillRect(Rect);
RECT rect;
rect.left=Rect.Left;
rect.top=Rect.Top+2;
rect.right=Rect.Right;
rect.bottom=Rect.Bottom;
pCanvas->Font->Color = clLime;
pCanvas->Font->Size=9;
pCanvas->Font->Name="宋体";
if(Application->Hint.Length()>14)
{
Panel->Width=75/10*Application->Hint.Length();
//pCanvas->TextOut(Rect.Left,Rect.Top-1 ,Application->Hint.SubString(0,13).c_str());
//pCanvas->TextOut(Rect.Left,Rect.Top+StatusBar->Height/2-3,Application->Hint.SubString(14,15).c_str());
DrawText(pCanvas->Handle,Application->Hint.c_str(),-1,&rect,DT_CENTER|DT_VCENTER|DT_SINGLELINE);
}
else
{
Panel->Width=75;
if(Application->Hint.Length()==0)
DrawText(pCanvas->Handle,Now().FormatString("yyyy-mm-dd").c_str(),-1,&rect,DT_CENTER|DT_VCENTER|DT_SINGLELINE);
else
DrawText(pCanvas->Handle,Application->Hint.c_str(),-1,&rect,DT_CENTER|DT_VCENTER|DT_SINGLELINE);
}
}
else
{
pCanvas->Font->Size=9;
pCanvas->Font->Name="宋体";
pCanvas->Draw(0,0,sbImage);
pCanvas->Font->Color =StringToColor("0x007EF8C5");
dsData->ilPhoto->Draw(pCanvas,Rect.Left+2,Rect.Top+3,0,true);
pCanvas->Font->Color = clLime;
pCanvas->TextOut(Rect.Left +20, Rect.Top+3 ,"泉州安盛贸易有限公司");
dsData->ilPhoto->Draw(pCanvas,Rect.Left+180,Rect.Top+3,1,true);
pCanvas->TextOut(Rect.Left +200, Rect.Top+3 ,"电话：0595-2580245");
pCanvas->TextOut(Rect.Left +330, Rect.Top+3 ,"程序设计:王应南");
}
}
//---------------------------------------------------------------------------
void __fastcall TFMain::FormCreate(TObject *Sender)
{
sbImage=new Graphics::TBitmap;
fPass = new TfPass(this);
if(fPass->ShowModal()!=mrOk)
PostQuitMessage(WM_DESTROY);
delete fPass;
}
//---------------------------------------------------------------------------
void __fastcall TFMain::tcKCChange(TObject *Sender)
{
String sTemp;
if(tcKC->TabIndex<10)
sTemp=Format("WHERE KM LIKE '000%d%%'",ARRAYOFCONST(((int)tcKC->TabIndex)));
else
sTemp=Format("WHERE KM LIKE '00%d%%'",ARRAYOFCONST(((int)tcKC->TabIndex)));
DM->qKCModi->Close();
DM->qKCModi->SQL->Clear();
DM->qKCModi->SQL->Add("SELECT *");
DM->qKCModi->SQL->Add("FROM 'KC.dbf' KC");
if(tcKC->TabIndex)
DM->qKCModi->SQL->Add(sTemp);
//else
// DM->qKCModi->SQL->Add("ORDER BY KM");
DM->qKCModi->Open();
DM->qKCModi->First();
}
//---------------------------------------------------------------------------
void __fastcall TFMain::tcKCBrowChange(TObject *Sender)
{
String sTemp;
if(tcKCBrow->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)));
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::BitBtn2Click(TObject *Sender)
{
if(Application->MessageBox("是否删除数据库","警告",0x00000021)!=ID_OK)
return;
DM->qLK->First();
while(!DM->qLK->Eof)
{
DM->qLK->Delete();
DM->qLK->Next();
}
DM->qLK->Refresh();
}
//---------------------------------------------------------------------------
void __fastcall TFMain::bbCKReClick(TObject *Sender)
{
if(cbDate2->Checked)
sTimeo="( LQ >='"+dtpTimeI1->Date.FormatString("yyyy-mm-dd")+"') AND (LQ<='"+dtpTimeI2->Date.FormatString("yyyy-mm-dd")+"')";
else sTimeo="";
DM->qCK->Close();
String sName="'Ck01.dbf' Ck01";
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";
DM->qCK->SQL->Clear();
DM->qCK->SQL->Add("SELECT *");
DM->qCK->SQL->Add(" FROM "+sName);
if(cbDate2->Checked)
{
DM->qCK->SQL->Add("WHERE "+sTimeo);
}
DM->qCK->Open();
DM->qCK->Refresh();
}
//---------------------------------------------------------------------------
void __fastcall TFMain::BitBtn12Click(TObject *Sender)
{
if(Application->MessageBox("是否删除数据库","警告",0x00000021)!=ID_OK)
return;
DM->qCK->First();
while(!DM->qCK->Eof)
{
DM->qCK->Delete();
DM->qCK->Next();
}
DM->qCK->Refresh();
}
//---------------------------------------------------------------------------
//TitleBar
void __fastcall TFMain::WMNCActivate(TWMNCActivate &Msg)
{
Msg.Result = true;
if ((bool)Msg.Active == false)
{
DefWindowProc( Handle, Msg.Msg, Msg.Active, 0 );
return;
}
TMessage PaintMsg;
PaintMsg.Msg = Msg.Msg;
PaintMsg.WParam = Msg.Active;
WMNCPaint(PaintMsg);
}
void __fastcall TFMain::WMNCPaint(TMessage &Msg)
{
DefWindowProc(Handle, Msg.Msg,Msg.WParam,Msg.LParam);
if(CanDrawMyCustomCaption() == false)
return;
HDC WindowDC = GetWindowDC(Handle);
WindowCanvas->Handle = WindowDC;
CalculateCaptionRect();
DrawGradient();
DrawIcon();
DrawCaptionString();
// DrawHeartBeatLight();
ReleaseDC(Handle, WindowDC);
WindowCanvas->Handle = 0;
}
bool TFMain::CanDrawMyCustomCaption(void)
{
if (WindowCanvas == 0)
return false;
if(Application->Active == false)
return false;
if(Width < 150)
return false;
if(IsNT35 == true)
return false;
FinalCaptionColor = TColor(GetSysColor(COLOR_ACTIVECAPTION));
FinalBlueIntensity = GetBValue(FinalCaptionColor);
FinalGreenIntensity= GetGValue(FinalCaptionColor);
FinalRedIntensity = GetRValue(FinalCaptionColor);
if ((FinalBlueIntensity < 128) || (FinalGreenIntensity < 128) || (FinalRedIntensity < 128) )
return true;
else
return false;
}
void TFMain::CalculateCaptionRect(void)
{
CaptionRect.Left = GetSystemMetrics(SM_CXFRAME);
CaptionRect.Right= Width- 4*GetSystemMetrics(SM_CXSIZE);
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -