ons(true);
tableyskmlb.Cancel;
cmdquit.Caption:='退出'
end;
end ;
procedure Tfrmyskmlb.cmdsearchClick(Sender: TObject);
var
inputstring:string;
begin
InputString:= InputBox('输入数据', '请输入要查询的预算科目类别代码或名称', '');
if InputString='' then
exit;
tableyskmlb.Filter:='dm='''+inputstring+'''';
if tableyskmlb.Eof then
begin
tableyskmlb.Filter:='yslbmc='''+inputstring+'''';
if tableyskmlb.Eof then
begin
showmessage('没有你要
查询的数据!');
tableyskmlb.Filter:='dm<>'' ''';
exit;
end;
end;
end;
//procedure Tfrmuser.cmddisClick(Sender: TObject);
//begin
//tableuser.Filter:='yhmc<>'' ''';
//end;
procedure Tfrmyskmlb.cmddisClick(Sender: TObject);
begin
tableyskmlb.Filter:='dm<>'' ''';
end;
end.