procedure TForm13.treeview1onclick(Sender: TObject);
var
i :integer;
begin
if (treeview1.selected.Level=1) and (treeview1.selected<>nil) then
begin
form13.ADOQuery1.Close;
form13.ADOQuery1.SQL.Clear;
form13.ADOQuery1.Connection:=form13.ADOConnection1;
form13.ADOQuery1.SQL.Add('SELECT kh,xx ,xm,iif(xbdm=''1'',''男'',iif(xbdm=''2'',''女'','''')) as xbdm1,cj,iif(bkdm=''0'',''1000米/800米'',iif(bkdm=''1'',''1分钟跳绳'',iif(bkdm=''2'',''立定跳远'',');
form13.ADOQuery1.SQL.Add('iif(bkdm=''3'',''实心球'',iif(bkdm=''4'',''引体/仰卧'',iif(bkdm=''5'',''篮球-投篮'',iif(bkdm=''6'',''缓考'',iif(bkdm=''7'' ,''免试'' ,''''))))))))as bkdm1,');
form13.ADOQuery1.SQL.Add('df,zh,sxh,kd,ksrq,bkdm from tyks where mid(kh,1,6)=:a and bkdm=:b order by cdate(ksrq) asc,xbdm,zh,sxh,kh ') ;
form13.ADOQuery1.Parameters.ParamByName('a').Value :=copy(treeview1.selected.Parent.Text,1,6);
form13.ADOQuery1.Parameters.ParamByName('b').Value :=copy(treeview1.selected.text,1,1);
form13.ADOQuery1.Open ;
form13.DataSource1.DataSet:=form13.ADOQuery1 ;
form13.DBGrid1.DataSource:=form13.DataSource1 ; end ;
end;(代码)学校
(代码)名称
(代码)名称
(代码)名称点击名称 显示相关信息有个另名称点击后出现无效NULL
解决方案 »
- 怎么知道这个值是不是数字还是字符串
- cxGrid 控件的行间距怎么调整?急用,谢谢。
- Web服务器应用程序的问题!
- 为什么服务器的执行总是串行的呢?如何改进? 才能并行执行???
- 我在SQLSERVER2000中建了一个视图,在delphi中当怎么调用视图啊?
- 数字录入控件?
- 请问大家都需要哪些方面的Delphi图书?我们有意开发Delphi方面的精品图书,希望与大家多交流。
- 再看两个very奇怪的程序!!!!
- 各位都帮下忙:关于代理服务器的问题。
- 小问题:Filter中怎样过滤字符串字段?
- 通过地址的值,如何得到地址存储的值?
- ConnectionString和PageControl(大虾过来)
----------
if (treeview1.selected<>nil) and (treeview1.selected.Level=1) then
调换一下~~~先判断Selected是否为空
begin
//do something;
end;