оді виконання курсового проекту була розглянута предметна область фірми по обслуговуванню клієнтів.
Були визначені сутності й атрибути бази даних, розроблені UML-діаграми системи. Розроблено фізичну база даних і клієнтську програму.
Результатом роботи стала програма Service. exe, що дозволяє вести довідники замовників, рознощиків, товарів, формувати замовлення і зберігати дані про замовлення.
Список використаної літератури
1. Аппак М.А. Автоматизовані робочі місця на основі персональних ЕОМ.- М .: Радіо і зв'язок, 2009. - 176 с.
2. Гольдштейн С. Л, Ткаченко Т.Я. Введення в системологія і системотехніки/С.Л. Гольдштейн.- ІРРО. Єкатеринбург, 2010. - 198 с.
. Глушаков С.В., Ломотько Д.В. Бази даних: Навчальний курс.- М .: Видавництво АСТ, 2008. - 504 с.
. Дюк В.А. Обробка даних на ПК в прикладах.- СПб: Пітер. 1997;
. Марк Д.А. Методологія структурного аналізу і проектування SADT.- М: Метатехнологія, 2009. - 242 с.
. Сеннов А.С. Access +2003 Практична розробка баз даних, Пітер, 2005;
. Симонович, Євсєєв Занимательное програмування: Delphi. М .: АСТ-ПРЕСС, 2001;
. Шуремов Е.Л. Комп'ютерний облік торгових операцій: Практичний посібник /.- М .: КомпьютерПресс, 2000;
Програми
unit Unit1 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, XPMan, Menus, StdCtrls, DB, ADODB, Grids, DBGrids;=class (TForm): TXPManifest ;: TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TADOConnection ;: TGroupBox ;: TGroupBox ;: TButton ;: TDBGrid ;: TDBGrid ;: TADOQuery ;: TDataSource ;: TADOQuery ;: TDataSource ;: TADOQuery; N2Click (Sender: TObject); FormCreate (Sender: TObject); N3Click (Sender: TObject); N4Click (Sender: TObject); N5Click (Sender: TObject); Button1Click (Sender: TObject); DBGrid1CellClick (Column: TColumn);
{Private declarations}
{Public declarations} ;: TForm1; Unit2, Unit4, Unit6, Unit8;
{$ R *. dfm} TForm1. N2Click (Sender: TObject) ;. Close ;; TForm1. FormCreate (Sender: TObject) ;, st: string ;. Cursor:=crSQLWait ;:= raquo ;;:=sdr + Provider=Microsoft. Jet. OLEDB.4.0; raquo ;;:=sdr + Password= raquo ;; raquo ;;:=sdr + User ID=Admin; raquo ;;:=sdr + Data Source= + ExtractFileDir (Application. ExeName) + bd. mdb; raquo ;;:=sdr + Mode=ReadWrite; Extended Properties= raquo ;; raquo ;;:=sdr + Jet OLEDB: System database= raquo ;; raquo ;;:=sdr + Jet OLEDB: Registry Path= raquo ;; raquo ;;:=sdr + Jet OLEDB: Database Password= raquo ;; raquo ;;:=sdr + Jet OLEDB: Engine Type=5; raquo ;;:=sdr + Jet OLEDB: Database Locking Mode=1; raquo ;;:=sdr + Jet OLEDB: Global Partial Bulk Ops=2; raquo ;;:=sdr + Jet OLEDB: Global Bulk Transactions=1; raquo ;;:=sdr + Jet OLEDB: New Database Password= raquo ;; raquo ;;:=sdr + Jet OLEDB: Create System Database=False; raquo ;;:=sdr + Jet OLEDB: Encrypt Database=False; raquo ;;:=sdr + Jet OLEDB: Compact Without Replica Repair=False; raquo ;;:=sdr + Jet OLEDB: SFP=False raquo ;;. ConnectionString:=sdr ;. Connected:=true ;. SQL. Clear ;:= SELECT Журнал. Код_журнала, Замовники. ПІБ, Рознощики. ПІБ, Журнал. Сума, Журнал. Дата raquo ;;:=st + FROM Журнал, Замовники, Рознощики WHERE (Журнал. Замовник=Замовники. Код_заказчіка) AND raquo ;;:=st + (Журнал. Рознощик=Рознощики. Код_разносчіка) ORDER BY Журнал. Дата raquo ;;. SQL. Add (st) ;. Open ;. Columns [0]. Width:=0 ;:= SELECT Товари. Найменування, Деталізація. Кількість FROM Деталізація, Товари raquo ;;:=st + WHERE (Товари. Код_товара=Деталізація. Товар) AND (Деталізація. Журнал= + IntToStr (ADOQuery1. FieldValues ??[ Код_журнала ]) + ) raquo ;;. SQL. Clear ;. SQL. Add (st) ;. Open; ( Помилка ) ;;. Cursor:=crdefault ;; TForm1. N3Click (Sender: TObject) ;. ShowModal ;; TForm1. N4Click (Sender: TObject) ;. ShowModal ;; TForm1. N5Click (Sender: TObject) ;. ShowModal ;; TForm1. Button1Click (Sender: TObject) ;: String ;. Caption:= Додавання raquo ;;. SQL. Clear ;. SQL. Add ( SELECT MAX (Код_журнала) AS num FROM Журнал ) ;. Open ;. Label5. Caption:=IntToStr (ADOQuery3. FieldValues ??[ num ] +1) ;. ADOQuery2. SQL. Clear ;:= SELECT Деталізація. Код_деталізаціі, Деталізація. Журнал, Товари. Найменування, raquo ;;:=st + Деталізація. Кількість FROM Деталізація, Товари WHERE raquo ;;:=st + (Журнал= + Form8. Label5. Caption + ) AND (Деталізація. Товар=Товари. Код_товара) raquo ;;. ADOQuery2. SQL. Add (st) ;. ADOQuery2. Open ;. DBGrid1. Columns [0]. Width:=0;
//замов...
