Реферат Розробка інформаційної системи для фірми по обслуговуванню клієнтів

t ;. ADOQuery1. FieldValues ??[ Телефон ]:=Edit3. Text ;. ADOQuery1. UpdateRecord ;. ADOQuery1. Last ;. ADOQuery1. First; Click (Sender) ;;. Unit6 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, DB, ADODB, StdCtrls, Grids, DBGrids;=class (TForm): TDBGrid ;: TButton ;: TButton ;: TButton ;: TButton ;: TDataSource ;: TADOQuery; Button4Click (Sender: TObject); Button2Click (Sender: TObject); FormCreate (Sender: TObject); Button1Click (Sender: TObject); Button3Click (Sender: TObject);

{Private declarations}

{Public declarations} ;: TForm6; Unit1, Unit7;

{$ R *. dfm} TForm6. Button4Click (Sender: TObject) ;. Close ;; TForm6. Button2Click (Sender: TObject); Application doMessageBox ( Ви хочете видалити запис? Raquo ;, Видалення raquo ;, MB_OKCANCEL)=IDOK then. Delete ;;; TForm6. FormCreate (Sender: TObject) ;. SQL. Clear ;. SQL. Add ( SELECT * FROM Товари ORDER BY Найменування ) ;. Open ;. Columns [0]. Width:=0 ;; TForm6. Button1Click (Sender: TObject) ;. Caption:= Додавання raquo ;;. ShowModal ;; TForm6. Button3Click (Sender: TObject) ;. Caption:= Редагування raquo ;;. Edit1. Text:=ADOQuery1. FieldValues ??[ Найменування ] ;. Edit2. Text:=ADOQuery1. FieldValues ??[ Група ] ;. Edit3. Text:=ADOQuery1. FieldValues ??[ Ціна ] ;. ShowModal ;;. Unit7 ;, 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} ;: TForm7; Unit6;

{$ R *. dfm} TForm7. Button1Click (Sender: TObject) ;. Text:= raquo ;;. Text:= raquo ;;. Text:= raquo ;;. Close ;; TForm7. Button2Click (Sender: TObject); Edit1. Text= then ( Введіть Найменування! ) ;. SetFocus ;;; Edit2. Text= then ( Введіть Групу! ) ;. SetFocus ;;; Edit3. Text= then ( Введіть Ціну! ) ;. SetFocus ;;; Form7. 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) ;;. Unit8 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, ComCtrls;=class (TForm): TGroupBox ;: TGroupBox ;: TLabel ;: TDBLookupComboBox ;: TLabel ;: TDBLookupComboBox ;: TLabel ;: TLabel ;: TButton ;: TButton ;: TDBGrid ;: TDBGrid ;: TADOQuery ;: TDataSource ;: TADOQuery ;: TDataSource ;: TADOQuery ;: TDataSource;:TADOQuery ;: TDataSource ;: TADOQuery ;: TDataSource ;: TLabel ;: TLabel ;: TDateTimePicker ;: TLabel; FormCreate (Sender: TObject); Button1Click (Sender: TObject); Button2Click (Sender: TObject); DBGrid2DblClick (Sender: TObject );

{Private declarations}

{Public declarations} ;: TForm8; Unit1, Unit9;

{$ R *. dfm} TForm8. FormCreate (Sender: TObject) ;. SQL. Clear ;. SQL. Add ( SELECT * FROM Товари ORDER BY Найменування ) ;. Open ;. Columns [0]. Width:=0 ;; TForm8. Button1Click (Sender: TObject) ;. KeyValue:=0 ;. KeyValue:=0 ;. Close ;; TForm8. Button2Click (Sender: TObject) ;: String ;. SQL. Clear ;. SQL. Add ( SELECT * FROM Журнал ) ;. Open ;. Insert ;. FieldValues ??[ Замовник ]:=Zak. KeyValue ;. FieldValues ??[ Рознощик ]:=Razn. KeyValue ;. FieldValues ??[ Сума ]:=StrToInt (Label4. Caption) ;. FieldValues ??[ Дата ]:=DateToStr (Dat. Date) ;. UpdateRecord ;. Last ;. First ;:= SELECT Журнал. Код_журнала, Замовники. ПІБ, Рознощики. ПІБ, Журнал. Сума, Журнал. Дата raquo ;;:=st + FROM Журнал, Замовники, Рознощики WHERE (Журнал. Замовник=Замовники. Код_заказчіка) AND raquo ;;:=st + (Журнал. Рознощик=Рознощики. Код_разносчіка) ORDER BY Журнал. Дата raquo ;;. ADOQuery1. SQL. Clear ;. ADOQuery1. SQL. Add (st) ;. ADOQuery1. Open ;. DBGrid1. Columns [0]. Width:=0 ;:= SELECT Товари. Найменування, Деталізація. Кількість FROM Деталізація, Товари raquo ;;:=st + WHERE (Товари. Код_товара=Деталізація. Товар) AND (Деталізація. Журнал= + IntToStr (Form1. ADOQuery1. FieldValues ??[ Код_журнала ]) + ) raquo ;;. ADOQuery2. SQL. Clear ;. ADOQuery2. SQL. Add (st) ;. ADOQuery2. Open; Click (Sender) ;; TForm8. DBGrid2DblClick (Sender: TObject) ;. ShowModal ;;. Unit9 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, ComCtrls;=class (TForm): TEdit ;: TUpDown ;: TButton ;: TButton; Button1Click (Sender: TObject); Button2Click (Sender: TObject);

{Private declarations}

{Public declarations} ;: TForm9; Unit8;