unit33.~pas

本系统是SQL SERVER的管理系统

groupbox1.show;
epefbutton1.show ;
epefbutton2.show;
epefbutton3.show;
epefbutton4.show;
epefbutton5.show;
epeftrbtn1.show;
epeftrbtn2.show;
epeftrbtn3.show;
end;
end;
if flatcombobox1.text='其它费用段' then
begin
r1:=snccurrencyedit4.value;
r2:=snccurrencyedit5.value;
if r1>r2 then
begin
showmessage('输入其它费用金额一大于金额二');
end
else
begin
       with data.comquery do
begin
close;
sql.clear;
sql.add('select sale.*,repertory.*,profit.*  from sale,repertory,repsa,profit');
sql.add('where sale.comno=repsa.comno and repsa.number=repertory.number and sale.comno=profit.comno and  otherpr between :ar1 and :br2');
parambyname('ar1').value:=r1;
parambyname('br2').value:=r2;
prepare;
open;
end;
groupbox2.hide;
groupbox1.show;
epefbutton1.show ;
epefbutton2.show;
epefbutton3.show;
epefbutton4.show;
epefbutton5.show;
epeftrbtn1.show;
epeftrbtn2.show;
epeftrbtn3.show;
end;
end;
if flatcombobox1.text='汇款金额段' then
begin
r1:=snccurrencyedit4.value;
r2:=snccurrencyedit5.value;
if r1>r2 then
begin
showmessage('输入汇款金额一大于金额二');
end
else
begin
       with data.comquery do
begin
close;
sql.clear;
sql.add('select sale.*,repertory.*,profit.*  from sale,repertory,repsa,profit');
sql.add('where sale.comno=repsa.comno and repsa.number=repertory.number and sale.comno=profit.comno and passmon between :ar1 and :br2');
parambyname('ar1').value:=r1;
parambyname('br2').value:=r2;
prepare;
open;
end;
groupbox2.hide;
groupbox1.show;
epefbutton1.show ;
epefbutton2.show;
epefbutton3.show;
epefbutton4.show;
epefbutton5.show;
epeftrbtn1.show;
epeftrbtn2.show;
epeftrbtn3.show;
end;
end;
if flatcombobox1.text='销售利润段' then
begin
r1:=snccurrencyedit4.value;
r2:=snccurrencyedit5.value;
if r1>r2 then
begin
showmessage('输入销售利润金额一大于金额二');
end
else
begin
       with data.comquery do
begin
close;
sql.clear;
sql.add('select sale.*,repertory.*,profit.*  from sale,repertory,repsa,profit');
sql.add('where sale.comno=repsa.comno and repsa.number=repertory.number and sale.comno=profit.comno and salemon between :ar1 and :br2');
parambyname('ar1').value:=r1;
parambyname('br2').value:=r2;
prepare;
open;
end;
groupbox2.hide;
groupbox1.show;
epefbutton1.show ;
epefbutton2.show;
epefbutton3.show;
epefbutton4.show;
epefbutton5.show;
epeftrbtn1.show;
epeftrbtn2.show;
epeftrbtn3.show;
end;
end;
 i:=0;
f1:=0;
f2:=0;
f3:=0;
flatedit1.text:='';
snccurrencyedit1.Value:=0;
snccurrencyedit2.Value:=0;
snccurrencyedit3.value:=0;
with data.comquery do
begin
first;
while not eof do
begin
i:=i+1;
f1:=f1+fieldbyname('salepr').value;
f2:=f2+fieldbyname('otherpr').value;
f3:=f3+fieldbyname('salemon').value;
next;
end;
end;
 flatedit1.text:=IntToStr(i);
 snccurrencyedit1.value:=f1;
 snccurrencyedit2.value:=f2;
 snccurrencyedit3.value:=f3;
 end;
end;

procedure TForm33.FlatComboBox1Change(Sender: TObject);
begin
 if flatcombobox1.text='车型' then
