C++ Builder常用代码片断

向Query传递参数

// 直接从表向Query传递参数的一种方法
TQuery *Query = new TQuery(this);
Query->DatabaseName = "dbServer";
Query->SQL->Clear();
Query->SQL->Add("DELETE FROM ''Events.DB'' WHERE (TicketNo = " + Data->tbProblem->FieldByName("TicketNo")->AsString + ")" );
Query->ExecSQL();
Query->Close();
delete Query;
日期属性
TMaskEdit *meOpen;
TLabel *lbCount1;
TDateTime Date2;
void __fastcall TfmMainForm::CountOpen(TObject *Sender)
{
　 switch(dynamic_cast<TComponent&>(*Sender).Tag)
　 {
　　 case 1:
　　　 count1 = StrToInt(lbCount1->Caption);
　　　 count1 += 1;
　　　 Date2 = Now() + count1;
　　　 meOpen->Text = Date2.DateString();
　　　 lbCount1->Caption = IntToStr(count1);
　　　 break;
　 case 2:
　　 count1 = StrToInt(lbCount1->Caption);
　　 count1 -= 1;
　　 Date2 = Now() + count1;
　　 meOpen->Text = Date2.DateString();
　　 lbCount1->Caption = IntToStr(count1);
　　 break;
　 }
}

绘制状态条

void __fastcall TForm1::StatusBar1DrawPanel(TStatusBar *StatusBar, TStatusPanel *Panel, const TRect &Rect)
{
　 TCanvas& c = *StatusBar->Canvas;
　 switch (Panel->Index)
　 {
　　 case 0 :
　　 {
　　　 StatusBar1->Panels->Items[0]->Text = "Hello C++";
　　　 c.Brush->Style = bsClear;
　　　 TRect temp = Rect;
　　　 temp.Top += 1;
　　　 temp.Left += 1;
　　　 c.Font->Color = clWhite;
　　　 DrawText(c.Handle,Panel->Text.c_str(),-1,(RECT*)&temp,DT_SINGLELINE|DT_CENTER);
　　　 c.Font->Color = clBlack;
　　　 DrawText(c.Handle,Panel->Text.c_str(),-1,(RECT*)&Rect,DT_SINGLELINE|DT_CENTER);
　　　 break;
　　 }
　　 case 1:
　　 {
　　　 c.Brush->Color = clYellow;
　　　 c.FillRect(Rect);
　　　 c.Font->Color = clRed;
　　　 DrawText(c.Handle,"clYellow Color", -1, (RECT*)&Rect, DT_SINGLELINE | DT_CENTER);
　　　 break;
　　 }
　　 case 2:
　　 {
　　　 Graphics::TBitmap* bm = new Graphics::TBitmap;
　　　 bm->Handle = LoadBitmap(NULL, MAKEINTRESOURCE(32760));
　　　 c.Draw(Rect.Left, Rect.Top, bm);
　　　 delete bm;
　　　 break;
　　 }
　 }
}

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!