Главная База знаний "Allbest" Программирование, компьютеры и кибернетика Разработка АИС учета, приемки и сбыта нефтепродуктов для нефтебазы ОАО "РН-Няганьнефтегаз"

Разработка АИС учета, приемки и сбыта нефтепродуктов для нефтебазы ОАО "РН-Няганьнефтегаз"

Повышение эффективности и точности учета нефтепродуктов на сети нефтебаз ОАО "РН-Няганьнефтегаз" за счет разработки современной АИС учета, приемки и сбыта нефтепродуктов, производящей регистрацию и документирование товарных операций, учет потребностей.

Рубрика Программирование, компьютеры и кибернетика
Вид дипломная работа
Язык русский
Дата добавления 15.02.2017
Размер файла 2,2 M

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Страница:

SQLQuery1.Next;

end;

end;

procedure TForm2.FormCreate(Sender: TObject);

begin

MySQL51Connection1.Connected:=true;

SQLTransaction1.Active:=true;

SQLQuery1.Active:=false;

SQLQuery1.SQL.Clear;

SQLQuery1.sql.add('SET character_set_client='+#39+'utf8'+#39+', character_set_connection='+#39+'cp1251'+#39+', character_set_results='+#39+'utf8'+#39+';');

SQLQuery1.ExecSQL;

SQLQuery1.SQL.Clear;

//SQLQuery1.SQL.Add('SELECT * FROM RPRIEM');

SQLQuery1.sql.add('SELECT RPRIEM.RNUM, RPRIEM.RDATE, RPRIEM.REZERVUAR, RPRIEM.V, NEFTEPRODUKT.NEFTEPRODUCT, RPRIEM.RESULT FROM RPRIEM INNER JOIN NEFTEPRODUKT ON RPRIEM.TIPNP=NEFTEPRODUKT.ID ORDER BY RPRIEM.RNUM DESC');

SQLQuery1.Open;

DBGrid1.Update;

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

Form2.Close;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

Form3.ShowModal;

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

Form5.ShowModal;

end;

procedure TForm2.Button4Click(Sender: TObject);

begin

MySQL51Connection1.Connected:=true;

SQLTransaction1.Active:=true;

SQLQuery1.Active:=false;

SQLQuery1.SQL.Clear;

SQLQuery1.sql.add('SET character_set_client='+#39+'utf8'+#39+', character_set_connection='+#39+'cp1251'+#39+', character_set_results='+#39+'utf8'+#39+';');

SQLQuery1.ExecSQL;

SQLQuery1.SQL.Clear;

SQLQuery1.SQL.Add('DELETE FROM RPRIEM WHERE ID='+SQLQuery1.FieldByName('ID').asstring+'');

SQLQuery1.Open;

SQLQuery1.SQL.Clear;

SQLQuery1.sql.add('SELECT RPRIEM.RNUM, RPRIEM.RDATE, RPRIEM.REZERVUAR, RPRIEM.V, NEFTEPRODUKT.NEFTEPRODUCT, RPRIEM.RESULT FROM RPRIEM INNER JOIN NEFTEPRODUKT ON RPRIEM.TIPNP=NEFTEPRODUKT.ID ORDER BY RPRIEM.RNUM DESC');

SQLQuery1.Open;

DBGrid1.Update;

end;

procedure TForm4.FormCreate(Sender: TObject);

begin

begin

MySQL51Connection1.Connected:=true;

SQLTransaction1.Active:=true;

SQLQuery1.Active:=false;

SQLQuery1.SQL.Clear;

SQLQuery1.sql.add('SET character_set_client='+#39+'utf8'+#39+', character_set_connection='+#39+'cp1251'+#39+', character_set_results='+#39+'utf8'+#39+';');

SQLQuery1.ExecSQL;

SQLQuery2.SQL.Clear;

SQLQuery2.sql.add('SELECT * FROM NEFTEPRODUKT');

SQLQuery2.Open;

SQLQuery2.First;

while SQLQuery2.EOF=false do

begin

DBLookupComboBox2.Items.Add(SQLQuery2.FieldByName('NEFTEPRODUCT').AsString);

SQLQuery2.Next;

end;

end;

end;

procedure TForm4.DBLookupComboBox2Change(Sender: TObject);

begin

MySQL51Connection1.Connected:=true;

SQLTransaction1.Active:=true;

SQLQuery1.Active:=false;

SQLQuery1.SQL.Clear;

SQLQuery1.sql.add('SET character_set_client='+#39+'utf8'+#39+', character_set_connection='+#39+'cp1251'+#39+', character_set_results='+#39+'utf8'+#39+';');

SQLQuery1.ExecSQL;

SQLQuery1.SQL.Clear;

SQLQuery1.sql.add('SELECT * FROM REZERVUAR WHERE TIPREZ='+inttostr(DBLookupComboBox2.ItemIndex+1)+'');

SQLQuery1.Open;

SQLQuery1.First;

DBLookupComboBox1.Items.Clear;

DBLookupComboBox2.Items.Clear;

while SQLQuery1.EOF=false do

begin

DBLookupComboBox1.Items.Add(SQLQuery1.FieldByName('REZERVUAR').AsString);

DBLookupComboBox2.Items.Add(SQLQuery1.FieldByName('REZERVUAR').AsString);

end;

SQLQuery1.Next;

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

CalendarDialog1.Execute;

if CalendarDialog1.Execute then

begin

Edit2.Text:=DateToStr(CalendarDialog1.Date);

end;

end;

procedure TForm3.DBLookupComboBox2Change(Sender: TObject);

begin

MySQL51Connection1.Connected:=true;

SQLTransaction1.Active:=true;

SQLQuery1.Active:=false;

SQLQuery1.SQL.Clear;

SQLQuery1.sql.add('SET character_set_client='+#39+'utf8'+#39+', character_set_connection='+#39+'cp1251'+#39+', character_set_results='+#39+'utf8'+#39+';');

SQLQuery1.ExecSQL;

SQLQuery1.SQL.Clear;

SQLQuery1.sql.add('SELECT * FROM REZERVUAR WHERE TIPREZ='+inttostr(DBLookupComboBox2.ItemIndex+1)+'');

SQLQuery1.Open;

SQLQuery1.First;

DBLookupComboBox1.Items.Clear;

while SQLQuery1.EOF=false do

begin

DBLookupComboBox1.Items.Add(SQLQuery1.FieldByName('REZERVUAR').AsString);

SQLQuery1.Next;

end;

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

MySQL51Connection1.Connected:=true;

SQLTransaction1.Active:=true;

SQLQuery1.Active:=false;

SQLQuery1.SQL.Clear;

SQLQuery1.sql.add('SET character_set_client='+#39+'utf8'+#39+', character_set_connection='+#39+'cp1251'+#39+', character_set_results='+#39+'utf8'+#39+';');

SQLQuery1.ExecSQL;

SQLQuery1.SQL.Clear;

SQLQuery1.sql.add('INSERT INTO RPRIEM (RNum, RDate, Rezervuar, V, TipNP, RESULT) VALUES ('+Edit1.Text+', '+Edit2.Text+', '+DBLookupComboBox1.Items.Text+', '+Edit3.text+', '+inttostr(DBLookupComboBox2.ItemIndex)+', 1)');

SQLQuery1.Open;

end;

procedure TForm3.FormCreate(Sender: TObject);

begin

MySQL51Connection1.Connected:=true;

SQLTransaction1.Active:=true;

SQLQuery1.Active:=false;

SQLQuery1.SQL.Clear;

SQLQuery1.sql.add('SET character_set_client='+#39+'utf8'+#39+', character_set_connection='+#39+'cp1251'+#39+', character_set_results='+#39+'utf8'+#39+';');

SQLQuery1.ExecSQL;

SQLQuery2.SQL.Clear;

SQLQuery2.sql.add('SELECT * FROM NEFTEPRODUKT');

SQLQuery2.Open;

SQLQuery2.First;

while SQLQuery2.EOF=false do

begin

DBLookupComboBox2.Items.Add(SQLQuery2.FieldByName('NEFTEPRODUCT').AsString);

SQLQuery2.Next;

end;

end;

Размещено на Allbest.ru

Страница:


Подобные документы

  • Разработка информационной системы учета нефтепродуктов

    Проектирование автоматизированного рабочего места менеджера по закупкам нефтепродуктов сети АЗС. Анализ информационных потребностей менеджера, информационных потоков и бизнес-процессов. Пути совершенствования информационной системы учета нефтепродуктов.

    дипломная работа [3,0 M], добавлен 16.03.2012

  • Разработка приложения для автоматизации учета операций с иностранной валютой

    Нормативно-правовое регулирование учета валютных операций, их классификация. Автоматизация задачи учета операций с иностранной валютой с помощью создания приложения для совершения и учета валютно-обменных операций. Форма с входными данными для расчета.

    курсовая работа [588,1 K], добавлен 23.06.2011

  • Автоматизация учета товаров в торговых организациях

    Среда программирования Delphi и баз данных Microsoft Access. Разработка проекта автоматизации складского учета. Качество работы финансового звена предприятия. Разработка системы автоматизации учета товаров в торговой организации складских операций.

    дипломная работа [1,9 M], добавлен 03.07.2015

  • Автоматизация учета аренды земли

    Порядок учета аренды земли и основные проблемы, связанные с ней. Порядок разработки и необходимость создания специального программного обеспечения для учета аренды земли, критерии эффективности. Требования к обработке и контролю экономической информации.

    курсовая работа [59,9 K], добавлен 29.07.2009

  • Автоматизированная информационная система учета товаров в компьютерном магазине

    Методика и основные этапы разработки автоматизированной информационной системы учета товаров в компьютерном магазине ЗАО "Компьютерная Техника". Учет и оперативное регулирование торговых операций, подготовки стандартных документов для внешней среды.

    дипломная работа [2,4 M], добавлен 27.10.2013

  • Учет кассовых операций

    Особенности бухгалтерского учета кассовых операций. Описание технологии ведения учета кассовых операций с использованием программного продукта "1С. Предприятие 7.7" и "1С. Предприятие 8.2". Основные отличия используемых версий 7.7 и 8.2 "1С. Предприятие".

    курсовая работа [580,7 K], добавлен 22.04.2014

  • Проектирование информационной системы учета операций с недвижимостью

    Рассмотрение предметной области учета операций с недвижимостью. Определение проблем и разработка концепции информационной системы. Формирование таблицы документов и разработка форм входных и выходных документов в среде программирования C++ Builder.

    курсовая работа [2,0 M], добавлен 20.01.2015

  • Автоматизированная информационная система учета и ремонта технических средств

    Характеристика объекта информатизации и действующей системы-прототипа. Анализ разработок систем учета. Постановка задачи построения базы данных. Использование программного продукта "Инвентаризация сети и учета компьютеров". Логическое моделирование.

    дипломная работа [7,0 M], добавлен 21.01.2015

  • База данных по автоматизации учета банковских операций в бюджетной организации

    Изучение методики учета банковских и финансовых операций в бюджетной организации. Описание программных средств и разработка автоматизированной информационной системы по учету банковских операций. Характеристика алгоритма и блок-схемы АИС организации.

    дипломная работа [1,6 M], добавлен 24.09.2012

  • Проектирование информационной системы учета продаж компании "Max-Service"

    Автоматизация учета закупки и реализации продукции. Сущность задач учета операций товародвижения. Характеристика входной, постоянной, промежуточной и результатной информации. Структура программных средств. Руководство программиста и пользователя.

    курсовая работа [2,4 M], добавлен 23.12.2013

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.

© 2000 — 2023, ООО «Олбест» Все права защищены