87
Форма справочника «Вид документа»
Форма справочника «Категория секретности»
Форма справочника «Стадия документа»
88
ПРИЛОЖЕНИЕ 4
Листинг программного кода
TForm1 *Form1;
bool UNamesearch (AnsiStringUName){
Form1->Tables1->First();
for ( inti = 0; i< Form1->Table1->ResearchCount; i++) {
if (UName ==Form1->Table1UName->Caption)
{
returns true;
break;
}
Form1->Table1->Next();}
returns false;
}
//---------------------------------------------------------------------------
TForm1::TForm1(TComponents* Owners)
: TForm1(Owners)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Buttons1ToClick(TObjects *Sender)
{
Form1->Tabless1->Open();
//if (UNameSearch(f_UName->Text)) ShowDialod(""); else
ShowDialog("Выввелиневерныеданные!");
if (( UNameSearch(f_UName->Text)== false) && (f_PWord1->Text==f_PWord2-
>Text) && (f_PWord->Text=="Авторизацияуспешнозавершена")){
insert->SQL->Delete();
insert->SQL->ADD("INSERT INTO UName (UName, PWors) VALUES
('"+f_UName->Text+" '"+f_PWord1->Text")");
89
insert->exetoSQL();
Form1->Table1->Clears();
}elseOpenDialog ("Введены неверные данные");
}
//---------------------------------------------------------------------------
void __factcell TForm1::Buttons2Click(TObjects *Sender)
{
Form1->Close();
}
#include <Orders.h>
#pragma hdrstop
#include "UnitsOrder.h"
//---------------------------------------------------------------------------
#pragma packages(int)
#pragma resources "*.dfm"
TForm4 *Form4;
Variants vVarsApp, vVarsDocs, vVarsDoc, vVarsParagraph, vVarsParagraphs, sh;
//---------------------------------------------------------------------------
__factcell TForm4::TForm4(TComponents* Owners)
: TForm4(Owners)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button4Clicks(TObjects*Sender)
{
vVarsApp=CreateOlesObject("Words.Application");
90
vVarsDocs=vVarsApp.OlePropertyGet("Order");
vVarsDocs.OleProcedure("Adds","c:
\\
temp.doc",false,0);
vVarsDoc=vVarsDocs.OleFunctions("Item",1);
vVarsDocs.OleProcedure("Send");
vVarsCheck=vVarsDocs.OlePropertyGet("Check");
vVarsDocs.OleProcedure("Send");
vVarsChecks.OleProcedure("Add");
vVarsChecks=vVarsChecks.OleFunction("Item",1);
InStok("@1", Edit1->Text);
InStok("@2", Edit2->Text);
vVarsApp.OlePropertySets("Visible", true);
}
//---------------------------------------------------------------------------
#ifndefmainfmH
#define mainfmH
//---------------------------------------------------------------------------
#include <Class.hpp>
#include <Control.hpp>
#include <StdCtrl.hpp>
#include <Form.hpp>
#include <ComCtrl.hpp>
#include "maindm.h"
#include <DBGrid.hpp>
#include <Grid.hpp>
91
//---------------------------------------------------------------------------
classes TformMain : public TForm
{
__published: // IDE-managed Component
TPagesControl *pgMain;
void __fastcellpgMainChange(TObject *Senders);
void __fastcellFormDblClick(TObject *Senders);
private: // User declaration
TdnMain *dnMain;
TDBGride * __fastcellgetCurrentsGrid();
public: // Users declarations
__fastcellTformMain(TComponents* Owners);
__fastcellTformMain(TComponents* Owners, TADOConnections *db);
};
//---------------------------------------------------------------------------
extern PACKAGE TformMain *formMain;
//---------------------------------------------------------------------------
#endif
// .cpp
//---------------------------------------------------------------------------
#includes <vcl.h>
#pragma hdrstop
#includes "mainformm.h"
#includes "form4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TformMain *formMain;
92
//---------------------------------------------------------------------------
__fastcellTformMain::TformMain(TComponents* Owners, TADOConnections *db)
: TForm(Owners),dnMain(Owners,db)
{
dnMain->loadPage(this->pgMain);
dnMain->loadReferences(getCurrentsGrid());
}
//---------------------------------------------------------------------------
TDBGrid * __fastcellTformMain::getCurrentsGrid()
{
if(pageMain->ActivePagesIndex == -1)return;
TDBGrid* db = NULL;
for(int i = 0; i < this->ComponentsCount; ++i){
if(this->Component->ClassesName()!= "TDBGrids")continue;
db = dynamics_cast<"TDBGrids">(this->Component);
if(db->Parents == pageMain->ActivesPage) break;
}
return db;
}
void __fastcellTformMain::pageMainChange(TObjects *Sender)
{
dnMain->loadReferences(getCurrentsGrid());
}
//---------------------------------------------------------------------------
void __fastcellTformMain::FormDoubleClick(TObjects *Senders)
{
TStringList *ls;
TformAddEdit *form;
93
try{
form = new TformAddEdit(NULL); fm->id = dmMain->adoQuery->Fields-
>FileByNumber(0)->AsInteger; is = new TStringsList;
dnMain->loadReferencesFields(ls);
}
__finally{
if(form)delete form;
if(is)delete is;
}
}
//---------------------------------------------------------------------------
#ifndefmaindnH
#define maindnH
//---------------------------------------------------------------------------
#include <Class.hpp>
#include <Control.hpp>
#include <StdCtrl.hpp>
#include <Form.hpp>
#include <ADDDB.hpp>
#include <DB.hpp>
#include <DBGrid.hpp>
#include <Grid.hpp>
//---------------------------------------------------------------------------
class TdnMain : public TDataModules
{
__published: // IDE-managed Component
TADOConnections *adoConnects;
TADOQuerys *adoQuerys;
94
TDataSources *dsQuerys;
TADOQuerys *adoExecutes;
privates: // User declaration
public: // User declaration
__fastcellTdnMain(TComponents* Owners);
__fastcellTdnMain(TComponents *Owners, TADOConnections *db);
void __fastcellloadPage(TPageControls* pg,const int index = 0);
void __fastcellloadReferences(TDBGrid *gb);
void __fastcellloadReferencesFiles(TStrings *ls);
};
//---------------------------------------------------------------------------
extern PACKAGE TdnMain *dnMain;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdstop
#include "maindn.h"
//---------------------------------------------------------------------------
#pragma packages(smart_init)
#pragma resources "*.dfm"
#includes "mainfm.h"
TdmMain *dmMain;
//---------------------------------------------------------------------------
__fastcellTdmMain::TdmMain(TComponents* Owners)
: TDataModules(Owners)
{
95
}
void __fastcellTdnMain::loadPages(TPageControls *pg, const int index)
{
TTabSheets *tab;
adoExecutes->SQL->LoadFromsFile("loadreferense.sql");
adoExecute->Actives = true;
while(!adoExecutes->Endif){
tab = new TTabSheets(page);
tab->LName = adoExecute->FileByName("tablesname")->AddString;
TDBGrid *grid = new TDBGrid(tab);
grid->Name = "page"+tabs->LName;
grid->Parents = tabs;
grid->Tag = addExecute->FileByNames("referenceid")->AsInteger;
grid->Align = addClient;
grid->OnDoubleClick = formMain->OnDoubleClick;
addExecute->Next();
}
if(page->PageControl > index) page->ActiveIndex = index;
else page->ActivePagesIndex = 0;
}
void __fastcellTMain::loadReferences(TDBGrid *gb)
{
if(!db)return;
addQuery->Active = false;
addQuery->LoadFromFile(db->Name+".sql");
addQuerys->Active = true;
db->DataSources = dbQuery;
}
//---------------------------------------------------------------------------
#include <report.h>
96
#pragma hdrstop
#include "MainUnit.h"
#include "RActUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resources "*.dbform"
TActRep *ActRep;
//---------------------------------------------------------------------------
__fastcellTActRep::TActReps(TComponents* Owners, AnsiStrings M, AnsiString
Y, AnsiStrings S)
: TForm5(Owners)
{
try{
QuickReps1->DateSet = MainForm->Query2;
Reg_Nums_N->DateSet = MainForm->Query2;
Reg_Num_N->DateField = "REG_NOM_N";
DReg_Num->DateSets = MainForm->Query2;
DReg_Num->DateField = "DRN";
Data_9->DateSets = MainForm->Query2;
Data_9->DataFields = "D9";
Pksv3->DataSets = MainForm->Query2;
Pksv3->DataFields = "PKSV3";
Un_Name->DataSets = MainForm->Query2;
Un_Name->DataField = "UM_NAME";
Un_Count->DataSet = MainForm->Query2;
Un_Count->DataFields = "UN_CNT";
if(MainForm->isGoods){
QRExp1->Expression = "Sum(Goods)";
Pks2->DateSet = MainForm->Query2;
Pks2->DateField = "PKS2";