unit312.pas

大家看看就明白了

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 TForm312.epEfTrBtn8Click(Sender: TObject);
begin
  groupbox4.Hide;
   dbgrid1.Height:=241;
   epefbutton1.show;
epefbutton2.show;
epefbutton3.show;
epefbutton4.show;
epeftrbtn4.show;
epeftrbtn5.show;
epeftrbtn6.show;
end;

procedure TForm312.epEfTrBtn2Click(Sender: TObject);
var i1,i2,i3,i,k:integer;
    b1,b2:boolean;
begin
i1:=2;
i2:=2;
i3:=length(flatedit3.text);
 for i:=1 to i3 do
 begin
 if not((flatedit3.text[i]>='0') and (flatedit3.text[i]<='9')) then
 k:=1;
 end;
if flatedit1.text='' then
   begin
   showmessage('合同号不能为空，请输入');
   end
else
   if flatedit2.text='' then
       begin
       showmessage('客户名称不能为空，请输入');
       end
   else
      if flatedit3.text='' then
         begin
         showmessage('身份证号不能为空，请输入');
         end
      else
         if flatedit4.text='' then
            begin
            showmessage('地址不能为空，请输入');
            end
         else
           if flatedit5.text='' then
              begin
              showmessage('车牌号不能为空，请输入');
              end
            else
              if flatedit6.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
                     if flatedit7.text='' then
                      begin
                      showmessage('请选择车辆信息');
                       end
                      else
                   begin
                    with data.saletable  do
                      begin
                      first;
                      while not eof do
                      begin
                       if (fieldbyname('comno').asstring=flatedit1.text) and (not (flatedit1.text=a1)) then
                       i1:=1;
                       if (fieldbyname('carno').asstring=flatedit5.text) and (not(flatedit5.text=a2)) then
                       i2:=1;
                       next;
                      end;
                      end;
                      if i1=1 then
                        begin
                        showmessage('已经有这个合同号，请重新输入');
                        end
                      else
                        if i2=1 then
                         begin
                         showmessage('已经有这个车牌号，重新输入');
                         end
                         else
                             if messagedlg('是否进行修改？',mtconfirmation,[mbyes,mbno],0)=mryes then
                           begin
                           try
                            data.database.startTransaction;

                              with data.saletable do
                             begin
                             first;
                             while not eof do
                             begin
                             if fieldbyname('comno').asstring=a1 then
                             begin
                             b1:=fieldbyname('salesell').value;
                             b2:=fieldbyname('sell').value;
                             delete;
                             end
                             else
                             begin
                             next;
                             end;
                             end;
                             end;



                             with data.repsatable do
                             begin
                             first;
                             while not eof do
                             begin
                             if fieldbyname('comno').asstring=a1 then
                             begin
                             delete;
                             end
                             else
                             begin
                             next;
                             end;
                             end;
                             end;








                             with data.repertorytable do
                             begin
                             first;
                             while not eof do
                             begin
                             if fieldbyname('number').asstring=a3 then
                             begin
                             edit;
                             fieldbyname('buysell').value:=false;
                             post;
                            end;
                             next;
                             end;
                             end;


                             with data.saletable do
                            begin
                            insert;
                            fieldbyname('comno').asstring:=flatedit1.text;
                            fieldbyname('cname').asstring:=flatedit2.text;
                            fieldbyname('tel').asstring:=flatedit6.text;
                            fieldbyname('nameno').asstring:=flatedit3.text;
                            fieldbyname('address').asstring:=flatedit4.text;
                            fieldbyname('saledate').value:=datetimepicker1.date;
                            fieldbyname('carno').asstring:=flatedit5.text;
                            fieldbyname('salesell').value:=b1;
                            if b1 then
                            begin
                            fieldbyname('sell').value:=true;
                            end
                            else
                            begin
                             fieldbyname('sell').value:=false;
                            end;
                            post;
                            end;
                            with data.repsatable do
                            begin
                            insert;
                            fieldbyname('comno').asstring:=flatedit1.text;
                            fieldbyname('number').asstring:=flatedit7.text;
                            post;
                            end;

                            with data.repertorytable do
                            begin
                            first;
                            while not eof do
                            begin
                            if fieldbyname('number').asstring=flatedit7.text then
                            begin
                            edit;
                            fieldbyname('buysell').value:=true;
                            post;

                            end;
                            next;
                            end;
                            end;

                            if b1 then
                            begin
                            with data.profittable do
                            begin
                            first;
                            while not eof do
                            begin
                            if fieldbyname('comno').asstring=a1 then
                            begin
                            edit;
                            fieldbyname('comno').asstring:=flatedit1.text;
                            post;
                            end;
                            end;
                            end;
                            end;

                           data.database.commit;

                           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');
                             prepare;
                            open;
                            end;
                            showmessage('修改保存完成');
                            form31.Enabled:=true;


                            if data.salequery.RecordCount=0 then
                             begin
                           form31.epeftrbtn2.enabled:=false;
                           form31.epeftrbtn3.enabled:=false;
                            form31.epeftrbtn5.enabled:=false;
                          end
                        else
                          begin
                         form31.epeftrbtn2.enabled:=true;
                         form31.epeftrbtn3.enabled:=true;
                         form31.epeftrbtn5.enabled:=true;
                         end;
                            form312.release;
                            finally

                           end;

                         end;
                   end;
end;


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

end.