//随便贴一段 procedure TRPT_ClientForm.BtnFindClick(Sender: TObject); var Ssql: string; begin inherited; Ssql := 'Select * from Client where C_Code<>'+QuotedStr('0'); if Trim(EdtCode.Text)<>'' then Ssql := Ssql+' and C_Code like'+QuotedStr('%'+Trim(EdtCode.Text)); if Trim(EdtArea.Text)<>'' then Ssql := Ssql+GetQueryAreaString('C_AreaCode', Trim(EdtArea.Text)); if Trim(CmbType.Text)<>'' then Ssql := Ssql+' and C_Type='+QuotedStr(Trim(CmbType.Text)); Ssql := Ssql+' Order by C_Code';
DataForm.DataSetClient.Close; DataForm.DataSetClient.CommandText := Ssql; DataForm.DataSetClient.Open; if DataForm.DataSetClient.IsEmpty then begin DataForm.DataSetClient.Close; MessageBox(Self.Handle, '没有满足条件的记录!','提示',MB_OK+MB_ICONINFORMATION); end; end;
不好意思,贴错了,呵呵 procedure TRPT_NotepadForm.BtnFindClick(Sender: TObject); var SqlStr: string; begin inherited; SqlStr := 'Select * from Notepad where N_code<>'+QuotedStr('0'); if Trim(FromDate.Text)<>'' then SqlStr := SqlStr+' and N_date>=#'+DateToStr(FromDate.Date)+'#'; if Trim(ToDate.Text)<>'' then SqlStr := SqlStr+' and N_date<=#'+DateToStr(ToDate.Date)+'#'; if Trim(CmbMan.Text)<>'' then SqlStr := SqlStr+' and N_man='+QuotedStr(CmbMan.Text); DataForm.DataSetNotepad.Close; DataForm.DataSetNotepad.CommandText := SqlStr; DataForm.DataSetNotepad.Open; if DataForm.DataSetNotepad.IsEmpty then begin DataForm.DataSetNotepad.Close; MessageBoxA(Self.Handle, '没有满足条件的提示信息!','确定',MB_ICONINFORMATION+MB_OK); end; end;
if Trim(FromDate.Text)<>'' then SqlStr := SqlStr+' and N_date>=#'+FormatDateTime('yyyy-MM-dd',FromDate.Date)+'#'; if Trim(ToDate.Text)<>'' then SqlStr := SqlStr+' and N_date<=#'+FormatDateTime('yyyy-MM-dd',ToDate.Date)+'#';
procedure TRPT_ClientForm.BtnFindClick(Sender: TObject);
var
Ssql: string;
begin
inherited;
Ssql := 'Select * from Client where C_Code<>'+QuotedStr('0');
if Trim(EdtCode.Text)<>'' then
Ssql := Ssql+' and C_Code like'+QuotedStr('%'+Trim(EdtCode.Text));
if Trim(EdtArea.Text)<>'' then
Ssql := Ssql+GetQueryAreaString('C_AreaCode', Trim(EdtArea.Text));
if Trim(CmbType.Text)<>'' then
Ssql := Ssql+' and C_Type='+QuotedStr(Trim(CmbType.Text));
Ssql := Ssql+' Order by C_Code';
DataForm.DataSetClient.Close;
DataForm.DataSetClient.CommandText := Ssql;
DataForm.DataSetClient.Open;
if DataForm.DataSetClient.IsEmpty then
begin
DataForm.DataSetClient.Close;
MessageBox(Self.Handle, '没有满足条件的记录!','提示',MB_OK+MB_ICONINFORMATION);
end;
end;
procedure TRPT_NotepadForm.BtnFindClick(Sender: TObject);
var SqlStr: string;
begin
inherited;
SqlStr := 'Select * from Notepad where N_code<>'+QuotedStr('0');
if Trim(FromDate.Text)<>'' then
SqlStr := SqlStr+' and N_date>=#'+DateToStr(FromDate.Date)+'#';
if Trim(ToDate.Text)<>'' then
SqlStr := SqlStr+' and N_date<=#'+DateToStr(ToDate.Date)+'#';
if Trim(CmbMan.Text)<>'' then
SqlStr := SqlStr+' and N_man='+QuotedStr(CmbMan.Text);
DataForm.DataSetNotepad.Close;
DataForm.DataSetNotepad.CommandText := SqlStr;
DataForm.DataSetNotepad.Open;
if DataForm.DataSetNotepad.IsEmpty then
begin
DataForm.DataSetNotepad.Close;
MessageBoxA(Self.Handle, '没有满足条件的提示信息!','确定',MB_ICONINFORMATION+MB_OK);
end;
end;
SqlStr := SqlStr+' and N_date>=#'+FormatDateTime('yyyy-MM-dd',FromDate.Date)+'#';
if Trim(ToDate.Text)<>'' then
SqlStr := SqlStr+' and N_date<=#'+FormatDateTime('yyyy-MM-dd',ToDate.Date)+'#';
先ShowMessage(sqlStr)看看,语句是否正确。
select * from client where date1:='''+strtodate(datetostr(datetimepicker1.date));
好像日期型的这样相互转化两次就可以了。