Дипломы, курсовые, рефераты, контрольные...
Срочная помощь в учёбе

Автоматизация рабочего места маркетолога

Дипломная: Автоматизация рабочего места маркетолога
Дипломная Купить готовую Узнать стоимостьмоей работы

Datetostr (datetimepicker2.date); excelapp. cells: =dblookupcombobox1.Text; excelapp. cells: = form1. ADOQuery1stm. AsCurrency; excelapp. cells: ='Оптимальнаяцена, руб:'; excelapp. cells: =mx1; excelapp. visible:=true; excelapp:=unassigned;end;end.unit Unit8;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, ComCtrls, StdCtrls;type TForm8… Читать ещё >

Содержание

  • Введение
  • 1. АНАЛИТИЧЕСКИЙ РАЗДЕЛ
    • 1. 1. Описание ООО «СПК СибЭнергоСтрой»
    • 1. 2. Организационная структура ООО «СПК СибЭнергоСтрой»
    • 1. 3. Общее управление ООО «СПК СибЭнергоСтрой»
    • 1. 4. Функции рабочих мест ООО «СПК СибЭнергоСтрой»
    • 1. 5. Анализ существующей системы бизнес-процессов предприятия
    • 1. 6. Анализ средств реализации автоматизированного рабочего места маркетолога
  • 2. КОНСТРУКТОРСКИЙ РАЗДЕЛ
    • 2. 1. Техническое задание на проектирование ИС
    • 2. 2. Проектирование архитектуры ИС
    • 2. 3. Проектирование обеспечивающих подсистем
    • 2. 4. Проектирование функциональных подсистем
    • 2. 5. Выходная информация
    • 2. 6. Входная информация
  • 3. ТЕХНОЛОГИЧЕСКИЙ РАЗДЕЛ
    • 3. 1. Информационное обеспечение автоматизированной системы
    • 3. 2. Описание структуры данных
    • 3. 3. Постановка задачи автоматизации
  • 4. ПРОГРАМНЫЙ РАЗДЕЛ
  • Заключение
  • ПРИЛОЖЕНИЯ

Автоматизация рабочего места маркетолога (реферат, курсовая, диплом, контрольная)

C lear; sql. Add ('select * from prod'); active:=true; end; form6. stringgrid1.Cells[0,0]: ='Цена'; form6. stringgrid1.Cells[2,0]: ='Объемпродаж'; form6. stringgrid1.Cells[1,0]: ='Код'; form6. stringgrid1.ColWidths[0]: =50; form6. stringgrid1.ColWidths[1]: =50; form6. stringgrid1.ColWidths[2]: =100; form6. Show;end;procedure TForm1. RzBitBtn3Click (Sender: TObject);begin with form1. ADOQuery1 do begin close; sql. Clear; sql. Add ('select * from prod'); active:=true; end; form7. show;end;procedure TForm1. RzBitBtn4Click (Sender: TObject);begin form8. DateTimePicker1. Date:=now; form8. DateTimePicker2. Date:=now; form8. Show;end;procedure TForm1. RzBitBtn5Click (Sender: TObject);begin with form1. ADOQuery1 do begin close; sql. Clear; sql. Add ('select * from prod'); active:=true; end; form9. DateTimePicker1. Date:=now; form9. DateTimePicker2. Date:=now; form9. Show;end;procedure TForm1. RzBitBtn6Click (Sender: TObject);begin with form1. ADOQuery1 do begin close; sql. Clear; sql. Add ('select * from prod'); active:=true; end; form10. DateTimePicker1. Date:=now; form10. DateTimePicker2. Date:=now; form10. Show;end;procedure TForm1. RzBitBtn7Click (Sender: TObject);begin with form1. ADOQuery9 do begin close; sql. Clear; sql. Add ('select * from zp1'); active:=true; end; form11. DBGrid1.Columns[0]. T itle. caption:='Дата'; form11. DBGrid1.Columns[1]. T itle. caption:='Продукция'; form11. DBGrid1.Columns[2]. T itle. caption:='Цена'; form11. DBGrid1.Columns[3].

