caa.rar_caa_组合框控件

//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { AnsiString sql; if(cc->Text == "ALL")sql="select funname,funcon from vclfun"; if(cc->Text == "内存分配")sql="select funname,funcon from vclfun where funclass=0"; if(cc->Text == "文件操作")sql="select funname,funcon from vclfun where funclass=1"; if(cc->Text == "磁盘目录管理")sql="select funname,funcon from vclfun where funclass=2"; if(cc->Text == "字符串")sql="select funname,funcon from vclfun where funclass=3"; if(cc->Text == "类型转换")sql="select funname,funcon from vclfun where funclass=4"; if(cc->Text == "日期时间")sql="select funname,funcon from vclfun where funclass=5"; if(Edit1->Text != "%%")sql=sql + "and funname like '%"+ Edit1->Text +"%'"; ADOQuery1->Close(); ADOQuery1->SQL->Clear(); ADOQuery1->SQL->Add(sql); ADOQuery1->Open(); } //---------------------------------------------------------------------------