Автоматизированная информационная система "Подписка"
Требования к функциональным характеристикам информационной системы "Подписка". Функциональное проектирование автоматизированной системы ведения учета основных средств на предприятии. Проектирование базы данных автоматизированной системы ведения учета.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 16.01.2015 |
| Размер файла | 753,0 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
begin
Close;
end;
procedure TfmReceipt.buInsertClick(Sender: TObject);
begin
if (Edit1.Text='') then
ShowMessage('Заполните все обязательны поля')
else begin
DM.dstReceipt.Insert;
DM.dstReceipt.FBN('AMOUNT').AsInteger:=StrToInt(Edit1.Text);
DM.dstReceipt.FBN('RDATE').AsDateTime:=dtp1.DateTime;
DM.dstReceipt.FBN('ID_EDITION').AsInteger:=
DM.dstReceipt1.FBN('ID_EDITION').AsInteger;
DM.dstReceipt.Post;
if DM.dstReceipt.UpdateTransaction.InTransaction then
DM.dstReceipt.UpdateTransaction.Commit;
DM.dstReceipt.FullRefresh;
Edit1.Clear;
end;
end;
procedure TfmReceipt.DBGrid1CellClick(Column: TColumn);
begin
DM.dstReceipt1.Edit;
DM.dstReceipt1.FBN('ID_EDITION').AsInteger:=
DM.dstReceipt.FBN('ID_EDITION').AsInteger;
Edit1.Text:=DM.dstReceipt.FBN('AMOUNT').AsString;
dtp1.DateTime:=DM.dstReceipt.FBN('RDATE').AsDateTime;
end;
procedure TfmReceipt.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', #8]) then Key:=#0;
end;
procedure TfmReceipt.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DM.dstReceipt.Close;
DM.dstReceipt1.Close;
DM.dstEdition.Close;
Action:=caFree;
fmReceipt:=nil;
end;
procedure TfmReceipt.FormShow(Sender: TObject);
begin
DM.dstReceipt.Open;
DM.dstReceipt1.Open;
DM.dstEdition.Open;
end;
end.
Текст модуля uStreet.pas:
unit uStreet;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, ExtCtrls, DataM;
type
TfmStreet = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
buEdit: TButton;
buInsert: TButton;
buDelete: TButton;
buExit: TButton;
Panel4: TPanel;
Label1: TLabel;
Edit1: TEdit;
DBGrid1: TDBGrid;
procedure buDeleteClick(Sender: TObject);
procedure buEditClick(Sender: TObject);
procedure buInsertClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure DBGrid1CellClick(Column: TColumn);
procedure buExitClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmStreet: TfmStreet;
implementation
{$R *.dfm}
procedure TfmStreet.buDeleteClick(Sender: TObject);
begin
if DM.dstStreet.RecordCount=0 then Exit;
DM.dstStreetNull.Close;
DM.dstStreetNull.ParamByName('X').AsInteger:=
DM.dstStreet.FBN('ID_STREET').AsInteger;
DM.dstStreetNull.Open;
if DM.dstStreetNull.IsEmpty then begin
if Application.MessageBox('Удалить текущую запись?', 'Удаление',
MB_YESNO) = mrYes then DM.dstStreet.Delete;
if DM.dstStreet.UpdateTransaction.InTransaction then
DM.dstStreet.UpdateTransaction.Commit;
DM.dstStreet.FullRefresh;
Edit1.Clear;
end
else ShowMessage('Необходимо сперва удалить зависимые записи.');
end;
procedure TfmStreet.buEditClick(Sender: TObject);
begin
if (Edit1.Text='') then
ShowMessage('Заполните все обязательны поля')
else begin
DM.dstStreet.Edit;
DM.dstStreet.FBN('NAME').AsString:=Edit1.Text;
DM.dstStreet.Post;
if DM.dstStreet.UpdateTransaction.InTransaction then
DM.dstStreet.UpdateTransaction.Commit;
DM.dstStreet.FullRefresh;
Edit1.Clear;
end;
end;
procedure TfmStreet.buExitClick(Sender: TObject);
begin
Close;
end;
procedure TfmStreet.buInsertClick(Sender: TObject);
begin
if (Edit1.Text='') then
ShowMessage('Заполните все обязательны поля')
else begin
DM.dstStreet.Insert;
DM.dstStreet.FBN('NAME').AsString:=Edit1.Text;
DM.dstStreet.Post;
if DM.dstStreet.UpdateTransaction.InTransaction then
DM.dstStreet.UpdateTransaction.Commit;
DM.dstStreet.FullRefresh;
Edit1.Clear;
end;
end;
procedure TfmStreet.DBGrid1CellClick(Column: TColumn);
begin
Edit1.Text:=DM.dstStreet.FBN('NAME').AsString;
end;
procedure TfmStreet.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DM.dstStreet.Close;
DM.dstStreetNull.Close;
Action:=caFree;
fmStreet:=nil;
end;
procedure TfmStreet.FormShow(Sender: TObject);
begin
DM.dstStreet.Open;
end;
end.
Текст модуля uSubscriber.pas:
unit uSubscriber;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, ExtCtrls, DataM;
type
TfmSubscriber = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
buEdit: TButton;
buInsert: TButton;
buDelete: TButton;
buExit: TButton;
Panel4: TPanel;
Label1: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
DBGrid1: TDBGrid;
buPrint: TButton;
procedure buPrintClick(Sender: TObject);
procedure buDeleteClick(Sender: TObject);
procedure buEditClick(Sender: TObject);
procedure buInsertClick(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure buExitClick(Sender: TObject);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmSubscriber: TfmSubscriber;
implementation
{$R *.dfm}
procedure TfmSubscriber.buDeleteClick(Sender: TObject);
begin
if DM.dstSubscriber.RecordCount=0 then Exit;
DM.dstSubscriberNull.Close;
DM.dstSubscriberNull.ParamByName('X').AsInteger:=
DM.dstSubscriber.FBN('ID_SUBSCRIBER').AsInteger;
DM.dstSubscriberNull.Open;
if DM.dstSubscriberNull.IsEmpty then begin
if Application.MessageBox('Удалить текущую запись?', 'Удаление',
MB_YESNO) = mrYes then DM.dstSubscriber.Delete;
if DM.dstSubscriber.UpdateTransaction.InTransaction then
DM.dstSubscriber.UpdateTransaction.Commit;
DM.dstSubscriber.FullRefresh;
end
else ShowMessage('Необходимо сперва удалить зависимые записи.');
end;
procedure TfmSubscriber.buEditClick(Sender: TObject);
begin
if (Edit1.Text='') or (Edit2.Text='') then
ShowMessage('Заполните все обязательны поля')
else begin
DM.dstSubscriber.Edit;
DM.dstSubscriber.FBN('NAME').AsString:=Edit1.Text;
DM.dstSubscriber.FBN('ADDRESS').AsString:=Edit2.Text;
DM.dstSubscriber.FBN('PHONE').AsString:=Edit3.Text;
DM.dstSubscriber.Post;
if DM.dstSubscriber.UpdateTransaction.InTransaction then
DM.dstSubscriber.UpdateTransaction.Commit;
DM.dstSubscriber.FullRefresh;
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
end;
end;
procedure TfmSubscriber.buExitClick(Sender: TObject);
begin
Close;
end;
procedure TfmSubscriber.buInsertClick(Sender: TObject);
begin
if (Edit1.Text='') or (Edit2.Text='') then
ShowMessage('Заполните все обязательны поля')
else begin
DM.dstSubscriber.Insert;
DM.dstSubscriber.FBN('NAME').AsString:=Edit1.Text;
DM.dstSubscriber.FBN('ADDRESS').AsString:=Edit2.Text;
DM.dstSubscriber.FBN('PHONE').AsString:=Edit3.Text;
DM.dstSubscriber.Post;
if DM.dstSubscriber.UpdateTransaction.InTransaction then
DM.dstSubscriber.UpdateTransaction.Commit;
DM.dstSubscriber.FullRefresh;
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
end;
end;
procedure TfmSubscriber.buPrintClick(Sender: TObject);
begin
DM.dstR3.Close;
DM.dstR3.ParamByName('X').AsInteger:=
DM.dstSubscriber.FBN('ID_SUBSCRIBER').AsInteger;
DM.dstR3.Open;
DM.frxR3.ShowReport();
end;
procedure TfmSubscriber.DBGrid1CellClick(Column: TColumn);
begin
Edit1.Text:=DM.dstSubscriber.FBN('NAME').AsString;
Edit2.Text:=DM.dstSubscriber.FBN('ADDRESS').AsString;
Edit3.Text:=DM.dstSubscriber.FBN('PHONE').AsString;
end;
procedure TfmSubscriber.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', '+', '*', '#', #8]) then Key:=#0;
end;
procedure TfmSubscriber.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DM.dstSubscriber.Close;
DM.dstSubscriberNull.Close;
DM.dstR3.Close;
Action:=caFree;
fmSubscriber:=nil;
end;
procedure TfmSubscriber.FormShow(Sender: TObject);
begin
DM.dstSubscriber.Open;
end;
end.
Текст модуля uSubscription.pas:
unit uSubscription;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DataM, ComCtrls, Grids, DBGrids, StdCtrls, DBCtrls, ExtCtrls;
type
TfmSubscription = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
buEdit: TButton;
buInsert: TButton;
buDelete: TButton;
buExit: TButton;
Panel4: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
Edit1: TEdit;
Edit2: TEdit;
DBGrid1: TDBGrid;
dtp1: TDateTimePicker;
procedure DBLookupComboBox2CloseUp(Sender: TObject);
procedure buDeleteClick(Sender: TObject);
procedure buEditClick(Sender: TObject);
procedure buInsertClick(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure buExitClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmSubscription: TfmSubscription;
implementation
{$R *.dfm}
procedure TfmSubscription.buDeleteClick(Sender: TObject);
begin
if DM.dstSubscription.RecordCount=0 then Exit;
DM.dstSubscriptionNull.Close;
DM.dstSubscriptionNull.ParamByName('X').AsInteger:=
DM.dstSubscription.FBN('ID_EDITION').AsInteger;
DM.dstSubscriptionNull.Open;
if DM.dstSubscriptionNull.IsEmpty then begin
if Application.MessageBox('Удалить текущую запись?', 'Удаление',
MB_YESNO) = mrYes then DM.dstSubscription.Delete;
if DM.dstSubscription.UpdateTransaction.InTransaction then
DM.dstSubscription.UpdateTransaction.Commit;
DM.dstSubscription.FullRefresh;
end
else ShowMessage('Необходимо сперва удалить зависимые записи.');
end;
procedure TfmSubscription.buEditClick(Sender: TObject);
begin
if (Edit1.Text='') or (Edit2.Text='') then
ShowMessage('Заполните все обязательны поля')
else begin
DM.dstSubscription.Edit;
DM.dstSubscription.FBN('AMOUNT').AsInteger:=StrToInt(Edit1.Text);
DM.dstSubscription.FBN('TOTAL').AsFloat:=StrToFloat(Edit2.Text);
DM.dstSubscription.FBN('SDATE').AsDateTime:=dtp1.DateTime;
DM.dstSubscription.FBN('ID_EDITION').AsInteger:=
DM.dstSubscription1.FBN('ID_EDITION').AsInteger;
DM.dstSubscription.FBN('ID_SUBSCRIBER').AsInteger:=
DM.dstSubscription1.FBN('ID_SUBSCRIBER').AsInteger;
DM.dstSubscription.Post;
if DM.dstSubscription.UpdateTransaction.InTransaction then
DM.dstSubscription.UpdateTransaction.Commit;
DM.dstSubscription.FullRefresh;
Edit1.Clear;
Edit2.Clear;
end;
end;
procedure TfmSubscription.buExitClick(Sender: TObject);
begin
Close;
end;
procedure TfmSubscription.buInsertClick(Sender: TObject);
begin
if (Edit1.Text='') or (Edit2.Text='') then
ShowMessage('Заполните все обязательны поля')
else begin
DM.dstSubscription.Insert;
DM.dstSubscription.FBN('AMOUNT').AsInteger:=StrToInt(Edit1.Text);
DM.dstSubscription.FBN('TOTAL').AsFloat:=StrToFloat(Edit2.Text);
DM.dstSubscription.FBN('SDATE').AsDateTime:=dtp1.DateTime;
DM.dstSubscription.FBN('ID_EDITION').AsInteger:=
DM.dstSubscription1.FBN('ID_EDITION').AsInteger;
DM.dstSubscription.FBN('ID_SUBSCRIBER').AsInteger:=
DM.dstSubscription1.FBN('ID_SUBSCRIBER').AsInteger;
DM.dstSubscription.Post;
if DM.dstSubscription.UpdateTransaction.InTransaction then
DM.dstSubscription.UpdateTransaction.Commit;
DM.dstSubscription.FullRefresh;
Edit1.Clear;
Edit2.Clear;
end;
end;
procedure TfmSubscription.DBGrid1CellClick(Column: TColumn);
begin
DM.dstSubscription1.Edit;
DM.dstSubscription1.FBN('ID_EDITION').AsInteger:=
DM.dstSubscription.FBN('ID_EDITION').AsInteger;
DM.dstSubscription1.FBN('ID_SUBSCRIBER').AsInteger:=
DM.dstSubscription.FBN('ID_SUBSCRIBER').AsInteger;
Edit1.Text:=DM.dstSubscription.FBN('AMOUNT').AsString;
Edit2.Text:=DM.dstSubscription.FBN('TOTAL').AsString;
dtp1.DateTime:=DM.dstSubscription.FBN('SDATE').AsDateTime;
end;
procedure TfmSubscription.DBLookupComboBox2CloseUp(Sender: TObject);
begin
if Edit1.Text<>'' then begin
DM.dstCost.Close;
DM.dstCost.ParamByName('X').AsInteger:=
DM.dstEdition.FBN('ID_EDITION').AsInteger;
DM.dstCost.Open;
Edit2.Text:=
FloatToStr(StrToFloat(Edit1.Text)*DM.dstCost.FBN('COST').AsFloat);
end;
end;
procedure TfmSubscription.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', #8]) then Key:=#0;
end;
procedure TfmSubscription.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DM.dstSubscription.Close;
DM.dstSubscription1.Close;
DM.dstSubscriptionNull.Close;
DM.dstSubscriber.Close;
DM.dstEdition.Close;
Action:=caFree;
fmSubscription:=nil;
end;
procedure TfmSubscription.FormShow(Sender: TObject);
begin
DM.dstSubscription.Open;
DM.dstSubscription1.Open;
DM.dstEdition.Open;
DM.dstSubscriber.Open;
end;
end.
Текст модуля uWorker.pas:
unit uWorker;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DataM, Grids, DBGrids, StdCtrls, DBCtrls, ExtCtrls, ComCtrls;
type
TfmWorker = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
buEdit: TButton;
buInsert: TButton;
buDelete: TButton;
buExit: TButton;
Panel4: TPanel;
Label1: TLabel;
Label2: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
Edit1: TEdit;
DBGrid1: TDBGrid;
Label3: TLabel;
Label4: TLabel;
DBLookupComboBox2: TDBLookupComboBox;
dtp1: TDateTimePicker;
procedure buDeleteClick(Sender: TObject);
procedure buEditClick(Sender: TObject);
procedure buInsertClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure DBGrid1CellClick(Column: TColumn);
procedure buExitClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmWorker: TfmWorker;
implementation
{$R *.dfm}
procedure TfmWorker.buDeleteClick(Sender: TObject);
begin
if DM.dstWorker.RecordCount=0 then Exit;
DM.dstWorkerNull.Close;
DM.dstWorkerNull.ParamByName('X').AsInteger:=
DM.dstWorker.FBN('ID_WORKER').AsInteger;
DM.dstWorkerNull.Open;
if DM.dstWorkerNull.IsEmpty then begin
if Application.MessageBox('Удалить текущую запись?', 'Удаление',
MB_YESNO) = mrYes then DM.dstWorker.Delete;
if DM.dstWorker.UpdateTransaction.InTransaction then
DM.dstWorker.UpdateTransaction.Commit;
DM.dstWorker.FullRefresh;
end
else ShowMessage('Необходимо сперва удалить зависимые записи.');
end;
procedure TfmWorker.buEditClick(Sender: TObject);
begin
if (Edit1.Text='') then
ShowMessage('Заполните все обязательны поля')
else begin
DM.dstWorker.Edit;
DM.dstWorker.FBN('NAME').AsString:=Edit1.Text;
DM.dstWorker.FBN('BIRTHDATE').AsDateTime:=dtp1.DateTime;
DM.dstWorker.FBN('ID_JOB').AsInteger:=
DM.dstWorker1.FBN('ID_JOB').AsInteger;
DM.dstWorker.FBN('ID_CATEGORY').AsInteger:=
DM.dstWorker1.FBN('ID_CATEGORY').AsInteger;
DM.dstWorker.Post;
if DM.dstWorker.UpdateTransaction.InTransaction then
DM.dstWorker.UpdateTransaction.Commit;
DM.dstWorker.FullRefresh;
Edit1.Clear;
end;
end;
procedure TfmWorker.buExitClick(Sender: TObject);
begin
Close;
end;
procedure TfmWorker.buInsertClick(Sender: TObject);
begin
if (Edit1.Text='') then
ShowMessage('Заполните все обязательны поля')
else begin
DM.dstWorker.Insert;
DM.dstWorker.FBN('NAME').AsString:=Edit1.Text;
DM.dstWorker.FBN('BIRTHDATE').AsDateTime:=dtp1.DateTime;
DM.dstWorker.FBN('ID_JOB').AsInteger:=
DM.dstWorker1.FBN('ID_JOB').AsInteger;
DM.dstWorker.FBN('ID_CATEGORY').AsInteger:=
DM.dstWorker1.FBN('ID_CATEGORY').AsInteger;
DM.dstWorker.Post;
if DM.dstWorker.UpdateTransaction.InTransaction then
DM.dstWorker.UpdateTransaction.Commit;
DM.dstWorker.FullRefresh;
Edit1.Clear;
end;
end;
procedure TfmWorker.DBGrid1CellClick(Column: TColumn);
begin
DM.dstWorker1.Edit;
DM.dstWorker1.FBN('ID_JOB').AsInteger:=
DM.dstWorker.FBN('ID_JOB').AsInteger;
DM.dstWorker1.FBN('ID_CATEGORY').AsInteger:=
DM.dstWorker.FBN('ID_CATEGORY').AsInteger;
Edit1.Text:=DM.dstWorker.FBN('NAME').AsString;
dtp1.DateTime:=DM.dstWorker.FBN('BIRTHDATE').AsDateTime;
end;
procedure TfmWorker.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DM.dstWorker.Close;
DM.dstWorker1.Close;
DM.dstJob.Close;
DM.dstCategory.Close;
DM.dstWorkerNull.Close;
Action:=caFree;
fmWorker:=nil;
end;
procedure TfmWorker.FormShow(Sender: TObject);
begin
DM.dstWorker.Open;
DM.dstWorker1.Open;
DM.dstJob.Open;
DM.dstCategory.Open;
end;
end.
Размещено на Allbest.ru
Подобные документы
Создание автоматизированной информационной системы учета оборудования (компьютерной и оргтехники) на АКБ НМБ ОАО с использованием современных компьютерных средств. Проектирование базы данных. Алгоритмы решения задач. Расчёт затрат на проектирование.
дипломная работа [2,1 M], добавлен 16.12.2013Проектирование автоматизированной информационной системы контроля и учета товарных и денежных средств для магазина розничной торговли. Составление базы данных в среде СУБД MySQL. Расчет затрат на проектирование и эксплуатацию разработанной системы.
дипломная работа [4,3 M], добавлен 13.12.2013Анализ предметной области АИС "Подписка". Проектирование базы данных методом "Сущность-Связь" для разработанной функциональной модели. Описание таблиц базы данных. Выбор программного обеспечения, требования к нему. Краткое руководство пользователя.
курсовая работа [719,6 K], добавлен 15.09.2012Создание автоматизированной системы учета заказов и их выполнения в строительной фирме по ремонту квартир. Общие требования к информационной системе. Проектирование структуры базы данных. Построение ER-диаграммы. Реализация информационной системы.
курсовая работа [750,2 K], добавлен 24.03.2014Детализация функций системы и требования к информационной системе. Анализ категорий пользователей. Этапы внедрения автоматизированной информационной системы на предприятии. Описание таблиц базы данных. Защита данных от несанкционированного доступа.
дипломная работа [1,0 M], добавлен 22.07.2015Анализ проектирования автоматизированной информационной системы компьютерного магазина "Джей". Разработка базы данных на языке Transact-SQL в системе управления базами данных Microsoft SQL Server 2000. Расчет себестоимости и цены программного продукта.
курсовая работа [2,3 M], добавлен 16.08.2012Формы как носители информации. Реляционные базы данных. Разработка автоматизированной системы по ведению учета операций на предприятии ТОО "Фирма Радар". Задачи, выполняемые приложением. Цели, задачи, функции внутрифирменной системы обработки информации.
дипломная работа [1,7 M], добавлен 03.07.2015Реализация в автосервисах информационной справочной системы для организации учета распределения работ и ведения учета их стоимости. Анализ механизма предоставления услуг. Инфологическое и даталогическое проектирование. Выявление сущностей базы данных.
курсовая работа [1020,5 K], добавлен 24.01.2009Обоснование необходимости совершенствования информационной системы (ИС) ООО "Мехсервис". Анализ системы учета деятельности авторемонтного предприятия. Разработка концепции построения автоматизированной ИС. Описание продукта информационной технологии.
дипломная работа [2,7 M], добавлен 22.05.2012Выбор методологии проектирования и разработка информационной системы "Расчёт зарплаты" для предприятия ОАО РТП "Авторемонтник". Архитектурное проектирование базы данных информационной системы и разработка её интерфейса. Тестирование программного модуля.
дипломная работа [2,3 M], добавлен 25.05.2014
