Реферат Проектування бази даних &Каталог запчастин автомобіля&

gn="justify">//Edit1.Text:=laquo;raquo;;.KeyValue:=null;.SQL.Clear;.SQL.Clear;1.SQL.Add(laquo;SELECT фірма, страна_фірми, деталь, марка, вузол, Агрегат );

ADOQuery1.SQL.Add ( FROM фірма, країна, деталь, марка, вузол, Агрегат where деталь.марка_=марка.код and );

ADOQuery1.SQL.Add ( деталь.узел_=узел.код and Фірма.код=деталь.код_фірми and );

ADOQuery1.SQL.Add ( деталь.агрегат_=агрегат.код and Фірма.код=страна.код and марка.код= + inttostr (DBLookupComboBox1.KeyValue) + );

ADOQuery1.Active:=True;

;

TForm1.DBLookupComboBox2Click (Sender: TObject) ;. visible:=true; .visible:=false;

. KeyValue:=null;

. SQL.Clear; .SQL.Clear; .SQL.Add ( SELECT фірма, страна_фірми, деталь, марка, вузол, Агрегат ) ;. SQL.Add ( FROM фірма , країна, деталь, марка, вузол, Агрегат where деталь.марка_=марка.код and ) ;. SQL.Add ( деталь.узел_=узел.код and Фірма.код=деталь.код_фірми and ) ;. SQL.Add ( деталь.агрегат_=агрегат.код and Фірма.код=страна.код and узел.код= + inttostr (DBLookupComboBox2.KeyValue) + ) ;. Active:=True ;;

TForm1.N3Click (Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=true;.Visible:=false;.Visible:=false;.Visible:=false;;

TForm1.N1Click (Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=true;.Visible:=false;.Visible:=false;;

TForm1.N4Click (Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=true;.Visible:=false;;

TForm1.Button4Click (Sender: TObject);

(Trim (Edit2.Text)= ) or

(DBLookupComboBox3.Text= ) ( Заповніть поля ) ;;;

.Insert;.FieldByName(laquo;фирмаraquo;).AsString:=Edit2.Text;.FieldByName(laquo;странафирмыraquo;).AsInteger:=StrToInt(inttostr(DBLookupComboBox3.KeyValue));.ExecSQL;.Refresh;;(laquo;фирма додана ) ;. Text:= raquo ;;. KeyValue:=null ;;

TForm1.Button5Click (Sender: TObject);

(Trim (Edit3.Text)= ) or

(DBLookupComboBox4.Text= ) or

(DBLookupComboBox5.Text= ) or

(DBLookupComboBox7.Text= ) or

(DBLookupComboBox6.Text= )

( Заповніть поля ) ;;;

.Insert;.FieldByName(laquo;детальraquo;).AsString:=Edit3.Text;.FieldByName(laquo;марка_raquo;).AsInteger:=StrToInt(inttostr(DBLookupComboBox4.KeyValue));.FieldByName(laquo;узел_raquo;).AsInteger:=StrToInt(inttostr(DBLookupComboBox5.KeyValue));.FieldByName(laquo;агрегат_raquo;).AsInteger:=StrToInt(inttostr(DBLookupComboBox6.KeyValue));.FieldByName(laquo;код_фирмыraquo;).AsInteger:=StrToInt(inttostr(DBLookupComboBox7.KeyValue));.ExecSQL;.Refresh;;(laquo;деталь добавленаraquo;);.Text:=laquo;raquo;;.KeyValue:=null;.KeyValue:=null;.KeyValue:=null;;

TForm1.N5Click (Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=true;.Visible:=false;.Visible:=false;;

TForm1.N8Click (Sender: TObject) ;;;

TForm1.Button6Click (Sender: TObject); (Trim (Edit4.Text)= )

( Заповніть поле ) ;;;

.Insert;.FieldByName(laquo;страна_фирмыraquo;).AsString:=Edit4.Text;.ExecSQL;;.MessageBox(PChar(laquo;страна додана ), raquo ;, MB_OK) ;.Clear;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=true;.Visible:=false;.Visible:=false;;TForm1.Button7Click(Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=true;.Visible:=false;.Visible:=false;;TForm1.N6Click(Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=true;.Visible:=false;.Visible:=false;;

TForm1.Button8Click (Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=true;.Visible:=false;.Visible:=false;;

TForm1.Button9Click (Sender: TObject);

(Trim (Edit5.Text)= )

( Заповніть полеraquo;);;;.Insert;.FieldByName(laquo;агрегатraquo;).AsString:=Edit5.Text;.ExecSQL;;.MessageBox(PChar(laquo;агрегат доданий ), raquo ;, MB_OK) ;.Clear;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=true;.Visible:=false;.Visible:=false;;

TForm1.N7Click (Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=true;;TForm1.Button10Click(Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=true;;

TForm1.Button11Click (Sender: TObject); (Trim (Edit6.Text)= )

( Заповніть поле ) ;;;

<...