В первом разделе курсовой работы описывается цели и задачи данной курсовой работы. Определяются объект и методы исследования для разработки программного средства. Обозначается гипотеза и актуальность разрабатываемого программного средства.

Во втором разделе курсовой работы описывается постановка задачи данной курсовой работы. Предъявляются требования к составу и параметрам технических средств. Происходит анализ входящей и исходящей информации. Описывается обоснование выбора ПО и СУБД для разработки и хранения данных. Определяются механизм исполнения для создания данного программного средства.

Положительной характеристикой данного программного средства является его относительно не большие требования к составу и параметрам технических средств.

Отрицательной характеристикой данного программного средства является отсутствие возможности работы как сетевое приложение.

Литература

1. Минаев, Д.В. Delphi - что это, [Электронный ресурс]. Режим доступа: http://delphi. uz/illyustrirovannyi-samouchitel/vvedenie.html.

2. Вихляев, Н.М. Borland Delphi, [Электронный ресурс]. Режим доступа: http://www.helloworld.ru/texts/comp/lang/delphi/delphi1/les00. htm.

3. Лишер, Р.Р. Delphi. Справочник, Р.Р. Лишер. - Пер. с англ. - СПб.: Символ-Плюс, 2006. - 458 с.

4. Фарафонов, В.Л. Программирование баз данных в Delphi. Учебный курс, В.Л. Фарафонов. - СПб.: Питер, 2004. - 325 с.

5. Свердлов, С.В. СУБД MS Access, [Электронный ресурс]. Режим доступа: http://www.accessoft.ru/Text/Text10.html.

6. Рузайкин, Г.Д. MS Access 2003, [Электронный ресурс]. Режим доступа: http://lessons-tva. info/subscribe_access.html.

7. Архавеян, Р.Б. Эффективная работа с СУБД, Р.Б. Архавеян. - СПб.: Питер, 2003. - 276 с.

8. Коннолли. Т.Л. Базы данных: проектирование, реализация и сопровождение, Т.Л. Коннолли. - Теория и практика, 2-е изд. - М.: Издательский дом "Вильямс", 2001. - 405 с.

9. Рябко, Б.Я. Трехуровневая архитектура СУБД, [Электронный ресурс]. Режим доступа: http://www-sbras. nsc.ru/win/docs/db/rdbms/1-3.html.

10. Агафонов, В.В. Диаграммы потоков данных, [Электронный ресурс]. Режим доступа: http://www.citforum.ru/programming/oop_rsis/glava2_ 6_1. shtml.

Приложения

Приложение А

Код программы

Данная процедура связывает форму с БД, позволяет открывать формы, закрывать, изменять и др.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, XPMan, StdCtrls;

type

