类型:delphi+sqlserver2000我现时有一个表employee,里面有三个字段:employee_id,employee_name,employee_workage
表内容如下:
employee_id employee_name employee_workage
1 李明 1.5
2 梁权 0
3 谢亭 11
4 陈娟 6
5 黄红 20在按钮button1中实现如果employee_workage字段查找出来的记录值少于1那么要在dbgrid中新增一列holiday并赋值为0;
如果employee_workage的值大于1少于10,那么holiday的值为5;
如果employee_workage的值大于等于10而少于20,那么holiday的值为10,
如果employee_workage的值大于等于20以上的,那么holiday的值为20
即最终实现为结果为下:employee_id employee_name employee_workage holiday
1 李明 1.5 5
2 梁权 0 0
3 谢亭 11 10
4 陈娟 6 5
5 黄红 20 15=====================================
procedure TForm_main.ToolButton1Click(Sender: TObject);
var
sqlstring:string;
i:integer;begin
sqlstring:='select * into #table1 from employee' ;
adoquery1.SQL.Clear;
adoquery1.SQL.add(sqlstring);
adoquery1.SQL.Add('select * from #table1');
adoquery1.Open;end;我用到了临时表,但不知怎么处理好?
请问要怎么操作才实现我的功能?
还是要在sqlserver数据库中设计一个函数?
表内容如下:
employee_id employee_name employee_workage
1 李明 1.5
2 梁权 0
3 谢亭 11
4 陈娟 6
5 黄红 20在按钮button1中实现如果employee_workage字段查找出来的记录值少于1那么要在dbgrid中新增一列holiday并赋值为0;
如果employee_workage的值大于1少于10,那么holiday的值为5;
如果employee_workage的值大于等于10而少于20,那么holiday的值为10,
如果employee_workage的值大于等于20以上的,那么holiday的值为20
即最终实现为结果为下:employee_id employee_name employee_workage holiday
1 李明 1.5 5
2 梁权 0 0
3 谢亭 11 10
4 陈娟 6 5
5 黄红 20 15=====================================
procedure TForm_main.ToolButton1Click(Sender: TObject);
var
sqlstring:string;
i:integer;begin
sqlstring:='select * into #table1 from employee' ;
adoquery1.SQL.Clear;
adoquery1.SQL.add(sqlstring);
adoquery1.SQL.Add('select * from #table1');
adoquery1.Open;end;我用到了临时表,但不知怎么处理好?
请问要怎么操作才实现我的功能?
还是要在sqlserver数据库中设计一个函数?
解决方案 »
- delphi做IE工具栏
- 帮我把这段代码翻译成DELPHI好吗?
- win2000下做的程序为什么在win98下提示错误“[DBNMPNTW]”拒绝访问--急在线等待
- 请问数组可以当参数传递吗?
- 在此文章的“一、在左面的选项中选择Scripts。”的”Scripts“我在installshield中找不到呀?
- 对一个VB程序员来说,学delphi难吗?
- 这段代码什么意思?
- 医院管理系统(含VFP)源程序,50元相送
- 怎样才能使,用Tregistry的loadkey方法恢复的键值保存下来,系统重起也存在?
- Win2000中使用COM+,出现怪问题
- 关于对dbgrid表的操作问题
- 关于对dbgrid表的操作问题
select employee_id,employee_name,employee_workage,
case when employee_workage <1 then 0
when employee_workage>1 and employee_workage<10 then 5
when employee_workage>=10 and employee_workage< 20 then 10
else 20
end as 'holiday'
from t