- gt; FieldByName ( Дата видачі ) - gt; AsString=Form3 - gt; Edit5 - gt; Text; - gt; ADOTable1 - gt; FieldByName ( Дата видачі ) - gt; AsString=Form3 - gt; Edit6 - gt; Text; (ComboBox1 - gt; ItemIndex)
{0: - gt; ADOTable1 - gt; FieldByName ( Марка автомобіля ) - gt; AsString= ВАЗ raquo ;; - gt; ADOTable1 - gt; FieldByName ( дата повернення ) - gt; AsString= 6-місяців raquo ;;; 1: - gt; ADOTable1 - gt; FieldByName ( Марка автомобіля ) - gt; AsString= БМВ raquo ;; - gt; ADOTable1 - gt; FieldByName ( дата повернення ) - gt; AsString= 4 місяців raquo ;;; 2: - gt; ADOTable1 - gt; FieldByName ( Марка автомобіля ) - gt; AsString= Мерседес raquo ;; - gt; ADOTable1 - gt; FieldByName ( дата повернення ) - gt; AsString= до 1 року raquo ;;; 3: - gt; ADOTable1 - gt; FieldByName ( Марка автомобіля ) - gt; AsString= Жигулі raquo ;; - gt; ADOTable1 - gt; FieldByName ( дата повернення ) - gt; AsString= до 7 місяців raquo ;;; 4: - gt; ADOTable1 - gt; FieldByName ( Марка автомобіля ) - gt; AsString= Газель raquo ;; - gt; ADOTable1 - gt; FieldByName ( дата повернення ) - gt; AsString= до 9 місяців raquo ;;; 5: - gt; ADOTable1 - gt; FieldByName ( Марка автомобіля ) - gt; AsString= Лада raquo ;; - gt; ADOTable1 - gt; FieldByName ( дата повернення ) - gt; AsString= до 10 місяців raquo ;;; 6: - gt; ADOTable1 - gt; FieldByName ( Марка автомобіля ) - gt; AsString= ЗАЗ raquo ;; - gt; ADOTable1 - gt; FieldByName ( дата повернення ) - gt; AsString= 5 років raquo ;;;
} - gt; ADOTable1 - gt; Post (); - gt; Close ();
} ( Заповніть всю необхідну інформацію! );
} __ fastcall TForm3 :: Edit5KeyPress (TObject * Sender, char amp; Key)
{((Key gt;= 0 amp; amp; Key lt;= 9 ) || (Key == laquo ;, ) || (Key == (char) 8)) {} Key=0;
}. cpp
# include lt; vcl.h gt;
# pragma hdrstop ( Unit1.cpp raquo ;, Form1); ( Unit2.cpp raquo ;, Form2); ( Unit3.cpp raquo ;, Form3); WinMain (HINSTANCE, HINSTANCE, LPSTR, int)
{
{ gt; Initialize (); gt; Title= Прокат автомобілів raquo ;; gt; CreateForm (__ classid (TForm1), amp; Form1); gt; CreateForm (__ classid (TForm2), amp; Form2); gt; CreateForm (__ classid (TForm3), amp; Form3);
Application- gt; Run ();
} (Exception amp; exception)
{ gt; ShowException ( amp; exception);
} (...)
{
{Exception ( );
} (Exception amp; exception)
{ gt; ShowException ( amp; exception);
}
} 0;
}
Лістинг програми в Microsoft Visual C#.System;System;System.Collections.Generic;System.Linq;System.Text;System.IO;ConsoleApplication1
{writer1
{string name; string fam; string othes; string adres; string tel; string marka; string pstoim; string sprokata; string dvidavhi; string dvozvr; string data; string diag; string stoim; string vrah ; string pac;
} Program
{void Main ()
{w=1; s3; (w == 1)
{[] kas=new writer1 [100]; s= raquo ;;//поіскаi=0;//счётчікn;//змінна для вибора.Title= Прокат Автомобілів raquo ;;.WriteLine ( Список дій ) ;. WriteLine ( 1-Додавання нового клиентаraquo;);.WriteLine(laquo;2-Поискraquo;);.WriteLine(laquo;3-Выходraquo;);
n=Convert.ToChar (Console.ReadLine ());
switch (n)
{ 1 :
{. Title= Новий клієнт raquo ;;. Clear (); fs=new StreamWriter ( 1.txt raquo ;, true);//відкриваємо файл для запісі.Write ( Прізвище: ) ;. WriteLine (Console.ReadLine ()) ;. Write ( Ім'я: ) ;. WriteLine (Console.ReadLine ()) ;. Write ( батькові: ) ;. WriteLine (Console.ReadLine ()) ;. Write ( Адреса: ) ;. WriteLine (Console.ReadLine ()) ;. Write ( Телефон: ) ;. WriteLine (Console.ReadLine ());.Write ( Марка автомобіля ) ;. WriteLine (Console.ReadLine ()) ;. Write ( Повна стоймость: ) ;. WriteLine (Console.ReadLine ()) ;. Write ( стоймости прокату:) ;. WriteLine (Console.ReadLine ()) ;. Write ( Дата видачі: ) ;. WriteLine (Console.ReadLine ()) ;. Write ( Дата повернення: raquo;);.WriteLine(Console.ReadLine());.WriteLine(laquo;____________________________raquo;);.Close();
} break; 2 raquo ;://пошук
{pn; .Clear () ;. Title= ПОШУК: raquo ;;. WriteLine ( 1-пошук по даті ) ;. WriteLine ( 2-пошук за прізвищем клієнта:) ;. WriteLine ( 3-пошук по марці авто...
