Этапы создания информационной системы

Автор работы: Пользователь скрыл имя, 09 Декабря 2014 в 18:24, курсовая работа

Описание работы

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

Содержание работы

Введение

1. Описание предметной области

1.1. Требования к разрабатываемой информационной системе

1.2. Описание разрабатываемой системы

2. Проектирование программного комплекса

2.1. Проектирование интерфейса

3. Программная реализация

3.1 Выбор Средства Для Разработки

3.2 Реализация Программного Средства
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

Файлы: 1 файл

ГУ.docx

— 3.85 Мб (Скачать файл)

 

 

Рисунок 1.9. Компоненты на DataModule

 

На каждой форме добавлены компоненты, которые охарактеризованные в таблице 1.3 – 2.1; Примеры интерфейсов форм представлены на рисунках 1.9 – 2.4;

 

 

Таблица 1.3. Свойства компонентов «Заказы»

 

Компонент

Свойство

Значение

DBGrid1

DataSource

DataModule8.Zakazy1

DBNavigator1

DataSource

DataModule8.Zakazy1

GroupBox1

Caption

Редактор Базы

Label1

Caption

Код Товара

Label2

Caption

Код Сотрудника

Label3

Caption

Код Клиента

Label4

Caption

Дата Размещения

Label5

Caption

Дата Исполнения

DBLookupComboBox1

DataSource

DataModule8.Zakazy1

 

DataField

Код_товара

 

ListSourse

DataModule8.Tovary1

 

ListField

Наименование_товара

 

KeyField

Код_товара

DBLookupComboBox2

DataSource

DataModule8.Zakazy1

 

DataField

Код_сотрудника

 

ListSourse

DataModule8.Sotrudniki1

 

ListField

ФИО_сотрудника

 

KeyField

Код_сотрудника

DBLookupComboBox3

DataSource

DataModule8.Zakazy1

 

DataField

Код_клиента

 

ListSourse

DataModule8.Klient1

 

ListField

ФИО_клиента

 

KeyField

Код_клиента

DBEdit1

DataSource

DataModule8.Zakazy1

 

DataField

Дата_размещения

DBEdit1

DataSource

DataModule8.Zakazy1

 

DataField

Дата_исполнения

DateTimePicker1

OnChange

Код «DbEdit1.Text:=DateToStr(DateTimePicker1.Date);»

DateTimePicker1

OnChange

Код «DbEdit2.Text:=DateToStr(DateTimePicker2.Date);»

BitBtn1

Caption

На главную

 

Glyph

«Выбрать значок размера 20х20 расширение *.bmp»

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

ok:=0;

if (form9.Edit1.Text='1')and(form9.Edit2.Text='1') then

  begin

  ok:=1;

  form1.Show;

  close;

  end;

if (form9.Edit1.Text='2')and(form9.Edit2.Text='2') then

begin

ok:=1;

form10.Show;

close;

 end;

end;

BitBtn2

Caption

Сохранить

 

Glyph

«Выбрать значок размера 20х20 расширение *.bmp»

procedure TForm2.BitBtn2Click(Sender: TObject);

begin

DBgrid1.DataSource.DataSet.Post;

end;

BitBtn3

Caption

Добавить

 

Glyph

«Выбрать значок размера 20х20 расширение *.bmp»

procedure TForm2.BitBtn3Click(Sender: TObject);

begin

DBgrid1.DataSource.DataSet.Append;

end;

BitBtn4

Caption

Экспорт данных в Excel

procedure TForm2.BitBtn4Click(Sender: TObject);

var

XLapp, Sheet, Colum:Variant;

index,i:Integer;

begin

 XLApp:= CreateOleObject('Excel.Application');

 XLApp.Visible:=true;

 XLApp.Workbooks.Add(-4167);

 XLApp.Workbooks[1].WorkSheets[1].Name:='Отчет';

Colum:=XLApp.Workbooks[1].WorkSheets['Отчет'].Columns;

 

 Colum.Columns[1].ColumnWidth:=18;

 Colum.Columns[2].ColumnWidth:=18;

 Colum.Columns[3].ColumnWidth:=30;

 Colum.Columns[4].ColumnWidth:=30;

 Colum.Columns[5].ColumnWidth:=30;

 Colum.Columns[6].ColumnWidth:=18;

 

