unit21.pas

大家看看就明白了

begin
showmessage('请选择查询的项目');
end
else
begin
if flatcombobox1.text='车型' then
begin
if  flatcombobox2.text='' then
begin
showmessage('请输入车型的查询条件');
end
else
begin
s1:=flatcombobox2.text;
with data.repertoryquery do
begin
close;
sql.clear;
sql.add('select * from repertory');
sql.add('where cartype like'+''''+s1+''''+'and buysell=false');
prepare;
open;

end;
groupbox1.hide;
dbgrid1.Height:=521;
epefbutton1.Show;
epefbutton2.show;
epefbutton3.show;
epefbutton4.show;
epefbutton5.show;
epeftrbtn3.Show;
epeftrbtn1.show;
epeftrbtn2.show;
epeftrbtn4.show;
epeftrbtn5.show;
epeftrbtn6.show;
end;
{ }
end;
if flatcombobox1.text='颜色' then
begin
if  flatcombobox2.text='' then
begin
showmessage('请输入颜色的查询条件');
end
else
begin
s1:=flatcombobox2.text;
with data.repertoryquery do
begin
close;
sql.clear;
sql.add('select * from repertory');
sql.add('where color like'+''''+s1+''''+'and buysell=false');
prepare;
open;

end;
groupbox1.hide;
dbgrid1.Height:=521;
epefbutton1.Show;
epefbutton2.show;
epefbutton3.show;
epefbutton4.show;
epefbutton5.show;
epeftrbtn3.Show;
epeftrbtn1.show;
epeftrbtn2.show;
epeftrbtn4.show;
epeftrbtn5.show;
epeftrbtn6.show;
end;
{ }
end;
if flatcombobox1.text='车辆来源' then
begin
 if  flatcombobox2.text='' then
begin
showmessage('请输入车辆来源的查询条件');
end
else
begin
s1:=flatcombobox2.text;
with data.repertoryquery do
begin
close;
sql.clear;
sql.add('select * from repertory');
sql.add('where spring like'+''''+s1+''''+'and buysell=false');
prepare;
open;

end;
groupbox1.hide;
dbgrid1.Height:=521;
epefbutton1.Show;
epefbutton2.show;
epefbutton3.show;
epefbutton4.show;
epefbutton5.show;
epeftrbtn3.Show;
epeftrbtn1.show;
epeftrbtn2.show;
epeftrbtn4.show;
epeftrbtn5.show;
epeftrbtn6.show;
end;
{ }
end;
if flatcombobox1.text='发动机号' then
begin
if  flatedit1.text='' then
begin
showmessage('请输入发动机号的查询条件');
end
else
begin
s1:=flatedit1.text;
with data.repertoryquery do
begin
close;
sql.clear;
sql.add('select * from repertory');
sql.add('where motor like'+''''+s1+''''+'and buysell=false');
prepare;
open;

end;
groupbox1.hide;
dbgrid1.Height:=521;
epefbutton1.Show;
epefbutton2.show;
epefbutton3.show;
epefbutton4.show;
epefbutton5.show;
epeftrbtn3.Show;
epeftrbtn1.show;
epeftrbtn2.show;
epeftrbtn4.show;
epeftrbtn5.show;
epeftrbtn6.show;
end;
{}
end;
if flatcombobox1.text='底盘号' then
begin
if  flatedit1.text='' then
begin
showmessage('请输入车型的查询条件');
end
else
begin
s1:=flatedit1.text;
with data.repertoryquery do
begin
close;
sql.clear;
sql.add('select * from repertory');
sql.add('where chassis like'+''''+s1+''''+'and buysell=false');
prepare;
open;

end;
groupbox1.hide;
dbgrid1.Height:=521;
epefbutton1.Show;
epefbutton2.show;
epefbutton3.show;
epefbutton4.show;
epefbutton5.show;
epeftrbtn3.Show;
epeftrbtn1.show;
epeftrbtn2.show;
epeftrbtn4.show;
epeftrbtn5.show;
epeftrbtn6.show;
end;
{}
end;
if flatcombobox1.text='序列号' then
begin
if  flatedit1.text='' then
begin
showmessage('请输入车型的查询条件');
end
else
begin
s1:=flatedit1.text;
with data.repertoryquery do
begin
close;
sql.clear;
sql.add('select * from repertory');
sql.add('where number like'+''''+s1+''''+'and buysell=false');
prepare;
open;

end;
groupbox1.hide;
dbgrid1.Height:=521;
epefbutton1.Show;
epefbutton2.show;
epefbutton3.show;
epefbutton4.show;
epefbutton5.show;
epeftrbtn3.Show;
epeftrbtn1.show;
epeftrbtn2.show;
epeftrbtn4.show;
epeftrbtn5.show;
epeftrbtn6.show;
end;
{}
end;
if flatcombobox1.text='到车日期' then
begin
d1:= datetimepicker1.Date ;
d2:=datetimepicker2.Date;
if d1>d2 then
begin
showmessage('前日期不能大于后日期');
end
else
begin
 with data.repertoryquery do
begin
close;
sql.clear;
sql.add('select * from repertory');
sql.add('where cdate between :adate and :bdate and buysell=false');
parambyname('adate').asdatetime:=d1;
parambyname('bdate').asdatetime:=d2;
prepare;
open;
end;
groupbox1.hide;
dbgrid1.Height:=521;
epefbutton1.Show;
epefbutton2.show;
epefbutton3.show;
epefbutton4.show;
epefbutton5.show;
epeftrbtn3.Show;
epeftrbtn1.show;
epeftrbtn2.show;
epeftrbtn4.show;
epeftrbtn5.show;
epeftrbtn6.show;
end;
{}
end;
end;
end;

procedure TForm21.FormShow(Sender: TObject);
begin

 groupbox1.hide;
dbgrid1.Height:=521;
epefbutton1.Show;
epefbutton2.show;
epefbutton3.show;
epefbutton4.show;
epefbutton5.show;
epeftrbtn3.Show;
epeftrbtn1.show;
epeftrbtn2.show;
epeftrbtn4.show;
epeftrbtn5.show;
epeftrbtn6.show;
with data.repertoryquery do
begin
close;
sql.clear;
sql.add('select * from repertory');
sql.add('where  buysell=false');
prepare;
open;

end;
end;

procedure TForm21.FlatComboBox1Change(Sender: TObject);
begin
if flatcombobox1.text='车型' then
 begin


 flatcombobox2.text:='';
 flatedit1.text:='';
 flatcombobox2.show;
 flatedit1.Hide;
 datetimepicker1.hide;
 datetimepicker2.hide;
 label3.hide;

 end;
 if flatcombobox1.text='颜色' then
 begin


 flatcombobox2.text:='';
 flatedit1.text:='';
 flatcombobox2.show;
 flatedit1.Hide;
 datetimepicker1.hide;
 datetimepicker2.hide;
 label3.hide;
 end;
 if flatcombobox1.text='发动机号' then
 begin


 flatcombobox2.text:='';
 flatedit1.text:='';
 flatedit1.show;
 flatcombobox2.Hide;
 datetimepicker1.hide;
 datetimepicker2.hide;
 label3.hide;
 end;
 if  flatcombobox1.text='底盘号' then
 begin

 flatcombobox2.text:='';
 flatedit1.text:='';
 flatedit1.show;
 flatcombobox2.Hide;
 datetimepicker1.hide;
 datetimepicker2.hide;
 label3.hide;
 end;
 if flatcombobox1.text='序列号' then
 begin

 flatcombobox2.text:='';
 flatedit1.text:='';
 flatcombobox2.hide;
 flatedit1.show;
 datetimepicker1.hide;
 datetimepicker2.hide;
 label3.hide;
 end;
 if flatcombobox1.text='车辆来源' then
 begin
 

 flatcombobox2.text:='';
 flatedit1.text:='';
 flatedit1.Hide;
 flatcombobox2.Show;
 datetimepicker1.hide;
 datetimepicker2.hide;
 label3.hide;
 end;
 if flatcombobox1.text='到车日期' then
 begin


 flatcombobox2.text:='';
 flatedit1.text:='';
 flatedit1.Hide;
 flatcombobox2.hide;
 datetimepicker1.show;
 datetimepicker2.show;
 label3.show;

 end;
end;

procedure TForm21.epEfTrBtn5Click(Sender: TObject);
begin


form214.quickrep1.preview;


end;

procedure TForm21.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
helpcarsale(key);
end;

end.