有3个小问题!!!!(100分)

  • 主题发起人 主题发起人 zudu
  • 开始时间 开始时间
Z

zudu

Unregistered / Unconfirmed
GUEST, unregistred user!
1.谁有安装软件Setupbuilder 1.10版的注册码,给个我好吗!!!
2关于数据库查询与排序的2个问题
A同时对几个DBF库文件进行查询,即当在几个EDIT中输入查询字段值后,能够 在DBGRID中显示查到的记录。(使用DBGRID,QUERY,DATASURCE,EDIT等)
B对DBF文件中指定的字段名如:学号,总分等进行升,降排序。
C我是一只菜鸟,因此要求有详细的代码给出,才能送分。
 
多研究一下DEMOS,
还是发个 demo给你参考一下
 
不管是谁只要在上面写几句都有分给。
 
这可用传参数或动态组织SQL语句来作。

如下:
CommandText:=' SELECT * From t_salelist '

if rbAll.Checked then CommandText:=CommandText+' where 1=1';
if rbHG.Checked then CommandText:=' where comtype=''贵宾客户''';
if rbPoint.Checked then CommandText:=' where comtype=''定点客户''';

if sbtShift.Down then
begin
if HRcbComName.Checked then CommandText:=CommandText+' and comname='''+HRComName.Text+'''';
if HRcbAmtPaid.Checked then CommandText:=CommandText+' and amtpaid'+cbAmtPaid.Text+edtAmtpaid.Text;
if HRcbDiscount.Checked then CommandText:=CommandText+' and discount'+cbDiscount.Text+edtDiscount.Text;
if HRcbExp.Checked then CommandText:=CommandText+' and expense'+cbExp.Text+edtExp.Text;
if HRcbAmtCard.Checked then CommandText:=CommandText+' and amtcard'+cbAmtCard.Text+edtAmtCard.Text;
if HRcbCards.Checked then CommandText:=CommandText+' and cards'+cbCards.Text+edtCards.Text;
end ;
 
select * from table where condition
order by table.field asc|desc
其中asc升序,desc降序
建议阅读一下Local SQL帮助文件
 
很简单的,
 
2.在Form上放一DBGrid,一Query,一DataSource
DataSource指向Query,Query指向你的DBF别名,DBGrid指向DataSource
程序代码节选:
...
Query.Close;
Query.Sql.Clear;
Query.Sql.Add('SELECT * FROM YOUDBFTAB');
Query.Sql.Add('WHERE 字段名=:aa') //aa是变量
Query.parambyname('aa').AsString := Edit.text;
Query.open;
...
DBGrid中将显示你查询到的内容(如果是初学者请多看书,如果不是...呵呵呵...)
*^j^*
 
easy,看书!
 
多人接受答案了。
 
后退
顶部