Colum:=XLApp.Workbooks[1].WorkSheets['Отчет'].Rows;

 Colum.Rows[2].Font.Bold:=true;

 Colum.Rows[1].Font.Bold:=true;

 Colum.Rows[1].Font.Color:=clRed;

 Colum.Rows[1].Font.Size:=12;

 Colum.Rows[2].Font.Size:=12;

 Colum.Rows[3].Font.Size:=12;

 Colum.Rows[4].Font.Size:=12;

 Colum.Rows[5].Font.Size:=12;

 Colum.Rows[6].Font.Size:=12;

 Colum.Rows.Font.Name:=' Times New Roman';

 

Sheet:=XLApp.Workbooks[1].WorkSheets['Отчет'];

 Sheet.Cells[1,3]:='"Заказы"    '+DateToStr(Date);

 Sheet.Cells[2,1]:='Код заказа';

 Sheet.Cells[2,2]:='Код товара';

 Sheet.Cells[2,3]:='Код сотрудника';

 Sheet.Cells[2,4]:='Дата размещения';

 Sheet.Cells[2,5]:='Дата исполнения';

 Sheet.Cells[2,6]:='Код клиента';

 index :=3;

 

DataModule8.Zakazy1.DataSet.First;

for i:=0 to DataModule8.Zakazy1.DataSet.RecordCount-1 do

  begin

   Sheet.Cells[index,1]:= DataModule8.Zakazy1.DataSet.Fields.Fields[0].AsString;

   Sheet.Cells[index,2]:= DataModule8.Zakazy1.DataSet.Fields.Fields[1].AsString;

   Sheet.Cells[index,3]:= DataModule8.Zakazy1.DataSet.Fields.Fields[2].AsString;

   Sheet.Cells[index,4]:= DataModule8.Zakazy1.DataSet.Fields.Fields[3].AsString;

   Sheet.Cells[index,5]:= DataModule8.Zakazy1.DataSet.Fields.Fields[4].AsString;

   Sheet.Cells[index,6]:= DataModule8.Zakazy1.DataSet.Fields.Fields[5].AsString;

 

     Inc(index);

   DataModule8.Zakazy1.DataSet.Next;

 

end;

end;

Forma2

Caption

Заказы


 

 

Рисунок 1.9. Форма «Заказы»

 

Таблица 1.4. Свойства компонентов «Сотрудники»

 

 

Компонент

Свойство

Значение

DBGrid1

DataSource

DataModule8.Sotrudniki1

DBNavigator1

DataSource

DataModule8.Sotrudniki1

RadioGroup1

Caption

Вид сортировки

 

Items

«Записываем по каким критериям сортировать»

По ФИО Сотрудника

По дате рождения

По должности

BitBtn1

Caption

Сортировать

 

Glyph

«Выбрать значок размера 20х20 расширение *.bmp»

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

case RadioGroup1.ItemIndex  of

0:DataModule8.Sotrudniki.indexFieldNames:='ФИО_сотрудника';

1:DataModule8.Sotrudniki.IndexFieldNames:='Дата_рождения';

2:DataModule8.Sotrudniki.IndexFieldNames:='Должность';

end;

   end;

BitBtn2

Caption

Экспорт данных в Excel

procedure TForm3.BitBtn2Click(Sender: TObject);

 

 var

XLapp, Sheet, Colum:Variant;

index,i:Integer;

begin

 XLApp:= CreateOleObject('Excel.Application');

 XLApp.Visible:=true;

 XLApp.Workbooks.Add(-4167);

 XLApp.Workbooks[1].WorkSheets[1].Name:='Отчет';

Colum:=XLApp.Workbooks[1].WorkSheets['Отчет'].Columns;

 

 Colum.Columns[1].ColumnWidth:=18;

 Colum.Columns[2].ColumnWidth:=30;

 Colum.Columns[3].ColumnWidth:=30;

 Colum.Columns[4].ColumnWidth:=30;

 Colum.Columns[5].ColumnWidth:=30;

 

 

Colum:=XLApp.Workbooks[1].WorkSheets['Отчет'].Rows;

 Colum.Rows[2].Font.Bold:=true;

 Colum.Rows[1].Font.Bold:=true;

 Colum.Rows[1].Font.Color:=clRed;

 Colum.Rows[1].Font.Size:=12;

 Colum.Rows[2].Font.Size:=12;

 Colum.Rows[3].Font.Size:=12;

 Colum.Rows[4].Font.Size:=12;

 Colum.Rows[5].Font.Size:=12;

 

 Colum.Rows.Font.Name:=' Times New Roman';

 

Sheet:=XLApp.Workbooks[1].WorkSheets['Отчет'];

 Sheet.Cells[1,3]:='"Сотрудники"    '+DateToStr(Date);

 Sheet.Cells[2,1]:='ФИО сотрудника';

 Sheet.Cells[2,2]:='Дата рождения';

 Sheet.Cells[2,3]:='Адрес';

 Sheet.Cells[2,4]:='Телефон';

 Sheet.Cells[2,5]:='Должность';

 