TForm1 = class (TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

XPManifest1: TXPManifest;

procedure Button3Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5;

{$R *. dfm}

procedure TForm1. Button3Click (Sender: TObject);

begin

close;

end;

procedure TForm1. Button1Click (Sender: TObject);

begin

form3. Show;

end;

procedure TForm1. Button2Click (Sender: TObject);

begin

form4. Show;

end;

procedure TForm1. Button4Click (Sender: TObject);

begin

form5. Show;

end;

end.

// Раздел Implementation представляет собой реализацию модуля. Все

// подключае мые в нем модули, объявленные типы, классы, константы,

// переменные, функции и процедуры доступны только в пределах данного

// модуля. Основное тело модуля составляют коды, реализующие объявленные // функции и процедуры.

unit Unit2;

interface

uses

SysUtils, Classes, DB, ADODB;

type

TDataModule2 = class (TDataModule)

DataSource1: TDataSource;

ADOTable1: TADOTable;

ADOConnection1: TADOConnection;

DataSource2: TDataSource;

ADOTable2: TADOTable;

DataSource3: TDataSource;

ADOTable3: TADOTable;

ADOTable5: TADOTable;

ADOTable6: TADOTable;

ADOTable7: TADOTable;

DataSource5: TDataSource;

DataSource6: TDataSource;

DataSource7: TDataSource;

DataSource8: TDataSource;

ADOTable8: TADOTable;

DataSource9: TDataSource;

ADOTable9: TADOTable;

DataSource10: TDataSource;

ADOTable10: TADOTable;

ADOTable1id: TAutoIncField;

ADOTable1id2: TWideStringField;

ADOTable1DSDesigner: TIntegerField;

ADOTable1DSDesigner2: TWideStringField;

ADOTable1DSDesigner3: TWideStringField;

ADOTable1Field: TStringField;

ADOTable3id: TAutoIncField;

ADOTable3DSDesigner: TWideStringField;

ADOTable3DSDesigner2: TWideStringField;

ADOTable3DSDesigner3: TWideStringField;

ADOTable3DSDesigner4: TWideStringField;

ADOTable3DSDesigner5: TWideStringField;

ADOTable2id: TAutoIncField;

ADOTable2id2: TWideStringField;

ADOTable2id3: TWideStringField;

ADOTable2StringField: TStringField;

ADOTable2Field: TStringField;

ADOTable1Field2: TStringField;

ADOTable1StringField: TStringField;

DataSource11: TDataSource;

ADOTable11: TADOTable;

ADOTable4: TADOTable;

DataSource4: TDataSource;

DataSource12: TDataSource;

ADOTable12: TADOTable;

ADOTable12id: TAutoIncField;

ADOTable12id2: TWideStringField;

ADOTable12id3: TWideStringField;

ADOTable12Field: TStringField;

ADOTable12Field2: TStringField;

ADOTable8id: TAutoIncField;

ADOTable8DSDesigner: TWideStringField;

ADOTable8DSDesigner2: TWideStringField;

ADOTable8DSDesigner3: TIntegerField;

ADOTable7id: TAutoIncField;

ADOTable7DSDesigner: TWideStringField;

ADOTable7DSDesigner2: TWideStringField;

ADOTable7DSDesigner3: TWideStringField;

ADOTable7DSDesigner4: TWideStringField;

ADOTable7DSDesigner5: TWideStringField;

ADOTable8idsotrr: TIntegerField;

ADOTable8Field: TStringField;

private

{ Private declarations }

public

{ Public declarations }

end;

var

DataModule2: TDataModule2;

implementation

uses Unit1, Unit3;

{$R *. dfm}

end.

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids, DBGrids, XPMan;

type

TForm3 = class (TForm)

XPManifest1: TXPManifest;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

DBGrid5: TDBGrid;

DBGrid6: TDBGrid;

procedure Button5Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

procedure Button6Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit1, Unit2, Unit6, Unit7, Unit5, Unit4;

{$R *. dfm}

procedure TForm3. Button5Click (Sender: TObject);

begin

form1. close;

end;

procedure TForm3. Button1Click (Sender: TObject);

begin

form3. Visible: =False;

end;

procedure TForm3. Button3Click (Sender: TObject);

begin

DataModule2. ADOTable1. Insert;

form7. show;

end;

procedure TForm3. Button4Click (Sender: TObject);

begin

form7. show;

form7. Button1. Caption: ='Cохранить';

form7. Caption: ='Редактировать заказ'

end;

procedure TForm3. Button6Click (Sender: TObject);

begin

form5. show;

end;

procedure TForm3. Button2Click (Sender: TObject);

begin

form4. Show;

end;

end.

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids, DBGrids, XPMan;

type

TForm4 = class (TForm)

DBGrid1: TDBGrid;

Button1: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

DBGrid3: TDBGrid;

DBGrid4: TDBGrid;

DBGrid2: TDBGrid;

XPManifest1: TXPManifest;

procedure Button3Click (Sender: TObject);

procedure Button5Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit1, Unit2, Unit3, Unit5, Unit6;

{$R *. dfm}

procedure TForm4. Button3Click (Sender: TObject);

begin

DataModule2. ADOTable3. Insert;

DataModule2. ADOTable4. Insert;

form6. show;

end;

procedure TForm4. Button5Click (Sender: TObject);

begin

form1. Close;

end;

procedure TForm4. Button1Click (Sender: TObject);

begin

form4. Visible: =false;

end;

procedure TForm4. Button4Click (Sender: TObject);

begin

form6. show;

form6. Button1. Caption: ='Cохранить';

form6. Caption: ='Редактировать заказчика'

end;

end.

// В данной процедуре используются такие компоненты как TDBGrid, TButton,

// TDataSource, TPopupMenu:

// Компонент TDBGrid отображает в табличной форме записи набора данных и // управляет ими: осуществляет перемещение по записям, их редактирование, // удаление, вставку новых записей. Занесение в набор данных сделанных

// исправлений текущей записи происходит при перемещении пользователя на // следующую запись.

// Компонент TPopupMenu определяет всплывающее контекстное меню,

// появляющееся на экране при щелчке пользователя правой кнопкой мыши в поле // компонента, который связан с данным меню своим свойством PopupMenu.

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, StdCtrls, XPMan;

type

TForm5 = class (TForm)

DBGrid1: TDBGrid;

DBGrid3: TDBGrid;

DBGrid4: TDBGrid;

DBGrid6: TDBGrid;

DBGrid7: TDBGrid;

XPManifest1: TXPManifest;

Button1: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

DBGrid2: TDBGrid;

procedure Button3Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

procedure Button5Click (Sender: TObject);

procedure Button6Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit1, Unit2, Unit3, Unit4, Unit6, Unit7, Unit8;

{$R *. dfm}

procedure TForm5. Button3Click (Sender: TObject);

begin

DataModule2. ADOTable7. Insert;

DataModule2. ADOTable8. Insert;

form8. show;

end;

procedure TForm5. Button4Click (Sender: TObject);

begin

form8. show;

form8. Caption: ='Редактировать Сотрудников';

form8. Button1. Caption: ='Сохранить'

end;

procedure TForm5. Button5Click (Sender: TObject);

begin

form1. Close;

end;

procedure TForm5. Button6Click (Sender: TObject);

begin

form5. Visible: =false;

form4. Show;

end;

procedure TForm5. Button1Click (Sender: TObject);

begin

form5. Visible: =False;

end;

end.

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DBCtrls, Mask, XPMan;

type

TForm6 = class (TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

Button1: TButton;

XPManifest1: TXPManifest;

DBLookupComboBox1: TDBLookupComboBox;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

procedure Button1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit1, Unit2, Unit3, Unit4, Unit5;

{$R *. dfm}

procedure TForm6. Button1Click (Sender: TObject);

begin

if DataModule2. ADOTable3. Modified then

DataModule2. ADOTable3. Post;

if DataModule2. ADOTable4. Modified then

DataModule2. ADOTable4. Post;

form6. Visible: =false;

end;

end.

unit Unit7;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Mask, DBCtrls;

type

TForm7 = class (TForm)

Label1: TLabel;

DBLookupComboBox3: TDBLookupComboBox;

DBLookupComboBox2: TDBLookupComboBox;

DBEdit1: TDBEdit;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Button1: TButton;

DBLookupComboBox1: TDBLookupComboBox;

procedure Button1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit6;

{$R *. dfm}

procedure TForm7. Button1Click (Sender: TObject);

begin

if DataModule2. ADOTable1. Modified then

DataModule2. ADOTable1. Post;

form7. Visible: =false;

end;

end.

unit Unit8;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DBCtrls, XPMan, StdCtrls, Mask;

type

TForm8 = class (TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

Button1: TButton;

XPManifest1: TXPManifest;

DBLookupComboBox1: TDBLookupComboBox;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

procedure Button1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7;

{$R *. dfm}

procedure TForm8. Button1Click (Sender: TObject);

begin

if DataModule2. ADOTable7. Modified then

DataModule2. ADOTable7. Post;

if DataModule2. ADOTable8. Modified then

DataModule2. ADOTable8. Post;

form8. Visible: =false;

end;

end.

Размещено на Allbest.ru