unit311.~pas

本系统是SQL SERVER的管理系统

 label18.hide;

 end;
 if flatcombobox1.text='发动机号' then
 begin
 flatcombobox2.text:='';
 flatedit14.text:='';
 flatcombobox2.hide;
 flatedit14.show;
 datetimepicker3.hide;
 datetimepicker4.hide;
 label18.hide;

 end;
 if  flatcombobox1.text='底盘号' then
 begin
 flatcombobox2.text:='';
 flatedit14.text:='';
 flatcombobox2.hide;
 flatedit14.show;
 datetimepicker3.hide;
 datetimepicker4.hide;
 label18.hide;

 end;
 if flatcombobox1.text='序列号' then
 begin
 flatcombobox2.text:='';
 flatedit14.text:='';
 flatcombobox2.hide;
 flatedit14.show;
 datetimepicker3.hide;
 datetimepicker4.hide;
 label18.hide;

 end;
 if flatcombobox1.text='车辆来源' then
 begin
 flatcombobox2.text:='';
 flatedit14.text:='';
 flatcombobox2.show;
 flatedit14.Hide;
 datetimepicker3.hide;
 datetimepicker4.hide;
 label18.hide;

 end;
 if flatcombobox1.text='到车日期' then
 begin
 flatcombobox2.text:='';
 flatedit14.text:='';
 flatcombobox2.hide;
 flatedit14.Hide;
 datetimepicker3.show;
 datetimepicker4.show;
 label18.show;


 end;
end;

procedure TForm311.epEfTrBtn7Click(Sender: TObject);
var s1:string;
     d1,d2:tdatetime;
begin
if flatcombobox1.text='' then
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 ='+''''+s1+''''+'and buysell=false');
prepare;
open;

end;
groupbox4.Hide;
   dbgrid1.Height:=241;
   epefbutton1.show;
epefbutton2.show;
epefbutton3.show;
epefbutton4.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 ='+''''+s1+''''+'and buysell=false');
prepare;
open;

end;
 groupbox4.Hide;
   dbgrid1.Height:=241;
    epefbutton1.show;
epefbutton2.show;
epefbutton3.show;
epefbutton4.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 ='+''''+s1+''''+'and buysell=false');
prepare;
open;

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

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

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

end;
groupbox4.Hide;
   dbgrid1.Height:=241;
    epefbutton1.show;
epefbutton2.show;
epefbutton3.show;
epefbutton4.show;
epeftrbtn4.show;
epeftrbtn5.show;
epeftrbtn6.show;
end;
{}
end;
if flatcombobox1.text='到车日期' then
begin
d1:= datetimepicker3.Date ;
d2:=datetimepicker4.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;
 groupbox4.Hide;
   dbgrid1.Height:=241;
     epefbutton1.show;
epefbutton2.show;
epefbutton3.show;
epefbutton4.show;
epeftrbtn4.show;
epeftrbtn5.show;
epeftrbtn6.show;
end;
{}
end;
end;
end;

procedure TForm311.epEfButton1Click(Sender: TObject);
begin
 data.repertoryquery.first;
epefbutton1.enabled:=false;
epefbutton2.enabled:=false;
epefbutton3.enabled:=true;
epefbutton4.enabled:=true;
end;

procedure TForm311.epEfButton2Click(Sender: TObject);
begin
data.repertoryquery.prior;
epefbutton1.enabled:=true;
epefbutton2.enabled:=true;
epefbutton3.enabled:=true;
epefbutton4.enabled:=true;
if data.repertoryquery.bof then
 begin
 epefbutton1.enabled:=false;
 epefbutton2.enabled:=false;
 end;
end;

procedure TForm311.epEfButton3Click(Sender: TObject);
begin
data.repertoryquery.next;
epefbutton1.enabled:=true;
epefbutton2.enabled:=true;
epefbutton3.enabled:=true;
epefbutton4.enabled:=true;
if data.repertoryquery.eof then
begin
epefbutton3.enabled:=false;
epefbutton4.enabled:=false;
end;
end;

procedure TForm311.epEfButton4Click(Sender: TObject);
begin
 data.repertoryquery.last;
epefbutton1.enabled:=true;
epefbutton2.enabled:=true;
epefbutton3.enabled:=false;
epefbutton4.enabled:=false;
end;

procedure TForm311.epEfTrBtn4Click(Sender: TObject);
begin
epefbutton1.hide;
epefbutton2.hide;
epefbutton3.hide;
epefbutton4.hide;
epeftrbtn4.hide;
epeftrbtn5.hide;
epeftrbtn6.hide;
dbgrid1.Height:=180;
groupbox4.show;
end;

procedure TForm311.epEfTrBtn6Click(Sender: TObject);
begin
groupbox3.hide;
groupbox1.show;
end;

procedure TForm311.epEfTrBtn5Click(Sender: TObject);
begin

with data.repertoryquery do
begin
if recordcount=0 then
 begin
 showmessage('没有库存，请与仓库联系！');
 end
 else
 begin
flatedit7.text:=fieldbyname('number').asstring;
flatedit10.text:=fieldbyname('cartype').asstring;
flatedit8.text:=fieldbyname('chassis').asstring;
flatedit9.text:=fieldbyname('motor').asstring;
flatedit11.text:=fieldbyname('color').asstring;
flatedit12.text:=fieldbyname('spring').asstring;
flatedit13.text:=fieldbyname('cmemo').asstring;
datetimepicker2.date:=fieldbyname('cdate').value;
end;
end;
groupbox3.hide;
groupbox1.show;
end;

procedure TForm311.epEfTrBtn3Click(Sender: TObject);
begin
groupbox1.hide;
groupbox3.show;
with data.repertoryquery do
begin
close;
sql.clear;
sql.add('select * from repertory');
sql.add('where buysell=false');
prepare;
open;
end;
end;

end.