TLabel ;: TDBLookupComboBox ;: TDataSource ;: TADOQuery ;: TLabel ;: TDataSource ;: TDBLookupComboBox ;: TADOQuery ;: TDBImage ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TDBText ;: TDBText ;: TDBText ;: TDBText ;: TDBText ;: TDBImage ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TDBText ;: TDBText ;: TDBText ;: TDBText ;: TLabel ;: TLabel ;: TLabel ;: TComboBox ;: TLabel ;: TTimer ;: TLabel; DBLookupComboBox1Click (Sender: TObject); DBLookupComboBox2Click (Sender: TObject); DBLookupComboBox3Click (Sender: TObject); DBLookupComboBox4Click (Sender: TObject); ComboBox1DropDown (Sender: TObject); Timer1Timer (Sender: TObject); Button2Click (Sender: TObject); Button1Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm3; Unit1;
{$ R * .dfm} TForm3.DBLookupComboBox1Click (Sender: TObject) ;. Visible:=True; .Height:=170; .Width:=380; ((Panel2.Height lt; 70) and (Panel2.Top lt; 150)) then Panel2.Top:=Panel2.Top+110;.Close;.SQL.Clear;.SQL.Add(laquo;SELECT*FROM processors WHERE Socket=raquo;+#39+DBText2.Caption+#39laquo;;raquo;);.Open;.DataSet:=ADOQuery1;.Close;.SQL.Clear;.SQL.Add(laquo;SELECT*FROM vga WHERE Interface=raquo;+#39+DBText3.Caption+#39laquo;;raquo;);.Open;.DataSet:=ADOQuery2;.Close;.SQL.Clear;.SQL.Add(laquo;SELECT*FROM memory WHERE DDR_Type=raquo;+#39+DBText4.Caption+#39laquo;;raquo;);.Open;.DataSet:=ADOQuery3;;TForm3.DBLookupComboBox2Click(Sender: TObject) ;. Visible:=True; .Height:=170; .Width:=380 ;; TForm3.DBLookupComboBox3Click (Sender: TObject) ;. Visible:=True; .Height:=170; .Width:=380; ( (Panel4.Height lt; 70) and (Panel4.Top lt; 150)) then Panel4.Top:=Panel4.Top+110;;TForm3.DBLookupComboBox4Click(Sender: TObject) ;. Visible:=True; .Height:=170;.Width:=380 ;; TForm3.ComboBox1DropDown (Sender: TObject); i: integer; .Items.Clear; i:=1 to StrToInt (DBText5.Caption) doi * StrToInt (DBText20.Caption) lt;=StrToInt (DBText6.Caption) then.Items.Add (IntToStr (i)) ;;; TForm3.Timer1Timer (Sender: TObject); (DBLookupComboBox4.Text= ) then.Height:=60; .Visible:=False ;; (DBLookupComboBox4.Text lt; gt; ) then.Height:=170;.Visible:=True;.Caption:=IntToStr(StrToInt(ComboBox1.Text)*StrToInt(DBText20.Caption));(ComboBox1.Textlt;gt;laquo;1raquo;) then.Visible:=False;.Visible:=True;.Caption:=IntToStr(StrToInt(ComboBox1.Text)*StrToInt(DBText21.Caption));.Visible:=True;.Visible:=False;;;(DBLookupComboBox2.Text=laquo;raquo;) then.Height:=60; .Visible:=False ;; (DBLookupComboBox2.Text lt; gt; ) then.Height:=170; .Visible:=True ;; (DBLookupComboBox3.Text= ) then.Height:=60; .Visible:=False; .Top:=80 ;; (DBLookupComboBox3.Text lt; gt; ) then.Height:=170; .Visible:=True; .Top:=190 ;;; TForm3.Button2Click (Sender: TObject) ;. Close ;; TForm3.Button1Click (Sender: TObject);.TabSheet2.Show;.Button18.Click;.Button7.Click;.Edit2.Text:=DBText1.Caption;.Button9.Click;.Edit4.Text:=DBText8.Caption;.Button11.Click;.Edit6.Text:=DBText13.Caption;.Button13.Click;.Edit8.Text:=DBText18.Caption;.Edit9.Text:=ComboBox1.Text;.Close;;.
