Лістинг Main.cpp

#include <vcl.h>

#pragma hdrstop

#include "DataModul.h"

#include "Main.h"

#include "prihod.h"

#include "rashod.h"

#include "sklad.h"

#include "kategory.h"

#include "tovar.h"

#include "clientgrid.h"

#include "client.h"

#include "organization.h"

#include "postavwchkgrid.h"

#include "report.h"

#include "About.h"

#include "find.h"

#include "help.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TMainForm *MainForm;

void DataBase()

{

DM -> DB -> DatabaseName = GetCurrentDir()+"\\Database.gdb";

DM -> DB -> Connected = true;

DM -> type_DataSet-> Close();

DM -> product_DataSet -> Close();

DM -> content_DataSet -> Close();

DM -> zakaz_DataSet -> Close();

DM -> client_DataSet -> Close();

DM -> prihod_DataSet -> Close();

DM -> prihoditem_DataSet -> Close();

DM -> postawchyk_DataSet -> Close();

DM -> organiz -> Close();

DM -> type_clients -> Close();

DM -> clienttable -> Close();

DM -> postavkaTable -> Close();

DM -> poduct -> Close();

DM -> type_DataSet-> Open();

DM -> product_DataSet -> Open();

DM -> content_DataSet -> Open();

DM -> zakaz_DataSet -> Open();

DM -> client_DataSet -> Open();

DM -> prihod_DataSet -> Open();

DM -> prihoditem_DataSet -> Open();

DM -> postawchyk_DataSet -> Open();

DM -> organiz -> Open();

DM -> type_clients -> Open();

DM -> clienttable -> Open();

DM -> postavkaTable -> Open();

DM -> poduct -> Open();

}

//---------------------------------------------------------------------------

__fastcall TMainForm::TMainForm(TComponent* Owner)

: TForm(Owner)

{

}