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



С_ч - часовая тарифная ставка

ЗП _min - min зарплата за месяц, определённая законом о бюджете РК на каждый год.

168 - среднее количество рабочих часов за месяц, рассчитывается исходя из закона о труде в РК, где определяется продолжительность рабочей недели - 40 часов.

К_мр - тарификационный коэффициент, определяющий квалификацию программиста. Показывает во сколько раз ставка по какому-то разряду больше ставки первого разряда.

К_ут - коэффициент, отражающий условия труда.

К_отр - коэффициент, отражающий отрасль народного хозяйства.

, Дополнительная заработная плата программиста включает в себя:

1) отпускные выплаты

2) оплата за выполнение государственных обязанностей

3) оплата по временной нетрудоспособности.

ЗП_доп - дополнительная заработная плата

ЗП - заработная плата программиста

10% - среднестатистические расходы по дополнительной заработной плате.

Заработная плата программиста определяется по формуле

ЗП=С_ч•Т

Т - трудоёмкость разработки программы.

Расходы по социальному налогу рассчитываются исходя из налогового законодательства РК, где определено, что ставка налога имеет предельный размер 11% от всей суммы начисленной заработной платы.

Рассчёт затрат по формуле

где, З_сн - расходы по социальному налогу

ЗП_доп - дополнительная заработная плата.

Затраты на электроэнергию потреблённую в процессе использования ПК при разработке ПО, , определяются по формуле

З_э - затраты на потреблённую электоэнергию

W - электроэнергия потребляемая компьютером за час

С_к - стоимость 1 КВт /ч потребленной энергии.

Амортизацию ПК рассчитывают исходя из налогового законодательства, где определено, что ставка амортизационных отчислений по группе основных средств, к которым относится компьютерная техника, при определённых затратах относится на себестоимость изделия. Составляет 25% от стоимости компьютера. Амортизационные отчисления, , рассчитываются по формуле :

З_а - расходы на амортизацию компьютера

НА- норма амортизации в процентах

Ц_к - стоимость компьютера

Т - трудоёмкость разработки программы

F_д - годовой фонд рабочего времени компьютера

Все вышеперечисленные затраты относятся к основным затратам, однако существуют расходы по разработке программного изделия, накапливаемые в течении периода времени и относящиеся не к программе непосредственно, а распределённые на ряд программных изделий. Они включают в себя затраты на освещение, отопление, водоснабжение, амортизацию зданий, транспортные расходы, административно-управленческие расходы, общехозяйственные расходы.

Все эти затраты объединены в группу накладных расходов, и составляют 40% - 90% от основных затрат по разработке программы, и в зависимости от числа операторов действия, шаг принимается 10% на каждые полные и неполные 100 команд

Расчёт накладных расходов осуществляется по формуле:

НР - накладные расходы.

Общая себестоимость разработки программы рассчитывается по формуле :

C/_сп = З_м+З_э+ЗП+ЗП_доп+З_сн+З_а+НР,

Где C/_сп - себестоимость программного изделия

Данные расчётов сведены в таблицы



Таблица 1. Исходные данные

Наименование	Обозначение	Данные
Разряд работника	i	10
Процент материалов	П	6
Потребляемая электроэнергия	W	220
Тарифный коэффициент	Кмр	4
Коэффициент, отображающий условия труда	Кут	1
Коэффициент, отображающий отрасль народного хозяйства	Котр	1
Предполагаемое число операторов	q	212
Коэффициент сложности программы	с	1,3
Коэффициент корректировки программы в ходе её разработки	p	0,06
Квалификация разработчика	К	0,9
Коэффициент на уточнение задачи	B	1,26
Потери времени на ремонт компьютера	Кп	9
Цена компьютера	Цк	80000

Таблица 2. Настройки

