ext5.Caption:= ????? ?? ?????? !!! raquo ;;.Caption:= Laquo; raquo ;;. Visible:=False; .Visible:=False; .Visible:=False ;;
//////////////////////////////////////////////////////////////
/// 4 ?????
if ((Edit8.Text gt; 1000 ) and (Edit8.Text lt; 5000 )) then.Close; .SQL.Clear; ((Edit8.Text gt; 1000 raquo ;) and (Edit8.Text lt; 2000 )) then.SQL.ADD ( SELECT * FROM processors WHERE ID_proc= + # 39 + Edit8.Text + # 39 ); ((Edit8.Text gt ; 2000 ) and (Edit8.Text lt; 3 000 )) then.SQL.ADD ( SELECT * FROM vga WHERE ID_VGA= + # 39 + Edit8.Text + # 39 ); ( (Edit8.Text gt; 3 000 ) and (Edit8.Text lt; +4000 )) then.SQL.ADD ( SELECT * FROM motherboards WHERE ID_MB= + # 39 + Edit8.Text + # 39 raquo ;); ((Edit8.Text gt; 4000 ) and (Edit8.Text lt; +5000 )) then.SQL.ADD ( SELECT * FROM memory WHERE ID_DDR =raquo;+#39+Edit8.Text+#39laquo;raquo;);.Open;.DataSet.Close;.DataSet:=ADOQuery5;.DataSource:=DataSource8;.DataField:=laquo;Nameraquo;;.DataSource.DataSet.Active:=true;.DataSource:=DataSource8;.DataField:=laquo;Price_rubraquo;;.DataSource.DataSet.Active:=true;DBText7.Caption=laquo;raquo; then
DBText7.Caption:= ????? ?? ?????? !!! raquo ;; .Caption:=laquo;raquo;;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=True;.Visible:=True;;
DBText7.Caption:= ????? ?? ?????? !!! raquo ;;.Caption:= Laquo; raquo ;;. Visible:=False; .Visible:=False; .Visible:=False ;;
////////////////////////////////////////////////////////////////((DBText2.Captionlt;gt;laquo;raquo;) and (Edit3.Text lt; gt; )) then:=Sum + StrToInt (DBText2.Caption) * StrToInt (Edit3.Text); ((DBText4.Caption lt; gt; ) and (Edit3. Text lt; gt; )) then:=Sum + StrToInt (DBText4.Caption) * StrToInt (Edit5.Text); ((DBText6.Caption lt; gt; ) and (Edit3.Text lt; gt; )) then:=Sum + StrToInt (DBText6.Caption) * StrToInt (Edit7.Text); ((DBText8.Caption lt; gt; ) and (Edit3.Text lt; gt; )) then:=Sum+StrToInt(DBText8.Caption)*StrToInt(Edit9.Text);.Caption:=IntToStr(Sum);;TForm1.Button17Click(Sender: TObject) ;. Close; .SQL.Clear; .SQL.Add ( INSERT INTO sales (Item_ID, Item_Name, Number, Seller, Data_Time_sale, Price) VALUES ); (DBText2.Caption lt; gt; ) then.SQL.Add(laquo;(raquo;+#39+Edit2.Text+#39laquo;,raquo;+#39+DBText1.Caption+#39laquo;,raquo;+#39+Edit3.Text+#39laquo;,raquo;+#39+ComboBox1.Text+#39laquo;,NOW(),raquo;+#39+IntToStr(StrToInt(DBText2.Caption)*StrToInt(Edit3.Text))+#39laquo;)raquo;);(DBText4.Captionlt;gt;laquo;raquo;) then ADOQuery6.SQL.Add(laquo;,(raquo;+#39+Edit4.Text+#39laquo;,raquo;+#39+DBText3.Caption+#39laquo;,raquo;+#39+Edit5.Text+#39laquo;,raquo;+#39+ComboBox1.Text+#39laquo;,NOW(),raquo;+#39+IntToStr(StrToInt(DBText4.Caption)*StrToInt(Edit5.Text))+#39laquo;)raquo;);(DBText6.Captionlt;gt;laquo;raquo;) then.SQL.Add(laquo;,(raquo;+#39+Edit6.Text+#39laquo;,raquo;+#39+DBText5.Caption+#39laquo;,raquo;+#39+Edit7.Text+#39laquo;,raquo;+#39+ComboBox1.Text+#39laquo;,NOW(),raquo;+#39+IntToStr(StrToInt(DBText6.Caption)*StrToInt(Edit7.Text))+#39laquo;)raquo;);(DBText8.Captionlt;gt;laquo;raquo;) then.SQL.Add(laquo;,(raquo;+#39+Edit8.Text+#39laquo;,raquo;+#39+DBText7.Caption+#39laquo;,raquo;+#39+Edit9.Text+#39laquo;,raquo;+#39+ComboBox1.Text+#39laquo;,NOW(),raquo;+#39+IntToStr(StrToInt(DBText8.Caption)*StrToInt(Edit9.Text))+#39laquo;)raquo;);.SQL.Add(laquo;;raquo;);.ExecSQL;.Click;.Click;;TForm1.Button18Click(Sender: TObject); Panel1.Width gt; 25 then Button8.Click; Panel2.Width gt; 25 then Button10.Click; Panel3.Width gt; 25 then Button12.Click; Panel4.Width gt; 25 then Button14.Click;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;;TForm1.Button16Click(Sender: TObject); date1, date2: string; .DataSet:=ADOTable5; .DataSource:=DataSource9;:=FormatDateTime ( yyyy-mm-dd 00-00-00 , DateTimePicker1.DateTime);:=FormatDateTime ( yyyy-mm-dd 23-59-59 , DateTimePicker2.DateTime) ;. Close; .SQL.Clear; .SQL.Add ( SELECT * FROM sales WHERE ((Data_Time_sale gt;= + # 39 + date1 + # 39 ) and (Data_Time_sale lt;=raquo;+#39+date2+#39laquo;));raquo;);.Open;.DataSet.Close;.DataSet:=ADOQuery7;.DataSource:=DataSource9;;
Додаток 2
Лістинг Unit3Unit3 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, ExtCtrls, DBCtrls, DB, ADODB;=class (TForm): TPanel ;: TPanel ;: TPanel ;: TPanel ;: TButton ;: TButton ;: TLabel ;: TADOConnection ;: TDataSource ;: TADOTable ;: TDBLookupComboBox ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TDBText ;: TDBText ;: TDBText ;: TDBText ;: TDBText ;: TDBText ;: TDBText ;: TLabel ;: TLabel ;: TDBImage ;: TLabel ;: TDBLookupComboBox ;: TDBImage ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TDBText ;: TDBText;:TDBText ;: TDBText ;: TDBText ;: TADOQuery ;: TDataSource ;: TLabel ;: TLabel ;:...
