Разработка автоматизированной системы управления с разработкой программного средства
Разработка информационной системы для управления оперативной деятельностью фирмы, занимающейся ремонтом и технической поддержкой компьютеров и программного обеспечения, этапы и особенности. Программные средства реализации проекта, их выбор и обоснование.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 28.08.2014 |
| Размер файла | 306,6 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
While not Form4.ADOTable1. Eof do
begin
Combobox1. Items. Add (Form4.ADOTable1. FieldValues['Фирма']);
Form4.ADOTable1. Next;
end;
While not Form5.ADOTable1. Eof do
begin
Combobox2. Items. Add (Form5.ADOTable1. FieldValues ['Наименование услуги']);
Form5.ADOTable1. Next;
end;
While not Form6.ADOTable1. Eof do
begin
Combobox3. Items. Add (Form6.ADOTable1. FieldValues ['ФИО сотрудника']);
Form6.ADOTable1. Next;
end;
flag:=true;
Panel1. Visible:=true;
Label6. Visible:=true;
Label7. Visible:=false;
end;
procedure TForm10. Button4Click (Sender: TObject);
begin
flag:=false;
Panel1. Visible:=true;
Label7. Visible:=true;
Label6. Visible:=false;
Edit1. Text:=ADOTable1. FieldValues['Количество'];
Edit2. Text:=ADOTable1. FieldValues ['Дата заказа'];
Combobox1. Text:=ADOTable1. FieldValues['Клиент'];
Combobox1. Items. Clear;
Combobox2. Text:=ADOTable1. FieldValues ['Наименование услуги'];
Combobox2. Items. Clear;
Combobox3. Text:=ADOTable1. FieldValues ['ФИО сотрудника'];
Combobox3. Items. Clear;
Form4.ADOTable1. Open;
Form4.ADOTable1. First;
Form5.ADOTable1. Open;
Form5.ADOTable1. First;
Form6.ADOTable1. Open;
Form6.ADOTable1. First;
While not Form4.ADOTable1. Eof do
begin
Combobox1. Items. Add (Form4.ADOTable1. FieldValues['Фирма']);
Form4.ADOTable1. Next;
end;
While not Form5.ADOTable1. Eof do
begin
Combobox2. Items. Add (Form5.ADOTable1. FieldValues ['Наименование услуги']);
Form5.ADOTable1. Next;
end;
While not Form6.ADOTable1. Eof do
begin
Combobox3. Items. Add (Form6.ADOTable1. FieldValues ['ФИО сотрудника']);
Form6.ADOTable1. Next;
end;
end;
procedure TForm10. Button1Click (Sender: TObject);
begin
if (Edit1. Text<>'') and
(Edit2. Text<>'') and
(Combobox1. Text<>'') and
(Combobox2. Text<>'') and
(Combobox3. Text<>'')
then
begin
if flag=true then ADOTable1. Insert
else ADOTable1. Edit;
ADOTable1. FieldValues['Количество']:=Edit1. Text;
ADOTable1. FieldValues ['Дата заказа']:=Edit2. Text;
ADOTable1. FieldValues['Клиент']:=Combobox1. Text;
ADOTable1. FieldValues ['Наименование услуги']:=Combobox2. Text;
ADOTable1. FieldValues ['ФИО сотрудника']:=Combobox3. Text;
ADOTable1. Post();
end
else ShowMessage ('Необходимо заполнить поля ввода');
end;
procedure TForm10. Button5Click (Sender: TObject);
begin
ADOTable1. Delete;
end;
procedure TForm10.ADOTable1BeforeDelete (DataSet: TDataSet);
var
Del:real;
begin
Del:=MessageDlg ('Хотите удалить текущую запись в базе данных?', mtConfirmation, [mbYes, mbNo], 0);
If Del<>mrYes
then begin
DataSet. Cancel();
Abort();
end;
end;
procedure TForm10. Button2Click (Sender: TObject);
begin
Edit1. Text:='';
Edit2. Text:='';
Combobox1. Text:='';
Combobox2. Text:='';
Combobox3. Text:='';
end;
procedure TForm10. Button7Click (Sender: TObject);
begin
{Form5.ADOTable1. Open;
Form5.ADOTable1. First;
While not Form5.ADOTable1. Eof do
begin
if Form5.ADOTable1. FieldValues ['Наименование услуги']=ADOTable1. FieldValues ['Наименование услуги'] then
begin
Edit3. Text:=IntToStr (StrToInt(ADOTable1. FieldValues['Количество'])+StrToInt (Form5.ADOTable1. FieldValues['Стоимость']));
end
else
Form5.ADOTable1. Next;
end;}
end;
end.
unit Unit11;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids, ExtCtrls, DBCtrls;
type
TForm11 = class(TForm)
ComboBox1: TComboBox;
ComboBox2: TComboBox;
Edit1: TEdit;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Button1: TButton;
ADOTable1: TADOTable;
DBNavigator1: TDBNavigator;
Label1: TLabel;
Button2: TButton;
procedure ComboBox1Change (Sender: TObject);
procedure ComboBox2Change (Sender: TObject);
procedure Button1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
var
Form11: TForm11;
vibor, strIndex1, strText1: string;
implementation
{$R *.dfm}
procedure TForm11. ComboBox1Change (Sender: TObject);
begin
Combobox2. Enabled:=false;
Edit1. Enabled:=false;
Button1. Enabled:=false;
Edit1. Text:='';
Combobox2. Items. Clear;
Combobox2. Text:='Выберите поле';
case ComboBox1. ItemIndex of
0:
begin
ComboBox2. Items. Add ('Код клиента');
ComboBox2. Items. Add('Фирма');
ComboBox2. Items. Add ('Контактное лицо');
ComboBox2. Items. Add('Телефон');
ComboBox2. Items. Add('Адрес');
ComboBox2. Items. Add ('e-mail');
vibor:='client';
end;
1:
begin
ComboBox2. Items. Add ('Код услуги');
ComboBox2. Items. Add ('Наименование услуги');
ComboBox2. Items. Add('Стоимость');
ComboBox2. Items. Add ('Ед измерения');
vibor:='uslugi';
end;
2:
begin
ComboBox2. Items. Add ('Код заказа');
ComboBox2. Items. Add('Клиент');
ComboBox2. Items. Add ('Наименование услуги');
ComboBox2. Items. Add('Количество');
ComboBox2. Items. Add ('ФИО сотрудника');
ComboBox2. Items. Add ('Дата заказа');
vibor:='zakaz';
end;
3:
begin
ComboBox2. Items. Add ('Код сотрудника');
ComboBox2. Items. Add ('ФИО сотрудника');
ComboBox2. Items. Add('Должность');
ComboBox2. Items. Add('Телефон');
ComboBox2. Items. Add('Адрес');
ComboBox2. Items. Add ('e-mail');
vibor:='sotrud';
end;
4:
begin
ComboBox2. Items. Add('Должность');
ComboBox2. Items. Add ('Фиксир з/п в час');
ComboBox2. Items. Add ('Раб часы в день');
ComboBox2. Items. Add ('Раб дни в неделе');
vibor:='dolzhn';
end;
5:
begin
ComboBox2. Items. Add ('ФИО сотрудника');
ComboBox2. Items. Add ('Причина вычета');
ComboBox2. Items. Add('Вычет');
vibor:='vichet';
end;
end;
Combobox2. Enabled:=true;
end;
procedure TForm11. ComboBox2Change (Sender: TObject);
begin
Edit1. Enabled:=true;
Button1. Enabled:=true;
Label1. Caption:='Введите значение';
end;
procedure TForm11. Button1Click (Sender: TObject);
begin
strIndex1:= ComboBox2. Text;
strText1:= Edit1. Text;
ADOTable1. Active:=false;
ADOTable1. TableName:=vibor;
DataSource1. DataSet:=ADOTable1;
ADOTable1. Active:=true;
if not AdoTable1. Locate (strIndex1, strText1, [loCaseInsensitive, loPartialKey]) then
begin
ADOTable1. Active:=false;
ShowMessage (strText1 + ' не найдено в ' + strIndex1);
end;
end;
procedure TForm11. Button2Click (Sender: TObject);
begin
Form11. Close;
end;
end.
Размещено на Allbest.ru
Подобные документы
Программные средства для работы с моделями. Разработка проекта информационной системы катка. Определение стратегического и тактического направления проекта. Визуальная часть программного обеспечения. Основные этапы программной реализации проекта.
курсовая работа [2,3 M], добавлен 26.10.2012Анализ информационных потоков. Разработка структуры таблиц базы данных. Выбор CASE-средства для проектирования информационной системы и среды программирования. Разработка программных модулей (программного обеспечения). Подготовка справочных баз данных.
дипломная работа [6,8 M], добавлен 19.11.2013Создание информационной системы для фирмы "Удача", которая является посредником при перепродаже недвижимости. Обоснование состава вычислительной техники и программного обеспечения для функционирования данной автоматизированной информационной системы.
курсовая работа [1,8 M], добавлен 17.02.2014Понятие программного обеспечения, вопросы его разработки и использования. Общая характеристика системного программного обеспечения и работа операционной системы. Специфика процесса управления разработкой программного обеспечения и его особенности.
курсовая работа [636,2 K], добавлен 23.08.2011Техническое задание на разработку автоматизированной системы и складского учета управления универсальной торговой базы. Проектирование информационной системы и выбор среды для создания программного продукта. Создание интерфейса и руководство пользователя.
дипломная работа [2,1 M], добавлен 11.07.2015Порядок автоматизации расчетов себестоимости и длительности программного обеспечения производственного предприятия. Выбор языка программирования и системы управления базами данных. Разработка алгоритмов расчета себестоимости программного обеспечения.
дипломная работа [1,7 M], добавлен 13.06.2017Создание информационной системы автоматизации процесса управления базами данных компании ООО "Роснефть". Требования к характеристикам технических средств. Обоснование выбора CASE-средства. Разработка программного обеспечения, расчет затрат цены и прибыли.
дипломная работа [3,9 M], добавлен 24.03.2012Описание салона-магазина по предоставлению услуг оператора мобильной связи. Обоснование создания автоматизированной информационной системы "Оператор". Выбор программного обеспечения, проектирование реляционной базы данных. Описание основ интерфейса.
дипломная работа [1,9 M], добавлен 27.05.2015Предпроектное обследование ООО "ЮГАГРОМАШ". Технические и программные средства ЭИВТ предприятия. Создание логической и физической модели базы данных информационной подсистемы складского учета. Себестоимость автоматизированной информационной системы.
дипломная работа [4,8 M], добавлен 24.06.2011Проектирование информационной системы (ИС) для организации, занимающейся ремонтом персональных компьютеров. Интерфейс пользователей, их объединение в группы. Основные протоколы и интерфейсы, используемые в ИС для работы в локальной и глобальной сети.
курсовая работа [1,4 M], добавлен 17.05.2015
