Автоматизированная информационная система
Создание удобной и простой в использовании системы для автоматизации работы менеджеров, администраторов предприятия. Описание основных используемых процедур и функций. Описание интерфейса программы. Расчет объемов автоматизированных информационных услуг.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 02.06.2014 |
| Размер файла | 1,7 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
flag_g:=true;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
flag_g:=false;
poisk:=false;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
form1.Hide;
form4.Show;
end;
procedure TForm1.N9Click(Sender: TObject);
begin
form1.Hide;
form7.show;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
form1.Hide;
form8.show;
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
if edit1.Text<>''then
begin
case combobox1.ItemIndex of
0:adodataset1.Locate('Гос_номер',Edit1.Text,[loCaseInsensitive,loPartialKey]);
1:adodataset1.Locate('Идент_номер',Edit1.Text,[loCaseInsensitive,loPartialKey]);
2:adodataset1.Locate('Двигатель',Edit1.Text,[loCaseInsensitive,loPartialKey]);
3:adodataset1.Locate('Год',Edit1.Text,[loCaseInsensitive,loPartialKey]);
end;
end;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
if poisk=false then
begin
combobox1.Visible:=true;
edit1.Visible:=true;
poisk:=true;
end
else
begin
combobox1.Visible:=false;
edit1.Visible:=false;
poisk:=false;
end;
end;
procedure TForm1.N5Click(Sender: TObject);begin
application.terminate;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
if (form2.maskEdit1.Text='')or(form2.LabeledEdit2.Text='')
or (form2.LabeledEdit3.Text='')or (form2.combobox2.Text='')
or(form2.LabeledEdit5.Text='')or (form2.combobox3.Text='')
or (form2.LabeledEdit8.Text='')or (form2.ComboBox1.Text='')
or (form2.LabeledEdit9.Text=''){ or (form2.LabeledEdit14.Text='')} then
application.MessageBox('Некоторые поля(поле) не заполнены','Внимание')
else
begin
shamaich;
end;
end;
procedure TForm2.Timer1Timer(Sender: TObject);
begin
form2.labelededit14.Text:=form1.DBText14.Caption;
end;
procedure TForm2.LabeledEdit10KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['a'..'z','A'..'Z','а'..'я','А'..'Я'] then key :=#0;
end;
procedure TForm2.LabeledEdit11KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['a'..'z','A'..'Z','а'..'я','А'..'Я'] then key :=#0;
end;
procedure TForm2.LabeledEdit12KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['a'..'z','A'..'Z','а'..'я','А'..'Я'] then key :=#0;
end;
procedure TForm2.LabeledEdit13KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['a'..'z','A'..'Z','а'..'я','А'..'Я'] then key :=#0;
end;
procedure TForm2.LabeledEdit14KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['a'..'z','A'..'Z','а'..'я','А'..'Я'] then key :=#0;
end;
procedure TForm2.shamaich;
var
a,b,c:string;
I:integer;
begin
a:=form2.maskEdit1.Text;
b:=form2.labelededit2.text;
c:=form2.labelededit3.text;
for I := 0 to form1.ADODataSet1.RecordCount - 1 do
begin
if I = 0
then
begin
form1.ADODataSet1.First;
end
else
begin
form1.ADODataSet1.Next;
end;
end;
if (form1.dbgrid1.DataSource.DataSet.FieldByName('Гос_номер').AsString=a)
or(form1.dbgrid1.DataSource.DataSet.FieldByName('Идент_номер').AsString=b)
or(form1.DBGrid1.DataSource.DataSet.FieldByName('Двигатель').AsString=c) then
begin
application.MessageBox('Повторяющиеся значения','Synthetic System Bus');
end
else
begin
form1.ADODataSet1.Insert;
form1.ADODataSet1.FieldByName('Гос_Номер').AsString:=form2.maskEdit1.Text;
form1.ADODataSet1.FieldByName('Идент_Номер').AsString:=form2.LabeledEdit2.Text;
form1.ADODataSet1.FieldByName('Двигатель').AsString:=form2.LabeledEdit3.Text;
form1.ADODataSet1.FieldByName('Цвет кузова').AsString:=form2.combobox2.Text;
form1.ADODataSet1.FieldByName('Марка авто').AsString:=form2.LabeledEdit5.Text;
form1.ADODataSet1.FieldByName('Тип ТС').AsString:=form2.combobox3.Text;
form1.ADODataSet1.FieldByName('Год').AsString:=form2.combobox1.Text;
form1.ADODataSet1.FieldByName('Собственник').AsString:=form2.LabeledEdit8.Text;
form1.ADODataSet1.FieldByName('Пробег').AsString:=form2.LabeledEdit9.Text;
form1.ADODataSet1.FieldByName('Дата').AsString:=form2.LabeledEdit14.Text;
form1.ADODataSet1.Post;
application.MessageBox('Запись успешно добавлена','SynthSysBus');
clear;
close;
end;
end;
procedure TForm2.clear;
begin
form2.maskEdit1.Text:='';
form2.LabeledEdit2.text:='';
form2.LabeledEdit3.text:='';
form2.ComboBox2.Text:='';
form2.LabeledEdit5.Text:='';
form2.ComboBox3.Text:='';
form2.ComboBox1.Text:='';
form2.LabeledEdit8.Text:='';
form2.LabeledEdit9.Text:='';
end;
procedure TForm4.Button4Click(Sender: TObject);
var i:integer;
begin
for I := 0 to form4.ADODataSet1.RecordCount - 1 do
begin
if I = 0
then
begin
form4.ADODataSet1.First;
end
else
begin
form4.ADODataSet1.Next;
end;
form4.adodataset1.Delete;
end;
end;
procedure TForm4.N4Click(Sender: TObject);
begin
close;
end;
procedure TForm4.Edit1Change(Sender: TObject);
begin
if edit1.Text<>''then
begin
case combobox1.ItemIndex of
0:adodataset1.Locate('Фамилия',Edit1.Text,[loCaseInsensitive,loPartialKey]);
1:adodataset1.Locate('Имя',Edit1.Text,[loCaseInsensitive,loPartialKey]);
2:adodataset1.Locate('Отчество',Edit1.Text,[loCaseInsensitive,loPartialKey]);
3:adodataset1.Locate('Номер В/У',Edit1.Text,[loCaseInsensitive,loPartialKey]);
end;
end;
end;
procedure TForm4.FormCreate(Sender: TObject);
begin
poisk:=false;
end;
procedure TForm4.N2Click(Sender: TObject);
begin
if poisk=false then
begin
combobox1.Visible:=true;
edit1.Visible:=true;
poisk:=true;
end
else
begin
combobox1.Visible:=false;
edit1.Visible:=false;
poisk:=false;
end;
end;
procedure TForm5.Button1Click(Sender: TObject);
begin
if (form5.LabeledEdit1.Text='')or(form5.LabeledEdit2.Text='')
or (form5.LabeledEdit3.Text='')or (form5.labelededit4.Text='')
or(form5.sdateedit1.Text='')or (form5.LabeledEdit6.Text='')
or (form5.LabeledEdit8.Text='')or (form5.labelededit7.Text='')
or (form5.sdateedit2.Text='') then
application.MessageBox('Некоторые поля(поле) не заполнены','Внимание')
else
begin
form4.ADODataSet1.Insert;
form4.ADODataSet1.FieldByName('Фамилия').AsString:=form5.LabeledEdit1.Text;
form4.ADODataSet1.FieldByName('Имя').AsString:=form5.LabeledEdit2.Text;
form4.ADODataSet1.FieldByName('Отчество').AsString:=form5.LabeledEdit3.Text;
form4.ADODataSet1.FieldByName('Должность').AsString:=form5.labelededit4.Text;
form4.ADODataSet1.FieldByName('В/У действителен до').AsString:=form5.sdateedit1.Text;
form4.ADODataSet1.FieldByName('Номер В/У').AsString:=form5.LabeledEdit6.Text;
form4.ADODataSet1.FieldByName('Класс').AsString:=form5.LabeledEdit7.Text;
form4.ADODataSet1.FieldByName('Телефон').AsString:=form5.LabeledEdit8.Text;
form4.ADODataSet1.FieldByName('Дата рождения').AsString:=form5.sdateedit2.Text;
form4.ADODataSet1.Post;
application.MessageBox('Запись успешно добавлена','SynthSysBus');
labelededit1.Text:='';
labelededit2.Text:='';
labelededit3.Text:='';
labelededit4.Text:='';
sdateedit1.Text:='';
labelededit6.Text:='';
labelededit7.Text:='';
labelededit8.Text:='';
sdateedit2.Text:='';
close;
end;
end;
procedure DrawGridCheckBox(Canvas: TCanvas; Rect: TRect; Checked: boolean);
begin
Canvas.TextRect(Rect, Rect.Left + 1, Rect.Top + 1, ' ');
DrawFrameControl(Canvas.Handle, Rect, DFC_BUTTON, DFCS_BUTTONPUSH or DFCS_ADJUSTRECT);
DrawFlags := DFCS_BUTTONCHECK or DFCS_ADJUSTRECT;// DFCS_BUTTONCHECK
if Checked then
DrawFlags := DrawFlags or DFCS_CHECKED;
DrawFrameControl(Canvas.Handle, Rect, DFC_BUTTON, DrawFlags);
end;
procedure TForm7.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
form1.show;
end;
procedure TForm7.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Column.FieldName = 'Виновен' then // Модифицируйте под себя
if Column.Field.AsBoolean then
DrawGridCheckBox(DBGrid1.Canvas, Rect, true)
else
DrawGridCheckBox(DBGrid1.Canvas, Rect, false)
end;
procedure TForm7.DBGrid1ColEnter(Sender: TObject);
begin
with TDBGrid(Sender) do
if SelectedField.FieldName = 'Виновен' then // Модифицируйте под себя
Options := Options - [dgEditing]
else
Options := Options + [dgEditing];
end;
procedure TForm7.DBGrid1DblClick(Sender: TObject);
begin
adodataset1.Edit;
if adodataset1.FieldByName('Виновен').AsBoolean=true then
begin
adodataset1.FieldByName('Виновен').AsBoolean:=false;
end
else
begin
adodataset1.FieldByName('Виновен').AsBoolean:=true;
end;
adodataset1.Post;
if adodataset1.FieldByName('Виновен').AsBoolean=true then
egin
image1.Picture.LoadFromFile('C:\Synthetic\rec\true.bmp');
end
else
begin
image1.Picture.LoadFromFile('C:\Synthetic\rec\false.bmp');
end;
end;
procedure TForm7.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
if adodataset1.FieldByName('Виновен').AsBoolean=true then
begin
image1.Picture.LoadFromFile('C:\Synthetic\rec\true.bmp');
end
else
begin
image1.Picture.LoadFromFile('C:\Synthetic\rec\false.bmp');
end;
end;
procedure TForm7.DBGrid1CellClick(Column: TColumn);
begin
if adodataset1.FieldByName('Виновен').AsBoolean=true then
begin
image1.Picture.LoadFromFile('C:\Synthetic\rec\true.bmp');
end
else
begin
image1.Picture.LoadFromFile('C:\Synthetic\rec\false.bmp');
end;
end;
procedure TForm7.Timer1Timer(Sender: TObject);
begin
label1.Caption:=timeToStr(Now);
end;
procedure TForm7.FormCreate(Sender: TObject);
begin
if adodataset1.FieldByName('Виновен').AsBoolean=true then
begin
image1.Picture.LoadFromFile('C:\Synthetic\rec\true.bmp');
end
else
begin
image1.Picture.LoadFromFile('C:\Synthetic\rec\false.bmp');
end;
end;
procedure TForm7.FormShow(Sender: TObject);
begin
if adodataset1.FieldByName('Виновен').AsBoolean=true then
begin
image1.Picture.LoadFromFile('C:\Synthetic\rec\true.bmp');
end
else
begin
image1.Picture.LoadFromFile('C:\Synthetic\rec\false.bmp');
end;
end;
procedure TForm7.Edit1Change(Sender: TObject);
begin
if edit1.Text<>''then
begin
case combobox1.ItemIndex of
0:adodataset1.Locate('Фамилия',Edit1.Text,[loCaseInsensitive,loPartialKey]);
1:adodataset1.Locate('Имя',Edit1.Text,[loCaseInsensitive,loPartialKey]);
2:adodataset1.Locate('Отчество',Edit1.Text,[loCaseInsensitive,loPartialKey]);
3:adodataset1.Locate('Гос_номер',Edit1.Text,[loCaseInsensitive,loPartialKey]);
end;
end;
end;
procedure TForm8.FormShow(Sender: TObject);
begin
form8.ADODataSet1.Close;
form8.ADODataSet1.Open;
form8.ADODataSet2.Close;
form8.ADODataSet2.Open;
end;
procedure TForm8.Button1Click(Sender: TObject);
begin
if ((adodataset1.RecordCount=0 )or (adodataset2.RecordCount=0 )or(adodataset5.RecordCount=0)) then
begin
application.MessageBox('Нельзя добавлять пустые значения','SynthSysBus');
end
else
begin
adodataset3.Insert;
adodataset3.FieldByName('Фамилия').AsString:=adodataset2.fieldbyname('Фамилия').AsString;
adodataset3.FieldByName('Имя').AsString:=adodataset2.fieldbyname('Имя').AsString;
adodataset3.FieldByName('Телефон').AsString:=adodataset2.fieldbyname('Телефон').AsString;
adodataset3.FieldByName('Гос_Номер').AsString:=adodataset1.fieldbyname('Гос_Номер').AsString;
adodataset3.FieldByName('Идент_Номер').AsString:=adodataset1.fieldbyname('Идент_Номер').AsString;
adodataset3.FieldByName('Марка Авто').AsString:=adodataset1.fieldbyname('Марка Авто').AsString;
adodataset3.FieldByName('Тип ТС').AsString:=adodataset1.fieldbyname('Тип ТС').AsString;
adodataset3.FieldByName('Номер маршрута').AsString:=adodataset5.fieldbyname('Номер маршрута').asstring;
adodataset3.FieldByName('Конечные').AsString:=adodataset5.fieldbyname('Конечные').asstring;
adodataset3.FieldByName('Путь').AsString:=adodataset5.fieldbyname('Путь').asstring;
adodataset3.FieldByName('Остановочные пункты').AsString:=adodataset5.fieldbyname('Остановочные пункты').asstring;
adodataset3.Post;
end;
end;
procedure TForm8.Button2Click(Sender: TObject);
begin
form9.showmodal;
end;
procedure TForm8.Button4Click(Sender: TObject);
begin
if form8.ADODataSet5.RecordCount=0 then
application.MessageBox('Таблица пуста','SynthSysBus')
else
adodataset5.Delete;
end;
procedure TForm8.Button3Click(Sender: TObject);
begin
form10.showmodal;
end;
procedure TForm8.get_probeg;
var
I:integer;
a:string;
begin
a:=form8.dbgrid4.datasource.dataset.fieldbyname('Гос_номер').asstring;
for I := 0 to form1.ADODataSet1.RecordCount - 1 do
begin
if I = 0
then
begin
form1.ADODataSet1.First;
end
else
begin
form1.ADODataSet1.Next;
end;
if form1.dbgrid1.DataSource.DataSet.FieldByName('Гос_номер').AsString=a then
begin
form1.ADODataSet1.Edit;
form1.dbgrid1.DataSource.DataSet.FieldByName('Пробег').AsString:=inttostr(strtoint(form1.dbgrid1.DataSource.DataSet.FieldByName('Пробег').AsString)+strtoint(form8.dbgrid4.DataSource.DataSet.fieldbyname('Путь').AsString));
form1.ADODataSet1.Post;
end;
end;
end;
procedure TForm8.Button5Click(Sender: TObject);
begin
get_probeg;
form8.ADODataSet4.Delete;
end;
procedure TForm8.Button6Click(Sender: TObject);
begin
if adodataset1.RecordCount=0 then
begin
application.MessageBox('Заполните таблицу','SynthSysBus');
end
else
begin
form8.ADODataSet4.Insert;
form8.DBGrid4.DataSource.DataSet.FieldByName('Фамилия').AsString:=form8.DBGrid1.DataSource.DataSet.FieldByName('Фамилия').AsString;
form8.DBGrid4.DataSource.DataSet.FieldByName('Имя').AsString:=form8.DBGrid1.DataSource.DataSet.FieldByName('Имя').AsString;
form8.DBGrid4.DataSource.DataSet.FieldByName('Гос_номер').AsString:=form8.DBGrid1.DataSource.DataSet.FieldByName('Гос_номер').AsString;
form8.DBGrid4.DataSource.DataSet.FieldByName('Идент_номер').AsString:=form8.DBGrid1.DataSource.DataSet.FieldByName('Идент_номер').AsString;
form8.DBGrid4.DataSource.DataSet.FieldByName('Марка Авто').AsString:=form8.DBGrid1.DataSource.DataSet.FieldByName('Марка Авто').AsString;
form8.DBGrid4.DataSource.DataSet.FieldByName('Тип ТС').AsString:=form8.DBGrid1.DataSource.DataSet.FieldByName('Тип ТС').AsString;
form8.DBGrid4.DataSource.DataSet.FieldByName('Телефон').AsString:=form8.DBGrid1.DataSource.DataSet.FieldByName('Телефон').AsString;
form8.DBGrid4.DataSource.DataSet.FieldByName('Номер маршрута').AsString:=form8.DBGrid1.DataSource.DataSet.FieldByName('Номер маршрута').AsString;
form8.DBGrid4.DataSource.DataSet.FieldByName('Путь').AsString:=form8.DBGrid1.DataSource.DataSet.FieldByName('Путь').AsString;
form8.DBGrid4.DataSource.DataSet.FieldByName('Конечные').AsString:=form8.DBGrid1.DataSource.DataSet.FieldByName('Конечные').AsString;
form8.DBGrid4.DataSource.DataSet.FieldByName('Остановочные пункты').AsString:=form8.DBGrid1.DataSource.DataSet.FieldByName('Остановочные пункты').AsString;
form8.DBGrid4.DataSource.DataSet.FieldByName('Время отправки').AsString:=form8.Label1.Caption;
form8.DBGrid4.DataSource.DataSet.FieldByName('Дата').AsString:=DateToStr(Now);
form8.ADODataSet3.Delete;
form8.ADODataSet4.Post;
end;
end;
procedure TForm11.Button1Click(Sender: TObject);
begin
if edit1.Text<>'' then
begin
form7.ADODataSet1.Insert;
form7.DBGrid1.DataSource.DataSet.FieldByName('Фамилия').AsString:=form8.DBGrid4.DataSource.DataSet.FieldByName('Фамилия').AsString;
form7.DBGrid1.DataSource.DataSet.FieldByName('Имя').AsString:=form8.DBGrid4.DataSource.DataSet.FieldByName('Имя').AsString;
form7.DBGrid1.DataSource.DataSet.FieldByName('Гос_номер').AsString:=form8.DBGrid4.DataSource.DataSet.FieldByName('Гос_номер').AsString;
form7.DBGrid1.DataSource.DataSet.FieldByName('Дата').AsString:=DateToStr(Now);
form7.DBGrid1.DataSource.DataSet.FieldByName('Адрес').AsString:=form11.Edit1.Text;
form7.dbgrid1.DataSource.DataSet.FieldByName('Заметки').AsString:=form11.Memo1.Text;
form7.DBGrid1.DataSource.DataSet.FieldByName('Отчество').AsString:=form11.Label2.Caption;
form7.DBGrid1.DataSource.DataSet.FieldByName('Время').AsString:=timetostr(now);
if form11.CheckBox1.Checked=true then
begin
form7.dbgrid1.datasource.DataSet.FieldByName('Виновен').AsBoolean:=true
end
else
begin
form7.dbgrid1.datasource.DataSet.FieldByName('Виновен').AsBoolean:=false;
end;
del_dtp;
form8.ADODataSet4.Delete;
form7.ADODataSet1.Post;
end
else
begin
application.MessageBox('Заполни все поля','SynthSysBus');
end;
form11.Memo1.Clear;
form11.Edit1.Clear;
form11.CheckBox1.Checked:=false;
close;
label2.Caption:='';
form8.Close;
form7.Show;
end;
procedure TForm11.del_dtp;
var
k:string;
I:integer;
begin
k:=form8.dbgrid4.datasource.dataset.fieldbyname('Гос_номер').asstring;
for I := 0 to form1.ADODataSet1.RecordCount - 1 do
begin
if I = 0
then
begin
form1.ADODataSet1.First;
end
else
begin
form1.ADODataSet1.Next;
end;
if form1.dbgrid1.DataSource.DataSet.FieldByName('Гос_номер').AsString=k then
form1.ADODataSet1.Delete;
end;
end.
Размещено на Allbest.ru
...Подобные документы
Изучение теории управления образовательными учреждениями и ВУЗами. Проектирование, реализация и внедрение автоматизированной информационной системы для автоматизации кафедры ВУЗа. Описание разработанной системы, расчет экономической эффективности проекта.
дипломная работа [4,5 M], добавлен 09.03.2010Общие сведения об автоматизированных информационных системах библиотек. Разработка графического макета, интерфейса и дизайна информационной системы. Требования к функциональной части системы. Создание программных модулей. Алгоритмы обработки данных.
дипломная работа [1,7 M], добавлен 04.11.2016Анализ и описание алгоритма. Основные характеристики выбранного компьютера, программных сред (операционная система и среда программирования). Описание компонентов и интерфейса программы, а также модулей, процедур и функций. Вызов и загрузка программы.
курсовая работа [1,3 M], добавлен 26.04.2015Автоматизированные информационные системы и их структура. Описание предметной области. Программная реализация основных алгоритмов формирования документации. Организация входной информации. Процесс создания расписания. Расчет затрат на отладку программы.
дипломная работа [2,3 M], добавлен 06.09.2014Создание легкой и удобной в применении программы "Клавиатурный тренажер" с помощью программы Delphi7. Использование компонентов Panel, Timer, Button, Status Bar, Label. Описание процедур и функций программы. Руководство разработчика и пользователя.
курсовая работа [276,3 K], добавлен 27.05.2015Разработка программы автоматизации подбора запчастей для ремонта автомобилей. Структурные единицы сообщений. Концептуальная модель системы. Алгоритм работы автоматизированной системы. Физическая модель данных. Описание пользовательского интерфейса.
дипломная работа [2,1 M], добавлен 20.06.2013Создание программы предназначенной для автоматизации деятельности кредитного сотрудника банка. Анализ рынка автоматизации кредитования физических лиц. Выбор СУБД и языка программирования. Инфологическое проектирование и разработка интерфейса АИС.
дипломная работа [3,3 M], добавлен 07.12.2013Теоретические основы разработки приложения, реализующего подсвечивание ключевых слов. Описание используемых процедур и функций, структуры программы, интерфейса пользователя. Системные требования для работы приложения, анализ результаты его тестирования.
курсовая работа [1,2 M], добавлен 07.07.2012Использование автоматизированной информационно-библиотечной системы. Алгоритм работы программы "Библиотека". Программное обеспечение, главная форма, описание основных задач и функций, поиск читателя по его минимальным данным, сведения о доступных книгах.
курсовая работа [706,6 K], добавлен 25.05.2010Разработка автоматизированной системы мониторинга производственной деятельности предприятия, необходимой для принятия управленческих решений, обеспечивающих стабильную работу завода бытовой техники ЗАО "АТЛАНТ". Описание классов системы, тестирование.
курсовая работа [3,6 M], добавлен 19.06.2014Принципы организации системы, состоящей из персонала и комплекса средств автоматизации его деятельности. Проектирование корпоративных автоматизированных информационных систем. Структура, входные и выходные потоки, ограничения автоматизированных систем.
презентация [11,3 K], добавлен 14.10.2013Описание входной и выходной информации. Программно-технические средства, необходимые для разработки программы "Автоматизированная информационная справочная система аптеки". Возможность формирования и корректировки файлов, тестирование программы.
курсовая работа [761,7 K], добавлен 18.12.2013Определение назначения и описание возможностей автоматизированных информационных систем. Анализ программных продуктов, используемых в аудите, Федеральной таможенной службе РФ и анализе хозяйственной деятельности. Функции 1С Предприятие и АРМ-декларант.
курсовая работа [3,7 M], добавлен 01.01.2014Классификация информационных систем и средств разработки. Построение диаграммы прецендентов и графического интерфейса пользователя. Затраты на разработку информационной системы бурового предприятия и оценка издержек. Создание хранимых процедур и скриптов.
дипломная работа [12,3 M], добавлен 27.06.2013Организационная структура предприятия. Определение функций, требующих автоматизации процессов. Анализ существующих автоматических информационных систем. Функциональное, логическое, физическое проектирование системы. Обоснование выбора программной среды.
отчет по практике [2,4 M], добавлен 12.05.2015Создание базы данных для обеспечения автоматизации работы клуба собаководства. Определение информационных объектов и функциональных зависимостей. Информационно-логическая и даталогическая модели. Описание алгоритма работы БД. Отладка работы программы.
контрольная работа [1008,0 K], добавлен 08.06.2014Существующие альтернативы программы. Описание формул для выкроек, используемых в разработке. Описание разрабатываемой программы, а также структура ее интерфейса. Детальное описание возможностей и спецификация, функциональные особенности программы.
курсовая работа [427,4 K], добавлен 10.10.2015Разработка автоматизированной информационной системы "Супермаркет DNS" с опорой на платформу NET, в среде MS Visual Studio, на языке программирования C. Объектная модель программной системы согласно методологии ОМТ. Описание алгоритмов обработки данных.
курсовая работа [394,0 K], добавлен 21.10.2012Рассмотрение структуры предприятия, обзор современного программного обеспечения. Описание информационной системы учета кадров. Создание информационной системы для работы с персоналом на основе выполненного анализа программных продуктов этого направления.
дипломная работа [3,7 M], добавлен 03.07.2015Рассмотрение технологии создания базы данных с помощью программы MS Access. Описание структуры предприятия заказчика. Проведение автоматизации документооборота предприятия. Разработка интерфейса пользователя. Создание кнопочной формы, диаграмы, отчета.
курсовая работа [3,8 M], добавлен 12.04.2015
