Дипломная работа: Автоматизация учета заявок ПАО "МГТС"
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
91
add->SQL->Clear();
add->SQL->Add("INSERT INTO Request(Nom, Type_problem, Time) VALUES
('"+NumberRequest->Text+"', '"+TypeProblem->Text+"', '"+Time->Now()+"')");
add->ExecSQL();
FormMain->FormRequest->Close();
}else ShowMessage ("Error");
}
Модуль управления пользователями
//---------------------------------------------------------------------------
#include <Users.h>
#pragma hdrstop
#include "Users.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormUsers *FormUsers;
Variant vVarUserName, vVarLogin, vVarRules, sh;
//---------------------------------------------------------------------------
__fastcall TFormUsers::TFormUsers(TComponent* Owner)
: TFormUsers(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormUsers::ButtonCreateClick(TObject *Sender)
{
vVarUserName = CreateObject("User");
vVarLogin=vVarUser.OlePropertyGet("Login");
vVarRules.OleProcedure("Rules");
92
vVarRules.OleProcedure("Save");
vVarPassword=vVarDoc.OlePropertyGet("Generate");
InStock("@1", EditUserName->Text);
InStock("@2", EdшеДщпшт->Text);
vVarApp.OlePropertySet("Visible", true);
}
//---------------------------------------------------------------------------
Модуль редактирования справочников
#ifndef mainfmH
#define mainfmH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include "maindm.h"
#include <DBGrids.hpp>
#include <Grids.hpp>
//---------------------------------------------------------------------------
class TfmMain : public TFormSpr
{
TdmMain *dmMain;
TDBGrid * __fastcall getCurrentGrid();
public: // User declarations
__fastcall TfmMain(TComponent* Owner);
__fastcall TfmMain(TComponent* Owner, TADOConnection *db);
__published: // IDE-managed Components
TPageControl *pgMain;
void __fastcall pgMainChange(TObject *Sender);
void __fastcall FormDblClick(TObject *Sender);
private: // User declarations
93
};
//---------------------------------------------------------------------------
extern PACKAGE TfmSpr *fmSpr;
//---------------------------------------------------------------------------
#endif
// .cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "sprForm.h"
#include "formSpr.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfmSPr *fmSpr;
//---------------------------------------------------------------------------
__fastcall TfmSpr::TfmSPr(TComponent* Owner, TADOConnection *db)
: TForm(Owner),dmSpr(Owner,db)
{
dmSpr->loadPages(this->pgSpr);
dmSpr->loadReference(getCurrentGrid());
}
//---------------------------------------------------------------------------
TDBGrid * __fastcall TfmSpr::getCurrentGrid()
{
if(pgSpr->ActivePageIndex == -1)return;
TDBSpr* db = NULL;
for(int i = 0; i < this->ComponentCount; ++i){
if(this->Components->ClassName()!= "TDBGrid")continue;
94
db = dynamic_cast<"TDBGrid">(this->Components);
if(db->Parent == pgMain->ActivePage) break;
}
return db;
}
void __fastcall TfmMain::pgMainChange(TObject *Sender)
{
fm = new TfmAddEdit(NULL);
//получение перевичного ключа
fm->id = dmMain->adoQuery->Fields->FieldByNumber(0)-
>AsInteger; ls = new TStringList;
dmMain->loadReferenceFields(ls);
}
//---------------------------------------------------------------------------
void __fastcall TfmMain::FormDblClick(TObject *Sender)
{
TStringList *ls;
TfmAddEdit *fm;
try{
dmMain->loadReference(getCurrentGrid());
}
__finally{
if(fm)delete fm;
if(ls)delete ls;
}
}
//---------------------------------------------------------------------------
#ifndef maindmH
#define maindmH
//---------------------------------------------------------------------------
95
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
//---------------------------------------------------------------------------
class TdmMain : public TDataModule
{
__published: // IDE-managed Components
TADOConnection *adoConnect;
TADOQuery *adoQuery;
TDataSource *dsQuery;
TADOQuery *adoExecute;
private: // User declarations
public: // User declarations
__fastcall TdmMain(TComponent* Owner);
__fastcall TdmMain(TComponent *Owner, TADOConnection *db);
void __fastcall loadPages(TPageControl* pg,const int index = 0);
void __fastcall loadReference(TDBGrid *gb);
void __fastcall loadReferenceFields(TStrings *ls);
};
//---------------------------------------------------------------------------
extern PACKAGE TdmMain *dmMain;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#include <vcl.h>
Источник: https://baza.diplomsite.ru/previewfile/2364