begin
flatcombobox2.text:='';
flatedit2.text:='';
snccurrencyedit4.value:=0;
snccurrencyedit5.value:=0;
flatcombobox2.show;
flatedit2.hide;
datetimepicker1.hide;
datetimepicker2.hide;
snccurrencyedit4.hide;
snccurrencyedit5.hide;
 label8.hide;
end;
if flatcombobox1.text='颜色' then
begin
 flatcombobox2.text:='';
flatedit2.text:='';
snccurrencyedit4.value:=0;
snccurrencyedit5.value:=0;
flatcombobox2.show;
flatedit2.hide;
datetimepicker1.hide;
datetimepicker2.hide;
snccurrencyedit4.hide;
snccurrencyedit5.hide;
label8.hide;
end;
if flatcombobox1.text='底盘号' then
begin
flatcombobox2.text:='';
flatedit2.text:='';
snccurrencyedit4.value:=0;
snccurrencyedit5.value:=0;

flatcombobox2.hide;
flatedit2.show;
datetimepicker1.hide;
datetimepicker2.hide;
snccurrencyedit4.hide;
snccurrencyedit5.hide;
label8.hide;
flatedit2.MaxLength:=20;
end;
if flatcombobox1.text='车牌号' then
begin
flatcombobox2.text:='';
flatedit2.text:='';
snccurrencyedit4.value:=0;
snccurrencyedit5.value:=0;
flatcombobox2.hide;
flatedit2.show;
datetimepicker1.hide;
datetimepicker2.hide;
snccurrencyedit4.hide;
snccurrencyedit5.hide;
label8.hide;
flatedit2.MaxLength:=20;
end;
if flatcombobox1.text='发动机号' then
begin
 flatcombobox2.text:='';
flatedit2.text:='';
snccurrencyedit4.value:=0;
snccurrencyedit5.value:=0;
 flatcombobox2.hide;
flatedit2.show;
datetimepicker1.hide;
datetimepicker2.hide;
snccurrencyedit4.hide;
snccurrencyedit5.hide;
label8.hide;
flatedit2.MaxLength:=20;
end;
if flatcombobox1.text='车辆来源' then
begin
 flatcombobox2.text:='';
flatedit2.text:='';
snccurrencyedit4.value:=0;
snccurrencyedit5.value:=0;
flatcombobox2.show;
flatedit2.hide;
datetimepicker1.hide;
datetimepicker2.hide;
snccurrencyedit4.hide;
snccurrencyedit5.hide;
label8.hide;
flatedit2.MaxLength:=100;
end;
if flatcombobox1.text='车主姓名' then
begin
 flatcombobox2.text:='';
flatedit2.text:='';
snccurrencyedit4.value:=0;
snccurrencyedit5.value:=0;
 flatcombobox2.hide;
flatedit2.show;
datetimepicker1.hide;
datetimepicker2.hide;
snccurrencyedit4.hide;
snccurrencyedit5.hide;
 label8.hide;
 flatedit2.MaxLength:=50;
end;
if flatcombobox1.text='联系电话' then
begin
flatcombobox2.text:='';
flatedit2.text:='';
snccurrencyedit4.value:=0;
snccurrencyedit5.value:=0;
flatcombobox2.hide;
flatedit2.show;
datetimepicker1.hide;
datetimepicker2.hide;
snccurrencyedit4.hide;
snccurrencyedit5.hide;
label8.hide;
flatedit2.MaxLength:=20;
end;
if flatcombobox1.text='车辆序列号' then
begin
  flatcombobox2.text:='';
flatedit2.text:='';
snccurrencyedit4.value:=0;
snccurrencyedit5.value:=0;
 flatcombobox2.hide;
flatedit2.show;
datetimepicker1.hide;
datetimepicker2.hide;
snccurrencyedit4.hide;
snccurrencyedit5.hide;
label8.hide;
flatedit2.MaxLength:=12;
end;
if flatcombobox1.text='合同序列号' then
begin
 flatcombobox2.text:='';
