来帮忙吧,大哥?(0分)

  • 主题发起人 hnzcg124
  • 开始时间
H

hnzcg124

Unregistered / Unconfirmed
GUEST, unregistred user!
if combobox9.Text=' ' then
begin
if (combobox1.Text='制造日期')or(combobox1.Text='进厂日期')or(combobox1.Text='启用日期') then
begin
if dbdatetimeediteh1.Text<>' - - ' then
begin
str1:=str1+i1+' '+trim(combobox2.Text)+' '+''''+trim(dbdatetimeediteh1.Text)+'''';
showmessage(str1);
end else
str1:=str1+i1+' '+trim(combobox2.Text)+' ';
showmessage(str1);
end
else
if combobox2.text='like'then
begin
str1:=str1+i1+' '+trim(combobox2.Text)+' '+''''+trim(edit1.Text)+'%'+'''';
end else
str1:=str1+i1+' '+trim(combobox2.Text)+' '+trim(edit1.Text)+'''';
end else//如果是单条查询的话,设置str1的值
if ((combobox1.Text<>' ')and (combobox2.Text=' '))or((combobox3.Text<>' ')and (combobox4.Text=' '))
or((combobox5.Text<>' ')and (combobox6.Text=' '))or((combobox7.Text<>' ')and (combobox8.Text=' '))then
begin
application.MessageBox('查询条件不完全,请检查。','提示',mb_ok);
exit;
end
else
if (combobox7.Text='制造日期')or(combobox7.Text='进厂日期')or(combobox7.Text='启用日期')then
begin
if dbdatetimeediteh4.Text<>' - - ' then
begin
str7:=str7+i7+' '+trim(combobox7.Text)+' '+''''+trim(dbdatetimeediteh4.Text)+'''';
//showmessage(str7);
end
else
str7:=str7+i7+' '+trim(combobox7.Text)+' '+'''';
showmessage('str7'+str7)
end
else
if combobox8.Text='like'then
begin
str7:=str7+i7+' '+trim(combobox8.Text)+' '+''''+trim(edit4.Text)+'''';
showmessage('str7='+str7);
end
else
str7:=str7+i7+' '+trim(combobox8.Text)+' '+'''';
showmessage('str74='+str7);
//对条件进行判断
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
715
import
I
顶部