2008-04-27T11:09:00.000-07:00

Pantalla de Ejecución

Funcionamiento del Programa

Lo que hace este programa es que crea una base de datos en un bloq de notas, es decir que lo que el usuario va introduciendo en los textBox, lo va almacenando como registros de un archivo. El archivo se creará en la unidad C del disco duro, de manera que la persona podrá ir a buscar el archivo al disco duro dentro de la unidad C y con el nombre y la extensión introducidos en el espacio respectivo (archivo.dat en la figura de “Pantalla de Ejecución” mostrada anteriormente). Cada línea será un registro, aunque en el bloq de notas podría verse todo en una sóla línea y con símbolos de cuadros que representan los saltos de línea, y no hay ninguna diferencia. El programa permite crear un archivo y luego introducirle datos (registros), los cuales luego pueden ser mostrados, modificados y eliminados. Se presentan igualmente botones de navegación para ir al primer registro de todos, ir al registro anterior, ir al registro siguiente e ir al último registro de todos. A continuación se presenta un diagrama con los nombres de los objetos utilizados, de modo que los programadores puedan ubicar los objetos que se están invocando y utilizando dentro del código que se mostrará más adelante. Los registros pueden abrirse con el bloq de notas de Windows, Microsoft Word, o con cualquier procesador de texto si se les pone extensión .dat. Si se les ponen extensiones inválidas, habrán errores a la hora de querer abrir los archivos creados.

Objetos del Programa

Código del Programa

Los nombres de espacio utilizados son los siguientes:

using namespace System;

using namespace System::ComponentModel;

using namespace System::Collections;

using namespace System::Windows::Forms;

using namespace System::Data;

using namespace System::Drawing;

using namespace System::IO;

using namespace System::Text;

Botón Crear Archivo