Параметр	Значение
Для расчёта Ти берётся число от 75 до 80 в зависимости от числа операторов	77
Для расчёта Та берётся число от 20 до 25 в зависимости от числа операторов	22
Для расчёта Тп берётся число от 20 до 25 в зависимости от числа операторов	22
Для расчёта Тотл берётся число от 4 до 5 в зависимости от числа операторов	4
Для расчёта Тдр берётся число от 15 до 20 в зависимости от числа операторов	17
Для расчёта накладных расходов берётся число от 40 до 90 в зависимости от числа операторов	60
Количество рабочих дней в году	250
Продолжительность рабочей смены	8
Количество рабочих смен	1
Минимальная заработная плата	19666
Среднестатистические расходы по дополнительной зар. плате	10
Налоговая ставка	11
Размер амортизационных отчислений за год	25
Стоимость 1 КВт/час потребляемой электроэнергии	10,53

Таблица 3. Калькуляция затрат

Наименование статей затрат	Единицы измерения	Обозначение	Сумма
Затраты на материалы	тг	Зм	319
Затраты на электроэнергию	тг	Зэ	280
Зарплата программиста	тг	ЗП	56657
Дополнительная зарплата	тг	ЗПдоп	5666
Затраты по социальному налогу	тг	Зсн	6856
Затраты на амортизацию	тг	За	1330
Основные расходы	тг	Ор	71107
Накладные расходы	тг	НР	42664
Себестоимость программного изделия	тг	С/сп	113772



4. ТЕХНИКА БЕЗОПАСНОСТИ

4.1 Общие положения по технике безопасности

При эксплуатации ПК на работника могут оказывать следующие опасные и вредные производственные факторы:

Повышенный уровень электромагнитных излучений;

Повышенный уровень статического электричества;

Повышенная ионизация воздуха;

Статические физические перегрузки;

Перенапряжение зрительных анализаторов;

Работник обязан:

- выполнять только ту работу, которая определена его должностной инструкцией;

- содержать в чистоте рабочее место;

- соблюдать режим труда и отдыха в зависимости от продолжительности, вида и категории трудовой деятельности;

- соблюдать меры пожарной безопасности.

1.1 Инструкция предназначена для пользователей персональных компьютеров.

1.2 К работе с персональным компьютером допускаются лица: имеющие персональные навыки, изучившие руководство по эксплуатации персонального компьютера и знающие порядок включения и отключения электронных устройств; прошедшие вводный инструктаж, а также инструктаж по безопасности труда непосредственно на рабочем месте.

1.3 Профессиональные пользователи должны проходить обязательные предварительные (при поступлении на работу) и периодические медосмотры

1.4 К непосредственной работе с персональным компьютером допускаются лица, не имеющие медицинских противопоказаний.

1.5 Женщины со времени установления беременности и на период кормления ребенка грудью к выполнению всех видов работ, связанных с использованием персонального компьютера, не допускаются.

1.6 Работающие с персональным компьютером обязаны выполнять правила внутреннего распорядка, требования настоящей инструкции. Инструкции по эксплуатации правила электро - пожарной безопасности, знать принцип работы компьютера и методику правильной его эксплуатации, знать возможные вредные производственные факторы, характерные для работы с компьютером (воздействие электромагнитного и электростатического полей, переутомление зрения, снижение его остроты и др.); сообщать инженеру - программисту или руководителю работ обо всех неполадках в работе компьютера; знать приемы освобождения от действия электрического тока лиц, попавших под напряжение, и способы оказания им первой помощи, знать расположение средств пожаротушения и уметь ими пользоваться.

1.7 Следует иметь в виду, что:

-расстояние между рабочими столами с компьютерами в направлении тыла поверхности одного видеомонитора и экрана другого видеомонитора должно быть не менее 2 м, а расстояние между боковыми поверхностями видеомониторов - не менее 1.2м;

-чтобы освещение не создавало слепящих бликов на клавиатуре и других частях пульта, располагаться компьютер должен так, чтобы прямой свет на попадал на экран, иначе при работе с монитором будут быстро уставать глаза Операторы не должны также сидеть лицом к окнам; Искусственное освещение в помещениях эксплуатации ПК должно осуществляться системой общего равномерного освещения. В производственных и административно - общественных помещениях, в случаях преимущественной работы с документами, допускается применение системы комбинированного освещения, когда к общему освещению дополнительно устанавливаются светильники местного освещения, предназначенные для освещения зоны расположения документов. Местное освещение не должно создавать бликов на поверхности экрана и увеличивать освещенность экрана более 300 лк. Освещенность на поверхности стола в зоне размещения рабочего документа должна быть 300-500 лк. Для обеспечения нормируемых значений освещенности в помещениях использования ПК следует проводить чистку стекол оконных рам и светильников не реже двух раз в год и проводить своевременную замену перегоревших ламп.

