Разработка автоматизированного рабочего места специалиста кадров ООО «Занятость»

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

Рассмотрим затраты на тиражирование 1 копии программы. Они определяются:

стоимостью дисков и бумаги для документации (100 листов), на 1 копию 6+35= 41 руб.

расходами на печать документации: 30 руб;

Итого 71 руб.

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

Итого, затраты на тиражирование составят 71+200=271 руб.

Затраты на рекламу рассчитаны составляют 12 000 руб.

Так как объем продаж составляет 690 копий, затраты на рекламу одной копии программы составят:

12 000/690=17,39

Себестоимость разработки одной копии (стоимость разработки к емкости рынка) равна: 52 249,62/690=75,72 руб.

Отчисления в пенсионный фонд, фонд социального страхования и фонд занятости составляют 26% от зарплаты разработчика: 75,72 (0,26=19,69 руб.

Итого, себестоимость одной копии составляет:

71+271+17,39+75,72+19,69 = 454,80 руб.

Прибыль от одной копии возьмем 30% себестоимости: 136,44 руб.

Цена одной копии будет составлять сумму прибыли и себестоимости одной копии с поправкой на НДС:

Ц=1,2((454,80 +136,44)= 709,49 руб.

Это так называемая минимальная цена.

Реальную цену назначим 1250 руб.

Тогда прибыль после перерасчета составит: 1400/1,2−454,80 =711.

86 (92%).

Налог на прибыль составляет 30%, поэтому чистый доход, полученный от реализации одной копии, равен разности между прибылью и налогом на нее и составляет:

711.

86 -0,3(711.

86 = 498,3 руб.

Наиболее вероятными рисками могут быть:

несанкционированное копирование с целью дальнейшего использования;

несанкционированное копирование с целью продажи.

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

Финансовый план Составленный финансовый план расходов и доходов охватывает период времени в три года. В таблице 4.4 приведен финансовый план на первый год (помесячно):

Таблица 3.4

Карта расходов и доходов за 1-й год (помесячно) Доходы и затраты Сумма, руб Всего янв. фев мар апр май июн июл авг сен окт ноя дек Объем продаж (шт) 0 3 3 7 10 10 13 10 7 10 13 10 96 доходы от реализации НДС 0 1476,6 1476,6 3445,4 4922,1 4922,1 6398,7 4922,1 3445,4 4922,1 6398,7 4922,1 47 252,16 І. Постоянные затраты, руб. На разра-ботку 71 584,45 На рекламу 0 52,17 52,17 121,7 173,9 173,9 226,1 173,9 121,7 173,9 226,1 173,9 1669,4 Всего 0 52,17 52,17 121,7 173,9 173,9 226,1 173,9 121,7 173,9 226,1 173,9 73 253,9 ІІ. Переменные затраты, руб На тиражи-рование 0 213 213 497 710 710 923 710 497 710 923 710 6816

Налоги и отчисления 0 71 71 149 213 213 276 213 149 213 276 213 2044

Всего 8860

В таблице 4.5 представлена карта доходов и затрат поквартально за 2-й год продаж.

Таблица 4.5 — Карта расходов и доходов за 1-й год (поквартально) Доходы и затраты Сумма, руб Всего I квартал IІ квартал ІIІ квартал ІV квартал Объем продаж (шт) 6 27 30 33 96 доходы от реализации НДС 3543,84 15 947,4 17 719,56 19 491,52 56 702,59 І. Постоянные затраты, руб. На разработку — На рекламу 109 459 510 561 1632

Всего 109 459 510 561 1632 ІІ. Переменные затраты, руб На тиражи-рование 426 1917 2130 2343 6816

Налоги и отчис-ления 182 383.

4 426 702,9 1363,2 Всего 4154,17 В таблице 3.6 показаны доходы и затраты при реализации программы в течении 3-х лет:

Таблица 3.6 -Таблица доходов и затрат за 3 года реализации Доходы и затраты Сумма, руб Всего Начало реализации 1-й год 2-й год 3-й год

Объем продаж (шт) 0 97 83 65 245 доходы от реализации НДС 0 56 702,59 І. Постоянные затраты, руб. Зарплата разработчиков 52 249,62 — - - 52 249,62 Материалы 1100 — - - 1100

Отчисления в бюджет 18 886,37 — - - 18 886,3 Аренда ЭВМ 136,8 — - - 136,8 На рекламу 0 1632 1450 1200 4282

Всего 72 372,79 1632 1450 1200 76 654,79 ІІ. Переменные затраты, руб На тиражи-рование 0 6816 5832,25 4550 17 198,25 Налоги и отчис-ления 0 1363,2 1166,45 910 3439,65 Всего 0 8179,2 6998,69 5460 20 637,89

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

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

Точку безубыточности рассчитаем по формуле 3.9:

(3.9)

где Ц — цена одной копии = 1250 руб; Х — количество копий программного продукта, окупающие затраты на разработку; Зпост — условно — постоянные затраты — себестоимость разработки программного продукта = 76 654 руб; Зпер — условно-переменные затраты — тиражирование и адаптация одной проданной копии = 1180 руб;

Рисунок 3.1 — График достижения безубыточности разработки.

Точка безубыточности х = 65. Следовательно, только после реализации 66ой копий программного продукта, проект станет рентабельным.

Выводы В результате разработки элементов бизнес плана можно сказать, что созданное ПО оказывается конкурентоспособным продуктом, имеет достаточное количество потенциальных покупателей для покрытия всей совокупности затрат, связанных с его разработкой, внедрением и сопровождением. Указанная цена одной копии программного продукта (99,99 руб) оказывается приемлемой для потенциальных покупателей.

ЗАКЛЮЧЕНИЕ

Согласно полученному заданию в дипломном проекте было спроектировано и разработано автоматизированное рабочее место специалиста ООО «Занятость».

В ходе разработки дипломного проекта был произведен анализ деятельности ООО «Занятость»., в частности отдела рекрутинга. В ходе создания дипломного проекта был не только проанализирован сектор существующих разработок для решения данной задачи, но они были разработаны для решения шаблонных задач большинства фирм. На основании анализа было принято решение о разработке проекта собственными силами.

При работе над дипломным проектом разработана информационная система, которая позволила автоматизировать часть комплекса задач по учету и регистрации заявок и вакансий в ООО «Занятость». ,.

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

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

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

Из выше описанного следует, что задачи, поставленные перед данной работой, выполнены в полной мере.

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

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

В результате разработки элементов бизнес плана можно сказать, что созданное ПО оказывается конкурентоспособным продуктом, имеет достаточное количество потенциальных покупателей для покрытия всей совокупности затрат, связанных с его разработкой, внедрением и сопровождением. Указанная цена одной копии программного продукта (99,99 руб) оказывается приемлемой для потенциальных покупателей. Данная дипломная работа посвящена разработке автоматизированного рабочего места специалиста отдела кадров в ООО «Занятость».

Архангельский А.Я. 100 компонентов общего назначения библиотеки Delphi 5. — М.: Бином, 1999. — 266 с.

Базы данных: модели, разработка, реализация / Карпова Т.- СПб.: Питер, 2001. -304с.

Бекаревич Ю.Б., Пушкина Н. В. Microsoft Access 2000. — СПб.: «БХВ — Санкт-Петербург», 1999.

Белов А. Н. Бухгалтерский учет в учреждениях непроизводственной сферы. — М.: Финансы и статистика, 1995. — 240с.

Буч Г. Объектно-ориентированное проектирование с примерами применения. М., 1992. — 654с.

Валебникова Н.В., Василевич И. П. Современные тенденции управленческого учета. Бухгалтерский учет. 2000. № 18. С.53−59.

Вахрушина М. А. Бухгалтерский управленческий учет: Учебник для вузов. — М.: ЗАО «Финстатинформ», 2000. -533с.;

Волков В. Ф. Экономика предприятия. — М.: Вита-Пресс, 1998. — 380с.

Врублевский Н. Д. Построение системы счетов управленческого учета. Бухгалтерский учет. 2000. № 17. С.63−68.

Глушаков С.В., Ломотько Д. В. Базы данных .- Х.: Фолио, 2002. — 504 с.

Джон Вейкас. Эффективная работа с Microsoft Access 2000. СПб: Питер, 2001. -1040 с.

ПРИЛОЖЕНИЕ Листинг разработанной программы

Главный модуль приложения

unit MainClients;

interface

uses

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

Dialogs, Menus, DB, ADODB, IniFiles, Grids, DBGrids, DBDirectoryTemplate,

addsorce, DateUtils, parampoisk;

type

TMainClientsForm = class (TForm)

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

DataSource1: TDataSource;

ADOTable2: TADOTable;

ADOTable3: TADOTable;

ADOTable4: TADOTable;

ADOTable5: TADOTable;

ADOTable6: TADOTable;

ADOTable7: TADOTable;

N20: TMenuItem;

N21: TMenuItem;

N22: TMenuItem;

ADOQuery1: TADOQuery;

ADOQuery2: TADOQuery;

N18: TMenuItem;

ADOTable8: TADOTable;

ADOTable9: TADOTable;

ADOTable10: TADOTable;

N23: TMenuItem;

N24: TMenuItem;

procedure N12Click (Sender: TObject);

function IsMDIChildOpen (const AFormName: TForm; const AMDIChildName: string): Boolean;

function IsFormOpen (const FormName: string): Boolean;

procedure N6Click (Sender: TObject);

procedure N7Click (Sender: TObject);

procedure N8Click (Sender: TObject);

procedure N9Click (Sender: TObject);

procedure N10Click (Sender: TObject);

procedure N20Click (Sender: TObject);

procedure N21Click (Sender: TObject);

procedure N22Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure DataSource1DataChange (Sender: TObject; Field: TField);

procedure N4Click (Sender: TObject);

procedure N14Click (Sender: TObject);

procedure N15Click (Sender: TObject);

procedure N16Click (Sender: TObject);

procedure N17Click (Sender: TObject);

procedure N11Click (Sender: TObject);

procedure N19Click (Sender: TObject);

procedure N18Click (Sender: TObject);

procedure N23Click (Sender: TObject);

procedure N24Click (Sender: TObject);

private

{ Private declarations }

procedure BuildGridDatabaseDirectoryItem (sCaption:String; ds: TDataSource);

public

{ Public declarations }

end;

var

MainClientsForm: TMainClientsForm;

nastr:tinifile;

DirectoryForm: TDBDirectoryTemplateForm;

prosmForm: Taddform;

mainflag:boolean;

nomer_poisk:word;

army, avto: string;

minzar, optzar: real;

FIO, gragdanstvo, pol, sem, deti: string;

var dom_tel, mob_tel:string;

adres, notes: string;

stag:real;

rogd:tdate;

var education, vuz, fakultet, specialnost, kurs: string;

data_vuz, data_kurs:tdate;

lingvo, lingvo_k, comp, comp_k :string;

idlingvo, idcomp, id_education, id_client, id_regim, id_areal, id_organization:integer;

var oblast, profesiya: string;

implementation

{$R *.dfm}

function TMainClientsForm. IsMDIChildOpen (const AFormName: TForm; const AMDIChildName: string): Boolean;

var

i: Integer;

begin

Result := False;

for i := Pred (AFormName.MDIChildCount) DownTo 0 do

if (AFormName.MDIChildren[i]. Name = AMDIChildName) then

begin

Result := True;

AFormName.MDIChildren[i]. Free;

// Break;

end;

end;

function TMainClientsForm. IsFormOpen (const FormName: string): Boolean;

var

i: Integer;

begin

Result := False;

for i := Screen. FormCount — 1 DownTo 0 do

if (Screen.Forms[i]. Name = FormName) then

begin

Result := True;

Break;

end;

end;

procedure TMainClientsForm. BuildGridDatabaseDirectoryItem (sCaption:String; ds: TDataSource);

begin

//создаем форму

DirectoryForm:=TDBDirectoryTemplateForm.Create (Owner);

DirectoryForm.TableDBGrid.DataSource:=ds;

DirectoryForm.Top:=0;

DirectoryForm.Left:=0;

DirectoryForm.Caption:=sCaption;

// DirectoryForm. Free;

end;

procedure TMainClientsForm. N12Click (Sender: TObject);

begin

MainClientsForm.Close;

end;

procedure TMainClientsForm. N6Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable1;

mainclientsform.ADOTable1.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('Записи учета', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='ИД. ';

DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:='Код запрета';

DirectoryForm.TableDBGrid.Fields[2]. DisplayLabel:='Дата учета';

DirectoryForm.TableDBGrid.Fields[3]. DisplayLabel:='ид.клиента';

DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='ид. профессии';

DirectoryForm.TableDBGrid.Fields[5]. DisplayLabel:='примечание';

DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='дата снятия с уч.';

end;

procedure TMainClientsForm. N7Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable2;

mainclientsform.ADOTable2.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('клиенты', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='Ид. клиента';

DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:=' Ф.И.О. ';

DirectoryForm.TableDBGrid.Fields[2]. DisplayLabel:='дата рожден.';

DirectoryForm.TableDBGrid.Fields[3]. DisplayLabel:='гражданство';

DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='пол';

DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='семейное положение';

DirectoryForm.TableDBGrid.Fields[6]. DisplayLabel:='дети';

DirectoryForm.TableDBGrid.Fields[7].DisplayLabel:='ид. образования';

DirectoryForm.TableDBGrid.Fields[8]. DisplayLabel:='армия';

DirectoryForm.TableDBGrid.Fields[9].DisplayLabel:='ид. компьют.';

DirectoryForm.TableDBGrid.Fields[10]. DisplayLabel:='Мин. з/п.';

DirectoryForm.TableDBGrid.Fields[11]. DisplayLabel:='Оптим. з/п.';

DirectoryForm.TableDBGrid.Fields[12]. DisplayLabel:='авто';

DirectoryForm.TableDBGrid.Fields[13].DisplayLabel:='Дом. адрес';

DirectoryForm.TableDBGrid.Fields[14]. DisplayLabel:='Дом. телефон';

DirectoryForm.TableDBGrid.Fields[15]. DisplayLabel:='Моб. телефон';

DirectoryForm.TableDBGrid.Fields[16]. DisplayLabel:='Примечание';

DirectoryForm.TableDBGrid.Fields[17].DisplayLabel:='Стаж';

DirectoryForm.TableDBGrid.Fields[18].DisplayLabel:='Ид. язык';

end;

procedure TMainClientsForm. N8Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable3;

mainclientsform.ADOTable3.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('вакансия', mainclientsform. DataSource1);

directoryForm.TableDBGrid.Fields[0]. DisplayLabel:=' ИД. ';

DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:=' открытие ';

DirectoryForm.TableDBGrid.Fields[2]. DisplayLabel:='ид. организации';

DirectoryForm.TableDBGrid.Fields[3]. DisplayLabel:='город';

DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='область';

DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='emaile';

DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='должность';

DirectoryForm.TableDBGrid.Fields[7].DisplayLabel:='опыт работы';

DirectoryForm.TableDBGrid.Fields[8]. DisplayLabel:='ид. реж. работы';

DirectoryForm.TableDBGrid.Fields[9]. DisplayLabel:='пол';

DirectoryForm.TableDBGrid.Fields[10].DisplayLabel:='описание';

DirectoryForm.TableDBGrid.Fields[11].DisplayLabel:='обязанности';

DirectoryForm.TableDBGrid.Fields[12].DisplayLabel:='требования';

DirectoryForm.TableDBGrid.Fields[13].DisplayLabel:='образование';

DirectoryForm.TableDBGrid.Fields[14].DisplayLabel:='оклад';

DirectoryForm.TableDBGrid.Fields[15].DisplayLabel:='премия';

DirectoryForm.TableDBGrid.Fields[16].DisplayLabel:='мин. возраст';

DirectoryForm.TableDBGrid.Fields[17]. DisplayLabel:='макс. возраст';

DirectoryForm.TableDBGrid.Fields[18]. DisplayLabel:='примечание';

DirectoryForm.TableDBGrid.Fields[19].DisplayLabel:='испытательный срок';

end;

procedure TMainClientsForm. N9Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable4;

mainclientsform.ADOTable4.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('города/область', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='Ид. ';

DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:='город';

DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='область';

DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='переезд';

DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='примечание';

end;

procedure TMainClientsForm. N10Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable5;

mainclientsform.ADOTable5.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('Профессии', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='ИД';

DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='область';

DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='профессия';

DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='примечание';

end;

procedure TMainClientsForm. N20Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable6;

mainclientsform.ADOTable6.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('режимы работ', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='ИД';

DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='режим работы';

DirectoryForm.TableDBGrid.Fields[2]. DisplayLabel:='график работы';

DirectoryForm.TableDBGrid.Fields[3]. DisplayLabel:='примечание';

end;

procedure TMainClientsForm. N21Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable7;

mainclientsform.ADOTable7.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('Владение компьютером', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:=' ИД ';

DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:='владение';

DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='качество';

DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='программа 1';

DirectoryForm.TableDBGrid.Fields[4]. DisplayLabel:='Программа 2';

DirectoryForm.TableDBGrid.Fields[5]. DisplayLabel:='Программа 3';

end;

procedure TMainClientsForm. N22Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'addForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

MainClientsForm.N7Click (sender);

prosmForm:=Taddform.Create (Owner);

prosmForm.Top:=230;

prosmForm.Left:=0;

prosmForm.Width:=500;

prosmForm.Height:=200;

prosmForm.Caption:='просмотр записей';

prosmForm.DBNavigator1.Visible:=true;

mainflag:=true;

prosmForm.Show;

prosmForm.Button1.Visible:=false;

prosmForm.GroupBox3.Visible:=false;

MainClientsForm.DataSource1.DataSet.last

end;

procedure TMainClientsForm. FormCreate (Sender: TObject);

var NewConnection: Widestring;

begin

NewConnection := PromptDataSource (Handle, MainClientsForm. ADOConnection1.Connectionstring);

MainClientsForm.ADOConnection1.Connectionstring:=NewConnection;

MainClientsForm.ADOConnection1.Connected:=true;

MainClientsForm.ADOTable1.Active:=true;

MainClientsForm.ADOTable2.Active:=true;

MainClientsForm.ADOTable3.Active:=true;

MainClientsForm.ADOTable4.Active:=true;

MainClientsForm.ADOTable5.Active:=true;

MainClientsForm.ADOTable6.Active:=true;

MainClientsForm.ADOTable7.Active:=true;

MainClientsForm.ADOTable8.Active:=true;

end;

procedure TMainClientsForm. N3Click (Sender: TObject);

var dobForm: Taddform;

begin

mainflag:=false;

IsMDIChildOpen (MainClientsForm,'addForm');

dobForm:=Taddform.Create (Owner);

dobForm.Top:=240;

dobForm.Left:=3;

dobForm.Caption:='добавление записи';

dobForm.Show;

dobForm.Button1.Visible:=true;

dobForm.GroupBox3.Visible:=false;

// show;

end;

procedure TMainClientsForm. DataSource1DataChange (Sender: TObject;

Field: TField);

var

sql_str, rez: string;

P11:Tparameter;

rezdate:tdatetime;

rezint:integer;

rezfloat:real;

Ayear, amonth, aday, ahour, aminute, asecond, amillisecond: word;

begin

if mainflag then

begin

prosmForm.edit18.text:='';

prosmForm.edit19.text:='';

prosmForm.edit20.text:='';

prosmForm.edit21.text:='';

prosmForm.edit22.text:='';

prosmForm.edit23.text:='';

prosmForm.edit24.text:='';

prosmForm.edit25.text:='';

prosmForm.edit26.text:='';

prosmForm.edit27.text:='';

prosmForm.edit28.text:='';

prosmForm.edit29.text:='';

prosmForm.edit30.text:='';

prosmForm.edit31.text:='';

prosmForm.edit32.text:='';

prosmForm.edit33.text:='';

prosmForm.edit34.text:='';

prosmForm.edit35.text:='';

prosmForm.edit36.text:='';

prosmForm.edit37.text:='';

prosmForm.edit38.text:='';

prosmForm.edit39.text:='';

prosmForm.edit40.text:='';

prosmForm.edit41.text:='';

prosmForm.edit42.text:='';

prosmForm.edit43.text:='';

FIO:=MainClientsForm.DataSource1.DataSet.FieldByName ('FIO').AsString;

rogd:=MainClientsForm.ADOTable2.FieldByName ('rogden').AsDateTime;

gragdanstvo:=MainClientsForm.ADOTable2.FieldByName ('gragdan').AsString;

pol:=MainClientsForm.ADOTable2.FieldByName ('sex').AsString;

sem:= MainClientsForm. ADOTable2.FieldByName ('marry').AsString;

deti:=MainClientsForm.ADOTable2.FieldByName ('child').AsString;

id_education:= MainClientsForm. ADOTable2.FieldByName ('id_education').AsInteger;

army:= MainClientsForm. ADOTable2.FieldByName ('army').AsString;

avto:=MainClientsForm.ADOTable2.FieldByName ('car').AsString;

idcomp:=MainClientsForm.ADOTable2.FieldByName ('id_comp').AsInteger;

minzar:=MainClientsForm.ADOTable2.FieldByName ('minzar').AsFloat;

optzar:=MainClientsForm.ADOTable2.FieldByName ('optzar').AsFloat;

dom_tel:=MainClientsForm.ADOTable2.FieldByName ('phone_home').AsString;

mob_tel:=MainClientsForm.ADOTable2.FieldByName ('phone_mob').AsString;

adres:=MainClientsForm.ADOTable2.FieldByName ('adres').AsString;

notes:= MainClientsForm. ADOTable2.FieldByName ('notes').AsString;

id_proffesiya:=MainClientsForm.ADOTable2.FieldByName ('id_proffesiya').AsInteger;

idlingvo:=MainClientsForm.ADOTable2.FieldByName ('id_language').AsInteger;

prosmForm.Edit18.Text:=FIO;

prosmForm.Edit19.Text:=datetostr (rogd);

prosmForm.Edit20.Text:=gragdanstvo;

prosmForm.Edit21.Text:=pol;

prosmForm.Edit22.Text:=sem;

prosmForm.Edit23.Text:=deti;

prosmForm.Edit24.Text:=army;

prosmForm.Edit25.Text:=avto;

prosmForm.Edit26.Text:=floattostr (minzar);

prosmForm.Edit27.Text:=floattostr (optzar);

prosmForm.Edit28.Text:=dom_tel;

prosmForm.Edit29.Text:=mob_tel;

prosmForm.Edit30.Text:=adres;

prosmForm.Edit31.Text:=floattostr (stag);

prosmForm.Edit32.Text:=notes;

sql_str:='SELECT * from Education where id_education= :P11';

MainClientsForm.ADOQuery1.Active:=false;

MainClientsForm.ADOQuery1.SQL.Clear;

P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P11.Name:='P11';

p11.DataType := ftinteger;

P11.Value:=id_education;

P11.Size:=4;

MainClientsForm.ADOQuery1.SQL.Add (sql_str);

MainClientsForm.ADOQuery1.Active:=true;

MainClientsForm.ADOQuery1.ExecSQL;

rez:=MainClientsForm.ADOQuery1.FieldByName ('education').AsString;

prosmForm.Edit33.Text:=rez;

rez:=MainClientsForm.ADOQuery1.FieldByName ('vuz').AsString;

prosmForm.Edit34.Text:=rez;

rez:=MainClientsForm.ADOQuery1.FieldByName ('fakultet').AsString;

prosmForm.Edit35.Text:=rez;

rez:=MainClientsForm.ADOQuery1.FieldByName ('specialnost').AsString;

prosmForm.Edit36.Text:=rez;

prosmForm.Edit37.Text:=datetostr (MainClientsForm.ADOQuery1.FieldByName ('finish').AsDateTime);

prosmForm.Edit38.Text:=(MainClientsForm.ADOQuery1.FieldByName ('kurs').AsString);

prosmForm.Edit39.Text:=datetostr (MainClientsForm.ADOQuery1.FieldByName ('kurs_finish').AsDateTime);

sql_str:='SELECT * from Language where id_language= :P11';

MainClientsForm.ADOQuery1.Active:=false;

MainClientsForm.ADOQuery1.SQL.Clear;

P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P11.Name:='P11';

p11.DataType := ftinteger;

P11.Value:=idlingvo;

P11.Size:=4;

MainClientsForm.ADOQuery1.SQL.Add (sql_str);

MainClientsForm.ADOQuery1.Active:=true;

MainClientsForm.ADOQuery1.ExecSQL;

rez:=MainClientsForm.ADOQuery1.FieldByName ('name_lang').AsString;

prosmForm.Edit40.Text:=rez;

rez:=MainClientsForm.ADOQuery1.FieldByName ('kachestvo').AsString;

prosmForm.Edit41.Text:=rez;

sql_str:='SELECT * from Comp where id_comp= :P11';

MainClientsForm.ADOQuery1.Active:=false;

MainClientsForm.ADOQuery1.SQL.Clear;

P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P11.Name:='P11';

p11.DataType := ftinteger;

P11.Value:=idcomp;

P11.Size:=4;

MainClientsForm.ADOQuery1.SQL.Add (sql_str);

MainClientsForm.ADOQuery1.Active:=true;

MainClientsForm.ADOQuery1.ExecSQL;

rez:=MainClientsForm.ADOQuery1.FieldByName ('vladenie').AsString;

prosmForm.Edit42.Text:=rez;

rez:=MainClientsForm.ADOQuery1.FieldByName ('kachestvo').AsString;

prosmForm.Edit43.Text:=rez;

sql_str:='SELECT * from professiya where id_proffesiya= :P11';

MainClientsForm.ADOQuery1.Active:=false;

MainClientsForm.ADOQuery1.SQL.Clear;

P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P11.Name:='P11';

p11.DataType := ftinteger;

P11.Value:=id_proffesiya;

P11.Size:=4;

MainClientsForm.ADOQuery1.SQL.Add (sql_str);

MainClientsForm.ADOQuery1.Active:=true;

MainClientsForm.ADOQuery1.ExecSQL;

rez:=MainClientsForm.ADOQuery1.FieldByName ('oblast').AsString;

prosmForm.Edit1.Text:=rez;

rez:=MainClientsForm.ADOQuery1.FieldByName ('professya').AsString;

prosmForm.Edit2.Text:=rez;

// размещение

sql_str:='SELECT * from Location where idLocation= :P11';

end;

procedure TMainClientsForm. N4Click (Sender: TObject);

var zakForm: Taddform;

begin

mainflag:=false;

IsMDIChildOpen (MainClientsForm,'zakForm');

IsMDIChildOpen (MainClientsForm,'addForm');

zakForm:=Taddform.Create (Owner);

zakForm.Top:=240;

zakForm.Left:=3;

zakForm.Caption:='создание заказа';

zakForm.Show;

zakForm.Button1.Visible:=true;

zakForm.GroupBox2.Visible:=false;

zakForm.GroupBox3.Left:=2;

zakForm.GroupBox3.Top:=2;

end;

procedure TMainClientsForm. N14Click (Sender: TObject);

var poisk: Tparampoik;

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addform');

IsMDIChildOpen (MainClientsForm,'parampoik');

poisk:=Tparampoik.Create (Owner);

poisk.Left:=530;

poisk.Top:=3;

poisk.Width:=300;

poisk.Caption:='поиск вакансии в организации';

nomer_poisk:=1;

poisk.Label2.Visible:=false;

poisk.Label3.Visible:=false;

poisk.Label7.Visible:=false;

poisk.Edit2.Visible:=false;

poisk.Edit3.Visible:=false;

poisk.Edit4.Visible:=false;

poisk.Edit5.Visible:=false;

poisk.Edit6.Visible:=false;

poisk.Edit7.Visible:=false;

poisk.UpDown1.Visible:=false;

poisk.UpDown2.Visible:=false;

poisk.UpDown3.Visible:=false;

poisk.UpDown4.Visible:=false;

end;

procedure TMainClientsForm. N15Click (Sender: TObject);

var poisk: Tparampoik;

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addform');

IsMDIChildOpen (MainClientsForm,'parampoik');

poisk:=Tparampoik.Create (Owner);

poisk.Left:=530;

poisk.Top:=3;

poisk.Width:=300;

poisk.Caption:='поиск клиента ';

nomer_poisk:=2;

poisk.Label2.Visible:=false;

poisk.Label3.Visible:=false;

poisk.Label7.Visible:=false;

poisk.Edit2.Visible:=false;

poisk.Edit3.Visible:=false;

poisk.Edit4.Visible:=false;

poisk.Edit5.Visible:=false;

poisk.Edit6.Visible:=false;

poisk.Edit7.Visible:=false;

poisk.UpDown1.Visible:=false;

poisk.UpDown2.Visible:=false;

poisk.UpDown3.Visible:=false;

poisk.UpDown4.Visible:=false;

end;

procedure TMainClientsForm. N16Click (Sender: TObject);

var poisk: Tparampoik;

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addform');

IsMDIChildOpen (MainClientsForm,'parampoik');

poisk:=Tparampoik.Create (Owner);

poisk.Left:=530;

poisk.Top:=3;

poisk.Width:=300;

poisk.Caption:='поиск клиента';

nomer_poisk:=3;

poisk.Label2.Visible:=false;

poisk.Label3.Visible:=false;

poisk.Label7.Visible:=false;

poisk.Edit2.Visible:=false;

poisk.Edit3.Visible:=false;

poisk.Edit4.Visible:=false;

poisk.Edit5.Visible:=false;

poisk.Edit6.Visible:=false;

poisk.Edit7.Visible:=false;

poisk.UpDown1.Visible:=false;

poisk.UpDown2.Visible:=false;

poisk.UpDown3.Visible:=false;

poisk.UpDown4.Visible:=false;

end;

procedure TMainClientsForm. N17Click (Sender: TObject);

var poisk: Tparampoik;

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addform');

IsMDIChildOpen (MainClientsForm,'parampoik');

poisk:=Tparampoik.Create (Owner);

poisk.Left:=530;

poisk.Top:=3;

poisk.Width:=300;

poisk.Caption:='просмотр хронологии накладных';

nomer_poisk:=4;

poisk.Label1.Visible:=false;

poisk.Edit1.Visible:=false;

poisk.Label7.Caption:='Накладные в период'

end;

procedure TMainClientsForm. N11Click (Sender: TObject);

var naklForm: Taddform;

begin

mainflag:=false;

IsMDIChildOpen (MainClientsForm,'naklForm');

IsMDIChildOpen (MainClientsForm,'addForm');

naklForm:=Taddform.Create (Owner);

naklForm.Top:=240;

naklForm.Left:=3;

naklForm.Caption:='создание накладной';

naklForm.Show;

naklForm.GroupBox2.Visible:=false;

naklForm.GroupBox3.Visible:=false;

end;

procedure TMainClientsForm. N18Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable8;

mainclientsform.ADOTable8.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('образование', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='ИД.';

DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='Образование';

DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='ВУЗ';

DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='специальность';

DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='закончен.';

DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='курсы';

DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='закончен.';

end;

procedure TMainClientsForm. N23Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable9;

mainclientsform.ADOTable9.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('Владение языком', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='ИД.';

DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='Язык';

DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='Качество';

end;

procedure TMainClientsForm. N24Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable10;

mainclientsform.ADOTable10.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('Предпрития', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='ИД.';

DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='Название фирмы';

DirectoryForm.TableDBGrid.Fields[2]. DisplayLabel:='Телефон';

DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='Адрес';

DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='Контактное лицо';

end;

end.

Модуль ParamPoisk

unit parampoisk;

interface

uses

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

Dialogs, DB, ADODB, Menus, ChildTemplate, Grids, DBGrids, addsorce,

StdCtrls, Mask, DateUtils, ExtCtrls, ComCtrls ;

type

Tparampoik = class (TForm)

Button1: TButton;

GroupBox1: TGroupBox;

Label1: TLabel;

Edit1: TEdit;

Label7: TLabel;

Edit2: TEdit;

UpDown1: TUpDown;

Edit3: TEdit;

Edit4: TEdit;

UpDown2: TUpDown;

Edit5: TEdit;

UpDown3: TUpDown;

Edit6: TEdit;

UpDown4: TUpDown;

Edit7: TEdit;

Label2: TLabel;

Label3: TLabel;

procedure RzBitBtn4Click (Sender: TObject);

procedure RzBitBtn3Click (Sender: TObject);

procedure RzBitBtn1Click (Sender: TObject);

procedure FormClose (Sender: TObject; var Action: TCloseAction);

procedure Button1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

parampoik: Tparampoik;

ChildTemplateForm1: TChildTemplateForm;

ff:string;

flagpoisk:boolean;

p1,p2:tparameter;

all:boolean;

ahour, aminute, asecond, amillisecond: word;

priznak:string;

stroka_SQL, pole, tabl, srtkl, name_poisk, sqlwhere: string;

idnakl, idzapas, i, sravn, kolnakl, kolzapas, rezerv_kol:integer;

implementation

uses mainclients;

{$R *.dfm}

procedure Tparampoik. FormClose (Sender: TObject; var Action: TCloseAction);

begin

Action:=caFree;

end;

procedure Tparampoik. RzBitBtn1Click (Sender: TObject);

begin

end;

procedure Tparampoik. RzBitBtn3Click (Sender: TObject);

var ChildTemplateForm: TChildTemplateform;

all:boolean;

stroka_SQL, pole, tabl, srtkl, name_poisk, sqlwhere: string;

fl_book, fl_avtor, fl_izdat, fl_location, fl_vid, fl_category:boolean;

begin

MainClientsForm.IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

MainClientsForm.IsMDIChildOpen (MainClientsForm,'addform');

MainClientsForm.IsMDIChildOpen (MainClientsForm,'ChildTemplateForm');

ChildTemplateForm:=TChildTemplateform.Create (Owner);

ChildTemplateForm.Left:=0;

ChildTemplateForm.Top:=3;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery1;

mainclientsform.ADOQuery1.Active:=false;

mainclientsform.ADOQuery1.SQL.Clear;

P1 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P1.Name:='P1';

p1.DataType := ftstring;

stroka_SQL:='select * from book, avtor, izdat, vid, category '+sqlwhere

program.nameprogram like: P1'+sqlwhere;

end;

procedure Tparampoik. RzBitBtn4Click (Sender: TObject);

begin

flagpoisk:=false;

MainClientsForm.IsMDIChildOpen (MainClientsForm,'parampoik');

end;

procedure Tparampoik. Button1Click (Sender: TObject);

var ChildTemplateForm: TChildTemplateform;

timenach, timekon: tdatetime;

begin

MainClientsForm.IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

MainClientsForm.IsMDIChildOpen (MainClientsForm,'addform');

MainClientsForm.IsMDIChildOpen (MainClientsForm,'ChildTemplateForm');

ChildTemplateForm:=TChildTemplateform.Create (Owner);

ChildTemplateForm.Left:=0;

ChildTemplateForm.Top:=3;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery2;

mainclientsform.ADOQuery2.Active:=false;

mainclientsform.ADOQuery2.SQL.Clear;

if nomer_poisk=1 then begin

P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;

P1.Name:='P1';

p1.DataType := ftstring;

if edit1. Text<>'' then begin

srtkl := edit1. Text;

name_poisk:= 'Tovar.nameTovar'

end;

if srtkl<>'' then

begin

srtkl:='%'+ srtkl+'%';

P1.Value:=srtkl;

P1.Size:=Length (srtkl);

end;

ChildTemplateForm.Label1.Caption:='Информация о вакансии: '+edit1.Text;

sqlwhere:= ' where (Vakanciya.id_organization = (select organization. id_organization from organization where organization.name_firm like: P1))';

stroka_SQL:='select * from Vakanciya'+sqlwhere ;

mainclientsform.ADOQuery2.SQL.Add (stroka_SQL);

if stroka_SQL<>'' then begin

mainclientsform.ADOQuery2.Active:=true;

mainclientsform.ADOQuery2.ExecSQL;

end;

end;

if nomer_poisk=2 then begin

P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;

P1.Name:='P1';

p1.DataType := ftstring;

if edit1. Text<>'' then begin

srtkl := edit1. Text;

name_poisk:= 'Tovar.nameTovar'

end;

if srtkl<>'' then

begin

srtkl:='%'+ srtkl+'%';

P1.Value:=srtkl;

P1.Size:=Length (srtkl);

end;

ChildTemplateForm.Label1.Caption:='Информация о клиенте: '+edit1.Text;

sqlwhere:= ' where Client. fio like: P1';

stroka_SQL:='select * from Client'+sqlwhere ;

mainclientsform.ADOQuery2.SQL.Add (stroka_SQL);

if stroka_SQL<>'' then begin

mainclientsform.ADOQuery2.Active:=true;

mainclientsform.ADOQuery2.ExecSQL;

end;

end;

if nomer_poisk=3 then begin

P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;

P1.Name:='P1';

p1.DataType := ftstring;

if edit1. Text<>'' then begin

srtkl := edit1. Text;

name_poisk:= 'Tovar.nameTovar'

end;

if srtkl<>'' then

begin

srtkl:='%'+ srtkl+'%';

P1.Value:=srtkl;

P1.Size:=Length (srtkl);

end;

sqlwhere:= ' where (location.idlocation = (select tovar. idlocation from tovar where tovar. nametovar like: P1))';

stroka_SQL:='select * from location '+sqlwhere ;

mainclientsform.ADOQuery2.SQL.Add (stroka_SQL);

if stroka_SQL<>'' then begin

mainclientsform.ADOQuery2.Active:=true;

mainclientsform.ADOQuery2.ExecSQL;

end;

end;

if nomer_poisk=4 then begin

P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;

P1.Name:='P1';

p1.DataType := ftdatetime;

ayear:= strtoint (Edit4.Text);

amonth:=strtoint (Edit3.Text);

aday:=strtoint (Edit2.Text);

ahour:=0;

aminute:=0;

asecond:=0;

amillisecond:=0;

timenach:=encodedatetime (Ayear, amonth, aday, ahour, aminute, asecond, amillisecond);

ayear:= strtoint (Edit7.Text);

amonth:=strtoint (Edit6.Text);

aday:=strtoint (Edit5.Text);

ahour:=0;

aminute:=0;

asecond:=0;

amillisecond:=0;

timekon:=encodedatetime (Ayear, amonth, aday, ahour, aminute, asecond, amillisecond);

P2 :=mainclientsform.ADOQuery2.Parameters.AddParameter;

P2.Name:='P2';

p2.DataType := ftdatetime;

end;

end

else showmessage ('проводка накладной не требуется')

end;

end;

end;

end;

end.

Модуль DBDirectoryTemplate

unit parampoisk;

interface

uses

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

Dialogs, DB, ADODB, Menus, ChildTemplate, Grids, DBGrids, addsorce,

StdCtrls, Mask, DateUtils, ExtCtrls, ComCtrls ;

type

Tparampoik = class (TForm)

Button1: TButton;

GroupBox1: TGroupBox;

Label1: TLabel;

Edit1: TEdit;

Label7: TLabel;

Edit2: TEdit;

UpDown1: TUpDown;

Edit3: TEdit;

Edit4: TEdit;

UpDown2: TUpDown;

Edit5: TEdit;

UpDown3: TUpDown;

Edit6: TEdit;

UpDown4: TUpDown;

Edit7: TEdit;

Label2: TLabel;

Label3: TLabel;

procedure RzBitBtn4Click (Sender: TObject);

procedure RzBitBtn3Click (Sender: TObject);

procedure RzBitBtn1Click (Sender: TObject);

procedure FormClose (Sender: TObject; var Action: TCloseAction);

procedure Button1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

parampoik: Tparampoik;

ChildTemplateForm1: TChildTemplateForm;

ff:string;

flagpoisk:boolean;

p1,p2:tparameter;

all:boolean;

ahour, aminute, asecond, amillisecond: word;

priznak:string;

stroka_SQL, pole, tabl, srtkl, name_poisk, sqlwhere: string;

idnakl, idzapas, i, sravn, kolnakl, kolzapas, rezerv_kol:integer;

implementation

uses mainclients;

{$R *.dfm}

procedure Tparampoik. FormClose (Sender: TObject; var Action: TCloseAction);

begin

Action:=caFree;

end;

procedure Tparampoik. RzBitBtn3Click (Sender: TObject);

var ChildTemplateForm: TChildTemplateform;

all:boolean;

stroka_SQL, pole, tabl, srtkl, name_poisk, sqlwhere: string;

fl_book, fl_avtor, fl_izdat, fl_location, fl_vid, fl_category:boolean;

begin

MainClientsForm.IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

MainClientsForm.IsMDIChildOpen (MainClientsForm,'addform');

MainClientsForm.IsMDIChildOpen (MainClientsForm,'ChildTemplateForm');

ChildTemplateForm:=TChildTemplateform.Create (Owner);

ChildTemplateForm.Left:=0;

ChildTemplateForm.Top:=3;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery1;

mainclientsform.ADOQuery1.Active:=false;

mainclientsform.ADOQuery1.SQL.Clear;

P1 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P1.Name:='P1';

p1.DataType := ftstring;

stroka_SQL:='select * from book, avtor, izdat, vid, category '+sqlwhere

program.nameprogram like: P1'+sqlwhere;

procedure Tparampoik. Button1Click (Sender: TObject);

var ChildTemplateForm: TChildTemplateform;

timenach, timekon: tdatetime;

begin

{flagsort:=false;}

MainClientsForm.IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

MainClientsForm.IsMDIChildOpen (MainClientsForm,'addform');

MainClientsForm.IsMDIChildOpen (MainClientsForm,'ChildTemplateForm');

ChildTemplateForm:=TChildTemplateform.Create (Owner);

ChildTemplateForm.Left:=0;

ChildTemplateForm.Top:=3;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery2;

mainclientsform.ADOQuery2.Active:=false;

mainclientsform.ADOQuery2.SQL.Clear;

if nomer_poisk=1 then begin

P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;

P1.Name:='P1';

p1.DataType := ftstring;

if edit1. Text<>'' then begin

srtkl := edit1. Text;

name_poisk:= 'Tovar.nameTovar'

end;

if srtkl<>'' then

begin

srtkl:='%'+ srtkl+'%';

P1.Value:=srtkl;

P1.Size:=Length (srtkl);

end;

ChildTemplateForm.Label1.Caption:='Информация о вакансии: '+edit1.Text;

sqlwhere:= ' where (Vakanciya.id_organization = (select organization. id_organization from organization where organization.name_firm like: P1))';

stroka_SQL:='select * from Vakanciya'+sqlwhere ;

mainclientsform.ADOQuery2.SQL.Add (stroka_SQL);

if stroka_SQL<>'' then begin

mainclientsform.ADOQuery2.Active:=true;

mainclientsform.ADOQuery2.ExecSQL;

end;

end;

if nomer_poisk=2 then begin

P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;

P1.Name:='P1';

p1.DataType := ftstring;

if edit1. Text<>'' then begin

srtkl := edit1. Text;

name_poisk:= 'Tovar.nameTovar'

end;

if srtkl<>'' then

begin

srtkl:='%'+ srtkl+'%';

P1.Value:=srtkl;

P1.Size:=Length (srtkl);

end;

ChildTemplateForm.Label1.Caption:='Информация о клиенте: '+edit1.Text;

sqlwhere:= ' where Client. fio like: P1';

stroka_SQL:='select * from Client'+sqlwhere ;

mainclientsform.ADOQuery2.SQL.Add (stroka_SQL);

if stroka_SQL<>'' then begin

mainclientsform.ADOQuery2.Active:=true;

mainclientsform.ADOQuery2.ExecSQL;

end;

end;

end;

end;

end.

директор

Отдел информационных технологий

Бухгалтерия

Отдел рекрутинга

Специалисты

Гл. бухгалтер

Бухгалтера-менеджеры

Системный администратор

Программист

Отдел по работе с Vip работодателями

Начальник отдела

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

родительский модуль MainClients

форма результатов поиска

форма справочников

добавление/просмотображение

форма настройки поиска

Объемы продаж, шт

Сумма, тыс. руб

Выручка от реализации

Затраты на производство

Условно постоянные затраты