private: System::Void button10_Click(System::Object^ sender, System::EventArgs^ e) {//Botón Crear Archivo.

String^ path = String::Concat("c:\\", textBox9->Text);//Concatena "c:\\" con lo que escriba el usuario en el textBox (nombre y extensión del archivo). Se le pone "\\" y no solamente "\" por cuestiones del C++, que con una sóla pleca no lograría direccionar bien...

// Delete the file if it exists.

if ( File::Exists( path ) ){

File::Delete( path );

}

// Create the file.

FileStream^ fs = File::Create( path );

try{

array^info = (gcnew UTF8Encoding( true ))->GetBytes( "" );

// Add some information to the file.

fs->Write( info, 0, info->Length );

}

finally{

if ( fs )

delete (IDisposable^)fs;

}

// Open the stream and read it back.

StreamReader^ sr = File::OpenText( path );

try{

String^ s = "";

while ( s = sr->ReadLine() ){

Console::WriteLine( s );

}

finally{

if ( sr )

delete (IDisposable^)sr;

}

Botón Ir al Primer Registro de Todos

private: System::Void button5_Click(System::Object^ sender, System::EventArgs^ e) {//Botón Ir al Primer Registro de Todos.

//Para que se vaya al primer registro del archivo.

textBox6->Text = "1";//Para con el proceso que se da después, se vaya al primer registro de todo el archivo.

//Primeramente se limpian todos los textBox de los campos para los registros para que no queden valores de procesos o consultas anteriores.

textBox1->Focus();

textBox1->Text = "";

textBox2->Text = "";

textBox3->Text = "";

textBox4->Text = "";

textBox5->Text = "";

// Open the file to read from.

StreamReader^ sr = File::OpenText( path );

try{

String^ s = "";

for (int i = 0; iText); i++){

s = sr->ReadLine();

textBox8->Text = s;//Imprime la línea completa del Notepad, es decir un registro completo.

}

finally{

if ( sr )

delete (IDisposable^)sr;

}

//El textBox8 (que en tiempo de ejecución aparecerá invisible y el usuario no se percatará de su presencia) contiene el registro completo extraído del archivo (que se puede abrir y ver con el Notepad, con Microsoft Word o con cualquier programa que pueda abrir y leer texto.

//El registro completo está en una sola línea. Ahora descomponerlo para ir poniendo cada campo del registro en su respectivo textBox.

char registro[250];//Arreglo tipo Char donde cada elemento del arreglo almacenará un caracter de la línea del registro.

for(int i=0;iText->Length;i++)//For desde cero hasta el número de caracteres del registro menos 1.

registro[i] = textBox8->Text[i];//Cada caracter del textBox8 (predeterminadamente es String) lo va pasando a su respectiva posición en el arreglo Char.

int asterisco[4];//4 asteriscos serán los que habrán en cada línea de registro en el archivo Notepad. Será útil conocer sus posiciones para que sirva al separar cada campo del registro.

int contadorasteriscos = 0;//Irá de 0 a 3 según vaya encontrando cada uno de los 4 asteriscos.

for (int i=0; iText->Length; i++){//For desde cero hasta el número de caracteres del registro menos 1.

if (registro[i]=='*'){//Debido a que irá evaluando caracter por caracter, llegará a encontrar 4 asteriscos en total por cada registro. Debe entrar a este If cuando encuentre un asterisco, pues los asteriscos son los que dividen un campo de otro según se ha programado para el archivo en el Notepad.

asterisco[contadorasteriscos]=i;//Guarda la posición en la que se encontró un asterisco.

contadorasteriscos += 1;//Equivale a escribir "contadorasteriscos = contadorasteriscos + 1;".

}

//asterisco[0] contiene la posición donde se encontró el primer asterisco. asterisco[1] contiene la posición donde se encontró el segundo asterisco. asterisco[2] contiene la posición donde se encontró el tercer asterisco. asterisco[3] contiene la posición donde se encontró el cuarto asterisco.

for (int i=0; i

textBox1->Text += Char::ToString(registro[i]);//Imprime el Carnet luego de la extracción que se hizo del archivo .dat que se puede leer con el Notepad.

for (int i=asterisco[0]+1; i//Se le pone "asterisco[0]+1" porque si solamente se le pusiera "asterisco[0]" entonces tomaría el asterisco, y se pretende que comience desde el caracter posterior al asterisco.

textBox2->Text += Char::ToString(registro[i]);//Imprime los Nombre luego de la extracción que se hizo del archivo .dat que se puede leer con el Notepad.

for (int i=asterisco[1]+1; i//Se le pone "asterisco[1]+1" porque si se solamente se le pusiera "asterisco[1]" entonces tomaría el asterisco, y se pretende que comience desde el caracter posterior al asterisco.

textBox3->Text += Char::ToString(registro[i]);//Imprime los Apellidos luego de la extracción que se hizo del archivo .dat que se puede leer con el Notepad.

for (int i=asterisco[2]+1; i//Se le pone "asterisco[2]+1" porque si solamente se le pusiera "asterisco[2]" entonces tomaría el asterisco, y se pretende que comience desde el caracter posterior al asterisco.

textBox4->Text += Char::ToString(registro[i]);//Imprime el Código de la Carrera luego de la extracción que se hizo del archivo .dat que se puede leer con el Notepad.

for (int i=asterisco[3]+1; iText->Length; i++)//Se le pone "asterisco[3]+1" porque si solamente se le pusiera "asterisco[3]" entonces tomaría el asterisco, y se pretende que comience desde el caracter posterior al asterisco.

textBox5->Text += Char::ToString(registro[i]);//Imprime el CUM luego de la extracción que se hizo del archivo .dat que se puede leer con el Notepad.

//Para determinar el número total de registros y que imprima se vea "Registro x de NUMEROTOTALDERESITROS".

int contador = 0;

//Open the file to read from.

StreamReader^ variable = File::OpenText( path );

try{

String^ otravariable = "";

while ( otravariable = variable->ReadLine() ){

contador += 1;

}

finally{

if ( variable )

delete (IDisposable^)variable;

}

textBox7->Text = Convert::ToString(contador);//Se imprime en el textBox7 el número total de registros que hay.

}

Botón Ir al Registro Anterior

private: System::Void button6_Click(System::Object^ sender, System::EventArgs^ e) {//Botón Ir al Registro Anterior.

//Para que se vaya al registro anterior del archivo.

if (textBox6->Text != "1"){//Si ya estuviera en el registro 1, no existe un registro anterior, entonces no haría ningún cambio, pero cuando esté en un registro diferente de 1, entra al If.

int valor = Convert::ToInt32(textBox6->Text);//Convierte el String que hay en el textBox6 a tipo entero.

int nuevovalor = valor - 1;//Al número de registro actual se le resta 1 (y se almacena en la variable "nuevovalor") para irse al registro anterior.

textBox6->Text = String::Format("{0}",nuevovalor);//El número resultante almacenado en la variable "nuevovalor" se convierte de su tipo entero (int) a String, para poder imprimirlo en el textBox6 y así que con lo que se programa posteriormente, el usuario pueda visualizar el registro anterior del archivo con el que se está trabajando.