Реферат Автоматизована інформаційна система &Автосалон&

isible:=false;begin.DateTimePicker2.Visible:=true;.Label5.Visible:=true;.Label6.Visible:=true;.Label7.Visible:=true;.DBEdit4.Visible:=true;.DBEdit5.Visible:=true;;.ADOTable1kod_sotrudnika.Value:=StrToInt(dlKass.Edit1.Text);.Show;

«Фільтрація кредитов».ADOTable1.Filtered:=false;.ADOTable1.Filter:=laquo;kod_kredita=raquo;laquo;raquo;+Edit2.Text+laquo;raquo;laquo;raquo;;.ADOTable1.Filtered:=true;

«Пошук автомобілів» s1, s2: string;: TLocateOptions; ComboBox1.ItemIndex of

: begin s1:= kod_avt raquo ;;:=Edit1.Text;:=[loCaseInsensitive] ;;

: begin s1:= marka raquo ;;:=Edit1.Text;:=[loCaseInsensitive] ;;

: begin s1:= nazvan_avt raquo ;;:=Edit1.Text;:=[loCaseInsensitive] ;;

: begin s1:= god_vipuska raquo ;;:=Edit1.Text;:=[loCaseInsensitive] ;;

: begin s1:= strana_proizvod raquo ;;:=Edit1.Text;:=[loCaseInsensitive] ;;

: begin s1:= stoim_s_nadb raquo ;;:=Edit1.Text;:=[loCaseInsensitive] ;;

: begin s1:= kol_mest raquo ;;:=Edit1.Text;:=[loCaseInsensitive] ;;

: begin s1:= cvet_avt raquo ;;:=Edit1.Text;:=[loCaseInsensitive] ;;

: begin s1:= tip_kuzova raquo ;;:=Edit1.Text;:=[loCaseInsensitive] ;;

: begin s1:= tip_dvigat raquo ;;:=Edit1.Text;:=[loCaseInsensitive] ;;

: begin s1:= max_scor raquo ;;:=Edit1.Text;:=[loCaseInsensitive] ;;

: begin s1:= moshn_avt raquo ;;:=Edit1.Text;:=[loCaseInsensitive] ;;

: begin s1:= kol_dverei raquo ;;:=Edit1.Text;:=[loCaseInsensitive] ;;

: begin s1:= razgon raquo ;;:=Edit1.Text;:=[loCaseInsensitive] ;;

: begin s1:= obem_bagazhn raquo ;;:=Edit1.Text;:=[loCaseInsensitive] ;;

: begin s1:= obem_topl_baka raquo ;;:=Edit1.Text;:=[loCaseInsensitive] ;;

: begin s1:= tip_kor_pered raquo ;;:=Edit1.Text;:=[loCaseInsensitive] ;;

: begin s1:= tip_rul raquo ;;:=Edit1.Text;:=[loCaseInsensitive] ;;; (Skl.Edit1.Text= 0 ) then beginnot KladSkl.ADOTable1.Locate (s1, s2 , op) then

ShowMessage ( не знайдено );

endnot Sklad.ADOTable1.Locate (s1, s2, op) then

ShowMessage ( не знайдено ) ;;

«Дерево даних автомобілів»

var

i: integer;

CaptionStr: String;, NewNode2: TTreeNode;

j: integer;, c, h, m, k, d1, d2, d3, d4, d5: integer;

b:string;:real;:Tcolor;.Active:=false;.Active:=true;.Active:=false;.Active:=true;.Active:=false;.Active:=true;.Items.Clear;:=laquo;raquo;;.First;i:=1 to ADOQuery2.RecordCount do begin:=TreeView1.Items.Add (Nil, ADOQuery2marka.AsString);:=ADOQuery2marka.AsString; .First; j:=1 to ADOQuery1.RecordCount do begin ((CaptionStr)=(ADOQuery1marka.AsString) ) then:=TreeView1.Items.AddChild (NewNode, ADOQuery1nazvan_avt.AsString) ;;. Next ;;. Next ;;:=0;:=225;:=2;:=5;

{d3:=280;:=265;}:=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 begin

h:=m; r=2 then h:=h + 5;:=cvet [h] ;. Color:=cv1;

RoundRect (24 * m - 24,24 * r - 24,24 * m, 24 * r, 24,24) ;. Color:=clWhite ;;