小编Ama*_*nda的帖子

Delphi-将参数传递给ADOquery

亲爱的专家,我正在尝试过滤dbgrid连接到adoquery的结果,取决于用户选择4个复选框,用户可以选择一个或多个文件来相应地过滤数据我有这个代码,我不知道如何如果用户选择两个或更多复选框,则传递"和/或不传递"它.

Vw_Activity.SQL.Text:='select * from Vw_Activity where ';
if CBEmployee.Checked then
begin
Vw_Activity.SQL.Add('Emp_Name_Ar=:x');
Vw_Activity.Parameters.ParamByName('x').Value:=emp Name.Text;
end;


if CBTask.Checked then
begin
Vw_Activity.SQL.Add('Category_Name=:y');
Vw_Activity.Parameters.ParamByName('y').Value:=Pro blemCat.Text;
end;

if CBIncharge.Checked then
begin
Vw_Activity.SQL.Add('Support_name_En=:h');
Vw_Activity.Parameters.ParamByName('h').Value:=Sup portstaff.Text;
end;


if CBstatus.Checked then
begin
Vw_Activity.SQL.Add('Request_Status=:k');
Vw_Activity.Parameters.ParamByName('k').Value:=Req uestStatus.Text;
end;

Vw_Activity.Active:=true;
Run Code Online (Sandbox Code Playgroud)

等你的帮助

delphi ado parameter-passing

5
推荐指数
1
解决办法
4656
查看次数

如何允许或禁止用户在pagecontrol中输入tab?

我想限制用户(基于特殊条件)在页面控件中打开选项卡.即,用户可以单击选项卡,但不会向他显示.相反,一条消息将向他显示" he don't have the access right to see such tab".

在什么事件上我应该编写检查代码,以及哪个tab属性(TPageControl组件)将允许/阻止用户进入这样的选项卡?

delphi tpagecontrol

4
推荐指数
1
解决办法
6352
查看次数

标签 统计

delphi ×2

ado ×1

parameter-passing ×1

tpagecontrol ×1