та форматів даних бази. Реалізація системи на рівні інтерфейсаРазработка методів і алгоритмів та їх реалізація для абітуріентов1.04.2012-30.05.2012Опісаніе методів і алгоритмів. Програмні модулі, що реалізують методиТестірованіе програмного продукту і складанням програмної документаціі1.05.2012-1.06.2012Тести. Документація. Програмний продукт
Додаток Е
Оригінальний текст завдання АЗ-01
Програмний код для Головної форми
unit Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, unit3, unit4, unit5, unit6, unit7, unit8, unit9, unit10,, jpeg, unit11, unit12, unit13, unit14; = class (TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem; : TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TImage; N19Click (Sender: TObject); N20Click (Sender: TObject); N21Click (Sender: TObject); N22Click (Sender: TObject); N23Click (Sender: TObject); N24Click (Sender: TObject); N25Click (Sender: TObject); N26Click (Sender: TObject); N27Click (Sender: TObject); N28Click (Sender: TObject); N29Click (Sender: TObject); N15Click (Sender: TObject); N18Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm1; Unit2;
{$ R *. dfm} TForm1.N25Click (Sender: TObject);
begin.Show;// Показати форму "Продажі". Visible: = false;// Приховати Головну форму
end; TForm1.N27Click (Sender: TObject);. Show;. Visible: = false;; TForm1.N28Click (Sender: TObject);. Show;. Visible: = false;; TForm1. N29Click (Sender: TObject);. ADOQuery4.Parameters [0]. Value: = InputBox ("Введення параметра ',' Введіть дату ','');// Вікно введення параметра для запиту
DataModule2.ADOQuery4.Active: = true;. Show;// Показати запит "Перелік проданих деталей у визначений день". Visible: = false;// Приховати Головну форму
end; TForm1.N15Click (Sender: TObject);
begin;// Закриття Головною форми;
procedure TForm1.N18Click (Sender: TObject);. Show;. Visible: = false;; TForm1.N19Click (Sender: TObject);. Show;. Visible: = false;; TForm1.N20Click (Sender: TObject);. Show;. Visible: = false;; TForm1.N21Click (Sender: TObject);. Show;. Visible: = false;; TForm1.N22Click (Sender: TObject);. Show;. Visible: = false;; TForm1.N23Click (Sender: TObject);. Show;. Visible: = false;; TForm1.N24Click (Sender: TObject);. Show;. Visible: = false;; TForm1.N26Click (Sender: TObject) ;. ADOQuery1.Parameters [0]. Value: = InputBox ("Введення параметра ',' Введіть назву деталі ','');. ADOQuery1.Active: = true;. Show;. Visible: = false;;.
Програмний код для Форми №...
