Thank you for all and sorry for my mistakes. I'am a novice and I want to learn a lot of things.
I not sure of what do you want...Do I have to post all the code of my FORM?
if this is wrong, ask me to post any part of code in particular.
This is whole of code of this form Imageshack - 44149021.jpg :
Code:
//---------------------------------------------------------------------------
#include <vcl.h>
#include <jpeg.hpp>
#pragma hdrstop
#include "Unit14.h"
#include "Unit3.h"
bool expandida=false;
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm14 *Form14;
//---------------------------------------------------------------------------
__fastcall TForm14::TForm14(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm14::FormShow(TObject *Sender)
{
DoubleBuffered=true;
Form14->Top=0;
Form14->Left=0;
switch(Tag)
{
case 1:
Form14->Caption="Alta de Evaluacion";
BitBtn17->Caption="Guardar";
Panel2->Enabled=true;
Panel4->Enabled=true;
Panel5->Enabled=true;
DBEdit14->Text=DataModule3->Cursos->Fields->FieldByName("FechaIni")->AsDateTime;
DBEdit15->Text=DataModule3->Cursos->Fields->FieldByName("FechaFin")->AsDateTime;
DataModule3->Evaluacion->Append();
break;
case 2:
Form14->Caption="Consulta de Evaluacion";
Panel2->Enabled=false;
Panel4->Enabled=false;
Panel3->Enabled=false;
Panel5->Enabled=false;
Panel1->Enabled=false;
Panel6->Enabled=false;
DBEdit14->Text=DataModule3->Cursos->Fields->FieldByName("FechaIni")->AsDateTime;
DBEdit15->Text=DataModule3->Cursos->Fields->FieldByName("FechaFin")->AsDateTime;
break;
case 3:
Form14->Caption="Modificacion de Evaluacion";
BitBtn17->Caption="Guardar";
Panel2->Enabled=true;
Panel4->Enabled=true;
Panel5->Enabled=true;
DBEdit14->Text=DataModule3->Cursos->Fields->FieldByName("FechaIni")->AsDateTime;
DBEdit15->Text=DataModule3->Cursos->Fields->FieldByName("FechaFin")->AsDateTime;
DataModule3->Evaluacion->Edit();
break;
case 4:
Form14->Caption="Baja de Evaluacion";
BitBtn17->Caption="Eliminar";
Panel5->Enabled=false;
Panel2->Enabled=false;
Panel4->Enabled=true;
DBEdit14->Text=DataModule3->Cursos->Fields->FieldByName("FechaIni")->AsDateTime;
DBEdit15->Text=DataModule3->Cursos->Fields->FieldByName("FechaFin")->AsDateTime;
break;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm14::BitBtn7Click(TObject *Sender)
{
switch(PageControl1->TabIndex)
{
case 0:
if(OpenPictureDialog1->Execute())
{
DBImage2->Picture->LoadFromFile(OpenPictureDialog1->FileName);
DBImage2->CopyToClipboard();
DBImage2->PasteFromClipboard();
}
break;
case 1:
if(OpenPictureDialog1->Execute())
{
DBImage3->Picture->LoadFromFile(OpenPictureDialog1->FileName);
DBImage3->CopyToClipboard();
DBImage3->PasteFromClipboard();
}
break;
case 2:
if(OpenPictureDialog1->Execute())
{
DBImage4->Picture->LoadFromFile(OpenPictureDialog1->FileName);
DBImage4->CopyToClipboard();
DBImage4->PasteFromClipboard();
}
break;
case 3:
if(OpenPictureDialog1->Execute())
{
DBImage5->Picture->LoadFromFile(OpenPictureDialog1->FileName);
DBImage5->CopyToClipboard();
DBImage5->PasteFromClipboard();
}
break;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm14::BitBtn8Click(TObject *Sender)
{
switch(PageControl1->TabIndex)
{
case 0:
DBImage2->Picture->LoadFromFile("C:\\Tables\\Blanco.bmp");
break;
case 1:
DBImage3->Picture->LoadFromFile("C:\\Tables\\Blanco.bmp");
break;
case 2:
DBImage4->Picture->LoadFromFile("C:\\Tables\\Blanco.bmp");
break;
case 3:
DBImage5->Picture->LoadFromFile("C:\\Tables\\Blanco.bmp");
break;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm14::BitBtn9Click(TObject *Sender)
{
if(OpenDialog1->Execute())
{
DBEdit10->Text=OpenDialog1->FileName;
}
DBEdit10->Text=StringReplace(DBEdit10->Text,"\\","\\\\",TReplaceFlags() << rfReplaceAll);
}
//---------------------------------------------------------------------------
void __fastcall TForm14::BitBtn12Click(TObject *Sender)
{
if(OpenDialog1->Execute())
{
DBEdit9->Text=OpenDialog1->FileName;
}
DBEdit9->Text=StringReplace(DBEdit9->Text,"\\","\\\\",TReplaceFlags() << rfReplaceAll);
}
//---------------------------------------------------------------------------
void __fastcall TForm14::BitBtn13Click(TObject *Sender)
{
if(OpenDialog1->Execute())
{
DBEdit11->Text=OpenDialog1->FileName;
}
DBEdit11->Text=StringReplace(DBEdit11->Text,"\\","\\\\",TReplaceFlags() << rfReplaceAll);
}
//---------------------------------------------------------------------------
void __fastcall TForm14::BitBtn16Click(TObject *Sender)
{
if(OpenDialog1->Execute())
{
DBEdit12->Text=OpenDialog1->FileName;
}
DBEdit12->Text=StringReplace(DBEdit12->Text,"\\","\\\\",TReplaceFlags() << rfReplaceAll);
}
//---------------------------------------------------------------------------
void __fastcall TForm14::BitBtn18Click(TObject *Sender)
{
DataModule3->Evaluacion->Cancel();
DataModule3->Evaluacion->Close();
Form14->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm14::BitBtn17Click(TObject *Sender) //this is the button to save the instance of EVALUATION
{
if(Tag==1 || Tag==3)
{
//=============================================================
AnsiString DniAlum;
AnsiString Ncompetencia;
DniAlum=DBEdit7->Text;
Ncompetencia=DBEdit16->Text;
DataModule3->QueryEjecuciones->Close();
DataModule3->QueryEjecuciones->SQL->Clear();
DataModule3->QueryEjecuciones->SQL->Add("SELECT * FROM AlumCom WHERE Num_CompetenciaA='"+Ncompetencia+"' AND Dni_A='"+DniAlum+"'");
DataModule3->QueryEjecuciones->Open();
DataModule3->AlumCom->Open();
DataModule3->AlumCom->IndexName="ICodAlumCom";
DataModule3->AlumCom->SetKey();
DataModule3->AlumCom->Fields->FieldByName("CodAlumCom")->AsInteger=DataModule3->QueryEjecuciones->Fields->FieldByName("CodAlumCom")->AsInteger;
DataModule3->AlumCom->GotoNearest();
DataModule3->AlumCom->Edit();
DataModule3->AlumCom->Fields->FieldByName("Apto")->AsString=ComboBox1->Text;
DataModule3->AlumCom->Post();
DataModule3->AlumCom->Close();
DataModule3->QueryEjecuciones->Close();
//-----------------------------------------------------------------------
DataModule3->Evaluacion->Fields->FieldByName("Dni")->AsString=DBEdit7->Text;
DataModule3->Evaluacion->Fields->FieldByName("Nombre")->AsString=DBEdit2->Text;
DataModule3->Evaluacion->Fields->FieldByName("Apellidos")->AsString=DBEdit3->Text;
DataModule3->Evaluacion->Fields->FieldByName("Practicas")->AsString=DBComboBox1->Text;
if(DBEdit13->Text=="")
{
DBEdit13->Text="0";
}
DataModule3->Evaluacion->Fields->FieldByName("HorasPracticas")->AsInteger=StrToInt(DBEdit13->Text);
DBImage1->CopyToClipboard();
DBImage7->PasteFromClipboard();
DataModule3->Evaluacion->Fields->FieldByName("Apto")->AsString=ComboBox1->Text;
DataModule3->Evaluacion->Fields->FieldByName("Ncurso")->AsString=DBEdit1->Text;
DataModule3->Evaluacion->Fields->FieldByName("Especialidad")->AsString=DBEdit5->Text;
DataModule3->Evaluacion->Fields->FieldByName("PracticasCur")->AsString=DBComboBox2->Text;
DataModule3->Evaluacion->Fields->FieldByName("FechaIni")->AsDateTime=DBEdit14->Text;
DataModule3->Evaluacion->Fields->FieldByName("FechaFin")->AsDateTime=DBEdit15->Text;
DataModule3->Evaluacion->Fields->FieldByName("NombreCur")->AsString=DBEdit4->Text;
DataModule3->Evaluacion->Fields->FieldByName("Tutor")->AsString=DBEdit6->Text;
if(DBEdit8->Text=="")
{
DBEdit18->Text="0";
}
DataModule3->Evaluacion->Fields->FieldByName("Ano")->AsInteger=StrToInt(DBEdit8->Text);
DataModule3->Evaluacion->Fields->FieldByName("NumCompetencia")->AsInteger=StrToInt(DBEdit16->Text);
DataModule3->Evaluacion->Fields->FieldByName("NomCompetencia")->AsString=DBEdit18->Text;
DataModule3->Evaluacion->Fields->FieldByName("Horas")->AsInteger=StrToInt(DBEdit17->Text);
DataModule3->Evaluacion->Fields->FieldByName("Objetivo")->AsString=DBMemo1->Text;
DataModule3->Evaluacion->Post();
DataModule3->Evaluacion->Close();
Close();
}
else
{
//=============================================================
AnsiString DniAlum;
AnsiString Ncurso;
AnsiString Ncompe;
DniAlum=DBEdit7->Text;
Ncurso=DBEdit1->Text;
Ncompe=DBEdit16->Text;
DataModule3->QueryEjecuciones->Close();
DataModule3->QueryEjecuciones->SQL->Clear();
DataModule3->QueryEjecuciones->SQL->Add("SELECT * FROM AlumCom WHERE Num_CompetenciaA='"+Ncompe+"' AND Dni_A='"+DniAlum+"'");
//DataModule3->Query3->SQL->Add("CodigoMod=");
//DataModule3->Query3->SQL->Add(num1);
//DataModule3->Query3->SQL->Add(" OR CodigoMod=");
//DataModule3->Query3->SQL->Add(num2);
DataModule3->QueryEjecuciones->Open();
DataModule3->AlumCom->Open();
DataModule3->AlumCom->IndexName="";
DataModule3->AlumCom->SetKey();
DataModule3->AlumCom->Fields->FieldByName("CodAlumCom")->AsInteger=DataModule3->QueryEjecuciones->Fields->FieldByName("CodAlumCom")->AsInteger;
DataModule3->AlumCom->GotoNearest();
DataModule3->AlumCom->Edit();
DataModule3->AlumCom->Fields->FieldByName("Apto")->AsString="";
DataModule3->AlumCom->Post();
DataModule3->AlumCom->Close();
DataModule3->QueryEjecuciones->Close();
//-----------------------------------------------------------------------
DataModule3->Evaluacion->Delete();
DataModule3->Evaluacion->Close();
Close();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm14::FormClose(TObject *Sender, TCloseAction &Action)
{
DataModule3->Evaluacion->Cancel();
DataModule3->Evaluacion->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm14::BitBtn10Click(TObject *Sender)
{
ShellExecute(NULL,"open",DBEdit10->Text.c_str(), NULL,NULL, SW_SHOW);
}
//---------------------------------------------------------------------------
void __fastcall TForm14::BitBtn11Click(TObject *Sender)
{
ShellExecute(NULL,"open",DBEdit9->Text.c_str(), NULL,NULL, SW_SHOW);
}
//---------------------------------------------------------------------------
void __fastcall TForm14::BitBtn14Click(TObject *Sender)
{
ShellExecute(NULL,"open",DBEdit11->Text.c_str(), NULL,NULL, SW_SHOW);
}
//---------------------------------------------------------------------------
void __fastcall TForm14::BitBtn15Click(TObject *Sender)
{
ShellExecute(NULL,"open",DBEdit12->Text.c_str(), NULL,NULL, SW_SHOW);
}
//---------------------------------------------------------------------------
void __fastcall TForm14::DBImage2Click(TObject *Sender)
{
Timer1->Enabled=true;
Timer2->Enabled=false;
switch(PageControl1->ActivePageIndex)
{
case 0:
DBImage6->Visible=true;
DBImage6->Picture->Graphic=DBImage2->Picture->Graphic;
break;
case 1:
DBImage6->Visible=true;
DBImage6->Picture->Graphic=DBImage3->Picture->Graphic;
break;
case 2:
DBImage6->Visible=true;
DBImage6->Picture->Graphic=DBImage4->Picture->Graphic;
break;
case 3:
DBImage6->Visible=true;
DBImage6->Picture->Graphic=DBImage5->Picture->Graphic;
break;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm14::Timer1Timer(TObject *Sender)
{
if(DBImage6->Top>311)
{
DBImage6->Top=DBImage6->Top-10;
}
if(DBImage6->Left>292)
{
DBImage6->Left=DBImage6->Left-10;
}
if(DBImage6->Height<407)
{
DBImage6->Height=DBImage6->Height+6;
}
if(DBImage6->Width<497)
{
DBImage6->Width=DBImage6->Width+9;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm14::Timer2Timer(TObject *Sender)
{
if(DBImage6->Top<486)
{
DBImage6->Top=DBImage6->Top+10;
}
if(DBImage6->Left<332)
{
DBImage6->Left=DBImage6->Left+10;
}
if(DBImage6->Height>230)
{
DBImage6->Height=DBImage6->Height-6;
}
if(DBImage6->Width>224)
{
DBImage6->Width=DBImage6->Width-9;
}
else
{
DBImage6->Visible=false;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm14::DBImage6Click(TObject *Sender)
{
Timer2->Enabled=true;
Timer1->Enabled=false;
}
//---------------------------------------------------------------------------