|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - victorivan
Páginas: [1]
1
« en: Martes 28 de Diciembre de 2010, 13:55 »
Me falto,
para que el ejemplo te funcione OK.
1.- Crea una funcion principal.
2.- Ejecuta el Database Form Wizard
( esto crea una forma segundaria con lo requerido "no es la unica forma, hay otras alternativas")
3. Verifica tus Include.
Estas OK, para compilar/ejecutar.
*** Si no pasas por el paso 1, no aparece la activado el boton ejecutar ***
Att,
2
« en: Martes 28 de Diciembre de 2010, 13:42 »
Estomadi,
debes trabajar con maestro/detalle, la idea es que tengas a lo menos un campo comun en las bases.
Si no te complica, enviame las dos bases para ver tu campos y te envio los detalles y quisas un
pequeño ejemplo de tus datos.
Att,
3
« en: Martes 21 de Diciembre de 2010, 19:10 »
Ana_22
No es normal realizar una exportación desde un DBGrid, pero si funciona.
Te adjunto un pequeño programa que te indica, un metodo para realizar esta exportación,
Existen unos archivos .H, estas son librerias de aglunas funciones que recopile y separa por
funciones, para que no te compliques, sigue solo la modulos que llamo y entenderas.
Lo primero que debes realizar, es asignar una DB y Tabla al Table1, y claro activar dicha tabla, luego
ejecutas.
Suerte... me comentas
Att,
Victo
4
« en: Lunes 20 de Diciembre de 2010, 18:24 »
Una Alternativa a lo yo entendi de tu problema podria ser esta, que ZOOM de tu forma,
esta dimensiona todo los controles según aumenten o disminuya su tamaño.
Este tema fue discutido y chequeado en otro foro y funciona perfectamente.
Prueba y me cuentas.
#include<memory>
#include <Inifiles.hpp>
void __fastcall RegistrarControles(TWinControl *F);
void __fastcall AcomodarControles(TWinControl *F);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
RegistrarControles(this);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormResize(TObject *Sender)
{
AcomodarControles(this);
}
//---------------------------------------------------------------------------
// FUNCION
//---------------------------------------------------------------------------
void __fastcall RegistrarControles(TWinControl *F)
{
//
// Funcion registrada para realizar zoom in-out
//
AnsiString asResize = ExtractFilePath(Application->ExeName) +
F->Name.Trim()+".ini";
std::auto_ptr<TIniFile> pIni(new TIniFile(asResize));
TControl *pControl;
float ccLeft,ccHeight,ccTop,ccWidth;
for(int control = 0; control <F->ComponentCount; control++)
{
Application->ProcessMessages();
if (F->Components[control]->InheritsFrom(__classid(TControl)))
{
Application->ProcessMessages();
pControl = dynamic_cast<TControl*>(F->Components[control]);
// sacamos los porcentajes
ccTop = ( pControl->Top * 100 ) / F->Height;
ccLeft = ( pControl->Left * 100 ) / F->Width;
ccHeight = ( pControl->Height * 100 ) / F->Height;
ccWidth = ( pControl->Width * 100 ) / F->Width;
// grabamos en Archivo de Configuracion
pIni->WriteFloat(pControl->Name,"Top",ccTop) ;
pIni->WriteFloat(pControl->Name,"Left",ccLeft) ;
pIni->WriteFloat(pControl->Name,"Width",ccWidth) ;
pIni->WriteFloat(pControl->Name,"Height",ccHeight) ;
}
}
pIni->UpdateFile();
}
//---------------------------------------------------------------------------
void __fastcall AcomodarControles(TWinControl *F)
{
//
// Funcion registrada para realizar zoom in-out
//
AnsiString asResize = ExtractFilePath(Application->ExeName) +
F->Name.Trim()+".ini";
std::auto_ptr<TIniFile> pIni(new TIniFile(asResize));
TControl *pControl;
float ccLeft,ccHeight,ccTop,ccWidth;
for(int control = 0; control <F->ComponentCount; control++)
{
if (F->Components[control]->InheritsFrom(__classid(TControl)))
{
Application->ProcessMessages();
pControl = dynamic_cast<TControl*>(F->Components[control]);
// recuperamos los porcenajes en relacion al form
ccTop = pIni->ReadFloat(pControl->Name,"Top",ccTop);
ccLeft = pIni->ReadFloat(pControl->Name,"Left",ccLeft) ;
ccWidth = pIni->ReadFloat(pControl->Name,"Width",ccWidth) ;
ccHeight= pIni->ReadFloat(pControl->Name,"Height",ccHeight) ;
pControl->Left = (ccLeft * F->Width) / 100 ;
pControl->Top = (ccTop * F->Height) / 100 ;
pControl->ClientWidth = (ccWidth * F->Width) / 100 ;
pControl->ClientHeight = (ccHeight * F->Height) / 100 ;
}
}
}
//---------------------------------------------------------------------------
5
« en: Lunes 20 de Diciembre de 2010, 16:47 »
Hola,
No entiendo bien lo que pretendes en los botones 1 al 4, pero lo de cargar memo puedes poner:
Table1->FieldDefList->FieldDesfs[Numero Campo]->Name + " : " + Table1->Fields->Fields[Numero Campo]->Value
Esto te entrega el nombre del campo más el dato de ese campo.
Verifica si es lo que necesitas y me comentas.
Att,
6
« en: Sábado 18 de Diciembre de 2010, 14:14 »
Hola,
No entiendo bien tu pregunta, si lo que quieres es que tenga valores predefinidos, debes ingresar en tiempo de diseño:
COMBOBOX1 la alternativa ITEMS, las lines que quieres que se muestre.
OJO: No olvidar la instruccion: Key = 0, para que no entregue errores en la selección.
Otra alternativa es en programación ( diseño ):
ComboBox1->Items->Add(Const AnsiString);
Generalmente esta esta entre algun while o for, para controlar que y la cantidad de datos.
Ejemplo:
while ( !Table1->Eof )
{
ComboBox1->Items->Add(Table1->FieldByName(CAMPO_PARA_COMBO)->Value) ;
Table1->Next() ;
}
Me comentas si es algo distinto lo que buscar...
Att,
VRodriguez
}
7
« en: Miércoles 8 de Diciembre de 2010, 01:51 »
ana-22, solucionastes tu problema de exportar de:
DBGRID A EXCEL
Si no es asi,me comentas para enviartealguna solucion.
Att
Victor
Páginas: [1]
|
|
|
Mostrar Mensajes