- площадь на одно рабочее место ПК должна составлять не менее 6,0 кв. м, а объем - не менее 20,0 куб. м.

- верхний край экрана следует располагать на уровне глаз или чуть ниже;

- оптимальное расстояние от глаз до экрана 600-700 мм, но не ближе 500 мм;

- высота клавиатуры должна быть отрегулирована так, чтобы кисти рук держались прямо (возможно применение подставок для кистей рук);

- с целью снижения статического напряжения мышц шейно - плечевой области и спины для предупреждения развития утомления необходимо, чтобы рабочий стул кресло) позволял изменять позу, был подъемно - поворотным и регулируемым по высоте и углам наклона сидения и спинки от переднего сидения;

- в производственных помещениях, в которых работа на ПК является основной (диспетчерские, операторские, расчетные, кабинеты и посты управления, залы вычислительной техники и т. д.) должны обеспечиваться оптимальные параметры микроклимата. Для нормализации аэроионного фактора помещений с компьютерами необходимо использовать устройства автоматического регулирования ионного режима воздушной среды.

- рабочие места с ПК при выполнении творческой работы, требующей значительного умственного напряжения или высокой концентрации внимания, следует изолировать друг от друга перегородками высотой 1,5-2,0 м.

- в помещениях с ПК ежедневно должна проводится влажная уборка.

- помещения с ПК должны быть оснащены аптечкой первой помощи и углекислотными огнетушителями.

- кабели компьютера должны располагаться так, чтобы их нельзя было повредить неосторожным движением;

- для предотвращения образования и защиты от статического электричества, в помещении, где установлен компьютер, необходимо применять нейтрализаторы и увлажнители. Должна быть эффективная вентиляция и поддерживаться относительная влажность воздуха на уровне 40-60 % (можно разместить вблизи компьютера цветы или аквариум).

1.8 Для обеспечения оптимальной работоспособности и сохранения здоровья профессиональных пользователей, на протяжении рабочей смены должны устанавливаться регламентированные перерывы. Продолжительность непрерывной работы с персональным компьютером без регламентированного перерыва не должна превышать 2 часов.

1.9 При работе с персональным компьютером в ночную смену (с 22 до 6 часов), независимо от категории и вида трудовой деятельности, продолжительность регламентированных перерывов должна увеличиваться на 60 мин.

1.10 Невыполнение требований настоящей инструкции является нарушением производственной дисциплины. Виновные в этом несут ответственность, в порядке, установленном действующим законодательством.

4.2 Техника безопасности при работе с ПК

1. Требования безопасности перед началом работы

1.1 Подготовить рабочее место, убедиться в достаточной освещенности.

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

1.3 При выявлении неполадок сообщить об этом инженеру - программисту или руководителю работ и до их устранения к работе не приступать.

2. Требования безопасности во время работы

2.1 Выполнять при работе требования, изложенного в руководстве по эксплуатации компьютера.

2.2 Питание на процессор следует подавать после включения всех периферийных устройств. После работы первым должен выключаться процессор.

2.3 Не оставлять компьютер включенным при уходе с рабочего места. При длительном перерыве в работе компьютер следует обесточить, отсоединив от сети.

2.4 При появлении неисправностей прекратить работу, компьютер отключить от электросети (или поступить в соответствии с требованиями руководства по эксплуатации). Сообщить об этом инженеру - программисту или руководителю работ. До устранения неисправностей компьютер не включать.

2.5 С целью уменьшения отрицательного влияния монотонности и для снижения напряженности труда целесообразно равномерное распределение нагрузки и характера деятельности - работы за пультом компьютера с другой работой.

