Автор работы: Пользователь скрыл имя, 13 Августа 2014 в 10:46, курсовая работа
Целью курсовой работы является проектирование ИС управления магазином компьютерных товаров. Для реализации поставленной цели обозначены и решены следующие задачи: провести анализ предметной области и формирование требований к информационной системе; разработать информационную систему для предприятия. Проектирование выполнялось с использованием CASE-средств, а программный комплекс реализован на языке программирования Borland Delphi 7.
Введение………………………………………………………………..………....3
Глава 1. Анализ предметной области и формирование требований к информационной системе…………………5
1.1. Описание организации……………………………………………………..5
1.2. Анализ организации бизнес и информационных процессов………..….. 9
1.3. Постановка задачи…………………………………………….……………11
1.4. Календарно-ресурсное планирование проекта, анализ бюджетных ограничений и рисков………………………...13
Глава 2.Проект автоматизации бизнес-процессов……………………………..14
2.1. Функциональная структура.…………..……………….………………..…14
2.2. Информационное обеспечение ……………………………………...……14
2.3. Программное обеспечение………………………………………...………16
2.4. Техническое обеспечение………………………………………………….19
2.5. Организационное обеспечение…………………...……………………….20
2.6. Обеспечение информационной безопасности……………………………21
2.7. Технологическое обеспечение……………………………………………. 21
2.8. Контрольный пример……………………………………………………… 22
Глава 3. Оценка эффективности проекта………………………………………. 24
3.1. Анализ затрат на ресурсное обеспечение………………………………... 24
3.2. Анализ качественных и количественных факторов воздействия проекта на бизнес – архитектуру организации…………………………...24
Заключение……………………………………..……………………………........27
Список использованной литературы………………………..…………………..29
Приложения……………………………………………………………………....31
form4.Edit11.Text:=cells[7,i];
form4.Edit9.Text:=cells[9,i];
form4.Edit10.Text:=cells[10,i]
form4.Edit12.Text:=cells[11,i]
form4.Edit13.Text:=cells[12,i]
form4.Edit14.Text:=cells[13,i]
form4.Edit15.Text:=cells[14,i]
form4.Edit17.Text:=cells[15,i]
form4.Edit18.Text:=cells[16,i]
form4.Edit16.Text:=cells[17,i]
end;
form4.show;
end;
procedure TForm1.Button5Click(Sender: TObject); {вызов формы поиск по фамили}
begin
form8.ShowModal;
end;
procedure TForm1.ToolButton7Click(
begin
if ColorDialog1.Execute then
Form1.Color := ColorDialog1.Color;
end;
procedure TForm1.N24Click(Sender: TObject);{смена пароля}
begin
form10.edit1.text:='';
Form10.show;
end;
procedure TForm1.N11Click(Sender: TObject); {сохранить файл}
var
FileOut:file of zap;
z:zap;
i, j:integer;
route:string;
s:sport;
begin
if SaveDialog1.Execute then
begin
route := SaveDialog1.FileName;
assignfile(fileout,route);
rewrite(fileout);
if stringgrid1.rowcount>
with form1.stringgrid1 do
for i:=1 to j do
begin
if cells[0,i]<>'' then begin
z.den.fam:=cells[0,i];
z.den.im:=cells[1,i];
z.den.ot:=cells[2,i];
z.den.kol_hour:=cells[3,i];
z.den.tarif:=cells[4,i]; end else
begin
z.den.fam:='';
z.den.im:='';
z.den.ot:='';
z.den.kol_hour:='';
z.den.tarif:='';
end;
if i<=stringgrid2.RowCount then
with form1.StringGrid2 do
begin
z.sp.fam:=cells[0,i];
z.sp.name:=cells[1,i];
z.sp.otch:=cells[2,i];
z.sp.datau:=cells[3,i];
z.sp.dolg:=cells[4,i];
z.sp.INN:=cells[5,i];
z.sp.Pens:=cells[6,i];
z.sp.DR:=cells[7,i];
z.sp.spas:=cells[8,i];
z.sp.Npas:=cells[9,i];
z.sp.vpas:=cells[10,i];
z.sp.city:=cells[11,i];
z.sp.str:=cells[12,i];
z.sp.dom:=cells[13,i];
z.sp.kv:=cells[14,i];
z.sp.tel:=cells[15,i];
z.sp.sem:=cells[16,i];
z.sp.dety:=cells[17,i];
end else
begin
z.sp.fam:='';
z.sp.name:='';
z.sp.otch:='';
z.sp.datau:='';
z.sp.dolg:='';
z.sp.INN:='';
z.sp.Pens:='';
z.sp.DR:='';
z.sp.spas:='';
z.sp.Npas:='';
z.sp.vpas:='';
z.sp.city:='';
z.sp.str:='';
z.sp.dom:='';
z.sp.kv:='';
z.sp.sem:='';
z.sp.dety:='';
z.sp.tel:='';
end;
write(fileout,z);
end;
closefile(fileout);
end;
end;
procedure TForm1.N10Click(Sender: TObject); {открыть файл}
var
FileOut:file of zap;
z:zap;
i,j:integer;
route:string;
begin
if OpenDialog1.Execute then
begin
route := OpenDialog1.FileName;
with stringgrid1 do
begin
for i:=1 to rowcount do
rows[i].Clear;
assignfile(fileout,route);
reset(fileout);
i:=0;
while not eof(fileout) do
begin
i:=i+1;
read(fileout,z);
cells[0,i]:=z.den.Fam;
cells[1,i]:=z.den.Im;
cells[2,i]:=z.den.ot;
cells[3,i]:=z.den.kol_hour;
cells[4,i]:=z.den.tarif;
if z.sp.fam<>'' then
with stringgrid2 do
begin
if i<>1 then form1.stringgrid2.rowcount:=
cells[0,i]:=z.sp.fam;
cells[1,i]:=z.sp.name;
cells[2,i]:=z.sp.otch;
cells[3,i]:=z.sp.datau;
cells[4,i]:=z.sp.dolg;
cells[5,i]:=z.sp.INN;
cells[6,i]:=z.sp.Pens;
cells[7,i]:=z.sp.DR;
cells[8,i]:=z.sp.spas;
cells[9,i]:=z.sp.Npas;
cells[10,i]:=z.sp.vpas;
cells[11,i]:=z.sp.city;
cells[12,i]:=z.sp.str;
cells[13,i]:=z.sp.dom;
cells[14,i]:=z.sp.kv;
cells[15,i]:=z.sp.tel;
cells[16,i]:=z.sp.sem;
cells[17,i]:=z.sp.dety;
end;
end;
closefile(fileout);
end;
end;
end;
procedure TForm1.ToolButton8Click(
begin
if form1.StringGrid1.Cells[0,1]<>
form12.Show;
end else showmessage('Недостаточно
данных для построения
end;
procedure TForm1.ToolButton3Click(
begin
StatusBar1.visible:=false;
Button1.visible:=false;
Button2.visible:=false;
Button3.visible:=false;
Button5.visible:=false;
Button6.visible:=false;
DateTimePicker1.visible:=
Label1.visible:=false;
ToolButton1.visible:=false;
ToolButton2.visible:=false;
ToolButton3.visible:=false;
ToolButton4.visible:=false;
ToolButton5.visible:=false;
ToolButton6.visible:=false;
ToolButton7.visible:=false;
ToolButton8.visible:=false;
ToolButton9.visible:=false;
ToolButton10.visible:=false;
ToolBar1.visible:=false;
StringGrid2.visible:=false;
PageControl1.Visible:=true;
StringGrid1.visible:=true;
Form1.Print;
StatusBar1.visible:=true;
Button1.visible:=true;
Button2.visible:=true;
Button3.visible:=true;
Button5.visible:=true;
Button6.visible:=true;
DateTimePicker1.visible:=true;
Label1.visible:=true;
ToolButton1.visible:=true;
ToolButton2.visible:=true;
ToolButton3.visible:=true;
ToolButton4.visible:=true;
ToolButton5.visible:=true;
ToolButton6.visible:=true;
ToolButton7.visible:=true;
ToolButton8.visible:=true;
ToolButton9.visible:=true;
ToolButton10.visible:=true;
ToolBar1.visible:=true;
StringGrid2.visible:=true;
end;
procedure TForm1.ToolButton2Click(
var
FileOut:file of zap;
z:zap;
i, j:integer;
route:string;
s:sport;
begin
if SaveDialog1.Execute then
begin
route := SaveDialog1.FileName;
assignfile(fileout,route);
rewrite(fileout);
if stringgrid1.rowcount>
with form1.stringgrid1 do
for i:=1 to j do
begin
if cells[0,i]<>'' then begin
z.den.fam:=cells[0,i];
z.den.im:=cells[1,i];
z.den.ot:=cells[2,i];
z.den.kol_hour:=cells[3,i];
z.den.tarif:=cells[4,i]; end else
begin
z.den.fam:='';
z.den.im:='';
z.den.ot:='';
z.den.kol_hour:='';
z.den.tarif:='';
end;
if i<=stringgrid2.RowCount then
with form1.StringGrid2 do
begin
z.sp.fam:=cells[0,i];
z.sp.name:=cells[1,i];
z.sp.otch:=cells[2,i];
z.sp.datau:=cells[3,i];
z.sp.dolg:=cells[4,i];
z.sp.INN:=cells[5,i];
z.sp.Pens:=cells[6,i];
z.sp.DR:=cells[7,i];
z.sp.spas:=cells[8,i];
z.sp.Npas:=cells[9,i];
z.sp.vpas:=cells[10,i];
z.sp.city:=cells[11,i];
z.sp.str:=cells[12,i];
z.sp.dom:=cells[13,i];
z.sp.kv:=cells[14,i];
z.sp.tel:=cells[15,i];
z.sp.sem:=cells[16,i];
z.sp.dety:=cells[17,i];
end else
begin
z.sp.fam:='';
z.sp.name:='';
z.sp.otch:='';
z.sp.datau:='';
z.sp.dolg:='';
z.sp.INN:='';
z.sp.Pens:='';
z.sp.DR:='';
z.sp.spas:='';
z.sp.Npas:='';
z.sp.vpas:='';
z.sp.city:='';
z.sp.str:='';
z.sp.dom:='';
z.sp.kv:='';
z.sp.sem:='';
z.sp.dety:='';
z.sp.tel:='';
end;
write(fileout,z);
end;
closefile(fileout);
end;
end;
procedure TForm1.N25Click(Sender: TObject);{изменение фона}
begin
if ColorDialog1.Execute then
Form1.Color := ColorDialog1.Color;
end;
procedure TForm1.N26Click(Sender: TObject);{изменение шрифта}
begin
form1.FontDialog1.Execute;
if form1.FontDialog1.Font.Name<>'
form1.Font:=form1.FontDialog1.
end;
procedure TForm1.N31Click(Sender: TObject); {добавить в таб.1}
begin
form2.ShowModal;
end;
procedure TForm1.N30Click(Sender: TObject);{удалить}
var
i,k:integer;
begin
form1.stringgrid1.Rows[form1.
k:=form1.stringgrid1.Row;
for i:=form1.stringgrid1.row to form1.stringgrid1.rowcount do
begin
form1.StringGrid1.Rows[k]:= form1.StringGrid1.Rows[k + 1];
k:=k+1;
end;
form1.StringGrid1.Rows[k + 1].Clear;
end;
procedure TForm1.
var Handled: Boolean);
begin
with StatusBar1 do
begin
SimpleText := Application.Hint;
SimplePanel := SimpleText <> '';
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
DateTime: TDateTime;
begin
DateTime:=Time;
Label1.Caption:=TimeToStr(
end;
procedure TForm1.Button6Click(Sender: TObject);{прописана кнопка изменить}
begin
form2.show;
i:=form1.StringGrid1.Row;
with form1.StringGrid1 do begin
form2.Edit1.Text:=cells[0,i];
form2.Edit2.Text:=cells[1,i];
form2.Edit3.Text:=cells[2,i];
form2.Edit4.Text:=cells[3,i];
form2.Edit5.Text:=cells[4,i];
end;
end;
procedure TForm1.ToolButton11Click(
begin
if form1.StringGrid1.Cells[0,1]<>
form12.Show;
end else showmessage('Недостаточно
данных для построения
end;
procedure TForm1.ToolButton4Click(
begin
If Tag = 0 Then
Begin
ShowMessage('Вы действительно хотите выйти?');
Tag:=1;
Close;
End;
end;
procedure TForm1.ToolButton1Click(
var
FileOut:file of zap;
z:zap;
i,j:integer;
route:string;
begin
if OpenDialog1.Execute then
begin
route := OpenDialog1.FileName;
with stringgrid1 do
begin
for i:=1 to rowcount do
rows[i].Clear;
assignfile(fileout,route);
reset(fileout);
i:=0;
while not eof(fileout) do
begin
i:=i+1;
read(fileout,z);
cells[0,i]:=z.den.Fam;
cells[1,i]:=z.den.Im;
cells[2,i]:=z.den.ot;
cells[3,i]:=z.den.kol_hour;
cells[4,i]:=z.den.tarif;
if z.sp.fam<>'' then
with stringgrid2 do
begin
if i<>1 then form1.stringgrid2.rowcount:=
cells[0,i]:=z.sp.fam;
cells[1,i]:=z.sp.name;
cells[2,i]:=z.sp.otch;
cells[3,i]:=z.sp.datau;
cells[4,i]:=z.sp.dolg;
cells[5,i]:=z.sp.INN;
cells[6,i]:=z.sp.Pens;
cells[7,i]:=z.sp.DR;
cells[8,i]:=z.sp.spas;
cells[9,i]:=z.sp.Npas;
cells[10,i]:=z.sp.vpas;
cells[11,i]:=z.sp.city;
cells[12,i]:=z.sp.str;
cells[13,i]:=z.sp.dom;
cells[14,i]:=z.sp.kv;
cells[15,i]:=z.sp.tel;
cells[16,i]:=z.sp.sem;
cells[17,i]:=z.sp.dety;
end;
end;
closefile(fileout);
end;
end;
end;
procedure TForm1.N12Click(Sender: TObject);{печать главная форма таб.1}
begin
StatusBar1.visible:=false;
Button1.visible:=false;
Button2.visible:=false;
Button3.visible:=false;
Button5.visible:=false;
Button6.visible:=false;
DateTimePicker1.visible:=
Label1.visible:=false;
ToolButton1.visible:=false;
ToolButton2.visible:=false;
ToolButton3.visible:=false;
ToolButton4.visible:=false;
ToolButton5.visible:=false;
ToolButton6.visible:=false;
ToolButton7.visible:=false;
ToolButton8.visible:=false;
ToolButton9.visible:=false;
ToolButton10.visible:=false;
ToolBar1.visible:=false;
StringGrid2.visible:=false;
PageControl1.Visible:=true;
StringGrid1.visible:=true;
Form1.Print;
StatusBar1.visible:=true;
Button1.visible:=true;
Button2.visible:=true;
Button3.visible:=true;
Button5.visible:=true;
Button6.visible:=true;
DateTimePicker1.visible:=true;
Label1.visible:=true;
ToolButton1.visible:=true;
ToolButton2.visible:=true;
ToolButton3.visible:=true;
ToolButton4.visible:=true;
ToolButton5.visible:=true;
ToolButton6.visible:=true;
ToolButton7.visible:=true;
ToolButton8.visible:=true;
ToolButton9.visible:=true;
ToolButton10.visible:=true;
ToolBar1.visible:=true;
StringGrid2.visible:=true;
end;
procedure TForm1.ToolButton6Click(
begin
form1.FontDialog1.Execute;
if form1.FontDialog1.Font.Name<>'
form1.Font:=form1.FontDialog1.
end;
procedure TForm1.N9Click(Sender: TObject); {график}
begin
if form1.StringGrid1.Cells[0,1]<>
form12.Show;
end else showmessage('Недостаточно
данных для построения
end;
procedure TForm1.ToolButton9Click(
begin
Form10.showmodal;
end;
procedure TForm1.N33Click(Sender: TObject);{изменить}
begin
form2.show;
i:=form1.StringGrid1.Row;
with form1.StringGrid1 do begin
form2.Edit1.Text:=cells[0,i];
form2.Edit2.Text:=cells[1,i];
form2.Edit3.Text:=cells[2,i];
form2.Edit4.Text:=cells[3,i];
form2.Edit5.Text:=cells[4,i];
end;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
form11.ShowModal;
end;
procedure TForm1.ToolButton10Click(
begin
form13.showmodal;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
ShellExecute (Form1.Handle, nil, 'helpp.chm', nil, nil, SW_show);
end;
procedure TForm1.ToolButton5Click(
begin
ShellExecute (Form1.Handle, nil, 'helpp.chm', nil, nil, SW_show);
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Button2: TButton;
Edit2: TEdit;
Edit3: TEdit;
Edit1: TEdit;
Label4: TLabel;
Label5: TLabel;
Edit4: TEdit;
Edit5: TEdit;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit3, Unit1;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
var
fam, im, ot, i :String;
kol_hour, tarif :integer;
k:integer;
begin
If (form2.Edit1.text<>'') {сохраняет данные в таб.1}
and(form2.Edit2.text<>'')
and(form2.Edit3.text<>'')
and(form2.Edit4.text<>'')
and(form2.Edit5.text<>'') then
begin
fam := Edit1.Text;
im := Edit2.Text;
ot := Edit3.Text;
kol_hour := StrToint(form2.Edit4.text);
tarif := StrToInt(form2.Edit5.text);
form1.StringGrid1.Cells[0,k] := fam;
form1.StringGrid1.Cells[1,k] := im;
form1.StringGrid1.Cells[2,k] := ot;
form1.StringGrid1.Cells[3,k] := inttostr (kol_hour) ;
form1.StringGrid1.Cells[4,k] := inttostr (tarif);
form1.StringGrid1.RowCount:=
end else showmessage('Введены не все данные');
OKBottomDlg.Showmodal;
end;
procedure TForm2.Button2Click(Sender: TObject); {очищает поля в окне входные данные}
begin
edit1.text:='';
edit2.text:='';
edit3.text:='';
edit4.text:='';
edit5.text:='';
form2.Close;
end;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form2.Edit1.Clear;
form2.Edit2.Clear;
form2.Edit3.Clear;
form2.Edit4.Clear;
form2.Edit5.Clear;
end;
procedure TForm2.Button3Click(Sender: TObject);
var
fam, im, ot, i :String;
kol_hour, tarif :integer;
k:integer;
begin
k:=form1.StringGrid1.Row; { изменяет данные в таб.1}
im := Edit2.Text;
fam := Edit1.Text;
ot := Edit3.Text;
kol_hour := StrToint(form2.Edit4.text);
tarif := StrToInt(form2.Edit5.text);
form1.StringGrid1.Cells[0,k] := fam;
form1.StringGrid1.Cells[1,k] := im;
form1.StringGrid1.Cells[2,k] := ot;
form1.StringGrid1.Cells[3,k] := inttostr (kol_hour) ;
form1.StringGrid1.Cells[4,k] := inttostr (tarif);
form2.Close;
end;
procedure TForm2.Button4Click(Sender: TObject); {удаляет данные из таб.1}
var
i,k:integer;
begin
form1.stringgrid1.Rows[form1.
k:=form1.stringgrid1.Row;
for i:=form1.stringgrid1.row to form1.stringgrid1.rowcount do
begin
form1.StringGrid1.Rows[k]:= form1.StringGrid1.Rows[k + 1];
k:=k+1;
end;
form1.StringGrid1.Rows[k + 1].Clear;
form2.Close;
end;
procedure TForm2.Edit1Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit3.Text<>'') and (edit4.Text<>'') and (edit5.Text<>'')
then
begin
form2.Button3.Enabled:=true;
form2.Button4.Enabled:=true;
end else
Информация о работе Проектирование ИС управления магазином компьютерных товаров