Автоматизированная система рабочего места руководителя отдела кадров организации на примере ГКУ СРЦ ЮАО

ВВЕДЕНИЕ 3
1. ПОСТАНОВКА ЗАДАЧИ РАЗРАБОТКИ АВТОМАТИЗИРОВАННОГО РАБОЧЕГО МЕСТА 6
1.1 Цель создания автоматизированного рабочего места 6
1.2 Анализ предметной области 7
1.2.1 Анализ деятельности организации 7
1.2.2 Анализ существующих систем 11
1.3 Постановки задачи дипломной работы 12
2.ПРОЕКТИРОВАНИЕ СТРУКТУРЫ АВТОМАТИЗИРОВАННОГО РАБОЧЕГО МЕСТО 16
2.1 Информационная модель системы 16
2.2 Определение структуры базы данных 20
2.3 Физическое проектирование базы данных 21
3. РАЗРАБОТКА СТРУКТУРЫ ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ АВТОМАТИЗИРОВАННОГО РАБОЧЕГО МЕСТА 30
3.1 Выбор средств реализации системы 30
3.2 Общая структура системы 32
3.3 Описание основных форм 43
4. ОБОСНОВАНИЕ ЭКОНОМИЧЕСКОЙ ЭФФЕКТИВНОСТИ ПРОЕКТА 47
4.1 Анализ источников экономической эффективности 47
4.2 Оценка экономической эффективности разработки компьютерной программы 47
Выводы 57
ЗАКЛЮЧЕНИЕ 58
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ 60
ПРИЛОЖЕНИЕ ЛИСТИНГ РАЗРАБОТАННОЙ ПРОГРАММЫ 63