flatedit2.text:='';
snccurrencyedit4.value:=0;
snccurrencyedit5.value:=0;
flatcombobox2.hide;
flatedit2.show;
datetimepicker1.hide;
datetimepicker2.hide;
snccurrencyedit4.hide;
snccurrencyedit5.hide;
 label8.hide;
 flatedit2.MaxLength:=12;
end;
if flatcombobox1.text='到车日期段' then
begin
 flatcombobox2.text:='';
flatedit2.text:='';
snccurrencyedit4.value:=0;
snccurrencyedit5.value:=0;
flatcombobox2.hide;
flatedit2.hide;
datetimepicker1.show;
datetimepicker2.show;
snccurrencyedit4.hide;
snccurrencyedit5.hide;
label8.show;
end;
if flatcombobox1.text='销售时间段' then
begin
 flatcombobox2.text:='';
flatedit2.text:='';
snccurrencyedit4.value:=0;
snccurrencyedit5.value:=0;
flatcombobox2.hide;
flatedit2.hide;
datetimepicker1.show;
datetimepicker2.show;
snccurrencyedit4.hide;
snccurrencyedit5.hide;
label8.show;
end;
if flatcombobox1.text='车主身份证号' then
begin
 flatcombobox2.text:='';
flatedit2.text:='';
snccurrencyedit4.value:=0;
snccurrencyedit5.value:=0;
 flatcombobox2.hide;
flatedit2.show;
datetimepicker1.hide;
datetimepicker2.hide;
snccurrencyedit4.hide;
snccurrencyedit5.hide;
 label8.hide;
 flatedit2.MaxLength:=18;
end;
if flatcombobox1.text='销售总价格段' then
begin
flatcombobox2.text:='';
flatedit2.text:='';
snccurrencyedit4.value:=0;
snccurrencyedit5.value:=0;
 flatcombobox2.hide;
flatedit2.hide;
datetimepicker1.hide;
datetimepicker2.hide;
snccurrencyedit4.show;
snccurrencyedit5.show;
label8.show;
end;
if flatcombobox1.text='入户费用段' then
begin
flatcombobox2.text:='';
flatedit2.text:='';
snccurrencyedit4.value:=0;
snccurrencyedit5.value:=0;
 flatcombobox2.hide;
flatedit2.hide;
datetimepicker1.hide;
datetimepicker2.hide;
snccurrencyedit4.show;
snccurrencyedit5.show;
label8.show;
end;
if flatcombobox1.text='车辆装修费用段' then
begin
flatcombobox2.text:='';
flatedit2.text:='';
snccurrencyedit4.value:=0;
snccurrencyedit5.value:=0;
 flatcombobox2.hide;
flatedit2.hide;
datetimepicker1.hide;
datetimepicker2.hide;
snccurrencyedit4.show;
snccurrencyedit5.show;
label8.show;
end;
if flatcombobox1.text='其它费用段' then
begin
flatcombobox2.text:='';
flatedit2.text:='';
snccurrencyedit4.value:=0;
snccurrencyedit5.value:=0;
 flatcombobox2.hide;
flatedit2.hide;
datetimepicker1.hide;
datetimepicker2.hide;
snccurrencyedit4.show;
snccurrencyedit5.show;
label8.show;
end;
if flatcombobox1.text='汇款金额段' then
begin
 flatcombobox2.text:='';
flatedit2.text:='';
snccurrencyedit4.value:=0;
snccurrencyedit5.value:=0;
 flatcombobox2.hide;
flatedit2.hide;
datetimepicker1.hide;
datetimepicker2.hide;
snccurrencyedit4.show;
snccurrencyedit5.show;
label8.show;
end;
if flatcombobox1.text='销售利润段' then
begin
flatcombobox2.text:='';
flatedit2.text:='';
snccurrencyedit4.value:=0;
snccurrencyedit5.value:=0;
 flatcombobox2.hide;
flatedit2.hide;
datetimepicker1.hide;
datetimepicker2.hide;
snccurrencyedit4.show;
snccurrencyedit5.show;
label8.show;
end;
end;

procedure TForm33.epEfTrBtn2Click(Sender: TObject);
begin
form331.quickrep1.preview;
end;

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

end.