unit31.pas

本系统是SQL SERVER的管理系统

epefbutton4.show;
epefbutton5.show;
epeftrbtn1.Show;
epeftrbtn2.show;
epeftrbtn3.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.salequery do
 begin
 close;
 sql.clear;
 sql.add('select sale.*,repertory.* from sale,repertory,repsa');
 sql.Add('where sale.comno=repsa.comno and repsa.number=repertory.number and chassis like'+''''+s1+'''');
 prepare;
 open;
end;
groupbox1.hide;
dbgrid1.height:=521;
epefbutton1.show;
epefbutton2.show;
epefbutton3.show;
epefbutton4.show;
epefbutton5.show;
epeftrbtn1.Show;
epeftrbtn2.show;
epeftrbtn3.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.salequery do
 begin
 close;
 sql.clear;
 sql.add('select sale.*,repertory.* from sale,repertory,repsa');
 sql.Add('where sale.comno=repsa.comno and repsa.number=repertory.number and carno like'+''''+s1+'''');
 prepare;
 open;
end;
groupbox1.hide;
dbgrid1.height:=521;
epefbutton1.show;
epefbutton2.show;
epefbutton3.show;
epefbutton4.show;
epefbutton5.show;
epeftrbtn1.Show;
epeftrbtn2.show;
epeftrbtn3.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.salequery do
 begin
 close;
 sql.clear;
 sql.add('select sale.*,repertory.* from sale,repertory,repsa');
 sql.Add('where sale.comno=repsa.comno and repsa.number=repertory.number and motor like'+''''+s1+'''');
 prepare;
 open;
end;
groupbox1.hide;
dbgrid1.height:=521;
epefbutton1.show;
epefbutton2.show;
epefbutton3.show;
epefbutton4.show;
epefbutton5.show;
epeftrbtn1.Show;
epeftrbtn2.show;
epeftrbtn3.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.salequery do
 begin
 close;
 sql.clear;
 sql.add('select sale.*,repertory.* from sale,repertory,repsa');
 sql.Add('where sale.comno=repsa.comno and repsa.number=repertory.number and spring like'+''''+s1+'''');
 prepare;
 open;
end;
groupbox1.hide;
dbgrid1.height:=521;
epefbutton1.show;
epefbutton2.show;
epefbutton3.show;
epefbutton4.show;
epefbutton5.show;
epeftrbtn1.Show;
epeftrbtn2.show;
epeftrbtn3.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.salequery do
 begin
 close;
 sql.clear;
 sql.add('select sale.*,repertory.* from sale,repertory,repsa');
 sql.Add('where sale.comno=repsa.comno and repsa.number=repertory.number and cname like'+''''+s1+'''');
 prepare;
 open;
end;
groupbox1.hide;
dbgrid1.height:=521;
epefbutton1.show;
epefbutton2.show;
epefbutton3.show;
epefbutton4.show;
epefbutton5.show;
epeftrbtn1.Show;
epeftrbtn2.show;
epeftrbtn3.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.salequery do
 begin
 close;
 sql.clear;
 sql.add('select sale.*,repertory.* from sale,repertory,repsa');
 sql.Add('where sale.comno=repsa.comno and repsa.number=repertory.number and tel like'+''''+s1+'''');
 prepare;
 open;
end;
groupbox1.hide;
dbgrid1.height:=521;
epefbutton1.show;
epefbutton2.show;
epefbutton3.show;
epefbutton4.show;
epefbutton5.show;
epeftrbtn1.Show;
epeftrbtn2.show;
epeftrbtn3.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.salequery do
 begin
 close;
 sql.clear;
 sql.add('select sale.*,repertory.* from sale,repertory,repsa');
 sql.Add('where sale.comno=repsa.comno and repsa.number=repertory.number and repertory.number like'+''''+s1+'''');
 prepare;
 open;
end;
groupbox1.hide;
dbgrid1.height:=521;
epefbutton1.show;
epefbutton2.show;
epefbutton3.show;
epefbutton4.show;
epefbutton5.show;
epeftrbtn1.Show;
epeftrbtn2.show;
epeftrbtn3.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.salequery do
 begin
 close;
 sql.clear;
 sql.add('select sale.*,repertory.* from sale,repertory,repsa');
 sql.Add('where sale.comno=repsa.comno and repsa.number=repertory.number and sale.comno like'+''''+s1+'''');
 prepare;
 open;
end;
groupbox1.hide;
dbgrid1.height:=521;
epefbutton1.show;
epefbutton2.show;
epefbutton3.show;
epefbutton4.show;
epefbutton5.show;
epeftrbtn1.Show;
epeftrbtn2.show;
epeftrbtn3.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.salequery do
   begin
   close;
   sql.clear;
   sql.add('select sale.*,repertory.* from sale,repertory,repsa');
   sql.Add('where sale.comno=repsa.comno and repsa.number=repertory.number and cdate between :adate and :bdate');
   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;
epeftrbtn1.Show;
epeftrbtn2.show;
epeftrbtn3.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.salequery do
   begin
   close;
   sql.clear;
   sql.add('select sale.*,repertory.* from sale,repertory,repsa');
   sql.Add('where sale.comno=repsa.comno and repsa.number=repertory.number and saledate between :adate and :bdate');
   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;
epeftrbtn1.Show;
epeftrbtn2.show;
epeftrbtn3.show;
epeftrbtn4.show;
epeftrbtn5.show;
epeftrbtn6.show;
end;
end;
if flatcombobox1.text='车主身份证号' then
begin
  i3:=length(flatedit1.text);
 for i:=1 to i3 do
 begin
 if not((flatedit1.text[i]>='0') and (flatedit1.text[i]<='9')) then
 k:=1;
 end;
if flatedit1.text='' then
begin
showmessage('请输入车主身份证号');
end
else
if k=1 then
    begin
    showmessage('身份证输入错误，请检查');
     end
     else
     if not((i3=15)or(i3=18)) then
        begin
       showmessage('身份证输入的长度错误');
         end
     else
begin

s1:=flatedit1.text;
 with data.salequery do
 begin
 close;
 sql.clear;
 sql.add('select sale.*,repertory.* from sale,repertory,repsa');
 sql.Add('where sale.comno=repsa.comno and repsa.number=repertory.number and nameno='+''''+s1+'''');
 prepare;
 open;
end;
groupbox1.hide;
dbgrid1.height:=521;
epefbutton1.show;
epefbutton2.show;
epefbutton3.show;
epefbutton4.show;
epefbutton5.show;
epeftrbtn1.Show;
epeftrbtn2.show;
epeftrbtn3.show;
epeftrbtn4.show;
epeftrbtn5.show;
epeftrbtn6.show;
end;
end;
flatcombobox1.text:='';
 end;
end;

procedure TForm31.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:='';
 flatcombobox2.show;
 flatedit1.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:='';
 flatcombobox2.hide;
 flatedit1.show;
 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:='';
 flatcombobox2.hide;
 flatedit1.show;
 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:='';
 flatcombobox2.hide;
 flatedit1.show;
 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:='';
 flatcombobox2.hide;
 flatedit1.hide;
 datetimepicker1.show;
 datetimepicker2.show;
 label3.show;
 end;
 if flatcombobox1.text='销售时间段' then
 begin
 flatcombobox2.text:='';
 flatedit1.text:='';
 flatcombobox2.hide;
 flatedit1.hide;
 datetimepicker1.show;
 datetimepicker2.show;
 label3.show;
 end;
 if flatcombobox1.text='车主身份证号' then
 begin
 flatcombobox2.text:='';
 flatedit1.text:='';
 flatcombobox2.hide;
 flatedit1.show;
 datetimepicker1.hide;
 datetimepicker2.hide;
 label3.hide;

 end;
end;

procedure TForm31.epEfTrBtn5Click(Sender: TObject);
begin

form313.quickrep1.preview;

end;

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

end.