даток В
«Зняття каси»
Додаток Г
«Діаграма продажів автомобілів»
Додаток Д
«Обсяг продажів»
Додаток Е
«Оформлення кредиту»
Додаток Ж
«Товарний чек»
Додаток З
«Прибуток автосалону»
Додаток І
«Лістинг вихідних кодів»
«Авторизація» ComboBox1.ItemIndex of
: if Edit1.Text= 1 then dlSekr.showModal else showmessage ( неправильне введення );
: if Edit1.Text= 2 then ParKlad.ShowModal else showmessage ( неправильне введення );
: if Edit1.Text= 3 then ParSotr.showModal else showmessage ( неправильне введення );
: if Edit1.Text= 4 then dlMened.showModal else showmessage ( неправильне введення );
: if Edit1.Text= 5 thendlKlien.Position:=poDesigned; .showModal; endshowmessage ( неправильне введення );
: if Edit1.Text= 6 then dlDirek.showModal else showmessage ( неправильне введення ); showmessage ( неправильне введення ) ;;
«Розрахунок суми поставки».ADOTable1itogo.Value:=nakl.ADOTable1obsh_stoim_avt.Value+(nakl.ADOTable1obsh_stoim_avt.Value*nakl.ADOTable1proc_za_postavku.Value);
«Розрахунок суми автомобилей».ADOTable1stoim_v_rub.Value:=dlNakl.ADOTable1stoim_avt.Value*dlNakl.ADOTable1tar.Value;
«Розрахунок суми продажу»:=0; (Prodazh.ADOTable1kod_karti.Value lt; gt; 0) then:=0.03; (Prodazh.ADOTable1SumKred.Value lt; gt; 0) then:=Prodazh.ADOTable1SumKred.Value;;.ADOTable1sum_NDS.Value:=Prodazh.ADOTable1proc_NDS.Value*Prodazh.ADOTable1sum.Value;.ADOTable1summa_prodazh.Value:=(Prodazh.ADOTable1SObor.Value+Prodazh.ADOTable1sum.Value+Prodazh.ADOTable1summa_za_oforml.Value+Prodazh.ADOTable1summa_dostav.Value+Prodazh.ADOTable1sum_NDS.Value)-((Prodazh.ADOTable1SObor.Value+Prodazh.ADOTable1sum.Value+Prodazh.ADOTable1summa_za_oforml.Value+Prodazh.ADOTable1summa_dostav.Value+Prodazh.ADOTable1sum_NDS.Value)*k);.ADOTable1stoim_oplat.Value:=(Prodazh.ADOTable1SObor.Value+(Prodazh.ADOTable1sum.Value-Prodazh.ADOTable1SumVKred.Value)+Prodazh.ADOTable1summa_za_oforml.Value+Prodazh.ADOTable1summa_dostav.Value+Prodazh.ADOTable1sum_NDS.Value)-((Prodazh.ADOTable1SObor.Value+(Prodazh.ADOTable1sum.Value-Prodazh.ADOTable1SumVKred.Value)+Prodazh.ADOTable1summa_za_oforml.Value+Prodazh.ADOTable1summa_dostav.Value+Prodazh.ADOTable1sum_NDS.Value)*k);.ADOTable1sdacha.Value:=Prodazh.ADOTable1nalichn.Value-Prodazh.ADOTable1stoim_oplat.Value;
«Розрахунок суми виплати по кредиту»
Present:=Now; (ViplPoKred.ADOTable1data_oform.Value, Year, Month, Day); (Present, Year1, Month1, Day1);:=(Year1-(Year+(trunc((Month+ViplPoKred.ADOTable1kol_vipl.Value)/12))));:=(Month1+(k2*12))-(((Month+1+ViplPoKred.ADOTable1kol_vipl.Value)-(trunc((Month+1+ViplPoKred.ADOTable1kol_vipl.Value)/12)*12)));:=(Day1+(k3*30))-Day;(k4gt;0) then.ADOTable1obsh_summa.Value:=ViplPoKred.ADOTable1summa_oplati.Value+((ViplPoKred.ADOTable1summa_oplati.Value*ViplPoKred.ADOTable1Pen.Value*k4)).ADOTable1obsh_summa.Value:=ViplPoKred.ADOTable1summa_oplati.Value;
«Промальовування демонстраційного залу»
var r, c, j, m, k, d1, d2, d3, d4, d5, i: integer;
b: string;: real;:=0;:=225;:=15;:=15;:=250;:=0;:=2; Image1 do Canvas.FillRect (Rect (0,0, Width, Height)); Image1.Canvas do//Знову малюємо порожній зал
beginr:=1 to d1 do:=0; m:=1 to d2 do:=c + 2; r mod 2=0 then begin (25 + 15 * c, 10 + 15 * r, 38 + 15 * c, 23 + 15 * r, 8,8); begin:=j + 1;:=IntToStr (j); j lt;=105 then (25 + 15 * c, 10 + 15 * r, b) ;; ;;; Image1.Canvas do//Зафарбовуємо синім передання места.First; i:=1 to ADOTable1.RecordCount do begin:=ADOTable1.FieldByName ( mesto_v_manezhe ). AsInteger; (r mod 15) lt; gt; 0 then:=(((trunc (r/15)) + 1) * 2) m:=((trunc (r/15)) * 2); m=4 then:=(r + 1) - 16m=6 then:=(r + 1) - 31m=8 then:=(r + 1) - 46m=10 then:=(r + 1) - 61m=12 then:=(r + 1) - 76m=14 then: =(r + 1) - 91; r lt; gt; 0 then begin
r:=r + r; .Color:=clBlue;
RoundRect (25 + 15 * r, 10 + 15 * m, 38 + 15 * r, 23 + 15 * m, 8,8) ;. Color:=clWhite ;;
{end;}. Next ;;;. First; .Color:=clWhite;
«Оформлення продажи».DateTimePicker2.DateTime:=now;.ADOTable1.Insert;(dlProdaz.DBCheckBox1.Checked=false) then begin.DateTimePicker2.Visible:=false;.Label5.Visible:=false;.Label6.Visible:=false;.Label7.Visible:=false;.DBEdit4.Visible:=false;.DBEdit5.V...
