Добавил:

Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Калмыцкий Государственный Университет

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

Даши.doc

Скачиваний:

Добавлен:

01.05.2025

Размер:

197.12 Кб

Скачать

☆

<<< < Предыдущая 1 23 / 33

Глава 2: Описание и разработка аис

2.1. Описание спроектированной информационной системы

Разработанная программы устанавливается на диске С: и запускается с помощью файла Project.exe. После запуска открывается главное окно программы.

Главное окно программы содержит пункты меню «Файл» и «справка». В меню файл находятся подменю под названием «Товар», «Поставщики», «Заказы» и «Выход». В подменю «справки» находятся пункты «О программе» и «Об авторе».

Окно «Товар» содержит меню,4 поля для ввода информации, 2 навигатора и окно вывода таблиц .

Меню «Файл» содержит подменю печать и выход.

В окне поставщики вы сможете ввести данные поставщика дата заказа и срок выполнения

С помощью окна «поиск по названию» вы сможете найти товар которые вас интерисует.

Следующие окно программы «поиск по типу» в этом окне вы найдете товар по типу.

Окно «поиск по цене» в этом окне производиться поиск по цене товара.

Заключение

В данной курсовой работе была создана Автоматизированная информационная система цветочного магазина. Которая смогла бы автоматизировать деятельность, связанную с деятельностью работы цветочного магазина.

Автоматизированная информационная система (АИС) должна выполнять сбор данных, заполнять все необходимые справочники, документы, отчеты и отбор в базе данных, а так же следить за тем, чтобы введенные банные были точны и правильно оформленные.

В начале работы была создана база данных.Затем в среде Delphi 7

О приложение, позволяющее работать с системой.

В приложении разработано поисковая система, которая производит поиск информации по установленному отбору.

Список использованной литературы:

Гайдамакин Н.А., Автоматизированные информационные системы, базы и банки данных. Вводный курс: Учебное пособие. — М.: Гелиос АРВ, 2002. — 368 с, ил.
Информационная система — Википедия [Электронный ресурс]. - Режим доступа: http://ru.wikipedia.org/wiki/%D0%98%D0%BD%D1%84%D0%BE%D1%80%D0%BC%D0%B0%D1%86%D0%B8%D0%BE%D0%BD%D0%BD%D1%8B%D0%B5_%D1%81%D0%B8%D1%81%D1%82%D0%B5%D0%BC%D1%8B
Информационные технологии и системы. ИС. ИТ. - Режим доступа: http://www.itstan.ru/
Организация управления в развивающихся компаниях и новые задачи информационных систем. - Режим доступа: http://www.iso-9001.ru/index.php3?mode&id=235
Структура и классификация автоматизированных информационных систем. - Режим доступа: http://do.rksi.ru/library/courses/opais/tema1_3.dbk
Терехов И.В. Автоматизированные информационные системы в образовании и науке [Электронный ресурс]. - Режим доступа: http://ou.tsu.ru/seminars/sem13/tezis/section6.htm
Центр новых информационных технологий. - Режим доступа: http://ick.kemsu.ru/work/docs/conias.htm

Приложение Листинг программы.

Form1;

unit Unit1;

interface

uses

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

Dialogs, Menus, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

Image1: TImage;

procedure N3Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure Image1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

Uses Unit2,unit3,unit4,unit5,unit6,unit7,unit8;

{$R *.dfm}

procedure TForm1.N3Click(Sender: TObject);

begin

Form2.show;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

form3.show;

end;

procedure TForm1.Image1Click(Sender: TObject);

begin

end;

end.

Form2;

unit Unit2;

interface

uses

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

Dialogs, DB, DBTables, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, Mask,

Menus;

type

TForm2 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Table1: TTable;

DataSource1: TDataSource;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Table2: TTable;

DataSource2: TDataSource;

DBNavigator2: TDBNavigator;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

Table1IDflower: TAutoIncField;

Table1Nazvanie: TStringField;

Table1Tip: TStringField;

Table1Cenaroz: TCurrencyField;

Table1Kolihectvo: TStringField;

Table1IDrecod: TIntegerField;

Table2IDpeople: TAutoIncField;

Table2NazFirm: TStringField;

Table2Adres: TStringField;

Table2Idflower: TIntegerField;

Table2Optovaycena: TCurrencyField;

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

Uses Unit1,unit4,unit5,unit3,unit6,unit7,unit8;

{$R *.dfm}

procedure TForm2.N5Click(Sender: TObject);

begin

Close;

end;

procedure TForm2.N6Click(Sender: TObject);

begin

form4.Show;

end;

procedure TForm2.N7Click(Sender: TObject);

begin

form5.show;

end;

procedure TForm2.N8Click(Sender: TObject);

begin

form6.Show;

end;

procedure TForm2.FormCreate(Sender: TObject);

