Разработка автоматизированной системы учета движения ремонтируемой электроаппаратуры
Задачи автоматизированной системы управления планирования работ. Требования к программному и техническому обеспечению АС. Организационная структура предприятия СПО "Арктика". Характеристика требований при проведении ремонтно-восстановительных работ.
| Рубрика | Экономико-математическое моделирование |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 01.04.2015 |
| Размер файла | 1,1 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Edit8: TEdit;
MainMenu1: TMainMenu;
N1: TMenuItem;
N501: TMenuItem;
N502: TMenuItem;
ADOQuery7: TADOQuery;
ADOQuery8: TADOQuery;
procedure Panel3Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ComboBox1Click(Sender: TObject);
procedure ComboBox2Click(Sender: TObject);
procedure ComboBox3Click(Sender: TObject);
procedure ComboBox4Click(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure N502Click(Sender: TObject);
procedure N501Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormSprav: TFormSprav;
i: integer;
implementation
uses UnitAutor, UnitSelect,UnitOtchMass;
{$R *.dfm}
procedure TFormSprav.Panel3Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TFormSprav.FormShow(Sender: TObject);
begin
ComboBox1.Clear;
ADOTable1.Active:=true;
ADOTable1.First;
while ADOTable1.Eof=false do
begin
ComboBox1.Items.Add(ADOTable1.Fields[1].AsString);
ADOTable1.Next;
end;
end;
procedure TFormSprav.ComboBox1Click(Sender: TObject);
begin
ComboBox2.Clear;
ADOQuery1.Active:=true;
ADOQuery1.Parameters[0].Value:= ComboBox1.Items[ComboBox1.ItemIndex];
ADOQuery1.Close;
ADOQuery1.Open;
while ADOQuery1.Eof = false do
begin
ComboBox2.Items.Add(ADOQuery1.Fields[0].AsString);
ADOQuery1.Next;
end;
end;
procedure TFormSprav.ComboBox2Click(Sender: TObject);
begin
ADOQuery2.Active:=true;
ADOQuery2.Parameters[0].Value:=ComboBox2.Items[ComboBox2.ItemIndex];
ADOQuery2.Close;
ADOQuery2.Open;
Edit1.Text:=ADOQuery2.Fields[0].AsString;
Edit2.Text:=ADOQuery2.Fields[1].AsString;
ADOQuery3.Active:=true;
ADOQuery3.Parameters[0].Value:=ComboBox2.Items[ComboBox2.ItemIndex];
ADOQuery3.Close;
ADOQuery3.Open;
ADOQuery3.First;
while ADOQuery3.Eof=false do
begin
ComboBox3.Items.Add(ADOQuery3.Fields[0].AsString);
ADOQuery3.Next;
end;
end;
procedure TFormSprav.ComboBox3Click(Sender: TObject);
begin
ComboBox4.Clear;
ADOTable2.Active:=true;
ADOTable2.Locate('IZD_OBOZN',ComboBox3.Items[ComboBox3.ItemIndex],[]);
Edit3.Text:=ADOTable2.Fields[1].AsString;
ADOQuery4.Active:=true;
ADOQuery4.Parameters[0].Value:=ComboBox3.Items[ComboBox3.ItemIndex];
ADOQuery4.Close;
ADOQuery4.Open;
ADOQuery4.First;
while ADOQuery4.Eof=false do
begin
ComboBox4.Items.Add(ADOQuery4.Fields[0].AsString);
ADOQuery4.Next;
end;
end;
procedure TFormSprav.ComboBox4Click(Sender: TObject);
begin
ListBox1.Clear;
ADOQuery5.Active:=true;
ADOQuery5.Parameters[0].Value:=ComboBox4.Items[ComboBox4.ItemIndex];
ADOQuery5.Close;
ADOQuery5.Open;
ADOQuery5.First;
while ADOQuery5.Eof=false do
begin
ListBox1.Items.Add(ADOQuery5.Fields[0].AsString+' '+ADOQuery5.Fields[1].AsString);
ADOQuery5.Next;
end;
end;
procedure TFormSprav.ListBox1Click(Sender: TObject);
begin
ADOQuery5.RecNo:=ListBox1.ItemIndex+1;
ADOQuery6.Active:=true;
ADOQuery6.Parameters[0].Value:=ADOQuery5.Fields[2].AsInteger;
ADOQuery6.Close;
ADOQuery6.Open;
Edit4.Text:=ADOQuery6.Fields[0].AsString;
Edit5.Text:=ADOQuery6.Fields[1].AsString;
Edit6.Text:=ADOQuery6.Fields[3].AsString;
Edit7.Text:=ADOQuery6.Fields[4].AsString;
Edit8.Text:=ADOQuery6.Fields[2].AsString;
end;
procedure TFormSprav.N502Click(Sender: TObject);
begin
ADOQuery7.Active:=true;
ADOQuery7.Parameters[0].Value:=ComboBox2.Text;
with FormOtchMass do
begin
QuickRep1.DataSet:=ADOQuery7;
QRDBText1.DataSet:=ADOQuery7;
QRDBText1.DataField:='IZD_OBOZN';
QRDBText2.DataSet:=ADOQuery7;
QRDBText2.DataField:='SHEMA_NAIM';
QRDBText3.DataSet:=ADOQuery7;
QRDBText3.DataField:='TYPE_DEVICE';
QRDBText4.DataSet:=ADOQuery7;
QRDBText4.DataField:='DEV_NAME';
QRDBText5.DataSet:=ADOQuery7;
QRDBText5.DataField:='SHEM_NOM';
QRDBText6.DataSet:=ADOQuery7;
QRDBText6.DataField:='MASS';
QRLabel2.Caption:='менее';
QRLabel5.Caption:=ComboBox2.Text;
QRExpr2.Expression:='SUM(MASS)';
end;
ADOQuery7.Close;
ADOQuery7.Open;
FormOtchMass.QuickRep1.Preview;
end;
procedure TFormSprav.N501Click(Sender: TObject);
begin
ADOQuery8.Active:=true;
ADOQuery8.Parameters[0].Value:=ComboBox2.Text;
with FormOtchMass do
begin
QuickRep1.DataSet:=ADOQuery8;
QRDBText1.DataSet:=ADOQuery8;
QRDBText1.DataField:='IZD_OBOZN';
QRDBText2.DataSet:=ADOQuery8;
QRDBText2.DataField:='SHEMA_NAIM';
QRDBText3.DataSet:=ADOQuery8;
QRDBText3.DataField:='TYPE_DEVICE';
QRDBText4.DataSet:=ADOQuery8;
QRDBText4.DataField:='DEV_NAME';
QRDBText5.DataSet:=ADOQuery8;
QRDBText5.DataField:='SHEM_NOM';
QRDBText6.DataSet:=ADOQuery8;
QRDBText6.DataField:='MASS';
QRLabel2.Caption:='более';
QRLabel5.Caption:=ComboBox2.Text;
QRExpr2.Expression:='SUM(MASS)';
end;
ADOQuery8.Close;
ADOQuery8.Open;
FormOtchMass.QuickRep1.Preview;
end;
end.
unit UnitViborIzd;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DB, ADODB, StdCtrls;
type
TFormViborIzd = class(TForm)
Panel1: TPanel;
ComboBox1: TComboBox;
Label1: TLabel;
ComboBox2: TComboBox;
Label2: TLabel;
ADOTable1: TADOTable;
Panel2: TPanel;
Panel3: TPanel;
ADOQuery1: TADOQuery;
Label3: TLabel;
ADOQuery2: TADOQuery;
procedure FormActivate(Sender: TObject);
procedure Panel3Click(Sender: TObject);
procedure ComboBox1Click(Sender: TObject);
procedure Panel2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormViborIzd: TFormViborIzd;
Podrazd: String;
implementation
uses UnitJournal, UnitOtchIZdelie;
{$R *.dfm}
procedure TFormViborIzd.FormActivate(Sender: TObject);
begin
ADOTable1.Open;
ADOTable1.First;
while ADOTable1.Eof=false do
begin
ComboBox1.Items.Add(ADOTable1.FieldByName('SHIP_ZAV_NOM').AsString);
ADOTable1.Next;
end;
Podrazd:=FormJournal.ComboBoxPodrazd.Text;
Label3.Caption:=Podrazd;
end;
procedure TFormViborIzd.Panel3Click(Sender: TObject);
begin
FormViborIzd.Close;
end;
procedure TFormViborIzd.ComboBox1Click(Sender: TObject);
begin
ADOQuery1.Parameters.ParamByName('p').Value:=ComboBox1.Text;
ADOQuery1.Close;
ADOQuery1.Open;
AdoQuery1.First;
while ADOQuery1.Eof=false do
begin
ComboBox2.Items.Add(ADOQuery1.FieldByName('IZD_OBOZN').AsString);
ADOQuery1.Next;
end;
end;
procedure TFormViborIzd.Panel2Click(Sender: TObject);
begin
ADOQuery2.Close;
ADOQuery2.Parameters.ParamByName('p').Value:=ComboBox1.Text;
ADOQuery2.Parameters.ParamByName('q').Value:=ComboBox2.Text;
FormIZDOTCH.QRLabel2.Caption:=Podrazd;
FormIZDOTCH.QRLabel4.Caption:=ComboBox2.Text;
FormIZDOTCH.QRLabel6.Caption:=ComboBox1.Text;
ADOQuery2.Open;
FormIZDOTCH.QuickRep1.Preview;
end;
end.
Размещено на Allbest.ru
Подобные документы
Разработка и создание системы учета отгрузки и реализации готовой продукциии, возможность просматривать накладные реализаций, поступлений. Алгоритм решения задачи. Коды проектируемой системы автоматизированной обработки информации. Листинг программы.
курсовая работа [17,6 K], добавлен 12.01.2009Проектирование подсистемы АСУ "Управление договорами" - автоматизированной системы, представляющей совокупность программно-аппаратных средств, обеспечивающих взаимодействие человека с ЭВМ в интерактивном режиме. Характеристика системы и анализ требований.
курсовая работа [447,2 K], добавлен 04.02.2011Проектирование формы входных документов и выходного плана выплат по вкладам на основе исходной информации. Рассмотрение наиболее рациональных путей разработки автоматизированной информационной системы в условиях Маслянинского ДО ОАО Банк "Левобережный".
курсовая работа [314,6 K], добавлен 28.04.2010Основные функции, задачи и принципы бюджетной системы управления. Технология организации бюджетирования в единой корпоративной автоматизированной системе управления финансовыми ресурсами. Эффект от сокращения времени на расчет видов гибких бюджетов.
дипломная работа [1,4 M], добавлен 07.06.2011Метод сетевого планирования и управления, его цели, задачи и необходимость. Определение минимальной стоимости комплекса производственных работ при заданной продолжительности его выполнения с помощью построения, анализа и оптимизации сетевого графика.
курсовая работа [39,6 K], добавлен 07.12.2010Склады, их понятие и роль в логистике. Анализ систем управления складом. Автоматизация процесса приемки и отпуска картона. Комплектование и отгрузка картона клиенту железной дорогой. Оценка затрат на внедрение автоматизированной системы управления.
дипломная работа [1,1 M], добавлен 27.11.2012Система сетевого планирования и управления. Особенности построения сетевого графика. Расчет сроков завершения работ и резервов времени по работам и событиям, его оптимизация с целью минимизации затрат для выполнения всего комплекса работ до 21 суток.
курсовая работа [27,7 K], добавлен 16.10.2009Общая характеристика и модели сетевого планирования и управления. Оптимизация сетевых моделей по критерию "время-затраты". Показатели элементов сетевой модели. Оптимизация сетевого графика - процесс улучшения организации выполнения комплекса работ.
лекция [313,1 K], добавлен 09.03.2009Технико-экономическая характеристика предметной области и предприятия. Анализ деятельности ООО "СВ Логистика". Программная и техническая архитектура ИС предприятия. Обоснование проектных решений по техническому обеспечению. Характеристика базы данных.
дипломная работа [2,5 M], добавлен 09.06.2010Понятие и структура интеллектуальной системы. Математическая теория нечетких множеств. Причины распространения системы Fuzzy-управления. Предпосылки для внедрения нечетких систем управления. Принципы построения системы управления на базе нечеткой логики.
реферат [68,3 K], добавлен 31.10.2015