T itle. caption:='Количество'; form11. Show;end;procedure TForm1. RzBitBtn8Click (Sender: TObject);begin form1. close;end;end.unit Unit10;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, DB, TeEngine, Series, ExtCtrls, TeeProcs, Chart, DBCtrls, ComCtrls, StdCtrls;type TForm10 = class (TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; DateTimePicker1: TDateTimePicker; DateTimePicker2: TDateTimePicker; DBLookupComboBox1: TDBLookupComboBox; Chart1: TChart; Series1: TLineSeries; DataSource1: TDataSource; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Click (Sender: TObject); procedure RzBitBtn1Click (Sender: TObject); private { Private declarations } public { Public declarations } end;var Form10: TForm10;implementationuses Unit1;{$R *.dfm}procedure TForm10. RzBitBtn2Click (Sender: TObject);begin form10. close;end;procedure TForm10. RzBitBtn1Click (Sender: TObject);var i: integer; year1, mon1,dt1:word; m1, d1:string[2]; day1, day2:string[20]; begin form1. ADOQuery5. Open; series1. Clear; decodedate (datetimepicker1.Date, year1, mon1,dt1); if mon1 =#'+day1+'#) and (gur_prod.day 0 then showmessage ('Даннаяценаэтоготовараужевведенавбазу') else begin with form1. ADOQuery4 do begin close; sql. Clear; sql. add ('select max (code) from zena'); open; end; if form1. ADOQuery4.RecordCount=0 then code:=1 else code:=1+form1.ADOQuery4Expr1000.AsInteger; form1. adoquery3.AppendRecord ([form1.ADOQuery1code.AsInteger, edit1. Text, code]); edit1. Clear; showmessage ('Добавлено'); end; with form1. ADOQuery3 do begin close; sql. Clear; sql. add ('select * from zena where code_prod='+form1.ADOQuery1code.AsString); active:=true; end; end;end;end.unit Unit6;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, Grids, RzButton, DBCtrls, StdCtrls, ComCtrls;type TForm6 = class (TForm) DataSource1: TDataSource; Label1: TLabel; DBLookupComboBox1: TDBLookupComboBox; RzBitBtn1: TRzBitBtn; StringGrid1: TStringGrid; Label2: TLabel; DateTimePicker1: TDateTimePicker; RzBitBtn2: TRzBitBtn; RzBitBtn3: TRzBitBtn; procedure RzBitBtn1Click (Sender: TObject); procedure RzBitBtn3Click (Sender: TObject); procedure RzBitBtn2Click (Sender: TObject); private { Private declarations } public { Public declarations } end;var Form6: TForm6;implementationuses Unit1;{$R *.dfm}procedure TForm6. RzBitBtn1Click (Sender: TObject);var i: integer;begin with form1. ADOQuery3 do begin close; sql. Clear; sql. Add ('select * from zena where code_prod='+form1.ADOQuery1code.AsString); open; end; stringgrid1. RowCount:=form1.ADOQuery3.RecordCount+1; for i:=1 to form1. ADOQuery3.RecordCount do begin stringgrid1. Cells[0,i]: =form1.ADOQuery3stm.AsString; stringgrid1. Cells[1,i]: =form1.ADOQuery3code.AsString; form1. ADOQuery3. Next; end;end;procedure TForm6. RzBitBtn3Click (Sender: TObject);begin form6. close;end;procedure TForm6. RzBitBtn2Click (Sender: TObject);var code, i: integer;begin form1. ADOQuery5. Open; for i:=1 to stringgrid1. RowCount+1 do begin if not (trim (stringgrid1.Cells[2,i])='') then begin with form1. ADOQuery6 do begin close; sql. Clear; sql. Add ('select max (code) from gur_prod'); open; end; if form1. ADOQuery6.RecordCount=0 then code:=1 else code:=1+form1.ADOQuery6expr1000.AsInteger; form1. ADOQuery5.AppendRecord ([code, datetimepicker1. date, stringgrid1. Cells[1,i], stringgrid1. cells[2,i]]); end; end; showmessage ('Записано');end;end.unit Unit7;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, ComCtrls, StdCtrls, DB, DBCtrls;type TForm7 = class (TForm) Label1: TLabel; DateTimePicker1: TDateTimePicker; Label2: TLabel; DateTimePicker2: TDateTimePicker; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; Label3: TLabel; DBLookupComboBox1: TDBLookupComboBox; DataSource1: TDataSource; procedure RzBitBtn2Click (Sender: TObject); procedure RzBitBtn1Click (Sender: TObject); private { Private declarations } public { Public declarations } end;var Form7: TForm7;implementationuses Unit1, ComObj;{$R *.dfm}procedure TForm7. RzBitBtn2Click (Sender: TObject);begin form7. close;end;procedure TForm7. RzBitBtn1Click (Sender: TObject);var excelApp: Variant; i: integer; year1, mon1,dt1:word; m1, d1:string[2]; day1, day2:string[20]; mx, mx1: currency;begin form1. ADOQuery5. Open; ExcelApp:= CreateOleObject ('Excel.Application'); ExcelApp.workbooks.open ('C:zen_polxltzen_pol.xlt'); ExcelApp. WorkSheets[1]. A ctivate; ExcelApp. Visible := False; decodedate (datetimepicker1.Date, year1, mon1,dt1); if mon1 =#'+day1+'#) and (gur_prod.day mx then begin mx:=(form1.ADOQuery7stm.AsCurrencyform1.ADOQuery1stm.AsCurrency)*form1.ADOQuery7Skol.Asinteger; mx1:=form1.ADOQuery7stm.AsCurrency; end; excelapp. cells[7+i, 3]. Borders. LineStyle:=1; form1. ADOQuery7. Next; end; excelapp. cells[3,2]: =datetostr (datetimepicker1.date)+'

-'+datetostr (datetimepicker2.date); excelapp. cells[4,2]: =dblookupcombobox1.Text; excelapp. cells[5,2]: = form1. ADOQuery1stm.AsCurrency; excelapp. cells[8+form1.ADOQuery7.RecordCount, 1]: ='Оптимальнаяцена, руб:'; excelapp. cells[8+form1.ADOQuery7.RecordCount, 2]: =mx1; excelapp. visible:=true; excelapp:=unassigned;end;end.unit Unit8;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, ComCtrls, StdCtrls;type TForm8 = class (TForm) Label1: TLabel; Label2: TLabel; DateTimePicker1: TDateTimePicker; DateTimePicker2: TDateTimePicker; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Click (Sender: TObject); procedure RzBitBtn1Click (Sender: TObject); private { Private declarations } public { Public declarations } end;var Form8: TForm8;implementationuses Unit1, ComObj;{$R *.dfm}procedure TForm8. RzBitBtn2Click (Sender: TObject);begin form8. Close;end;procedure TForm8. RzBitBtn1Click (Sender: TObject);var excelApp: Variant; i, j, k:integer; year1, mon1,dt1:word; m1, d1:string[2]; day1, day2:string[20]; mx, mx1: currency;begin form1. ADOQuery5. Open; ExcelApp:= CreateOleObject ('Excel.Application'); ExcelApp.workbooks.open ('C:zen_polxltsvod.xlt'); ExcelApp. WorkSheets[1]. Activate; ExcelApp. Visible := False; decodedate (datetimepicker1.Date, year1, mon1,dt1); if mon1<10 then m1:='0'+inttostr (mon1) else m1:=inttostr (mon1); if dt1<10 then d1:='0'+inttostr (dt1) else d1:=inttostr (dt1); day1:=inttostr (year1)+'/'+m1+'/'+d1; decodedate (datetimepicker2.Date, year1, mon1,dt1); if mon1<10 then m1:='0'+inttostr (mon1) else m1:=inttostr (mon1); if dt1<10 then d1:='0'+inttostr (dt1) else d1:=inttostr (dt1); day2:=inttostr (year1)+'/'+m1+'/'+d1; with form1. ADOQuery1 do begin close; sql. Clear; sql. Add ('select * from prod'); open; end; k:=1; form1. ADOQuery1.First; for j:=1 to form1. ADOQuery1.RecordCount do begin mx:=0; mx1:=0; with form1. ADOQuery7 do begin close; sql. Clear; sql. Add ('SELECT prod. nam, zena. stm, Sum (gur_prod.kol) AS Skol FROM (prod INNER JOIN zena ON prod. code=zena.code_prod) INNER JOIN gur_prod ON zena. code=gur_prod.code_zn where (gur_prod.day>=#'+day1+'#) and (gur_prod.day<=#'+day2+'#) and (prod.code='+form1.ADOQuery1code.AsString+') GROUP BY prod. nam, zena. stm '); open; end; for i:=1 to form1. ADOQuery7.RecordCount do begin if (form1.ADOQuery7stm.AsCurrencyform1.ADOQuery1stm.AsCurrency)*form1.ADOQuery7Skol.Asinteger>mx then begin mx:=(form1.ADOQuery7stm.AsCurrencyform1.ADOQuery1stm.AsCurrency)*form1.ADOQuery7Skol.Asinteger; mx1:=form1.ADOQuery7stm.AsCurrency; end; form1. ADOQuery7. Next; end; if mx1>0 then begin excelapp. cells[5+k, 1]: =k; excelapp. cells[5+k, 1]. Borders. LineStyle:=1; excelapp. cells[5+k, 2]: =form1.ADOQuery1nam.AsString; excelapp. cells[5+k, 2]. Borders. LineStyle:=1; excelapp. cells[5+k, 3]: =mx1; excelapp. cells[5+k, 3]. Borders. LineStyle:=1; k:=k+1; end; form1. ADOQuery1. Next; end; excelapp. cells[3,2]: =datetostr (datetimepicker1.date)+'

-'+datetostr (datetimepicker2.date); excelapp. visible:=true; excelapp:=unassigned;end;end.unit Unit9;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBCtrls, ComCtrls, StdCtrls, RzButton, TeEngine, Series, ExtCtrls, TeeProcs, Chart, DbChart;type TForm9 = class (TForm) Label1: TLabel; Label2: TLabel; DateTimePicker1: TDateTimePicker; DateTimePicker2: TDateTimePicker; Label3: TLabel; DBLookupComboBox1: TDBLookupComboBox; DataSource1: TDataSource; RzBitBtn1: TRzBitBtn; Chart1: TChart; RzBitBtn2: TRzBitBtn; Series1: TLineSeries; procedure RzBitBtn1Click (Sender: TObject); procedure RzBitBtn2Click (Sender: TObject); private { Private declarations } public { Public declarations } end;var Form9: TForm9;implementationuses Unit1;{$R *.dfm}procedure TForm9. RzBitBtn1Click (Sender: TObject);var i: integer; year1, mon1,dt1:word; m1, d1:string[2]; day1, day2:string[20]; begin form1. ADOQuery5. Open; series1. Clear; decodedate (datetimepicker1.Date, year1, mon1,dt1); if mon1<10 then m1:='0'+inttostr (mon1) else m1:=inttostr (mon1); if dt1<10 then d1:='0'+inttostr (dt1) else d1:=inttostr (dt1); day1:=inttostr (year1)+'/'+m1+'/'+d1; decodedate (datetimepicker2.Date, year1, mon1,dt1); if mon1<10 then m1:='0'+inttostr (mon1) else m1:=inttostr (mon1); if dt1<10 then d1:='0'+inttostr (dt1) else d1:=inttostr (dt1); day2:=inttostr (year1)+'/'+m1+'/'+d1; with form1. ADOQuery7 do begin close; sql. Clear; sql. Add ('SELECT prod. nam, zena. stm, Sum (gur_prod.kol) AS Skol FROM (prod INNER JOIN zena ON prod. code=zena.code_prod) INNER JOIN gur_prod ON zena. code=gur_prod.code_zn where (gur_prod.day>=#'+day1+'#) and (gur_prod.day<=#'+day2+'#) and (prod.code='+form1.ADOQuery1code.AsString+') GROUP BY prod. nam, zena. stm '); open; end; with form1. ADOQuery8 do begin close; sql. Clear; sql. add ('delete from tmp_prod'); execsql; close; sql. Clear; sql. Add ('select * from tmp_prod'); open; end; for i:=1 to form1. ADOQuery7.RecordCount do begin form1. ADOQuery8.AppendRecord ([form1.ADOQuery7stm.AsCurrency, form1. ADOQuery7Skol.AsInteger, 0]); form1. ADOQuery7. Next; end; form1. ADOQuery8.First; for i:=1 to form1. ADOQuery8.RecordCount do begin series1. AddXY (form1.ADOQuery8zena.AsCurrency, form1. ADOQuery8kol.AsInteger, form1. ADOQuery8zena.AsString, clred); form1. adoquery8. Next; end;end;procedure TForm9. RzBitBtn2Click (Sender: TObject);begin form9. close;end;end.

Показать весь текст

Список литературы

  1. Н.А. Автоматизированные информационные системы, базы и банки данных. — М: Гелиос АРВ, 2009. — 524с.
  2. А. А. Бухучет и финансы для руководителей и менеджеров М.: 2007
  3. , О.М. Управленческий учет и анализ: [учеб. пособие для вузов по специальности «Прикладная информатика (по обл.)» и др. экон. специальностям] /О. М. Горелик, Л. А. Парамонова, Э. Ш. Низамова.-М.: КноРус, 2007.-252 с.
  4. , О.Н. Информационные технологии в управлении: учеб. пособие для студентов вузов, обучающихся по специальностям «Прикладная информатика (по областям) и «Менеджмент организации (по специализации «Информационный менеджмент»)» /О. Н. Граничин, В. И. Кияев.-М.: Интернет-Ун-т Информ. Технологий, 2010.-335 с.
  5. В. И., Денищенко Г. Н., Коровкина Н. Л. Проектирование информационных систем. — М.: Интернет-университет информационных технологий — М.: ИНТУИТ.ру, 2009. с.135
  6. , А.С. Информационные технологии управления: [Учеб. пособие для вузов по специальностям 351 400 «Прикладная информатика (по обл.)», 61 100 «Менеджмент орг.», 61 000 «Гос. и муницип. упр."] /А.С. Гринберг, Н. Н. Горбачев, А. С. Бондаренко.-М.: ЮНИТИ, 2010.-479 с.
  7. , С.М. Базы данных: проектирование и использование: [Учеб. для вузов по специальности «Прикладная информатика (по обл.)"] /С.М. Диго.-М.: Финансы и статистика, 2010.-591 с.
  8. Н.З., Партыка Т. Л., Попов И. И. Защита информации в персональном компьютере. — М.: Форум, 2009. — 368 с.
  9. А.Г. Автоматизированные системы маркетинга М.: Логос; ПБОЮЛ Н. А. Егоров, 2011. — 264 с.
  10. , А.Г. Информационные технологии в экономике и управлении: [учеб. пособие для вузов по специальностям «Прикладная информатика (по обл.)», «Менеджмент орг.», «Гос. и муницип. упр."] /А. Г. Ивасенко, А. Ю. Гридасов, В. А. Павленко.-М.: КноРус, 2011.-153 с.
  11. , А.Г. Информационные технологии в экономике и управлении: учеб. пособие для студентов вузов, обучающихся по специальностям «Прикладная информатика (по областям)», «Менеджмент орг.», «Гос. и муницип. упр.» /А. Г. Ивасенко, А. Ю. Гридасов, В. А. Павленко.-М.: КноРус, 2009.-153 с.
  12. С.В. Информатизация маркетинговых технологий. — М.: Проспект.- 632с.
  13. Информатика: учебник для студентов вузов, обучающихся по специальности 80 801 «Прикладная информатика» и другим экономическим специальностям /[В. В. Трофимов и др.]; под ред. проф. В. В. Трофимова.-М.: Юрайт, 2010.-910 с.
  14. Информационные системы и технологии в экономике и управлении: [учеб. для вузов по специальности «Прикладная информатика (по обл.)» и др. экон. специальностям] /[В. В. Трофимов и др.]; под ред. В. В. Трофимова.-М.: Высш. образование, 2010.-480 с.
  15. Информационные технологии: [учеб. для студентов вузов, обучающихся по специальности 80 801 «Прикладная информатика» и др. экон. специальностям /В. В. Трофимов и др.]; под ред. проф. В. В. Трофимова.-М.: Юрайт, 2009.-624 с.
  16. Т. С. Базы данных: модели, разработка, реализация.- СПб.: Питер, 2007. — 302с.
  17. Комплексная система защиты информации на предприятии. Часть 1. — М.: Московская Финансово-Юридическая Академия, 2008. — 124 с.
  18. , И.А. Информационные технологии: учеб. пособие: [для вузов по специальности «Прикладная информатика (по областям)] /И. А. Коноплева, О. А. Хохлова, А. В. Денисов.-М.: Проспект, 2010.-294 с.
  19. , Ю.И. Основы современной информатики: учеб. пособие для студентов вузов, обучающихся по специальности «Прикладная информатика» /Ю. И. Кудинов, Ф. Ф. Пащенко.-СПб.: Лань, 2009.-255 с.
  20. , Д.Д. Информатика: учеб.-метод. пособие для студентов вузов, обучающихся по специальности 80 801 «Прикладная информатика» и др. междисциплинарным специальностям /Дэвид Дж. Луенбергер; пер. с англ. Ю. Л. Цвирко под ред. д.т.н. К. К. Колина.-М.: Техносфера, 2008.-447 с.
  21. Маклаков, С.В. Bpwin и Erwin. Case-средства разработки информационных систем − М.: ДИАЛОГ-МЭФИ, 2009.
  22. , Н.В. Технические средства информатизации: [учебник по специальностям «Информатика и вычисл. техника», «Прикладная информатика (по областям)"] /Н. В. Максимов, Т. Л. Партыка, И. И. Попов.-М.: Форум, 2008.-591 с.
  23. , Н.В. Технические средства информатизации: учеб. для студентов учреждений сред. проф. образования, обучающихся по группе специальностей «Информатика и вычисл. техника» и для студентов вузов, обучающихся по специальности 80 801 «Прикладная информатика (по областям)» /Н. В. Максимов, Т. Л. Партыка, И. И. Попов.-М.: Форум, 2010.-606 с.
  24. , М.П. Базы данных: основы, проектирование, использование. — СПб: БХВ Петербург.2009.
  25. , А.С. Базы данных: Введ. в теорию и методологию: [Учеб. по специальности «Прикладная математика и информатика"] /А.С. Марков, К. Ю. Лисовский.-М.: Финансы и статистика, 2009.-511 с.
  26. А.И. Теория экономических информационных систем. — М.: Финансы и статистика, 2010. 240 с
  27. Проектирование экономических систем: Учебник / Г. Н. Смирнова, А. А. Сорокин, Ю. Ф. Тельнов — М.: Финансы и статистика, 2010.
  28. А.Г. Автоматизация служб предприятия. — Курск: КПО, 2010.
  29. С.В. Информатика для юристов и экономистов. — СПб.: Питер, 2007. — 633с.
  30. А.Н. Информатика: учебное пособие. — СПб: Питер Пресс, 2012. — 764 с.
  31. Н. С., Стражев А. В. Бухгалтерский учет. — М.: Диалог, 2008. — 252с.
  32. В.Б., Балдин К. В. Информационные системы и технологии в экономике. — М.: ЮНИТИ, 2008. — 453с.
  33. Marketing Analytic. Программа для автоматизации маркетинговой деятельности. [Электронный ресурс]. Режим доступа: http://www.k-press.ru/comp/2000/3/curs/curs.asp
  34. Парус — Менеджмент и маркетинг. [Электронный ресурс]. Режим доступа: http://rhjrjlbksmail.parus.ua/ru/167/
  35. ООО СПК «СибэнергоСтрой». [Электронный ресурс]. Режим доступа: http://www.sibesnv.ru/
Заполнить форму текущей работой
Купить готовую работу

ИЛИ
↓


Заказал и сдал!