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;
if Trim(dxbtnEdtGSCode.Text) <> '' then
SQLStr := SQLStr + ' LQXX01 = ' + QuotedStr(Trim(dxbtnEdtGSCode.Text));
// if Trim(dxbtnEdtSPCode.Text) <> '' then
// SQLStr := SQLStr + ' AND B.SPXX01 = ' + QuotedStr(Trim(dxbtnEdtSPCode.Text));
if Trim(JLWLDW01.Text) <> '' then
SQLStr := SQLStr + ' BYXX01 = ' + QuotedStr(Trim(JLWLDW01.Text));
if Trim(JLEdtDJR.Text) <> '' then
SQLStr := SQLStr + ' ZDRY01 LIKE ' + QuotedStr('%'+Trim(JLEdtDJR.Text)+'%');
if Trim(JLButtonEdit1.Text) <> '' then
SQLStr := SQLStr + ' SHRY01 LIKE ' + QuotedStr('%'+Trim(JLButtonEdit1.Text)+'%');
if Trim(dxZDRQS.Text) <> '' then
SQLStr := SQLStr + ' ZDRQ >= ' + MyDateToStr(StrToDate(Trim(dxZDRQS.Text)));
// if Trim(dxZDRQE.Text) <> '' then
// SQLStr := SQLStr + ' AND A.GSPHX03 <= ' + MyDateToStr(StrToDate(Trim(dxZDRQE.Text)));
if Trim(dxDateEdit1.Text) <> '' then
SQLStr := SQLStr + ' SHRQ >= ' + MyDateToStr(StrToDate(Trim(dxDateEdit1.Text)));
// if Trim(dxDateEdit2.Text) <> '' then
// SQLStr := SQLStr + ' AND A.GSPHX05 <= ' + MyDateToStr(StrToDate(Trim(dxDateEdit2.Text)));
// SQLStr := SQLStr + ' AND ' + MakeSQLForCanOperField(ur.OperGSXX, 'B.FGSXX01');
SQLStr := SQLStr + MakeSQLForCXGSID('B');
SQLStr := SQLStr + ' ORDER BY XSXH01 ';
ShowQueryQTForm(Self,'JLQT_STXX',SQLStr);
end;
下面是我数据库的表
SQL语句
/**
- 查询学生录取信息 */
else if (lx.equals("PubQTQuery_STXX")) {
selStr ="Select A.XSXH01, A.LQXX01, A.LQXX02, A.BYXX01, A.BYXX02, A.SHRY01, A.SHRQ, A.ZDRY01, A.ZDRQ FROM STXX A where A.XSXH01 = A.XSXH01";
}