Реферат Інформаційна система &Технічне обслуговування верстатів&

all TForm2 :: Button2Click (TObject * Sender)

{(RadioButton1- gt; Checked == 1)

{(Edit2- gt; Text.IsEmpty ());

TLocateOptions Options; .Clear (); lt; lt; loCaseInsensitive lt; lt; loPartialKey; (! DataSource1- gt; DataSet- gt; Locate (ComboBox1- gt; Text, Edit2- gt; Text, Options)) (Application- gt; Handle, За вашим запитом нічого не знайдено! raquo ;, Пошук raquo ;, MB_ICONINFORMATION);

} (RadioButton2- gt; Checked == 1)

{

if (Edit2- gt; Text.IsEmpty ());

TLocateOptions Options; .Clear (); lt; lt; loCaseInsensitive lt; lt; loPartialKey; (! DataSource1- gt; DataSet- gt; Locate (ComboBox3- gt; Text, Edit2- gt; Text, Options)) (Application- gt; Handle, За вашим запитом нічого не знайдено! raquo ;, Пошук raquo ;, MB_ICONINFORMATION);

} (RadioButton3- gt; Checked == 1)

{

if (Edit2- gt; Text.IsEmpty ());

TLocateOptions Options; .Clear (); lt; lt; loCaseInsensitive lt; lt; loPartialKey; (! DataSource1- gt; DataSet- gt; Locate (ComboBox2- gt; Text, Edit2- gt; Text, Options)) (Application- gt; Handle, За вашим запитом нічого не знайдено! raquo ;, Пошук raquo ;, MB_ICONINFORMATION);

} - gt; Text= raquo ;;

}

//---------------------------------------------------------------------------__fastcall TForm2 :: N3Click (TObject * Sender)

{a=ExtractFilePath(Application-gt;ExeName)+laquo;Spravkamraquo;;(Handle,Llaquo;openraquo;,a.c_str(),NULL,NULL,SW_NORMAL);

}