> 1. Бобровський С. І. Delphi 7. Навчальний курс.- СПб .: Питер, 2006.
2. Фаронов В. В. Delphi 5. Керівництво програміста.- М .: «Нолидж», 2001.
. Гофман В. Е., Хомоненко А. Д. Delphi 6. - СПб .: БХВ-Петербург, 2001.
. Цвєтков В.Д. Системно-структурний моделювання та автоматизація проектування - М .: «Нолидж», 2001р.
. Шкриль А. А. Delphi. Народні поради.- СПб .: БХВ-Петербург, 2007.
. Шпак Ю. А. Розробка додатків в Delphi 2005/2006.- К .: «МК-Пресс», 2006.
Додаток 1
Лістинг програми «Облік»
unit Unit1;
interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, ExtCtrls, Menus, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10, jpeg, StdCtrls ;=class (TForm): TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TImage ;: TLabel ;: TMenuItem ;: TImage ;: TImage ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem; N2Click (Sender: TObject); N3Click (Sender: TObject); N4Click (Sender: TObject); N10Click (Sender: TObject); N11Click (Sender: TObject); N6Click (Sender: TObject); N12Click (Sender: TObject); N8Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm1;
{$ R * .dfm}
//відкриття форми «Асортимент»
procedure TForm1.N2Click (Sender: TObject);
form2.Show;
end;
//відкриття форми «Характеристика товару»
procedure TForm1.N3Click (Sender: TObject);
form3.Show;
end;
//відкриття форми «Система знижок»
procedure TForm1.N4Click (Sender: TObject);
form4.show;
end;
//відкриття форми «Клієнт-замовлення»
procedure TForm1.N10Click (Sender: TObject);
form5.Show;
end;
//відкриття форми «Список клієнтів»
procedure TForm1.N11Click (Sender: TObject);
form6.Show;
end;
//відкриття форми «Подати замовлення»
procedure TForm1.N6Click (Sender: TObject);
form7.Show;
end;
//відкриття форми «Кількість товару»
procedure TForm1.N12Click (Sender: TObject);
form8.Show;
end;
//Закриваємо основну форму
procedure TForm1.N14Click (Sender: TObject);
form1.Close;
end;
//Відкриваємо форму «Про програму»
procedure TForm1.N9Click (Sender: TObject);
begin.Show ;;
//Відкриття форми «Інформація»
procedure TForm1.N15Click (Sender: TObject) ;. Show ;;.
//Процедура для пошуку товараTForm2.DBRadioGroup1Click (Sender: TObject) ;: Variant ;: string;
{Зв'язуємося з табличкою 1} Table1 doDBRadioGroup1.ItemIndex of
{Якщо натиснули ItemIndex=0, то відбувається пошук через Locate}
: beginnot Table1.Locate ( Kod_Tovar , Edit1.Text, [loCaseInsensitive, loPartialKey]) then
ShowMessage ( Запис не знайдено ) ;;
{Якщо натиснули ItemIndex=1, то відбувається пошук через Lookup}
1: begin:=Table1.Lookup ( Kod_Tovar , Edit1.Text, Kod_Tovar; Name_Tovar ); VarIsNull (Res) then (, не знайдено ):=string ( Res [0]) + + String (Res [1]); (s) ;;;;;; TForm2.FormCreate (Sender: TObject) ;. Open ;;.
//Розрахунок процентовTForm4.Table1CalcFields (DataSet: TDataSet); Itog.AsFloat:=(table1.fields [1] .AsFloat * (100-Table1.fields [2] .AsFloat))/100 ;
end;
//Подача запиту за датою товару
procedure TForm5.Button1Click (Sender: TObject);
{виробляємо висновок товару за даті замовлення і коду клієнта}
Query1.SQL.Clear; .SQL.Add ( SELECT A.Kod_Tovar, A.Name_Tovar, A.Price, Z.Amount_Custom ) ;. SQL.Add ( From assortiment as A, zakaz as Z ) ;. SQL.Add ( WHERE (A.Kod_Tovar=Z.Kod_Tovar) and Z.Code_Client= + Table2.Fields [0] .AsString + and Z.Date_Custom= laquo ...
