ник. ADOQuery3. SQL. Clear ;. ADOQuery3. SQL. Add ( SELECT * FROM Замовники ORDER BY ПІБ ) ;. ADOQuery3. Open ;. Zak. ListField:= ПІБ raquo ;;. Zak. KeyField:= Код_заказчіка raquo ;;
//рознощик. ADOQuery4. SQL. Clear ;. ADOQuery4. SQL. Add ( SELECT * FROM Рознощики ORDER BY ПІБ ) ;. ADOQuery4. Open ;. Razn. ListField:= ПІБ raquo ;;. Razn. KeyField:= Код_разносчіка raquo ;;. ShowModal ;; TForm1. DBGrid1CellClick (Column: TColumn) ;: String ;:= SELECT Товари. Найменування, Деталізація. Кількість FROM Деталізація, Товари raquo ;;:=st + WHERE (Товари. Код_товара=Деталізація. Товар) AND (Деталізація. Журнал= + IntToStr (ADOQuery1. FieldValues ??[ Код_журнала ]) + ) raquo ;;. SQL. Clear ;. SQL. Add (st) ;. Open ;;. Unit2 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, DB, ADODB, StdCtrls, Grids, DBGrids;=class (TForm): TDBGrid ;: TButton ;: TButton ;: TButton ;: TButton ;: TDataSource ;: TADOQuery; Button4Click (Sender: TObject); FormCreate (Sender: TObject); Button2Click (Sender: TObject); Button1Click (Sender: TObject); Button3Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm2; Unit1, Unit3;
{$ R *. dfm} TForm2. Button4Click (Sender: TObject) ;. Close ;; TForm2. FormCreate (Sender: TObject) ;. SQL. Clear ;. SQL. Add ( SELECT * FROM Замовники ORDER BY ПІБ ) ;. Open ;. Columns [0]. Width:=0 ;; TForm2. Button2Click (Sender: TObject); Application doMessageBox ( Ви хочете видалити запис? Raquo ;, Видалення raquo ;, MB_OKCANCEL)=IDOK then. Delete ;;; TForm2. Button1Click (Sender: TObject) ;. Caption:= Додавання raquo ;;. ShowModal ;; TForm2. Button3Click (Sender: TObject) ;. Caption:= Редагування raquo ;;. Edit1. Text:=ADOQuery1. FieldValues ??[ ПІБ ] ;. Edit2. Text:=ADOQuery1. FieldValues ??[ Адреса ] ;. Edit3. Text:=ADOQuery1. FieldValues ??[ Телефон ] ;. ShowModal ;;. Unit3 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls;=class (TForm): TLabel ;: TEdit ;: TLabel ;: TEdit ;: TLabel ;: TEdit ;: TButton;:TButton; Button1Click (Sender: TObject); Button2Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm3; Unit2;
{$ R *. dfm} TForm3. Button1Click (Sender: TObject) ;. Text:= raquo ;;. Text:= raquo ;;. Text:= raquo ;;. Close ;; TForm3. Button2Click (Sender: TObject); Edit1. Text= then ( Введіть ПІБ! ) ;. SetFocus ;;; Edit2. Text= then ( Введіть Адреса! ) ;. SetFocus ;;; Edit3. Text= then ( Введіть телефон! ) ;. SetFocus ;;; Form3. Caption= Додавання then. ADOQuery1. Insert. ADOQuery1. Edit ;. ADOQuery1. FieldValues ??[ ПІБ ]:=Edit1. Text ;. ADOQuery1. FieldValues ??[ Адреса ]:=Edit2. Text ;. ADOQuery1. FieldValues ??[ Телефон ]:=Edit3. Text ;. ADOQuery1. UpdateRecord ;. ADOQuery1. Last ;. ADOQuery1. First; Click (Sender) ;;. Unit4 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, DB, ADODB, StdCtrls, Grids, DBGrids;=class (TForm): TDBGrid ;: TButton ;: TButton ;: TButton ;: TButton ;: TDataSource ;: TADOQuery; FormCreate (Sender: TObject); Button4Click (Sender: TObject); Button2Click (Sender: TObject); Button1Click (Sender: TObject); Button3Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm4; Unit1, Unit5;
{$ R *. dfm} TForm4. FormCreate (Sender: TObject) ;. SQL. Clear ;. SQL. Add ( SELECT * FROM Рознощики ORDER BY ПІБ ) ;. Open ;. Columns [0]. Width:=0 ;; TForm4. Button4Click (Sender: TObject) ;. Close ;; TForm4. Button2Click (Sender: TObject); Application doMessageBox ( Ви хочете видалити запис? Raquo ;, Видалення raquo ;, MB_OKCANCEL)=IDOK then. Delete ;;; TForm4. Button1Click (Sender: TObject) ;. Caption:= Додавання raquo ;;. ShowModal ;; TForm4. Button3Click (Sender: TObject) ;. Caption:= Редагування raquo ;;. Edit1. Text:=ADOQuery1. FieldValues ??[ ПІБ ] ;. Edit3. Text:=ADOQuery1. FieldValues ??[ Телефон ] ;. ShowModal ;;. Unit5 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls;=class (TForm): TLabel ;: TEdit ;: TLabel ;: TEdit ;: TButton ;: TButton; Button1Click (Sender:TObject); Button2Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm5; Unit4;
{$ R *. dfm} TForm5. Button1Click (Sender: TObject) ;. Text:= raquo ;;. Text:= raquo ;;. Close ;; TForm5. Button2Click (Sender: TObject); Edit1. Text= then ( Введіть ПІБ! ) ;. SetFocus ;;; Edit3. Text= then ( Введіть телефон! ) ;. SetFocus ;;; Form5. Caption= Додавання then. ADOQuery1. Insert. ADOQuery1. Edit ;. ADOQuery1. FieldValues ??[ ПІБ ]:=Edit1. Tex...
