Error.ShowModal ;; ((code gt; 2000) and (code lt; 3000)) then.Show; TabSheet3.TabVisible:=False; TabSheet5.TabVisible:=False; TabSheet6.TabVisible:=False; .SQL.ADD ( laquo ; SELECT * FROM vga WHERE ID_VGA =raquo;+#39+IntToStr(code)+#39laquo;raquo;);.Open;.DataSet.Close;.DataSet:=ADOQuery1;(DBEdit10.Text=laquo;raquo;) then Error.ShowModal ;; ((code gt; 3000) and (code lt; 4000)) then.Show; TabSheet3.TabVisible:=False; TabSheet4.TabVisible:=False; TabSheet6.TabVisible:=False; .SQL.ADD ( laquo ; SELECT * FROM motherboards WHERE ID_MB =raquo;+#39+IntToStr(code)+#39laquo;raquo;);.Open;.DataSet.Close;.DataSet:=ADOQuery1;(DBEdit19.Text=laquo;raquo;) then Error.ShowModal ;; ((code gt; 4000) and (code lt; 5000)) then.Show; TabSheet3.TabVisible:=False; TabSheet4.TabVisible:=False; TabSheet5.TabVisible:=False; .SQL.ADD ( laquo ; SELECT * FROM memory WHERE ID_DDR =raquo;+#39+IntToStr(code)+#39laquo;raquo;);.Open;.DataSet.Close;.DataSet:=ADOQuery1;(DBEdit28.Text=laquo;raquo;) then Error.ShowModal ;; Error.ShowModal ;; TForm1.Timer1Timer (Sender: TObject); Sum: integer;:=0; .Caption:=DateToStr (Now) ;. Caption:=TimeToStr (Time);
///////////////////////////////////////////////////////////////////
///// 1 ????? ((Edit2.Text gt; 1000 ) and (Edit2.Text lt; 5000 )) then.Close; .SQL.Clear; ((Edit2.Text gt; 1000 ) and (Edit2.Text lt; laquo ; 2000 )) then.SQL.ADD ( SELECT * FROM processors WHERE ID_proc= + # 39 + Edit2.Text + # 39 ); ((Edit2.Text gt; 2000 ) and (Edit2.Text lt; 3000 )) then.SQL.ADD ( SELECT * FROM vga WHERE ID_VGA= + # 39 + Edit2.Text + # 39 ); ((Edit2.Text gt; 3000 ) and (Edit2.Text lt; 4000 )) then.SQL.ADD ( SELECT * FROM motherboards WHERE ID_MB= + # 39 + Edit2.Text + # 39 ); ((Edit2.Text gt; 4000 ) and (Edit2.Text lt; 5000 )) then.SQL.ADD ( SELECT * FROM memory WHERE ID_DDR =raquo;+#39+Edit2.Text+#39laquo;raquo;);.Open;.DataSet.Close;.DataSet:=ADOQuery2;.DataSource:=DataSource5;.DataField:=laquo;Nameraquo;;.DataSource.DataSet.Active:=true;.DataSource:=DataSource5;.DataField:=laquo;Price_rubraquo;;.DataSource.DataSet.Active:=true;DBText1.Caption=laquo;raquo; then
DBText1.Caption:= ????? ?? ?????? !!! raquo ;; .Caption:=laquo;raquo;;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=True;.Visible:=True;;
DBText1.Caption:= ????? ?? ?????? !!! raquo ;;.Caption:= Laquo; raquo ;;. Visible:=False; .Visible:=False; .Visible:=False ;;
/////////////////////////////////////////////////////////////////////////////((Edit4.Textgt;laquo;1000raquo;) and (Edit4.Text lt; +5000 )) then.Close; .SQL.Clear; ((Edit4.Text gt; 1 000 ) and (Edit4.Text lt; 2000 )) then.SQL.ADD ( SELECT * FROM processors WHERE ID_proc= + # 39 + Edit4.Text + # 39 ); ((Edit4.Text gt; 2000 ) and (Edit4.Text lt; 3 000 )) then. SQL.ADD ( SELECT * FROM vga WHERE ID_VGA= + # 39 + Edit4.Text + # 39 ); ((Edit4.Text gt; 3000 ) and (Edit4.Text lt; +4000 )) then.SQL.ADD ( SELECT * FROM motherboards WHERE ID_MB= + # 39 + Edit4.Text + # 39 ); ((Edit4.Text gt; 4000 ) and (Edit4.Text lt; +5000 )) then.SQL.ADD ( SELECT * FROM memory WHERE ID_DDR =raquo;+#39+Edit4.Text+#39laquo;raquo;);.Open;.DataSet.Close;.DataSet:=ADOQuery3;.DataSource:=DataSource6;.DataField:=laquo;Nameraquo;;.DataSource.DataSet.Active:=true;.DataSource:=DataSource6;.DataField:=laquo;Price_rubraquo;;.DataSource.DataSet.Active:=true;DBText3.Caption=laquo;raquo; then.Caption:=.Caption:=laquo;raquo;;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=True;.Visible:=True;;.Caption:=.Caption:=laquo;raquo;;.Visible:=False;.Visible:=False;.Visible:=False;;
///////////////////////////////////////////////////////////////((Edit6.Textgt;laquo;1000raquo;) and (Edit6.Text lt; +5000 )) then.Close; .SQL.Clear; ((Edit6.Text gt; 1 000 ) and (Edit6.Text lt; 2000 )) then.SQL.ADD ( SELECT * FROM processors WHERE ID_proc= + # 39 + Edit6.Text + # 39 ); ((Edit6.Text gt; 2000 ) and (Edit6.Text lt; 3 000 )) then. SQL.ADD ( SELECT * FROM vga WHERE ID_VGA= + # 39 + Edit6.Text + # 39 ); ((Edit6.Text gt; 3000 ) and (Edit6.Text lt; +4000 )) then.SQL.ADD ( SELECT * FROM motherboards WHERE ID_MB= + # 39 + Edit6.Text + # 39 ); ((Edit6.Text gt; 4000 ) and (Edit6.Text lt; +5000 )) then.SQL.ADD ( SELECT * FROM memory WHERE ID_DDR =raquo;+#39+Edit6.Text+#39laquo;raquo;);.Open;.DataSet.Close;.DataSet:=ADOQuery4;.DataSource:=DataSource7;.DataField:=laquo;Nameraquo;;.DataSource.DataSet.Active:=true;.DataSource:=DataSource7;.DataField:=laquo;Price_rubraquo;;.DataSource.DataSet.Active:=true;DBText5.Caption=laquo;raquo; then
DBText5.Caption:= ????? ?? ?????? !!! raquo ;; .Caption:=laquo;raquo;;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=True;.Visible:=True;;
DBT...
