Материал: Автоматизация учета сдельной оплаты труда в ОАО "Научно-исследовательский институт технологии, контроля и диагностики железнодорожного транспорта"

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
105
Form_dolzh->Show();
}
//---------------------------------------------------------------------------
void __fastcallTFormMain::N8Click(TObject *Sender)
{
Form_oper->Show();
}
//---------------------------------------------------------------------------
void __fastcallTFormMain::N4Click(TObject *Sender)
{
Form_tabel->Show();
}
//---------------------------------------------------------------------------
void __fastcallTFormMain::N2Click(TObject *Sender)
{
Form_zp->Show();
}
//---------------------------------------------------------------------------
void __fastcallTFormMain::N5Click(TObject *Sender)
{
Form_koef->Show();
}
//---------------------------------------------------------------------------
106
ПРИЛОЖЕНИЕ 2
Листинг модуля справочника «Должности»
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Dolzhnosti.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm_dolzh *Form_dolzh;
//---------------------------------------------------------------------------
__fastcallTForm_dolzh::TForm_dolzh(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcallTForm_dolzh::FormShow(TObject *Sender)
{
ADOConnection1->ConnectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="+GetCurrentDir()+"\\ras4et_zp.mdb"+";Persist Security Info=False";
ADOTable1->Active = true;
}
//---------------------------------------------------------------------------
107
ПРИЛОЖЕНИЕ 3
Листинг модуля справочника «Коэффициенты»
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Koef.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm_koef *Form_koef;
//---------------------------------------------------------------------------
__fastcallTForm_koef::TForm_koef(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcallTForm_koef::FormShow(TObject *Sender)
{
ADOConnection1->ConnectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="+GetCurrentDir()+"\\ras4et_zp.mdb"+";Persist Security Info=False";
ADOTable1->Active = true;
}
//---------------------------------------------------------------------------
108
ПРИЛОЖЕНИЕ 4
Листинг модуля справочника «Операции»
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Operacii.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm_oper *Form_oper;
//---------------------------------------------------------------------------
__fastcallTForm_oper::TForm_oper(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcallTForm_oper::FormShow(TObject *Sender)
{
ADOConnection1->ConnectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="+GetCurrentDir()+"\\ras4et_zp.mdb"+";Persist Security Info=False";
ADOTable1->Active = true;
}
//---------------------------------------------------------------------------
109
ПРИЛОЖЕНИЕ 5
Листинг модуля справочника «Отделы»
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Otdely.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm_otdely *Form_otdely;
//---------------------------------------------------------------------------
__fastcallTForm_otdely::TForm_otdely(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcallTForm_otdely::FormShow(TObject *Sender)
{
ADOConnection1->ConnectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="+GetCurrentDir()+"\\ras4et_zp.mdb"+";Persist Security Info=False";
ADOTable1->Active = true;
}
//---------------------------------------------------------------------------
Источник: https://baza.diplomsite.ru/previewfile/2463

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

17. Введение 18. Линейные программы 19. Ветвления 20. Программирование циклических алгоритмов
Анализ эффективности инвестиций предприятия на примере ООО «СпецПримСтрой»
Сборные железобетонные ребристые плиты перекрытия
_-___-~1
_3 тема - Диффузия
_Роджерс Карл, Брак и его альтернативы
_Штерн Вильям, Дифференциальная психология и ее методические основы