index :=3;

 

DataModule8.Sotrudniki1.DataSet.First;

for i:=0 to DataModule8.Sotrudniki1.DataSet.RecordCount-1 do

  begin

   Sheet.Cells[index,1]:= DataModule8.Sotrudniki1.DataSet.Fields.Fields[1].AsString;

   Sheet.Cells[index,2]:= DataModule8.Sotrudniki1.DataSet.Fields.Fields[2].AsString;

   Sheet.Cells[index,3]:= DataModule8.Sotrudniki1.DataSet.Fields.Fields[3].AsString;

   Sheet.Cells[index,4]:= DataModule8.Sotrudniki1.DataSet.Fields.Fields[4].AsString;

   Sheet.Cells[index,5]:= DataModule8.Sotrudniki1.DataSet.Fields.Fields[5].AsString;

 

 

     Inc(index);

   DataModule8.Sotrudniki1.DataSet.Next;

 

end;

end;

BitBtn3

Caption

На главную

 

Glyph

«Выбрать значок размера 20х20 расширение *.bmp»

procedure TForm2.BitBtn3Click(Sender: TObject);

begin

ok:=0;

if (form9.Edit1.Text='1')and(form9.Edit2.Text='1') then

  begin

  ok:=1;

  form1.Show;

  close;

  end;

if (form9.Edit1.Text='2')and(form9.Edit2.Text='2') then

begin

ok:=1;

form10.Show;

close;

 end;

end;


 

 

Рисунок 2.1. Форма «Сотрудники»

 

Таблица 1.5. Свойства компонентов «Клиенты»

 

 

Компонент

Свойство

Значение

DBGrid1

DataSource

DataModule8.Klient1

DBNavigator1

DataSource

DataModule8.Klient1

GroupBox1

Caption

Введите ФИО клиента, которого нужно найти

 

Color

clActiveCaption

BitBtn1

Caption

Применить фильтр

 

Glyph

«Выбрать значок размера 20х20 расширение *.bmp»

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

DataModule8.Klient.Filtered:= true;

DataModule8.Klient.Filter:= 'ФИО_клиента='+#39+edit1.Text+#39;

end;

BitBtn2

Caption

Показать все записи

 

Glyph

«Выбрать значок размера 20х20 расширение *.bmp»

procedure TForm4.BitBtn2Click(Sender: TObject);

begin

  DataModule8.Klient.Filtered:= False;

end;

BitBtn3

Caption

Экспорт данных в Excel

procedure TForm4.BitBtn3Click(Sender: TObject);

    var

XLapp, Sheet, Colum:Variant;

index,i:Integer;

begin

 XLApp:= CreateOleObject('Excel.Application');

 XLApp.Visible:=true;

 XLApp.Workbooks.Add(-4167);

 XLApp.Workbooks[1].WorkSheets[1].Name:='Отчет';

Colum:=XLApp.Workbooks[1].WorkSheets['Отчет'].Columns;

 

 Colum.Columns[1].ColumnWidth:=35;

 Colum.Columns[2].ColumnWidth:=35;

 Colum.Columns[3].ColumnWidth:=20;

 

 

Colum:=XLApp.Workbooks[1].WorkSheets['Отчет'].Rows;

 Colum.Rows[2].Font.Bold:=true;

 Colum.Rows[1].Font.Bold:=true;

 Colum.Rows[1].Font.Color:=clNavy;

 Colum.Rows[1].Font.Size:=12;

 Colum.Rows[2].Font.Size:=12;

 Colum.Rows[3].Font.Size:=12;

 Colum.Rows.Font.Name:='Times New Roman';

 

Sheet:=XLApp.Workbooks[1].WorkSheets['Отчет'];

 Sheet.Cells[1,2]:='"Клиенты"    '+DateToStr(Date);

 Sheet.Cells[2,1]:='ФИО клиента';

 Sheet.Cells[2,2]:='Адрес';

 Sheet.Cells[2,3]:='Телефон';

index :=3;

 

DataModule8.Klient1.DataSet.First;

for i:=0 to DataModule8.Klient1.DataSet.RecordCount-1 do

  begin

   Sheet.Cells[index,1]:= DataModule8.Klient1.DataSet.Fields.Fields[1].AsString;

   Sheet.Cells[index,2]:= DataModule8.Klient1.DataSet.Fields.Fields[2].AsString;

   Sheet.Cells[index,3]:= DataModule8.Klient1.DataSet.Fields.Fields[3].AsString;

      Inc(index);

   DataModule8.Klient1.DataSet.Next;

          end;

          end;

