Дипломная работа: Автоматизация учета рабочего времени сотрудников компании ООО «Транспорт-Отрадный 2»

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
84
15. Кристиан Дари, Богдан Бринзаре, Филип Черчез-Тоза, Михай
Бусика. AJAX и PHP. Разработка динамических веб-приложений: Учебник – М.:
Символ Плюс, 2015.
16. Лифшиц Н.И., Левин Е.Т Механизация и автоматизация процессов
отборки и комплектования заказов на складах М., 2014.
17. Практическое руководство по программированию / Пер. с англ. Б.
Мик, П. Хит, Н. Рашби и др.; под ред. Б. Мика, П. Хит, Н. Рашби. — М.: Радио и
связь, 2015. — 168 с., ил.
18. Приказ Минэнерго РФ от 19 июня 2003 г. N 232
"Об утверждении Правил технической эксплуатации нефтебаз"
19. Проектирование и использование баз данных: Учебник.
М.:Финансы и статистика, 2015. – 191 с.;
20. Разработка программного обеспечения - СПб : "Питер", 2014 г - 592
стр.
21. Реляционные базы данных: практические приемы оптимальных
решений. – СПб.: БХВ-Петербург, 2013 – 400с.:ил;
22. Симионов Ю.Ф., Боромотов В.В. Информационный менеджмент. —
Ростов н.Д: Феникс, 2014, 250с., ил.;
23. Схемы алгоритмов, программ, данных и систем. Условные
обозначения и правила выполнения. ГОСТ 19.701-90 (ИСО 5807-85) /
Управление качеством продукции и стандартам, 01.01.2012.
24. Фокс Дж. Программное обеспечение и его разработка / Пер. с англ.
— М.: Мир, 2014. - 368 с., ил.
25. Язык компьютера. Пер. с англ, под ред. и с предисл. В. М. Курочки-
на. — М.: Мир, 2015. - 240 с., ил. Глушаков С.В., Ломотько Д.В. Базы данных,
2000.
85
ПРИЛОЖЕНИЕ
3. Листинги программных модулей
unit Unit2;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TDM = class(TDataModule)
ADOConnection1: TADOConnection;
QJV: TADOQuery;
QSV: TADOQuery;
QSK: TADOQuery;
DataSource1: TDataSource;
DataSource3: TDataSource;
DataSource4: TDataSource;
QSVDSDesigner: TAutoIncField;
QSVDSDesigner2: TIntegerField;
QSVDSDesigner3: TWideStringField;
QSVDSDesigner5: TIntegerField;
QSKDSDesigner: TAutoIncField;
QSKDSDesigner3: TWideStringField;
QJVDSDesigner: TAutoIncField;
QJVDSDesigner2: TIntegerField;
QJVDSDesigner3: TWideStringField;
QJVDSDesigner4: TWideStringField;
QJVDSDesigner6: TWideStringField;
QJVDSDesigner9: TWideStringField;
QJVDSDesigner10: TWideStringField;
QJVDSDesigner11: TWideStringField;
QJVDSDesigner14: TWideStringField;
86
QJVDSDesigner15: TWideStringField;
QJVDSDesigner18: TWideStringField;
QJVDSDesigner19: TWideStringField;
QJVDSDesigner20: TWideStringField;
QJVDSDesigner21: TWideStringField;
QJVDSDesigner22: TWideStringField;
QJVDSDesigner102: TWideStringField;
QJVDSDesigner23: TWideStringField;
QJVname: TStringField;
QJVDSDesigner24: TWideStringField;
QJVDSDesigner25: TWideStringField;
QJVDSDesigner26: TWideStringField;
QJVDSDesigner27: TIntegerField;
QJVkon: TStringField;
DataSource2: TDataSource;
QSPE: TADOQuery;
QSPEDSDesigner: TIntegerField;
QSPEDSDesigner10: TBooleanField;
DataSource5: TDataSource;
QM: TADOQuery;
QMDSDesigner: TAutoIncField;
QMDSDesigner2: TWideStringField;
QJVMar: TStringField;
DataSource6: TDataSource;
QOpt: TADOQuery;
QOptDSDesigner: TAutoIncField;
QOptDSDesigner2: TWideStringField;
QSKDSDesigner4: TWideStringField;
QSVDSDesigner4: TWideStringField;
QSKDSDesigner2: TIntegerField;
QDel: TADOQuery;
QKol: TADOQuery;
DataSource8: TDataSource;
QOptDSDesigner3: TWideStringField;
QOptDSDesigner12: TWideStringField;
87
QJVDSDesigner5: TIntegerField;
QJVDSDesigner7: TIntegerField;
QJVDSDesigner8: TWideStringField;
QJVDSDesigner1: TWideStringField;
QJVDSDesigner28: TWideStringField;
QJVDSDesigner32: TWideStringField;
QJVDSDesigner42: TWideStringField;
QJVDSDesigner52: TWideStringField;
QJVDSDesigner12: TWideStringField;
QJVDSDesigner29: TWideStringField;
QJVDSDesigner33: TWideStringField;
QJVDSDesigner43: TWideStringField;
QJVDSDesigner53: TWideStringField;
QJVDSDesigner13: TWideStringField;
QJVDSDesigner210: TWideStringField;
QJVDSDesigner34: TWideStringField;
QJVDSDesigner44: TWideStringField;
QJVDSDesigner54: TWideStringField;
QJVDSDesigner16: TWideStringField;
QJVDSDesigner211: TWideStringField;
QJVDSDesigner35: TWideStringField;
QJVDSDesigner45: TWideStringField;
QJVDSDesigner55: TWideStringField;
QOptDSDesigner10: TWideStringField;
QJVDSDesigner17: TWideStringField;
QJVDSDesigner103: TWideStringField;
QJVDSDesigner30: TWideStringField;
QJVDSDesigner31: TWideStringField;
QJVDSDesigner36: TWideStringField;
QTWO: TADOQuery;
QJVDSDesigner37: TWideStringField;
QOptDSDesigner4: TWideStringField;
procedure QJVBeforePost(DataSet: TDataSet);
private
{ Private declarations }
88
public
{ Public declarations }
end;
var
DM: TDM;
implementation
uses Unit3;
{$R *.dfm}
function ReplaceSub(str, sub1, sub2: string): string;
var
aPos: Integer;
rslt: string;
begin
aPos := Pos(sub1, str);
rslt := '';
while (aPos <> 0) do
begin
rslt := rslt + Copy(str, 1, aPos - 1) + sub2;
Delete(str, 1, aPos + Length(sub1) - 1);
aPos := Pos(sub1, str);
end;
Result := rslt + str;
end;
function RoundEx(chislo: double; Precision: Integer): string;
var
ChisloInStr: string;
ChisloInCurr: currency;
begin
Источник: https://baza.diplomsite.ru/previewfile/2441

Смотрите также:

Автоматизация закупочной деятельности
Больную госпитализировали в инфекционное отделение города Д. в бокс системы Мельцера. Назовите, какими показаниями руководствовался лечащий врач
Влияние космоса на существование человечества
Кадровые риски
Классификация испанских компьютерных метафор по характеру коннотативного значения
Мировой рынок нефти
Напишите психологическую характеристику детей младшего школьного возраста. При написании характеристики необходимо указать методики для диагностики (название методики, авторы, на какие психические процессы направлена)
Начальный период развития жанра трагедии кровавой мести в английском театре эпохи Возрождения: трагедии Томаса Кида и его последователей
Нестандартний урок в інтерактивному режимі
Объемы земляных работ