2.6 Во время регламентированных перерывов с целью снижения нервно-эмоционального напряжения, зрительного и общего утомления целесообразно выполнять комплексы рекомендованных санитарными нормами и правилами упражнений.

2.7 Работающим с персональными компьютерами с высоким уровнем напряженности труда во время регламентированных перерывов и в конце рабочего дня, показана психологическая разгрузка в специально оборудованных помещениях.

3. Требования безопасности в аварийных ситуациях

3.1 При возникновении аварийной ситуации на рабочем места, работающий с персональным компьютером обязан работу прекратить, отключить электроэнергию, сообщить инженеру - программисту или руководителю работ и принять меры к ликвидации создавшейся ситуации.

3.2 В случае возникновения пожара - отключить компьютер от электросети, вызвать пожарную охрану и приступить к тушению пожара имеющимися средствами пожаротушения.

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

4. Требования безопасности по окончании работы

4.1 Отключить компьютер от электросети и убрать рабочее место

4.2 Сообщить инженеру - программисту или непосредственному руководителю о всех замеченных во время работы неполадках и неисправностях электронных устройств.



ЗАКЛЮЧЕНИЕ

Разработанная в ходе выполнения дипломного проекта Информационная система «Гостиница», является актуальной на сегодняшний день и имеет большую практическую значимость.

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

Разработанная программа устойчиво выполняет все свои функции.



СПИСОК ЛИТЕРАТУРЫ

1. ГОСТ 2. 105-95 ЕСКД. Общие требование к текстовым документам

2. ГОСТ 2. 004-68 ЕСКД. Общие требования к выполнению конструкторских и технологических документов на печатных графических устройствах вывода ЭВМ

3. ГОСТ 2. 104-68 ЕСКД. Основные надписи

4. ГОСТ 2. 106-96 ЕСКД. Текстовые документы

5. Архангельский А. Я. Программирование Delphi7 - Москва, 2005;

6. Благодатских В. А. и др. Экономика, разработка и использование программного обеспечения ЭВМ - Москва, 1995;

7. Благодатских В. А. и др. Стандартизация разработки программных средств - Москва, 2003;

8. Бобровский С. И. Delphi 7 - Москва, 2005;

9. Голицина О. Л., Максимов Н. В. и др. База данных - Москва, 2003;

10. Коннолли Т. А., Бег К. В. Базы данных. Проектирование, реализация и сопровождение - Москва, 2001;

11. Океанова З. К. Основы экономической теории -Москва, 2003;

12. Орлов С. К. Технологии разработки программного обеспечения - Санкт-Петербург, 2002;

13. Полещук Н. Н. AutoCAD 2005, Санкт - Петербург, 2004;

14. Рудаков А. В. Технология разработки программных продуктов - Москва, 2005;

15. Семакин И. Г., Шестаков А. П. Основы программирования - Москва, 2001;

16. Фаронов В. В. Программирование баз данных в Delphi 7, Санкт-Петербург, 2003;

17. Фигунов В. Э. IBM PC для пользователей - Москва, 1996;

18. Якубайтис Э. А. Информационные сети и системы - Москва, 1996.



ПРИЛОЖЕНИЯ

Приложение А

Исходный код программы

Главная форма

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

Image1: TImage;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

procedure N2Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7;

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);

begin

Form3.Show;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Form4.Show;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Form5.Show;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

AboutBox.ShowModal;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

Form7.Show;

end;

end.

Модуль данных

unit Unit2;

interface

uses

SysUtils, Classes, DB, ADODB;

type

TDataModule2 = class(TdataModule)

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TdataSource;

ADOTable2: TADOTable;

DataSource2: TdataSource;

ADOTable3: TADOTable;

DataSource3: TdataSource;

ADOTable4: TADOTable;

DataSource4: TdataSource;

ADOQuery1: TADOQuery;

DataSource5: TdataSource;

ADOQuery2: TADOQuery;

DataSource6: TdataSource;

ADOQuery3: TADOQuery;

DataSource7: TdataSource;

