想完成这样的功能:
一个是
procedure TForm1.Button1Click(Sender: TObject);
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from v_result');
SQL.Add('where 考试='+ComboBox1.Text);
Open;
end;
end;
查出某次成绩的表
我想在点击Button1同时查出这个表的同时统计总人数为多少,并将结果放在LABLE的CAPTION中。
begin
Close;
SQL.Clear;
SQL.Add('select count(姓名) from v_result');
SQL.Add('where 考试='+ComboBox1.Text);
open;
end;
以上的查询语句放在哪里呢?
一个是
procedure TForm1.Button1Click(Sender: TObject);
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from v_result');
SQL.Add('where 考试='+ComboBox1.Text);
Open;
end;
end;
查出某次成绩的表
我想在点击Button1同时查出这个表的同时统计总人数为多少,并将结果放在LABLE的CAPTION中。
begin
Close;
SQL.Clear;
SQL.Add('select count(姓名) from v_result');
SQL.Add('where 考试='+ComboBox1.Text);
open;
end;
以上的查询语句放在哪里呢?
解决方案 »
- 如何实现使用canvas.textout的字体颜色渐变
- 如何判断该帐号是否登陆?
- 用ADO的连接方式能否连接delphi自带的database desktop数据库?
- 多层数据库系统:在线程中当设置数据表的Active时,出错了,为什么?
- 超级菜鸟,一段程序的解释
- 一个非常简单的问题?送分?在线等待??????
- 紧急关于一个类同时有多个实例的问题?
- 需要ODBC4.0,100分求!!!
- 别人帮我做的程序,在我这边运行时出现 TRxDBGrid类没有找到,该怎么解决?麻烦各位了!
- 请问用什么工具开发ERP,哪里有示例或资料?
- 帮我看一下这段代码哪错了,adoconn.Openschema(..)取得所有非系统表,
- 能否实现这样的功能:在edit中输入数字后,按回车后就能showmessage
SQL.Add('where 考试='''+ComboBox1.Text+'''');label.caption:=query1.fieldbyname('sl').asstring;