if RadioButton.Checked then
DBGrid1.DataSource.DataSet.Open else
DBGrid1.DataSource.DataSet.Close;
DBGrid1.DataSource.DataSet.Open else
DBGrid1.DataSource.DataSet.Close;
解决方案 »
- 急,在panel中自动创建checkbox,提示已经存在,可就是看不见阿。急
- 怎么样让Webbrowser在打开一张网页前先打开一张等待信息的页面???
- 怎么样编程播放OGG格式的音频文件?
- 只找的到DBGRID导入EXCEL的帖子,小弟求EXCEL数据导入DBGRID的程序,谢谢
- 请教interbase组件在delphi7.0的用法(急!急!急!)
- XE5如何调用ANDROID的标准API?
- 如何保存IE浏览器中输入 http://kh1.google.com/kh?n=404&v=21&t=trstrtrtrrrst ,可以看到的图
- 高分求DELPHI中考勤数据的统计算法,谢谢!!!1
- 请问如何将Memo中的一段文字保存为二进制文件呢?又如何从文件中读出呢?
- CSDN的DELPHI高手太少了,普遍智商偏低,简单问题无人能答,中国软件无望了...
- 高手请赐教??
- 大侠啊,救命啊,救命啊,救命啊:-)
begin
if RadioButton1.checked then
begin
ADOQueryDB1.Close;
ADOQueryDB1.sql.clear;
ADOQueryDB1.sql.add('select * From AA');
ADOQueryDB1.Open;
end;
if RadioButton2.checked then
begin
ADOQueryDB1.Close;
ADOQueryDB1.sql.clear;
ADOQueryDB1.sql.add('select * From BB');
ADOQueryDB1.Open;
end;
程序是这样在的
我觉得很奇怪,
begin
if RadioButton1.checked then
begin
ADOQueryDB1.Close;
ADOQueryDB1.sql.clear;
ADOQueryDB1.sql.add('select * From AA');
ADOQueryDB1.Open;
end;
if RadioButton2.checked then
begin
ADOQueryDB1.Close;
ADOQueryDB1.sql.clear;
ADOQueryDB1.sql.add('select * From BB');
ADOQueryDB1.Open;
end;
程序是这样在的
我觉得很奇怪,
建议改成如下代码:procedure TFormBujige.Button1Click(Sender: TObject);
begin
ADOQueryDB1.Close;
ADOQueryDB1.sql.clear; if RadioButton1.checked then
ADOQueryDB1.sql.add('select * From AA')
else
ADOQueryDB1.sql.add('select * From BB'); ADOQueryDB1.Open;
end;
这是什么原因呢?
这样吧;
procedure TFormBujige.Button1Click(Sender: TObject);
begin
if ADOQueryDB1.Active then
ADOQueryDB1.Cancel;
ADOQueryDB1.Close;
ADOQueryDB1.sql.clear;
if RadioButton1.checked then
ADOQueryDB1.sql.add('select * From AA')
else if RadioButton2.Checked then
ADOQueryDB1.sql.add('select * From BB') ;
ADOQueryDB1.Open;
end;
而且用了4个RadioButton来作为选择条件