procedure DataModuleCreate(Sender: Tobject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

DataModule2: TdataModule2;

implementation

uses

Unit1, Unit3, Unit4, Unit5, Unit7;

{$R *.dfm}

procedure TdataModule2.DataModuleCreate(Sender: Tobject);

begin

AdoConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+GetCurrentDir+'\Gost.mdb;Persist Security Info=False';

AdoConnection1.Connected:=true;

AdoTable1.Connection:=AdoConnection1;

AdoTable1.TableName:='Заселение';

AdoTable1.Active:=True;

AdoTable2.Connection:=AdoConnection1;

AdoTable2.TableName:='Клиент';

AdoTable2.Active:=True;

//AdoTable3.Connection:=AdoConnection1;

//AdoTable3.TableName:='Номер';

//AdoTable3.Active:=True;

AdoTable4.Connection:=AdoConnection1;

AdoTable4.TableName:='Оплата';

AdoTable4.Active:=True;

AdoQuery1.Connection:=AdoConnection1;

AdoQuery1.Close;

AdoQuery1.SQL.Text:='Select Код, Свободные, Наименование, Описание, Стоимость From Номер';

AdoQuery1.ExecSQL;

AdoQuery1.Open;

{AdoQuery3.Connection:=AdoConnection1;

AdoQuery3.Close;

AdoQuery3.SQL.Text:='Select Код, Код заселения, ФИО плательщика, Сумма From Оплата';

AdoQuery3.ExecSQL;

AdoQuery3.Open; }

end;

end.

Форма ЗАСЕЛЕНИЕ КЛИЕНТОВ

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, DBCtrls, ExtCtrls, StdCtrls, Buttons, ComCtrls;

type

TForm3 = class(Tform)

Panel1: Tpanel;

Splitter1: Tsplitter;

Panel2: Tpanel;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

Label1: Tlabel;

Edit1: Tedit;

SpeedButton1: TspeedButton;

GroupBox1: TgroupBox;

Label2: Tlabel;

DateTimePicker1: TdateTimePicker;

Label3: Tlabel;

DateTimePicker2: TdateTimePicker;

BitBtn1: TbitBtn;

BitBtn2: TbitBtn;

RadioGroup1: TradioGroup;

procedure FormActivate(Sender: Tobject);

procedure FormClose(Sender: Tobject; var Action: TcloseAction);

procedure Edit1Change(Sender: Tobject);

procedure SpeedButton1Click(Sender: Tobject);

procedure FormCreate(Sender: Tobject);

procedure BitBtn1Click(Sender: Tobject);

procedure BitBtn2Click(Sender: Tobject);

procedure RadioGroup1Click(Sender: Tobject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: Tform3;

implementation

uses

Unit2, Unit1;

{$R *.dfm}

procedure Tform3.FormActivate(Sender: Tobject);

begin

DataModule2.ADOTable1.Close;

DataModule2.AdoQuery2.Connection:=DataModule2.AdoConnection1;

DataModule2.AdoQuery2.Close;

DataModule2.AdoQuery2.SQL.Text:='Select * From Заселение';

DataModule2.AdoQuery2.ExecSQL;

DataModule2.AdoQuery2.Open;

DBGrid1.DataSource:=DataModule2.DataSource6;

end;

procedure Tform3.FormClose(Sender: Tobject; var Action: TcloseAction);

begin

DataModule2.AdoQuery2.Close;

DataModule2.AdoTable1.Open;

end;

procedure Tform3.Edit1Change(Sender: Tobject);

begin

with DataModule2.ADOQuery2 do

begin

close;

SQL.Clear;

SQL.Add(`Select *');

SQL.Add(`From Заселение');

SQL.Add(`Where (Клиент Like “%'+Edit1.Text+'%”)');

//SQL.Add(`Order By Name');

OPEN;

end;

DataModule2.DataSource6.DataSet:=DataModule2.ADOQuery2;

end;

procedure Tform3.SpeedButton1Click(Sender: Tobject);

begin

Form3.Close;

end;

procedure Tform3.FormCreate(Sender: Tobject);

begin

DateTimePicker1.DateTime:=now;

DateTimePicker2.DateTime:=now;

RadioGroup1.ItemIndex:=-1;

end;

procedure Tform3.BitBtn1Click(Sender: Tobject);

begin

Datamodule2.ADOQuery2.Filter:='[Дата заселения]>=' + DateToStr(DateTimePicker1.Date) +

` AND [Дата заселения]<=' + DateToStr(DateTimePicker2.Date) ;

Datamodule2.ADOQuery2.Filtered :=True;

end;

procedure Tform3.BitBtn2Click(Sender: Tobject);

begin

Datamodule2.ADOQuery2.Filtered :=False;

end;

procedure Tform3.RadioGroup1Click(Sender: Tobject);

begin

case RadioGroup1.ItemIndex of

0: DataModule2.ADOQuery2.Sort:='Клиент';

1: DataModule2.ADOQuery2.Sort:='[Дата заселения]';

2: DataModule2.ADOQuery2.Sort:='Код';

end;

end;

end.

Форма НОМЕРА ГОСТИНИЦЫ

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, DBCtrls, ExtCtrls, StdCtrls, Buttons;

type

TForm4 = class(Tform)

Panel1: Tpanel;

Panel2: Tpanel;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

DBMemo1: TDBMemo;

Panel3: Tpanel;

Splitter1: Tsplitter;

Splitter2: Tsplitter;

RadioGroup1: TradioGroup;

SpeedButton1: TspeedButton;

RadioGroup2: TradioGroup;

procedure DBGrid1CellClick(Column: Tcolumn);

procedure FormCreate(Sender: Tobject);

procedure RadioGroup1Click(Sender: Tobject);

procedure SpeedButton1Click(Sender: Tobject);

procedure RadioGroup2Click(Sender: Tobject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: Tform4;

implementation

uses

Unit2, Unit1;

{$R *.dfm}

procedure Tform4.DBGrid1CellClick(Column: Tcolumn);

begin

DBMemo1.Text:=DataModule2.ADOQuery1.Fields[3].AsString;

end;

procedure Tform4.FormCreate(Sender: Tobject);

begin

DBGrid1.Columns[0].FieldName:='код';

DBGrid1.Columns[1].FieldName:='Наименование';

DBGrid1.Columns[2].FieldName:='Свободные';

DBGrid1.Columns[3].FieldName:='Стоимость';

RadioGroup1.ItemIndex:=1;

RadioGroup2.ItemIndex:=1;

end;

procedure Tform4.RadioGroup1Click(Sender: Tobject);

begin

Case RadioGroup1.ItemIndex of

0: begin DataModule2.AdoQuery1.Connection:=DataModule2.AdoConnection1;

DataModule2.AdoQuery1.Close;

DataModule2.AdoQuery1.SQL.Text:='Select * From Номер Where Свободные=true';

DataModule2.AdoQuery1.ExecSQL;

DataModule2.AdoQuery1.Open;

end;

1: begin DataModule2.AdoQuery1.Connection:=DataModule2.AdoConnection1;

DataModule2.AdoQuery1.Close;

DataModule2.AdoQuery1.SQL.Text:='Select * From Номер';

DataModule2.AdoQuery1.ExecSQL;

DataModule2.AdoQuery1.Open;

end;

end;

end;

procedure Tform4.SpeedButton1Click(Sender: Tobject);

begin

form4.Close;

end;

procedure Tform4.RadioGroup2Click(Sender: Tobject);

begin

Case RadioGroup2.ItemIndex of

0: begin

DataModule2.AdoQuery1.Sort:='Наименование';

end;

1: begin

DataModule2.AdoQuery1.Sort:='Код';

end;

end;

end;

end.

Форма КЛИЕНТЫ

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DBCtrls, Grids, DBGrids, ExtCtrls, Mask, Buttons,

ComCtrls;

type

TForm5 = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

Splitter1: TSplitter;

GroupBox1: TGroupBox;

Splitter2: TSplitter;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

GroupBox2: TGroupBox;

DBComboBox1: TDBComboBox;

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

Label3: TLabel;

DateTimePicker1: TDateTimePicker;

BitBtn1: TBitBtn;

Label4: TLabel;

ComboBox1: TComboBox;

Label5: TLabel;

Splitter3: TSplitter;

GroupBox3: TGroupBox;

BitBtn2: TBitBtn;

Label6: TLabel;

DateTimePicker3: TDateTimePicker;

Label7: TLabel;

Edit2: TEdit;

DateTimePicker2: TDateTimePicker;

Label8: TLabel;

ComboBox2: TComboBox;

BitBtn3: TBitBtn;

SpeedButton1: TSpeedButton;

procedure FormCreate(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

k,k1:byte;

i,j:Integer;

implementation

uses Unit1, Unit2;

{$R *.dfm}

procedure TForm5.FormCreate(Sender: TObject);

begin

DateTimePicker1.Date:=now;

DateTimePicker2.Date:=now;

DateTimePicker3.Date:=now;

DateTimePicker1.Time:=0;

i:=0; j:=0;

While not DataModule2.ADOTable1.Eof do

begin

if DateTimePicker1.Date>DataModule2.ADOTable1.Fields[2].AsDateTime then

i:=DataModule2.ADOTable1.Fields[4].AsInteger;

if DateTimePicker1.Date<=DataModule2.ADOTable1.Fields[2].AsDateTime then

j:=DataModule2.ADOTable1.Fields[4].AsInteger;

while not DataModule2.ADOQuery1.Eof do

begin

if i=DataModule2.ADOQuery1.Fields[0].AsInteger Then

begin

DataModule2.ADOQuery1.Edit;

DataModule2.ADOQuery1.Fields[1].AsBoolean:=true;

end;

if j=DataModule2.ADOQuery1.Fields[0].AsInteger Then

begin

DataModule2.ADOQuery1.Edit;

DataModule2.ADOQuery1.Fields[1].AsBoolean:=false;

end;

DataModule2.ADOQuery1.Next;

end;

DataModule2.ADOTable1.Next;

end;

DBComboBox1.ItemIndex:=-1;

DataModule2.ADOTable2.Open;

DataModule2.ADOTable2.First;

while not DataModule2.ADOTable2.Eof do

begin

Form5.DBComboBox1.Items.Add(DataModule2.ADOTable2.Fields[1].AsString);

DataModule2.ADOTable2.Next;

end;

DBComboBox1.DataField:='ФИО';

ComboBox1.ItemIndex:=-1;

DataModule2.ADOQuery1.Open;

DataModule2.ADOQuery1.First;

While not DataModule2.ADOQuery1.Eof do

begin

if DataModule2.ADOQuery1.Fields[1].AsBoolean=true then

ComboBox1.Items.Add(IntToStr(DataModule2.ADOQuery1.Fields[0].AsInteger));

DataModule2.ADOQuery1.Next;

end;

end;

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

k:=0;

DataModule2.ADOTable2.Open;

DataModule2.ADOTable2.First;

while not DataModule2.ADOTable2.Eof do

begin

if Edit1.Text=DataModule2.ADOTable2.Fields[1].AsString then k:=1;

DataModule2.ADOTable2.Next;

end;

if k=0 then

begin

DataModule2.ADOTable2.Append;

DataModule2.ADOTable2.Fields[1].AsString:=Edit1.Text;

DataModule2.ADOTable2.Fields[2].AsDateTime:=DateTimePicker1.Date;

DBComboBox1.Clear;

DBComboBox1.ItemIndex:=-1;

DataModule2.ADOTable2.Open;

DataModule2.ADOTable2.First;

while not DataModule2.ADOTable2.Eof do

begin

Form5.DBComboBox1.Items.Add(DataModule2.ADOTable2.Fields[1].AsString);

DataModule2.ADOTable2.Next;

end;

end

else ShowMessage('Клиент уже зарегистрирован!');

end;

procedure TForm5.ComboBox1Change(Sender: TObject);

begin

DataModule2.ADOQuery1.First;

While not DataModule2.ADOQuery1.Eof do

begin

If DataModule2.ADOQuery1.Fields[0].AsInteger=StrToInt(ComboBox1.Text) then

Edit2.Text:=IntToStr(DataModule2.ADOQuery1.Fields[4].AsInteger);

DataModule2.ADOQuery1.Next;

end;

end;

procedure TForm5.BitBtn2Click(Sender: TObject);

begin

if (DBComboBox1.Text<>'') and ((ComboBox1.Text<>'')or(ComboBox1.Text<>'нет')) then

Begin

DataModule2.ADOTable1.Append;

DataModule2.ADOTable1.Fields[3].AsString:=DBComboBox1.Text;

DataModule2.ADOTable1.Fields[4].AsInteger:=StrToInt(ComboBox1.Text);

DateTimePicker2.Time:=0;

DateTimePicker3.Time:=0;

DataModule2.ADOTable1.Fields[1].AsDateTime:=DateTimePicker2.Date;

DataModule2.ADOTable1.Fields[2].AsDateTime:=DateTimePicker3.Date;

DataModule2.ADOTable1.Post;

DataModule2.ADOTable1.Refresh;

DataModule2.ADOTable4.Append;

DataModule2.ADOTable4.Fields[1].AsInteger:=DataModule2.ADOTable1.Fields[0].AsInteger;

DataModule2.ADOTable4.Fields[2].AsString:=DataModule2.ADOTable1.Fields[3].AsString;

DataModule2.ADOTable4.Fields[3].AsFloat:=(DateTimePicker3.Date-DateTimePicker2.Date)*strtoint(Edit2.Text);

DataModule2.ADOTable4.Post;

DataModule2.ADOTable4.Refresh;

DataModule2.ADOQuery1.First;

While not DataModule2.ADOQuery1.Eof do

begin

if strtoint(ComboBox1.Text)=DataModule2.ADOQuery1.Fields[0].AsInteger Then

begin

DataModule2.ADOQuery1.Edit;

DataModule2.ADOQuery1.Fields[1].AsBoolean:=false;

//if DataModule2.ADOQuery1.State in [dsEdit, dsInsert] then DataModule2.ADOQuery1.Post;

end;

DataModule2.ADOQuery1.Next;

end;

end

else ShowMessage('Не все поля заполнены');

Form5.Close;

end;

procedure TForm5.BitBtn3Click(Sender: TObject);

begin

if ComboBox2.Text<>'' then

begin

Case ComboBox2.ItemIndex of

0:DataModule2.ADOTable2.Sort:='ФИО';

1:DataModule2.ADOTable2.Sort:='[Дата регистраций]';

end;

end

else ShowMessage('Выберите поле для сортировки!');

end;

procedure TForm5.SpeedButton1Click(Sender: TObject);

begin

Form5.Close;

end;

procedure TForm5.FormActivate(Sender: TObject);

begin

k1:=0;

While not DataModule2.ADOQuery1.Eof do

begin

if DataModule2.ADOQuery1.Fields[1].AsBoolean=true Then k:=1;

DataModule2.ADOQuery1.Next;

end;

if k1=1 then ComboBox1.Text:='';

if k1=0 Then ComboBox1.Text:='нет';

end;

end.

Форма О программе

unit Unit6;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ExtCtrls;

type

TAboutBox = class(Tform)

Panel1: Tpanel;

ProgramIcon: Timage;

ProductName: Tlabel;

Version: Tlabel;

Copyright: Tlabel;

Comments: Tlabel;

OKButton: Tbutton;

procedure OKButtonClick(Sender: Tobject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

AboutBox: TaboutBox;

implementation

{$R *.dfm}

procedure TaboutBox.OKButtonClick(Sender: Tobject);

begin

AboutBox.Close;

end;

end.

Форма ОПЛАТА

unit Unit7;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, DBCtrls, ExtCtrls;

type

TForm7 = class(TForm)

Panel1: TPanel;

Splitter1: TSplitter;

Panel2: TPanel;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

uses Unit2;

{$R *.dfm}

end.



Приложение Б

Интерфейс программы

Рисунок 6. Главная форма

Рисунок 7. Окно ЗАСЕЛЕНИЕ



Рисунок 8. Окно клиенты

Рисунок 9. Окно НОМЕРА

Рисунок 10. Окно ОПЛАТА



Рисунок 11. Окно О программе

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

...