BitBtn4

Caption

На главную

 

Glyph

«Выбрать значок размера 20х20 расширение *.bmp»

procedure TForm4.BitBtn4Click(Sender: TObject);

begin

ok:=0;

if (form9.Edit1.Text='1')and(form9.Edit2.Text='1') then

  begin

  ok:=1;

  form1.Show;

  close;

  end;

if (form9.Edit1.Text='2')and(form9.Edit2.Text='2') then

begin

ok:=1;

form10.Show;

close;

end;

end;


 

Рисунок 2.2. Форма «Клиенты»

 

 

Таблица 1.6. Свойства компонентов «Товары»

 

 

Компонент

Свойство

Значение

DBGrid1

DataSource

DataModule8.Tovary1

DBNavigator1

DataSource

DataModule8.Tovary1

RadioGroup1

Caption

Фильтр

 

Items

«Записываем по каким критериям сортировать»

По стоимости закупки

По наличие

По количеству

По стоимости продажи

BitBtn1

Caption

Сортировать

 

Glyph

«Выбрать значок размера 20х20 расширение *.bmp»

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

case RadioGroup1.ItemIndex  of

0:DataModule8.Tovary.indexFieldNames:='Стоимость_закупки';

1:DataModule8.Tovary.IndexFieldNames:='Наличие';

2:DataModule8.Tovary.IndexFieldNames:='Количество';

3:DataModule8.Tovary.IndexFieldNames:='Стоимость_продажи';

end;

     end;

BitBtn2

Caption

Экспорт данных в Excel

procedure TForm5.BitBtn2Click(Sender: TObject);

   var

XLapp, Sheet, Colum:Variant;

index,i:Integer;

begin

 XLApp:= CreateOleObject('Excel.Application');

 XLApp.Visible:=true;

 XLApp.Workbooks.Add(-4167);

 XLApp.Workbooks[1].WorkSheets[1].Name:='Отчет';

Colum:=XLApp.Workbooks[1].WorkSheets['Отчет'].Columns;

 Colum.Columns[1].ColumnWidth:=18;

 Colum.Columns[2].ColumnWidth:=18;

 Colum.Columns[3].ColumnWidth:=50;

 Colum.Columns[4].ColumnWidth:=50;

 Colum.Columns[5].ColumnWidth:=18;

 Colum.Columns[6].ColumnWidth:=18;

 Colum.Columns[7].ColumnWidth:=18;

 Colum.Columns[8].ColumnWidth:=18;

Colum:=XLApp.Workbooks[1].WorkSheets['Отчет'].Rows;

 Colum.Rows[2].Font.Bold:=true;

 Colum.Rows[1].Font.Bold:=true;

 Colum.Rows[1].Font.Color:=clBlue;

 Colum.Rows[1].Font.Size:=12;

 Colum.Rows[2].Font.Size:=12;

 Colum.Rows[3].Font.Size:=12;

 Colum.Rows[4].Font.Size:=12;

 Colum.Rows[5].Font.Size:=12;

 Colum.Rows[6].Font.Size:=12;

 Colum.Rows[7].Font.Size:=12;

 Colum.Rows[8].Font.Size:=12;

 Colum.Rows.Font.Name:=' Times New Roman';

Sheet:=XLApp.Workbooks[1].WorkSheets['Отчет'];

 Sheet.Cells[1,3]:='"Товары"    '+DateToStr(Date);

 Sheet.Cells[2,1]:='Код товара';

 Sheet.Cells[2,2]:='Код поставки';

 Sheet.Cells[2,3]:='Наименование товара';

 Sheet.Cells[2,4]:='Описание';

 Sheet.Cells[2,5]:='Стоимость закупки';

 Sheet.Cells[2,6]:='Наличие';

Sheet.Cells[2,7]:='Количество';

 Sheet.Cells[2,8]:='Стоимость продажи';

 index :=3;

DataModule8.Tovary1.DataSet.First;