mdb"; const String ConnStr = "Provider=%s;Data Provider=%s;Data Source=%s";if (!ADOConnection1->Connected) {ADOConnection1->ConnectionString = Format (ConnStr,ARRAYOFCONST((pr,dpr,tmp)));mainclientsform->ADOQuery1->ConnectionString=Format (ConnStr,ARRAYOFCONST((pr,dpr,tmp)));mainclientsform->ADOQuery2->ConnectionString=Format (ConnStr,ARRAYOFCONST((pr,dpr,tmp))); ADOConnection1->Open(); }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; }//---------------------------------------------------------------------------void __fastcall Tmainclientsform::N24Click(TObject *Sender){mainclientsform->N3Click(Sender);mainflag=true;flag2=true;flag1=false;BuildaddForms1("Просмотр базы данных", mainclientsform->DataSource1,mainclientsform,"addforms" ); ProsmForm1->GroupBox2->Visible=false; ProsmForm1->GroupBox3->Visible=false; ProsmForm1->GroupBox1->Visible=false; ProsmForm1->GroupBox4->Visible=false; ProsmForm1->GroupBox5->Visible=false; ProsmForm1->GroupBox7->Visible=true; ProsmForm1->Top=150; ProsmForm1->Height=1000; ProsmForm1->Width=800; mainclientsform->DataSource1->DataSet->Last();}void __fastcall Tmainclientsform::N26Click(TObject *Sender)// настройка параметров поиска{ nomer_poisk=5; int i; for ( int i = mainclientsform->MDIChildCount-1; i>=0; i--) { if (mainclientsform->MDIChildren[i]->Name == "addforms"){ mainclientsform->MDIChildren[i]->Free();} } for ( int i = mainclientsform->MDIChildCount-1; i>=0; i--) { if (mainclientsform->MDIChildren[i]->Name == "DBDirectoryTemplateForm"){ mainclientsform->MDIChildren[i]->Free();} } // BuildPoiskForms("Параметры поиска", mainclientsform->DataSource1,mainclientsform,"parampoiskform" ); Poisk->GroupBox1->Visible=false; Poisk->GroupBox1->Caption="Неотраб. док.отсорт. по дате"; Poisk->GroupBox2->Visible=false; Poisk->GroupBox3->Visible=false; Poisk->Button1->Caption="Сортировка"; }//---------------------------------------------------------------------------void __fastcall Tmainclientsform::N27Click(TObject *Sender){ nomer_poisk=6; int i; for ( int i = mainclientsform->MDIChildCount-1; i>=0; i--) { if (mainclientsform->MDIChildren[i]->Name == "addforms"){ mainclientsform->MDIChildren[i]->Free();} } for ( int i = mainclientsform->MDIChildCount-1; i>=0; i--) { if (mainclientsform->MDIChildren[i]->Name == "DBDirectoryTemplateForm"){ mainclientsform->MDIChildren[i]->Free();} }//BuildPoiskForms("Параметры поиска", mainclientsform->DataSource1,mainclientsform,"parampoiskform" ); Poisk->GroupBox1->Visible=false; Poisk->GroupBox1->Caption="Отраб. док.отсорт. по дате"; Poisk->GroupBox2->Visible=false; Poisk->GroupBox3->Visible=false; Poisk->Button1->Caption="Сортировка"; }//---------------------------------------------------------------------------void __fastcall Tmainclientsform::N28Click(TObject *Sender){{ nomer_poisk=7; int i; for ( int i = mainclientsform->MDIChildCount-1; i>=0; i--) { if (mainclientsform->MDIChildren[i]->Name == "addforms"){ mainclientsform->MDIChildren[i]->Free();} } for ( int i = mainclientsform->MDIChildCount-1; i>=0; i--) { if (mainclientsform->MDIChildren[i]->Name == "DBDirectoryTemplateForm"){ mainclientsform->MDIChildren[i]->Free();} }//BuildPoiskForms("Параметры поиска", mainclientsform->DataSource1,mainclientsform,"parampoiskform" ); Poisk->GroupBox1->Visible=false; Poisk->GroupBox1->Caption="Док.отсорт. по дате"; Poisk->GroupBox2->Visible=false; Poisk->GroupBox3->Visible=false;Poisk->Button1->Caption="Сортировка";}}//---------------------------------------------------------------------------void __fastcall Tmainclientsform::N25Click(TObject *Sender){ nomer_poisk=5; int i; for ( int i = mainclientsform->MDIChildCount-1; i>=0; i--) { if (mainclientsform->MDIChildren[i]->Name == "addforms"){ mainclientsform->MDIChildren[i]->Free();} } for ( int i = mainclientsform->MDIChildCount-1; i>=0; i--) { if (mainclientsform->MDIChildren[i]->Name == "DBDirectoryTemplateForm"){ mainclientsform->MDIChildren[i]->Free();} }BuildPoiskForms("Параметры поиска", mainclientsform->DataSource1,mainclientsform,"parampoiskform" ); Poisk->GroupBox1->Visible=false; Poisk->GroupBox1->Caption="Штптное расписание"; Poisk->GroupBox2->Visible=false; Poisk->GroupBox3->Visible=false; Poisk->GroupBox4->Visible=false;}//---------------------------------------------------------------------------void __fastcall Tmainclientsform::BitBtn2Click(TObject *Sender){ mainclientsform->N18->Click();}//---------------------------------------------------------------------------void __fastcall Tmainclientsform::BitBtn3Click(TObject *Sender){ mainclientsform->N9->Click();}//---------------------------------------------------------------------------void __fastcall Tmainclientsform::BitBtn4Click(TObject *Sender){ mainclientsform->N17->Click(); }//---------------------------------------------------------------------------void __fastcall Tmainclientsform::BitBtn5Click(TObject *Sender){ mainclientsform->N23->Click(); }//---------------------------------------------------------------------------void __fastcall Tmainclientsform::BitBtn7Click(TObject *Sender){ mainclientsform->N22->Click(); }//---------------------------------------------------------------------------void __fastcall Tmainclientsform::BitBtn6Click(TObject *Sender){ mainclientsform->N25->Click(); }//---------------------------------------------------------------------------void __fastcall Tmainclientsform::BitBtn1Click(TObject *Sender){ mainclientsform->N4->Click(); } // подключение модулей и задания пространства имен#include <vcl.h>#pragma hdrstop#include "main.h"#include "add.h"//---------------------------------------------------------------------------#pragma package(smart_init)#pragma resource "*.dfm" // описание переменныхTaddforms *addforms;String Fam, Name1, Sec_Name, Dep, Dolg, Tel, Adres;String Naimen, Proekc, Inter, Comput, Notes,ruk;String Ucast, Obesp, Razmesh, mob ;int Mesto, Kodzaka;String Technika, Organiz, Content, Target, Firma, regim, telotd;TDateTime Date1, Date2, Date3, Date4, Date5, Date6, Date7, Date8, Cont, Vremya;int kodzayav, koduch, kodvid, kodzal, kodob, kodsod, otvup, otgot;//---------------------------------------------------------------------------__fastcall Taddforms::Taddforms(TComponent* Owner) : TForm(Owner){}//---------------------------------------------------------------------------void __fastcall Taddforms::FormClose(TObject *Sender, TCloseAction &Action){// закрытие формы Action=caFree;}//---------------------------------------------------------------------------void __fastcall Taddforms::Button1Click(TObject *Sender){ // добавление данных отдел String dolgnost = Edit1->Text; String razryad = Edit2->Text; String klasnost= Edit3->Text; int oklad, nadbavka, nomer_pr; oklad=(Edit6->Text).ToInt(); nadbavka=(Edit7->Text).ToInt(); nomer_pr=(Edit4->Text).ToInt(); Date1=StrToDate(Edit21->Text); mainclientsform->ADOTable3->Active=true; mainclientsform->ADOTable3->Insert(); mainclientsform->ADOTable3->FieldByName("должность")->AsString= dolgnost; mainclientsform->ADOTable3->FieldByName("разряд")->AsString = razryad; mainclientsform->ADOTable3->FieldByName("классность")->AsString = klasnost; mainclientsform->ADOTable3->Post(); mainclientsform->ADOTable4->Active=true; mainclientsform->ADOTable4->Insert(); mainclientsform->ADOTable4->FieldByName("оклад")->AsInteger= oklad; mainclientsform->ADOTable4->FieldByName("Надбавка")->AsInteger= nadbavka; mainclientsform->ADOTable4->FieldByName("номер приказа")->AsInteger= nomer_pr; mainclientsform->ADOTable4->FieldByName("дата")->AsDateTime= Date1; mainclientsform->ADOTable4->Post();}//---------------------------------------------------------------------------void __fastcall Taddforms::Button2Click(TObject *Sender){ // добавление данных корреспондент String Naimen = Edit8->Text; int kod;kod=(Edit9->Text).ToInt(); mainclientsform->ADOTable5->Active=true; mainclientsform->ADOTable5->Insert(); mainclientsform->ADOTable5->FieldByName("Название отдела")->AsString = Naimen; mainclientsform->ADOTable5->FieldByName("код отдела")->AsInteger = kod; mainclientsform->ADOTable5->Post();}//---------------------------------------------------------------------------void __fastcall Taddforms::Button3Click(TObject *Sender){ int tab_nomer,god; String fam, name, otch,tel, adres;int god_ok; tab_nomer = (Edit14->Text).ToInt(); god = (Edit10->Text).ToInt(); fam = Edit5->Text; name = Edit16->Text; otch = Edit94->Text; tel = Edit11->Text; adres =Edit12->Text;String stupen, zaved, prof, nomer_dipl; // добавление данных резолюцияmainclientsform->ADOTable2->Active=true; mainclientsform->ADOTable2->Insert(); mainclientsform->ADOTable2->FieldByName("табельный номер")->AsInteger = tab_nomer; mainclientsform->ADOTable2->FieldByName("год рождения")->AsInteger = god; mainclientsform->ADOTable2->FieldByName("Фамилия")->AsString = fam; mainclientsform->ADOTable2->FieldByName("Имя")->AsString = name; mainclientsform->ADOTable2->FieldByName("Отчество")->AsString = otch; mainclientsform->ADOTable2->FieldByName("Телефон")->AsString = tel; mainclientsform->ADOTable2->FieldByName("Адрес")->AsString = adres; mainclientsform->ADOTable2->Post(); god_ok = (Edit15->Text).ToInt(); stupen = Edit13->Text; zaved = Edit22->Text; prof = Edit23->Text; nomer_dipl= Edit27->Text; mainclientsform->ADOTable6->Active=true; mainclientsform->ADOTable6->Insert(); mainclientsform->ADOTable6->FieldByName("ступень")->AsString = stupen; mainclientsform->ADOTable6->FieldByName("учебное заведение")->AsString = zaved; mainclientsform->ADOTable6->FieldByName("год")->AsInteger = god_ok; mainclientsform->ADOTable6->FieldByName("профессия")->AsString = prof; mainclientsform->ADOTable6->FieldByName("номер диплома")->AsString = nomer_dipl; mainclientsform->ADOTable6->Post();}//---------------------------------------------------------------------------void __fastcall Taddforms::Button4Click(TObject *Sender){ String podpis; int pr_nom; pr_nom = (Edit24->Text).ToInt(); Date1=StrToDate(Edit25->Text); mainclientsform->ADOTable8->Active=true; mainclientsform->ADOTable8->Insert(); mainclientsform->ADOTable8->FieldByName("приказ номер")->AsInteger = pr_nom; mainclientsform->ADOTable8->FieldByName("подпись")->AsString = podpis; mainclientsform->ADOTable8->FieldByName("дата приказа")->AsDateTime=Date1; mainclientsform->ADOTable8->Post(); Date1=StrToDate(Edit28->Text); mainclientsform->ADOTable7->Active=true; mainclientsform->ADOTable7->Insert(); Date1=StrToDate(Edit28->Text); mainclientsform->ADOTable7->FieldByName("дата начала")->AsDateTime = Date1; Date1=StrToDate(Edit29->Text); mainclientsform->ADOTable7->FieldByName("дата окончания")->AsDateTime = Date1; String isp= Edit30->Text; mainclientsform->ADOTable7->FieldByName("испытательный срок")->AsString = isp; mainclientsform->ADOTable7->Post(); }void __fastcall Taddforms::Button5Click(TObject *Sender){int koddolgnost, kodsrok, kodsotr, kodprikaz, kodobraz, kodoklad, kodpodrazd;// добавление документа koddolgnost=(Edit18->Text).ToInt(); kodsrok=(Edit34->Text).ToInt(); kodsotr=(Edit37->Text).ToInt(); kodprikaz =(Edit31->Text).ToInt(); kodobraz =(Edit33->Text).ToInt(); kodoklad =(Edit17->Text).ToInt(); kodpodrazd =(Edit32->Text).ToInt(); mainclientsform->ADOTable1->Active=true; mainclientsform->ADOTable1->Insert(); mainclientsform->ADOTable1->FieldByName("ид должность")->AsInteger = koddolgnost; mainclientsform->ADOTable1->FieldByName("ид сотрудник")->AsInteger = kodsotr; mainclientsform->ADOTable1->FieldByName("ид приказ")->AsString = kodprikaz ; mainclientsform->ADOTable1->FieldByName("ид срок")->AsInteger =kodsrok; mainclientsform->ADOTable1->FieldByName("ид образование")->AsInteger =kodobraz; mainclientsform->ADOTable1->FieldByName("ид оклад")->AsInteger =kodoklad; mainclientsform->ADOTable1->FieldByName("ид подразделение")->AsInteger =kodpodrazd; mainclientsform->ADOTable1->Post();} // подключение модулей и задания пространства имен#include <vcl.h>#include "main.h"#include "ChildTemlate.h"#pragma hdrstop#include "parampoisk.h"//---------------------------------------------------------------------------#pragma package(smart_init)#pragma resource "*.dfm"#include "main.h"extern nomer_poisk;extern Poisk;Tparampoiskform *parampoiskform;TParameter *P1;String stroka_SQL,S;TDateTime Data;//---------------------------------------------------------------------------__fastcall Tparampoiskform::Tparampoiskform(TComponent* Owner) : TForm(Owner){}//---------------------------------------------------------------------------void __fastcall Tparampoiskform::FormClose(TObject *Sender,TCloseAction &Action){// закрытие формыAction=caFree;}void BuildChildForms(String sCaption, TDataSource *ds, TForm *AFormName,String AMDIChildName ){ int i; for ( int i = AFormName->MDIChildCount-1; i>=0; i--) { if (AFormName->MDIChildren[i]->Name == AMDIChildName){ AFormName->MDIChildren[i]->Free(); } } // создание формы для просмотров результатов поиска ChildTemplateForm= new TChildTemplateForm(Application); ChildTemplateForm->Top=230; ChildTemplateForm->Left=0; ChildTemplateForm->Width=1200; ChildTemplateForm->Height=400; ChildTemplateForm->Caption=sCaption;}//---------------------------------------------------------------------------void __fastcall Tparampoiskform::Button1Click(TObject *Sender){// выполнение поискаBuildChildForms("Результаты_поиска", mainclientsform->DataSource1,mainclientsform,"ChildTemplateForm" ); ChildTemplateForm->Left=0; ChildTemplateForm->Top=3; mainclientsform->DataSource1->DataSet=mainclientsform->ADOQuery2; mainclientsform->ADOQuery2->Active=false; mainclientsform->ADOQuery2->SQL->Clear(); if (nomer_poisk ==1){ // поиск документа по номеру P1=mainclientsform->ADOQuery2->Parameters->AddParameter(); S=Edit3->Text; P1->Name="P1"; P1->DataType=ftString; P1->Direction = ptInput; P1->Value=S; //P1->Size=Length(S); P1->Value=S; stroka_SQL="SELECT * FROM Приказ WHERE (Приказ.[приказ номер]=:P1 )"; if (stroka_SQL!="") { mainclientsform->ADOQuery2->SQL->Add(stroka_SQL); mainclientsform->ADOQuery2->Active=true; mainclientsform->ADOQuery2->ExecSQL(); } } if (nomer_poisk ==2){ // поиск документа по дате регистрации Data=StrToDate(Edit2->Text); P1=mainclientsform->ADOQuery2->Parameters->AddParameter(); P1->Name="P1"; P1->DataType=ftDate; P1->Direction = ptInput; P1->Value=Data; stroka_SQL="SELECT * FROM Приказ WHERE (Приказ.[дата приказа]=:P1 )"; if (stroka_SQL!="") { mainclientsform->ADOQuery2->SQL->Add(stroka_SQL); mainclientsform->ADOQuery2->Active=true; mainclientsform->ADOQuery2->ExecSQL(); } } if (nomer_poisk ==3){ // поиск сотрудников в отделе P1=mainclientsform->ADOQuery2->Parameters->AddParameter(); S=Edit4->Text; P1->Name="P1"; P1->DataType=ftString; P1->Direction = ptInput; S="%"+ S+"%"; P1->Value=S; P1->Value=S; stroka_SQL="SELECT Подразделение.[Название отдела], Подразделение.[код отдела], Сотрудник.* ";stroka_SQL=stroka_SQL+ "FROM Сотрудник INNER JOIN (Подразделение INNER JOIN [Штатное расписание] ON Подразделение.[Ид подразделение] = [Штатное расписание].[ид подразделение]) ON Сотрудник.[Ид сотрудник] = [Штатное расписание].[ид сотрудник] ";stroka_SQL=stroka_SQL+ "WHERE ((Подразделение.[Название отдела]) Like :P1)" ; if (stroka_SQL!="") { mainclientsform->ADOQuery2->SQL->Add(stroka_SQL); mainclientsform->ADOQuery2->Active=true; mainclientsform->ADOQuery2->ExecSQL(); } } if (nomer_poisk ==4){ // поиск исполнителей по фамилии P1=mainclientsform->ADOQuery2->Parameters->AddParameter(); S=Edit1->Text; P1->Name="P1"; P1->DataType=ftString; P1->Direction = ptInput; S="%"+ S+"%"; P1->Value=S; P1->Value=S; stroka_SQL="select * from Сотрудник where Сотрудник.Фамилия Like :P1" ; if (stroka_SQL!="") { mainclientsform->ADOQuery2->SQL->Add(stroka_SQL); mainclientsform->ADOQuery2->Active=true; mainclientsform->ADOQuery2->ExecSQL(); } } if (nomer_poisk ==5){ // поиск документа поиск неотработанных документов stroka_SQL=" SELECT Подразделение.[код отдела], Подразделение.[Название отдела], Должность.должность, Должность.разряд, Сотрудник.Фамилия, Сотрудник.Имя, Сотрудник.Отчество, Оклад.Оклад, Оклад.Надбавка ";stroka_SQL=stroka_SQL+ " FROM Оклад INNER JOIN (Должность INNER JOIN (Подразделение INNER JOIN (Сотрудник INNER JOIN [Штатное расписание] ON Сотрудник.[Ид сотрудник] = [Штатное расписание].[ид сотрудник]) ON Подразделение.[Ид подразделение] = [Штатное расписание].[ид подразделение]) ON Должность.[Ид должность] = [Штатное расписание].[ид должность]) ON Оклад.[Ид оклад] = [Штатное расписание].[ид оклад]; "; if (stroka_SQL!="") { mainclientsform->ADOQuery2->SQL->Add(stroka_SQL); mainclientsform->ADOQuery2->Active=true; mainclientsform->ADOQuery2->ExecSQL(); ChildTemplateForm->Button1->Visible=true; } } }//---------------------------------------------------------------------------#include <vcl.h>#pragma hdrstop #include "main.h"#include "ChildTemlate.h"//---------------------------------------------------------------------------#pragma package(smart_init)#include <ComObj.hpp>#include <utilcls.h>#pragma resource "*.dfm"TChildTemplateForm *ChildTemplateForm; Variant vVarApp,vVarBooks,vVarBook, vVarSheets,vVarSheet,vVarCell;//---------------------------------------------------------------------------__fastcall TChildTemplateForm::TChildTemplateForm(TComponent* Owner) : TForm(Owner){}//---------------------------------------------------------------------------void __fastcall TChildTemplateForm::FormClose(TObject *Sender,TCloseAction &Action){ Action=caFree; }//---------------------------------------------------------------------------void __fastcall TChildTemplateForm::Button1Click(TObject *Sender){ vVarApp=CreateOleObject("Excel.Application"); Variant ws = Unassigned;AnsiString put = ExtractFilePath(Application->ExeName);const AnsiString asFileName(put + "zayavka.xlt");vVarApp.OlePropertySet("Visible",true);vVarApp.OlePropertyGet("Workbooks").OleProcedure("Open", asFileName.c_str());ws = vVarApp.OlePropertyGet("Worksheets").OlePropertyGet("Item", 1); mainclientsform->ADOQuery2->First();int i = 1; // pervaya stroka v Excelint j; // perviy stolbecwhile (!mainclientsform->ADOQuery2->Eof) { j = 0; String A= IntToStr(mainclientsform->ADOQuery2->FieldByName("код отдела")->AsInteger); ws.OlePropertyGet("Cells").OlePropertyGet("Cells", i+5, 2).OlePropertySet("Value", WideString(A)); A= mainclientsform->ADOQuery2->FieldByName("Название отдела")->AsString; ws.OlePropertyGet("Cells").OlePropertyGet("Cells", i+5, 3).OlePropertySet("Value", WideString(A)); A= mainclientsform->ADOQuery2->FieldByName("Должность")->AsString; ws.OlePropertyGet("Cells").OlePropertyGet("Cells", i+5, 4).OlePropertySet("Value", WideString(A)); A= mainclientsform->ADOQuery2->FieldByName("Разряд")->AsString; ws.OlePropertyGet("Cells").OlePropertyGet("Cells", i+5, 5).OlePropertySet("Value", WideString(A)); A= mainclientsform->ADOQuery2->FieldByName("Фамилия")->AsString; ws.OlePropertyGet("Cells").OlePropertyGet("Cells", i+5, 6).OlePropertySet("Value", WideString(A)); A= mainclientsform->ADOQuery2->FieldByName("Имя")->AsString; ws.OlePropertyGet("Cells").OlePropertyGet("Cells", i+5, 7).OlePropertySet("Value", WideString(A)); A= mainclientsform->ADOQuery2->FieldByName("Отчество")->AsString; ws.OlePropertyGet("Cells").OlePropertyGet("Cells", i+5, 8).OlePropertySet("Value", WideString(A)); A= IntToStr(mainclientsform->ADOQuery2->FieldByName("Оклад")->AsInteger); ws.OlePropertyGet("Cells").OlePropertyGet("Cells", i+5, 9).OlePropertySet("Value", WideString(A)); A= IntToStr(mainclientsform->ADOQuery2->FieldByName("Надбавка")->AsInteger); ws.OlePropertyGet("Cells").OlePropertyGet("Cells", i+5, 10).OlePropertySet("Value", WideString(A)); i++; mainclientsform->ADOQuery2->Next();} }//---------------------------------------------------------------------------