全部代码如下
procedure TCX_F.FlatButton2Click(Sender: TObject);
begin
ASH_FRBtn.Checked:=True; //借出图书
MHCX_FCB.Checked:=True;
begin
TSXX_Q.Close;
TSXX_Q.SQL.Clear;
TSXX_Q.SQL.Add('Select 图书编号,书名,作者,类名,出版社,定价,借出数量 From 图书信息 A,图书类别 B');
TSXX_Q.SQL.Add('Where (A.借出数量 = :借出数量) and A.类别=B.类别');
TSXX_Q.Parameters.ParamByName('借出数量').Value:='0';
TSJG_DS.DataSet:=TSXX_Q;
TSJG_DG.Columns[0].FieldName:='图书编号';
TSJG_DG.Columns[1].FieldName:='书名';
TSJG_DG.Columns[2].FieldName:='作者';
TSJG_DG.Columns[3].FieldName:='类名';
TSJG_DG.Columns[4].FieldName:='出版社';
TSJG_DG.Columns[5].FieldName:='定价';
TSJG_DG.Columns[6].FieldName:='借出数量';
TSXX_Q.Open;
TS_Lable.Caption:=Format('共 %d 条记录',[TSXX_Q.RecordCount]);
end;
end;
想实现非零时的查询。