Разработка ИС учета охраняемых объектов ЧОП "Рубеж-М"
Контекстная диаграмма системы обслуживания и диаграмма декомпозиции. Обоснование необходимости внедрения информационной системы. Обзор существующих программных продуктов. ER-диаграмма системы, описание таблиц базы данных. Используемые системы кодирования.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 27.01.2014 |
| Размер файла | 577,2 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Excel.Cells[9,2] := dstOrders.FieldByName('Клиент').AsString;
Excel.Cells[5,3] := FormatFloat('0000', dstOrders.FieldByName('NЗаказа').AsInteger) +
' от ' + GetRightDate(DM.dstOrders.FieldByName('ДатаСдачи').AsDateTime);
//Цикл по работам:
dstJobs.First;
Sum := 0; //Сумма работ
while not dstJobs.Eof do
begin
//Добавление новой строки для продукции:
if i <> 0 then
begin
Excel.Rows.Item[PosInc+i].Select;
Excel.Selection.Insert;
Excel.Rows.Item[PosInc].Select;
Excel.Selection.Copy;
Excel.Rows.Item[PosInc+i].Select;
Excel.ActiveSheet.Paste;
Excel.Application.CutCopyMode := False;
end;
Excel.Cells[i+PosInc,1] := i+1;
Excel.Cells[i+PosInc,2] := dstJobs.FieldByName('Работа').AsString;
Excel.Cells[i+PosInc,3] := dstJobs.FieldByName('Стоимость').AsCurrency;
Excel.Cells[i+PosInc,4] := FormatFloat('0,00', dstJobs.FieldByName('Количество').AsFloat);
Excel.Cells[i+PosInc,5] := dstJobs.FieldByName('Сумма').AsCurrency;
Inc(i);
Sum := Sum + dstJobs.FieldByName('Сумма').AsCurrency;
dstJobs.Next;
end; //while not dstJobs.Eof
Excel.Cells[i+PosInc,5] := Sum;
Excel.Cells[i+PosInc+1,5] := Sum/118*18;
end; //with
Excel.Visible := True;
except
Excel.Quit;
end;
finally
Screen.Cursor := crDefault;
end;
end;
//Формирование счета:
procedure Rep_Bill;
var
WorkbookName: string;
Excel: Variant;
i, PosInc: Integer;
Sum: Currency;
begin
//Шаблон хранится в папке Шаблоны:
WorkbookName := GetCurrentDir + '\Templates\' + 'Счет.xlt';
Excel := CreateOleObject('Excel.Application');
Screen.Cursor := crHourGlass;
try
try
Excel.Workbooks.Open(WorkbookName);
//Экспорт данных из таблицы БД:
with DM do
begin
i := 0;
PosInc := 9;
Excel.Cells[4,2] := FormatFloat('0000', dstOrders.FieldByName('NЗаказа').AsInteger) +
' от ' + dstOrders.FieldByName('ДатаПриема').AsString;
Excel.Cells[6,2] := dstOrders.FieldByName('Клиент').AsString + ', ИНН ' +
DM.tbOrgs.FieldByName('ИНН').AsString + ', КПП ' +
DM.tbOrgs.FieldByName('КПП').AsString;
//Цикл по работам:
dstJobs.First;
Sum := 0;
while not dstJobs.Eof do
begin
//Добавление новой строки для работы:
if i <> 0 then
begin
Excel.Rows.Item[PosInc+i].Select;
Excel.Selection.Insert;
Excel.Rows.Item[PosInc].Select;
Excel.Selection.Copy;
Excel.Rows.Item[PosInc+i].Select;
Excel.ActiveSheet.Paste;
Excel.Application.CutCopyMode := False;
end;
Excel.Cells[i+PosInc,1] := i+1;
Excel.Cells[i+PosInc,2] := dstJobs.FieldByName('Работа').AsString;
Excel.Cells[i+PosInc,3] := 'шт';
Excel.Cells[i+PosInc,4] := dstJobs.FieldByName('Количество').AsFloat;
Excel.Cells[i+PosInc,5] := dstJobs.FieldByName('Стоимость').AsCurrency;
Excel.Cells[i+PosInc,6] := dstJobs.FieldByName('Сумма').AsCurrency;
Inc(i);
Sum := Sum + dstJobs.FieldByName('Сумма').AsCurrency;
dstJobs.Next;
end; //while not dstJobs.Eof
//Цикл по МТР:
dstOrderParts.First;
while not dstOrderParts.Eof do
begin
//Добавление новой строки для МТР:
if i <> 0 then
begin
Excel.Rows.Item[PosInc+i].Select;
Excel.Selection.Insert;
Excel.Rows.Item[PosInc].Select;
Excel.Selection.Copy;
Excel.Rows.Item[PosInc+i].Select;
Excel.ActiveSheet.Paste;
Excel.Application.CutCopyMode := False;
end;
Excel.Cells[i+PosInc,1] := i+1;
Excel.Cells[i+PosInc,2] := dstOrderParts.FieldByName('Материал').AsString;
Excel.Cells[i+PosInc,3] := tbParts.FieldByName('ЕдИзм').AsString;
Excel.Cells[i+PosInc,4] := dstOrderParts.FieldByName('Количество').AsFloat;
Excel.Cells[i+PosInc,5] := dstOrderParts.FieldByName('Цена').AsCurrency;
Excel.Cells[i+PosInc,6] := dstOrderParts.FieldByName('Сумма').AsCurrency;
Inc(i);
Sum := Sum + dstOrderParts.FieldByName('Сумма').AsCurrency;
dstOrderParts.Next;
end; //while not dstJobs.Eof
Excel.Cells[i+PosInc,6] := Sum;
Excel.Cells[i+PosInc+1,6] := Sum/118*18;
Excel.Cells[i+PosInc+3,2] := SumToTxt(Format('%.2f', [Sum]));
//Вывод реквизитов в шапку:
DM.tbInfo.Open;
Excel.Cells[1,1] := DM.tbInfo.FieldByName('Наименование').AsString + ', ' +
DM.tbInfo.FieldByName('Адрес').AsString + ', ИНН ' +
DM.tbInfo.FieldByName('ИНН').AsString + ', КПП ' +
DM.tbInfo.FieldByName('КПП').AsString;
Excel.Cells[2,1] := DM.tbInfo.FieldByName('Реквизиты').AsString;
Excel.Cells[i+PosInc+5,3] := DM.tbInfo.FieldByName('ГенДиректор').AsString;
DM.tbInfo.Close;
end; //with
Excel.Visible := True;
except
Excel.Quit;
end;
finally
Screen.Cursor := crDefault;
end;
end;
//Формирование счета-фактуры:
procedure Rep_Fact;
var
WorkbookName: string;
Excel: Variant;
i, PosInc: Integer;
Sum: Currency;
begin
//Шаблон хранится в папке Шаблоны:
WorkbookName := GetCurrentDir + '\Templates\' + 'Счет-фактура.xlt';
Excel := CreateOleObject('Excel.Application');
Screen.Cursor := crHourGlass;
try
try
Excel.Workbooks.Open(WorkbookName);
//Экспорт данных из таблицы БД:
with DM do
begin
i := 0;
PosInc := 19;
Excel.Cells[4,2] := FormatFloat('0000', dstOrders.FieldByName('NЗаказа').AsInteger);
Excel.Cells[4,4] := GetRightDate(DM.dstOrders.FieldByName('ДатаПриема').AsDateTime);
Excel.Cells[10,2] := dstOrders.FieldByName('Клиент').AsString + ', ' +
DM.tbOrgs.FieldByName('Адрес').AsString;
Excel.Cells[11,2] := 'С' + FormatFloat('0000', dstOrders.FieldByName('NЗаказа').AsInteger) +
' от ' + dstOrders.FieldByName('ДатаПриема').AsString;
Excel.Cells[12,2] := dstOrders.FieldByName('Клиент').AsString;
Excel.Cells[13,2] := DM.tbOrgs.FieldByName('Адрес').AsString;
Excel.Cells[14,2] := DM.tbOrgs.FieldByName('ИНН').AsString + ' / ' +
DM.tbOrgs.FieldByName('КПП').AsString;
//Цикл по работам:
dstJobs.First;
Sum := 0;
while not dstJobs.Eof do
begin
//Добавление новой строки для работы:
if i <> 0 then
begin
Excel.Rows.Item[PosInc+i].Select;
Excel.Selection.Insert;
Excel.Rows.Item[PosInc].Select;
Excel.Selection.Copy;
Excel.Rows.Item[PosInc+i].Select;
Excel.ActiveSheet.Paste;
Excel.Application.CutCopyMode := False;
end;
Excel.Cells[i+PosInc,1] := dstJobs.FieldByName('Работа').AsString;
Excel.Cells[i+PosInc,2] := 'шт';
Excel.Cells[i+PosInc,3] := dstJobs.FieldByName('Количество').AsFloat;
Excel.Cells[i+PosInc,4] := dstJobs.FieldByName('Стоимость').AsCurrency;
Excel.Cells[i+PosInc,5] := dstJobs.FieldByName('Сумма').AsCurrency / 118 * 100;
Excel.Cells[i+PosInc,8] := dstJobs.FieldByName('Сумма').AsCurrency / 118 * 18;
Excel.Cells[i+PosInc,9] := dstJobs.FieldByName('Сумма').AsCurrency;
Inc(i);
Sum := Sum + dstJobs.FieldByName('Сумма').AsCurrency;
dstJobs.Next;
end; //while not dstJobs.Eof
//Цикл по МТР:
dstOrderParts.First;
while not dstOrderParts.Eof do
begin
//Добавление новой строки для продукции:
if i <> 0 then
begin
Excel.Rows.Item[PosInc+i].Select;
Excel.Selection.Insert;
Excel.Rows.Item[PosInc].Select;
Excel.Selection.Copy;
Excel.Rows.Item[PosInc+i].Select;
Excel.ActiveSheet.Paste;
Excel.Application.CutCopyMode := False;
end;
Excel.Cells[i+PosInc,1] := dstOrderParts.FieldByName('Материал').AsString;
Excel.Cells[i+PosInc,4] := tbParts.FieldByName('ЕдИзм').AsString;
Excel.Cells[i+PosInc,3] := dstOrderParts.FieldByName('Количество').AsFloat;
Excel.Cells[i+PosInc,4] := dstOrderParts.FieldByName('Цена').AsCurrency / 118 * 100;
Excel.Cells[i+PosInc,5] := dstOrderParts.FieldByName('Сумма').AsCurrency / 118 * 100;
Excel.Cells[i+PosInc,8] := dstOrderParts.FieldByName('Сумма').AsCurrency / 118 * 18;
Excel.Cells[i+PosInc,9] := dstOrderParts.FieldByName('Сумма').AsCurrency;
Inc(i);
Sum := Sum + dstOrderParts.FieldByName('Сумма').AsCurrency;
dstOrderParts.Next;
end; //while not dstJobs.Eof
Excel.Cells[i+PosInc,9] := Sum / 118 * 18;
Excel.Cells[i+PosInc,9] := Sum;
//Вывод реквизитов:
DM.tbInfo.Open;
Excel.Cells[6,2] := DM.tbInfo.FieldByName('Наименование').AsString;
Excel.Cells[7,2] := DM.tbInfo.FieldByName('Адрес').AsString;
Excel.Cells[8,2] := DM.tbInfo.FieldByName('ИНН').AsString + ' / ' +
DM.tbInfo.FieldByName('КПП').AsString;
Excel.Cells[9,3] := DM.tbInfo.FieldByName('Наименование').AsString +
', ' + DM.tbInfo.FieldByName('Адрес').AsString;
Excel.Cells[i+PosInc+3,4] := DM.tbInfo.FieldByName('ГенДиректор').AsString;
Excel.Cells[i+PosInc+3,10] := DM.tbInfo.FieldByName('ГлавБух').AsString;
DM.tbInfo.Close;
end; //with
Excel.Visible := True;
except
Excel.Quit;
end;
finally
Screen.Cursor := crDefault;
end;
end;
//Функция возвращает дату формата "xx месяца xxxx г."
function GetRightDate(ADate: TDateTime): string;
var
Month: string;
begin
case MonthOf(ADate) of
1: Month := 'января';
2: Month := 'февраля';
3: Month := 'марта';
4: Month := 'апреля';
5: Month := 'мая';
6: Month := 'июня';
7: Month := 'июля';
8: Month := 'августа';
9: Month := 'сентября';
10: Month := 'октября';
11: Month := 'ноября';
12: Month := 'декабря';
end;
Result := FormatDateTime('dd ' + Month + ' yyyy г.', ADate);
end;
//Открытие пустого бланка дефектной ведомости:
procedure Rep_Defect;
var
ObjWord: Variant;
begin
ObjWord := CreateOleObject('Word.Application');
Screen.Cursor := crHourGlass;
try
try
ObjWord.Documents.Open(GetCurrentDir + '\Templates\Дефектная ведомость.dot');
ObjWord.Visible := True;
except
ObjWord.Quit;
end;
finally
Screen.Cursor := crDefault;
end;
end;
end.
unit uStatistics;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, Buttons, DBCtrls, ExtCtrls, TeEngine,
Series, TeeProcs, Chart, DbChart, TeePrevi;
type
TfmStatistics = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
DBChart2: TDBChart;
TabSheet3: TTabSheet;
DBChart3: TDBChart;
HorizBarSeries1: TBarSeries;
LineSeries1: TBarSeries;
TabSheet4: TTabSheet;
DBChart4: TDBChart;
PieSeries2: TPieSeries;
Panel3: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
Label1: TLabel;
dtpDate1: TDateTimePicker;
Label2: TLabel;
dtpDate2: TDateTimePicker;
BitBtn2: TBitBtn;
bbtExit: TBitBtn;
DBChart1: TDBChart;
PieSeries1: TPieSeries;
procedure dtpDate1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure bbtExitClick(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmStatistics: TfmStatistics;
implementation
uses uDM, uRep;
{$R *.dfm}
procedure TfmStatistics.dtpDate1Change(Sender: TObject);
begin
//В зависимости от активной закладки запускается обработчик соответствующей кнопки:
case PageControl1.ActivePageIndex of
0: SpeedButton1Click(Self);
1: SpeedButton2Click(Self);
2: SpeedButton3Click(Self);
3: SpeedButton4Click(Self);
end;
end;
procedure TfmStatistics.FormCreate(Sender: TObject);
begin
dtpDate1.Date := Date;
dtpDate2.Date := Date;
SpeedButton1.Caption := 'Потребность в МТР' + Chr(13) + 'за период';
SpeedButton2.Caption := 'Статистика расхода МТР за период';
SpeedButton4.Caption := 'Суммы работ по' + Chr(13) + 'клиентам за период';
SpeedButton1.Down := True;
SpeedButton1Click(Self);
end;
procedure TfmStatistics.BitBtn2Click(Sender: TObject);
begin
//В зависимости от активной закладки выводится в режим просмотра перед печатью
//выбранная диаграмма:
if PageControl1.ActivePageIndex = 0 then
ChartPreview(Self, DBChart1)
else if PageControl1.ActivePageIndex = 1 then
ChartPreview(Self, DBChart2)
else if PageControl1.ActivePageIndex = 2 then
ChartPreview(Self, DBChart3)
else if PageControl1.ActivePageIndex = 3 then
ChartPreview(Self, DBChart4);
end;
procedure TfmStatistics.bbtExitClick(Sender: TObject);
begin
Close;
end;
//Формирование диаграммы "Потребность МТР за период":
procedure TfmStatistics.SpeedButton1Click(Sender: TObject);
begin
PageControl1.ActivePageIndex := 0;
DM.dstStatPartsCateg.Close;
DM.dstStatPartsCateg.Parameters.ParamByName('pDate1').Value := dtpDate1.Date;
DM.dstStatPartsCateg.Parameters.ParamByName('pDate2').Value := dtpDate2.Date;
DM.dstStatPartsCateg.Parameters.ParamByName('pDate11').Value := dtpDate1.Date;
DM.dstStatPartsCateg.Parameters.ParamByName('pDate22').Value := dtpDate2.Date;
DM.dstStatPartsCateg.Open;
DBChart1.Title.Text.Strings[0] := 'Потребность в МТР c ' +
DateToStr(dtpDate1.Date) + ' по ' + DateToStr(dtpDate2.Date);
end;
//Формирование диаграммы "Статистика расхода МТР за период":
procedure TfmStatistics.SpeedButton2Click(Sender: TObject);
begin
PageControl1.ActivePageIndex := 1;
DM.dstStatPartsSum.Close;
DM.dstStatPartsSum.Parameters.ParamByName('pDate1').Value := dtpDate1.Date;
DM.dstStatPartsSum.Parameters.ParamByName('pDate2').Value := dtpDate2.Date;
DM.dstStatPartsSum.Open;
DBChart2.Title.Text.Strings[0] := 'Статистика расхода МТР c ' +
DateToStr(dtpDate1.Date) + ' по ' + DateToStr(dtpDate2.Date);
end;
//Формирование диаграммы "Суммы работ за период":
procedure TfmStatistics.SpeedButton3Click(Sender: TObject);
begin
PageControl1.ActivePageIndex := 2;
DM.dstStatOrderSum.Close;
DM.dstStatOrderSum.Parameters.ParamByName('pDate1').Value := dtpDate1.Date;
DM.dstStatOrderSum.Parameters.ParamByName('pDate2').Value := dtpDate2.Date;
DM.dstStatOrderSum.Parameters.ParamByName('pDate11').Value := dtpDate1.Date;
DM.dstStatOrderSum.Parameters.ParamByName('pDate22').Value := dtpDate2.Date;
DM.dstStatOrderSum.Open;
DBChart3.Title.Text.Strings[0] := 'Суммы работ c ' +
DateToStr(dtpDate1.Date) + ' по ' + DateToStr(dtpDate2.Date);
end;
//Формирование диаграммы "Суммы работ по клиентам за период":
procedure TfmStatistics.SpeedButton4Click(Sender: TObject);
begin
PageControl1.ActivePageIndex := 3;
DM.dstStatClientSum.Close;
DM.dstStatClientSum.Parameters.ParamByName('pDate1').Value := dtpDate1.Date;
DM.dstStatClientSum.Parameters.ParamByName('pDate2').Value := dtpDate2.Date;
DM.dstStatClientSum.Parameters.ParamByName('pDate11').Value := dtpDate1.Date;
DM.dstStatClientSum.Parameters.ParamByName('pDate22').Value := dtpDate2.Date;
DM.dstStatClientSum.Open;
DBChart4.Title.Text.Strings[0] := 'Суммы работ по клиентам c ' +
DateToStr(dtpDate1.Date) + ' по ' + DateToStr(dtpDate2.Date);
end;
end.
unit uStr;
//Модуль для перевода числового представления суммы в строковое
interface
uses
SysUtils, StrUtils;
function SumToTxt(Value: String) : string; //Функция для перевода (аргумент - строка, содержащая сумму)
implementation
const a:array[0..8,0..9] of string=(
('','один ','два ','три ','четыре ','пять ','шесть ','семь ','восемь ','девять '),
('','','двадцать ','тридцать ','сорок ','пятьдесят ','шестьдесят ','семьдесят ','восемьдесят ','девяносто '),
('','сто ','двести ','триста ','четыреста ','пятьсот ','шестьсот ','семьсот ','восемьсот ','девятьсот '),
('тысяч ','тысяча ','две тысячи ','три тысячи ','четыре тысячи ','пять тысяч ','шесть тысяч ','семь тысяч ',
'восемь тысяч ','девять тысяч '),
('','','двадцать ','тридцать ','сорок ','пятьдесят ','шестьдесят ','семьдесят ','восемьдесят ','девяносто '),
('','сто ','двести ','триста ','четыреста ','пятьсот ','шестьсот ','семьсот ','восемьсот ','девятьсот '),
('миллионов ','один миллион ','два миллиона ','три миллиона ','четыре миллиона ','пять миллионов ',
'шесть миллионов ','семь миллионов ','восемь миллионов ','девять миллионов '),
('','','двадцать ','тридцать ','сорок ','пятьдесят ','шестьдесят ','семьдесят ','восемьдесят ','девяносто '),
('','сто ','двести ','триста ','четыреста ','пятьсот ','шестьсот ','семьсот ','восемьсот ','девятьсот '));
b:array[0..9] of string=
('десять ','одинадцать ','двенадцать ','тринадцать ','четырнадцать ','пятьнадцать ','шестьнадцать ',
'семьнадцать ','восемьнадцать ','девятьнадцать ');
function SumToStrin(Value : String) : string;
var s,t:string;
p,pp,i,k:integer;
begin
s:=value;
if s='0' then
t:='Ноль '
else begin
p:=length(s);
pp:=p;
if p>1 then
if (s[p-1]='1') and (s[p]>'0') then begin
t:=b[strtoint(s[p])];
pp:=pp-2;
end;
i:=pp;
while i>0 do begin
if (i=p-3) and (p>4) then
if s[p-4]='1' then begin
t:=b[strtoint(s[p-3])]+'тысяч '+t;
i:=i-2;
end;
if (i=p-6) and (p>7) then
if s[p-7]='1' then begin
t:=b[strtoint(s[p-6])]+'миллионов '+t;
i:=i-2;
end;
if i>0 then begin
k:=strtoint(s[i]);
t:=a[p-i,k]+t;
i:=i-1;
end;
end;
end;
Result := t;
end;
//Разделяет сумму на рубли и копейки:
procedure get2str(value:string;var hi,lo:string);
var p:integer;
begin
p:=pos(',',value);
lo:='';hi:='';
if p=0 then
p:=pos('.',value);
if p<>0 then
delete(value,p,1);
if p=0 then begin
hi:=value;
lo:='00';
end;
if p>length(value) then begin
hi:=value;
lo:='00';
end;
if p=1 then begin
hi:='0';
lo:=value;
end;
if (p>1) and (p<length(value)) then begin
hi:=copy(value,1,p-1);
lo:=copy(value,p,length(value));
end;
end;
function SumToTxt(value: string):string;
var hi,lo:string;
pr,er:integer;
begin
get2str(value,hi,lo);
if (hi='') or (lo='') then begin
result:='';exit;
end;
val(hi,pr,er);if er<>0 then begin
result:='';
exit;
end;
hi:=sumtostrin(inttostr(pr))+'руб. ';
if lo<>'00' then begin
val(lo,pr,er);
if er<>0 then begin
result:='';
exit;
end;
lo:=inttostr(pr);
end;
lo:=lo+' коп. ';
hi[1]:=AnsiUpperCase(hi[1])[1];
result:=hi+lo;
end;
end.
Размещено на Allbest.ru
Подобные документы
Выделение бизнес-процессов, контекстная диаграмма потоков данных. Разработка информационной системы, содержащей сведения о номерах гостиницы: категория, количество мест, стоимость проживания за сутки. Диаграммы декомпозиции в нотации DFD, IDEF3.
курсовая работа [3,0 M], добавлен 28.06.2011Назначение программы "Учёт пациентов" и её подсистемы. Диаграмма классов предметной области, диаграмма последовательностей, описание автоматизируемых функций и характеристика функциональной структуры. Физическая схема и описание таблиц базы данных.
дипломная работа [3,3 M], добавлен 15.11.2016Проектирование модели информационной системы "Склад" с помощью AllFusion Process Modeler 4.1 (Bpwin4.1). Диаграмма дерева узлов AS-TO-BE и AS-IS. ER-диаграмма потоков данных "Сущность-связь". Физическо-логическая модель базы данных в нотации IDEF1X.
курсовая работа [2,4 M], добавлен 25.06.2014Характеристика склада "Skala". Организационная диаграмма, формирование физической диаграммы. Описание бизнес-процессов. Создание модели информационной системы. Диаграмма дерева узлов. Перечень работников, стоимостный анализ. Диаграмма процессов в ERWin.
курсовая работа [2,8 M], добавлен 02.02.2014Проектирование логической модели системы: контекстная диаграмма и детализация процессов, реализация ссылочной целостности. Описание работоспособного программного обеспечения для проекта. SQL-определения запросов. Описание базы данных контрольного примера.
курсовая работа [91,4 K], добавлен 01.09.2010Определение прецедентов АИС "Автопарковка". Анализ предметной области. Первоначальная настройка системы администратором. Настройка БД и зеркалирования клиентской базы. Диаграмма последовательности системы. Модель проектирования информационной системы.
курсовая работа [605,8 K], добавлен 06.05.2015Назначение и цели создания системы. Разработка логической модели данных, выбор хранилища. Диаграмма классов для диспетчера и контент-менеджера, схема взаимодействия объектов системы. Описание программных модулей. Тестирование веб-базированной системы.
курсовая работа [5,4 M], добавлен 17.09.2013Проектирование информационной системы. Построение диаграммы потоков данных. Описание порядка построения DFD-диаграммы. Создание базы данных с помощью SQL сервера. Описание основных бизнес-правил и их физической реализации. Заполнение таблиц данными.
курсовая работа [1,5 M], добавлен 13.12.2011Жизненный цикл информационных систем. Создание системы обработки заказов ресторана. Описание деятельности ресторана с целью выявления автоматизируемых процессов. Диаграмма вариантов, классов и последовательности для информационной системы "Ресторан".
курсовая работа [541,7 K], добавлен 07.01.2015- Разработка серверной части информационной системы для сопровождения процесса выдачи заработной платы
Построение use case диаграммы. Проектирование базы данных. Концептуальная модели 1-уровня (диаграмма последовательности действий). Мапирование реляционной модели в метамодель. Логическая реализация метамодели. Скрипты, заполнение таблиц, создание выборок.
курсовая работа [1,4 M], добавлен 28.12.2011
