Question

delphi dm.ADOQuery1:missing SQL property

procedure TRptSingle.btnSchClick(Sender: TObject);
var
str1, str2, str3, str4, strGuid2: String;
strGuid1: TGUID;
begin
str1 := 'select b.ID_,b.sequence_,b.Code_,b.Name_,b.Spec_,'
+'b.Unit_,b.Count_ ,h.DocumentDate_,h.Number_,h.Sort_,h.Personnel_ '
+'from Single_Head h join Single_Body b on h.ID_ = b.ID_ where 1 = 1 ';
ADOQuery1.Open;
if chkCode.Checked then
str2 := Format(' and Code_ = ''%s''', [Trim(edtCode.Text)]);
if chkSort.Checked then
str3 := Format(' and Sort_ = ''%s''', [Trim(edtSort.Text)]);
if chkName.Checked then
str4 := Format(' and Name_ = ''%s''', [Trim(edtName.Text)]);
ADOQuery1.SQL.Text := str1 + str2 + str3 + str4;
ADOQuery1.Post;
DateTimePicker1.Date := StrToDate(FormatDatetime('yyyy/mm',now)+'/01');
DateTimePicker2.Date := StrToDate(FormatDateTime('yyyy/mm', now)+'/01');
if CreateGUID(strGuid1) = S_OK then
strGuid2 := GUIDToString(strGuid1);
ADOQuery1.FieldByName('ID_').AsString := strGuid2;

请问这是什么原因？

Answer 1

ADOQuery1.Open;
在此类语句前面通常你的看看ADOQuery1有没有初始SQL语句存在（就是SQL属性里面有没有写语句）如果没有初始语句就得再打开ADOQuery1前给其SQlp属性赋值eg：ADOQuery1.Sql.add(str1 ); 此外你得学会跟踪程序的错误出现在具体哪句也好方便问题回答者帮你检查语句

Answer 2

这样就行了,前提 是 ADOQuery1已经设置正确的连接
ADOQuery1.sql.text := 'select b.ID_,b.sequence_,b.Code_,b.Name_,b.Spec_,'
+'b.Unit_,b.Count_ ,h.DocumentDate_,h.Number_,h.Sort_,h.Personnel_ '
+'from Single_Head h join Single_Body b on h.ID_ = b.ID_ where 1 = 1 ';
ADOQuery1.Open;