我想在delphi 里写一个查询按钮的事件,然后我想实现的是,输入想要查询的学号能找到
这条学号的记录,没有输入的话就查找出全部数据,显示出来,现在我能显示所有数据了,但是不能单独查找某一个,请大家帮忙看下 谢谢!下面是delphi的查找按钮的代码,
procedure TFrmQryGSPHXX.SBQueryClick(Sender: TObject);
var
SQLStr : string;
begin
inherited;
SQLStr := '';
if Trim(Edt_PHDH.Text) <> '' then
begin
if not IsNumber(Trim(Edt_PHDH.Text),False) then
begin
MymessageWarn('学生学号请输入数字!');
if Edt_PHDH.CanFocus then Edt_PHDH.SetFocus;
Exit;
end;
SQLStr := SQLStr + ' XSXH01 = ' + Trim(Edt_PHDH.Text);
end;
SQLStr := SQLStr + MakeSQLForCXGSID('B');
SQLStr := SQLStr + ' ORDER BY XSXH01 ';
ShowQueryQTForm(Self,'JLQT_STXX',SQLStr);
end;
下面是javaEE里面写的包
/**
- 查询学生录取信息 */
else if (lx.equals("PubQTQuery_STXX")) {
int tiaojian = 3;
selStr ="Select A.XSXH01, A.LQXX01, A.LQXX02, A.BYXX01, A.BYXX02, A.SHRY01, A.ZDRY01, A.SHRQ, A.ZDRQ FROM STXX A Where A.XSXH01 = "+ tiaojian ;
}