begin

end;

end.

Form3;

unit Unit3;

interface

uses

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

Dialogs, DB, DBTables, StdCtrls, Mask, DBCtrls, Menus, ExtCtrls, Grids,

DBGrids;

type

TForm3 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

DataSource1: TDataSource;

Table1: TTable;

DBEdit5: TDBEdit;

Label5: TLabel;

DBEdit6: TDBEdit;

Label6: TLabel;

DBEdit7: TDBEdit;

Label7: TLabel;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBNavigator2: TDBNavigator;

Table2: TTable;

DataSource2: TDataSource;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

Table1IDrecod: TAutoIncField;

Table1Fameli: TStringField;

Table1Name: TStringField;

Table1Secname: TStringField;

Table1Datazakaza: TDateField;

Table1Sroczakaza: TDateField;

Table1IDflower: TIntegerField;

Table1Colvo: TFloatField;

Table1Cenavsya: TCurrencyField;

Table2IDflower: TAutoIncField;

Table2Nazvanie: TStringField;

Table2Tip: TStringField;

Table2Cenaroz: TCurrencyField;

Table2Kolihectvo: TStringField;

Table2IDrecod: TIntegerField;

procedure N5Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses unit1,unit2,unit5,unit6,unit7,unit8;

{$R *.dfm}

procedure TForm3.N5Click(Sender: TObject);

begin

close;

end;

procedure TForm3.FormCreate(Sender: TObject);

begin

end;

end.

Form4;

unit Unit4;

interface

uses

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

Dialogs, Grids, DBGrids, StdCtrls, DB, DBTables;

type

TForm4 = class(TForm)

Query1: TQuery;

DataSource1: TDataSource;

Edit1: TEdit;

DBGrid1: TDBGrid;

Button1: TButton;

Button2: TButton;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses unit1,unit2,unit3,unit5,unit6,unit7,unit8;

{$R *.dfm}

procedure TForm4.Button2Click(Sender: TObject);

begin

form4.Hide;

form1.show;

end;

procedure TForm4.Button1Click(Sender: TObject);

begin

WITH Form4.Query1 DO

BEGIN

Close;

Prepare;

Params[0].AsString := edit1.Text;

Open;

END;

end;

procedure TForm4.FormCreate(Sender: TObject);

begin

end;

end.

Form5;

unit Unit5;

interface

uses

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

Dialogs, DB, DBTables, StdCtrls, Grids, DBGrids;

type

TForm5 = class(TForm)

Edit1: TEdit;

DBGrid1: TDBGrid;

Button1: TButton;

Button2: TButton;

Query1: TQuery;

DataSource1: TDataSource;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure FormCreate(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.Button2Click(Sender: TObject);

begin

close;

end;

procedure TForm5.Button1Click(Sender: TObject);

begin

WITH Form5.Query1 DO

BEGIN

Close;

Prepare;

Params[0].AsString := edit1.Text;

Open;

END;

end;

procedure TForm5.FormCreate(Sender: TObject);

begin

end;

end.

Form6;

unit Unit6;

interface

uses

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

Dialogs, DB, DBTables, StdCtrls, Grids, DBGrids;

type

TForm6 = class(TForm)

Edit1: TEdit;

DBGrid1: TDBGrid;

Button1: TButton;

Button2: TButton;

Query1: TQuery;

DataSource1: TDataSource;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit2,unit3,unit4,unit5,unit1,unit7,unit8;

{$R *.dfm}

procedure TForm6.Button2Click(Sender: TObject);

begin

close;

end;

procedure TForm6.Button1Click(Sender: TObject);

begin

WITH Form6.Query1 DO

BEGIN

Close;

Prepare;

Params[0].AsInteger := strtoint(edit1.Text);

Open;

END;

end;

procedure TForm6.FormCreate(Sender: TObject);

begin

end;

end.

<<< < Предыдущая 1 23 / 33

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

#
15.03.2016174.79 Кб144Высокомолекулярные соединения.docx
#
21.12.2018176.13 Кб29Газпром.doc
#
01.05.2025354.3 Кб0глава 03-12.doc
#
15.03.2016102.08 Кб40глоссарий, ТЕМЫ РЕФЕРАТОВ, список литературы.docx
#
01.04.2025527.03 Кб0Графика растровая и векторная.docx
#
01.05.2025197.12 Кб0Даши.doc
#
13.04.2015210.94 Кб23Джангар Песнь Втораяо о Хонгре.doc
#
01.05.2025201.3 Кб1диагностика гельминтов. дегельминтизация.docx
#
01.04.2025746.5 Кб1Дип.р Антаканова.doc
#
12.07.2019220.75 Кб78доклад "1. Сущность воспитания 2. Процесс воспи....rtf
#
13.04.201535.56 Кб33Документ Microsoft Office Word.docx