for i:=0 to DataModule8.Tovary1.DataSet.RecordCount-1 do

  begin

   Sheet.Cells[index,1]:= DataModule8.Tovary1.DataSet.Fields.Fields[0].AsString;

   Sheet.Cells[index,2]:= DataModule8.Tovary1.DataSet.Fields.Fields[1].AsString;

   Sheet.Cells[index,3]:= DataModule8.Tovary1.DataSet.Fields.Fields[2].AsString;

   Sheet.Cells[index,4]:= DataModule8.Tovary1.DataSet.Fields.Fields[3].AsString;

   Sheet.Cells[index,5]:= DataModule8.Tovary1.DataSet.Fields.Fields[4].AsString;

   Sheet.Cells[index,6]:= DataModule8.Tovary1.DataSet.Fields.Fields[5].AsString;

   Sheet.Cells[index,7]:= DataModule8.Tovary1.DataSet.Fields.Fields[6].AsString;

   Sheet.Cells[index,8]:= DataModule8.Tovary1.DataSet.Fields.Fields[7].AsString;

     Inc(index);

  DataModule8.Tovary1.DataSet.Next;

  end;

end;

BitBtn3

Caption

На главную

 

Glyph

«Выбрать значок размера 20х20 расширение *.bmp»

procedure TForm5.BitBtn3Click(Sender: TObject);

begin

ok:=0;

if (form9.Edit1.Text='1')and(form9.Edit2.Text='1') then

  begin

  ok:=1;

  form1.Show;

  close;

  end;

if (form9.Edit1.Text='2')and(form9.Edit2.Text='2') then

begin

ok:=1;

form10.Show;

close;

end;

end;


 

 

 

 

 

Рисунок 2.3. Форма «Товары»

 

Таблица 1.7. Свойства компонентов «Поставка»

 

 

Компонент

Свойство

Значение

DBGrid1

DataSource

DataModule8.Postavka1

DBNavigator1

DataSource

DataModule8.Postavka1

Edit1

Caption

Код поставщика

DBLookupComboBox1

DataSource

DataModule8.Postavka1

 

DataField

Код_поставщика

 

ListSourse

DataModule8.Postavshik1

 

ListField

Название_поставщика

 

KeyField

Код_поставщика

BitBtn1

Caption

Экспорт данных в Excel

procedure TForm6.BitBtn1Click(Sender: TObject);

    var

XLapp, Sheet, Colum:Variant;

index,i:Integer;

begin

 XLApp:= CreateOleObject('Excel.Application');

 XLApp.Visible:=true;

 XLApp.Workbooks.Add(-4167);

 XLApp.Workbooks[1].WorkSheets[1].Name:='Отчет';

Colum:=XLApp.Workbooks[1].WorkSheets['Отчет'].Columns;

 Colum.Columns[1].ColumnWidth:=18;

 Colum.Columns[2].ColumnWidth:=20;

 Colum.Columns[3].ColumnWidth:=20;

Colum:=XLApp.Workbooks[1].WorkSheets['Отчет'].Rows;

 Colum.Rows[2].Font.Bold:=true;

 Colum.Rows[1].Font.Bold:=true;

 Colum.Rows[1].Font.Color:=clGreen;

 Colum.Rows[1].Font.Size:=12;

 Colum.Rows[2].Font.Size:=12;

 Colum.Rows[3].Font.Size:=12;

 Colum.Rows.Font.Name:='Times New Roman';

Sheet:=XLApp.Workbooks[1].WorkSheets['Отчет'];

 Sheet.Cells[1,2]:='"Поставка"    '+DateToStr(Date);

 Sheet.Cells[2,1]:='Код_поставки';

 Sheet.Cells[2,2]:='Код_поставщика';

 Sheet.Cells[2,3]:='Дата_поставки';

index :=3;

DataModule8.Postavka1.DataSet.First;

for i:=0 to DataModule8.Postavka1.DataSet.RecordCount-1 do

  begin

   Sheet.Cells[index,1]:= DataModule8.Postavka1.DataSet.Fields.Fields[0].AsString;

   Sheet.Cells[index,2]:= DataModule8.Postavka1.DataSet.Fields.Fields[1].AsString;

   Sheet.Cells[index,3]:= DataModule8.Postavka1.DataSet.Fields.Fields[2].AsString;

      Inc(index);

   DataModule8.Postavka1.DataSet.Next;

end;

end;

BitBtn3

Caption

На главную

 

Glyph

«Выбрать значок размера 20х20 расширение *.bmp»

begin

ok:=0;

if (form9.Edit1.Text='1')and(form9.Edit2.Text='1') then

  begin

  ok:=1;

  form1.Show;

  close;

  end;

if (form9.Edit1.Text='2')and(form9.Edit2.Text='2') then

begin

ok:=1;

form10.Show;

close;

end;

end;


 

 

Рисунок 2.4. Форма «Поставка»

 

Таблица 1.8. Свойства компонентов «Поставщики»

Информация о работе Этапы создания информационной системы