procedure TForm1.grd_rcCellClick(Column: TColumn);
begin
q:=rc1.fieldbyname('元器件ID').AsString; qry_2.Close;
qry_2.SQL.Clear;
qry_2.SQL.Add('select * form RC1 where 元器件ID='+q);
qry_2.open;
Form5.Hide;
end;
begin
q:=rc1.fieldbyname('元器件ID').AsString; qry_2.Close;
qry_2.SQL.Clear;
qry_2.SQL.Add('select * form RC1 where 元器件ID='+q);
qry_2.open;
Form5.Hide;
end;
解决方案 »
- 新手,求助delphi登录界面带代码???
- 多年没用D了,请问各位做报表控件放在那个标签里面,找不着呀(急)
- 请教:如何纪录一个进程的开始时间和退出时间?
- dxDBGrid1分类汇总之后,取出数据库字段问题
- 问一个大家在写权限模块的问题。
- clientDataset调用XML时,怎么用SQL语句?
- 怎样在子窗口中使用数据库控件?
- oracle中BLOB类型字段,,这个问题困扰好久了,在线!!
- 屏保的背景音乐用那一种格式最好,又怎样用代码加入.
- 请问各位,建立菜单时,如何屏蔽系统默认的快捷键?
- 关于数据动态加载的ClientDataset和FastReport的主从报表问题 200分
- DataSetProvider 如何先主动向客户端发送数据?
否则,加了也不报错