FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Programade administracion
Hola a todos es mi primera ves en este foro.
Les cuento tengo que hacer un programa chiquito y me quede trabado. La consigna es la siguiente: (en vez de las figuras adjunto archivo con lo que hice) Administrar la cuenta corriente de un grupo de clientes de una empresa. Se deben cargar los datos de los clientes, estos son: 1.Apellido 2.Nombre 3.Teléfono. 4.E-mail. 5.Fecha de nacimiento: Día, mes y año 6.Saldo.- Descripción de Figura 1 La pantalla principal contara con una grilla de 4 columnas, en la primera estarán juntos Apellido y nombres, 2da. Saldo, 3ra. Teléfono y 4ta. Edad, se calcula con la fecha de nacimiento y la fecha actual.- Además se podrá ingresar el nombre de un contacto y deberá buscarlo en la lista.- Esta deberá estar ordenada por Apellido y Nombre. En la parte inferior tenemos 4 botones. Agregar, Ver/Editar y Eliminar que llamaran a un segundo formulario (Fig. 3) para realizar las acciones que sus nombres indican. Salir: guarda los datos en el archivo y sale de la aplicación. Descripción de Figura 2 Deberá tener las siguientes opciones en el menú: Archivo
Descripción de Figura 3 Deberá tener los siguientes Botones: Cancelar
|
#2
|
||||
|
||||
Y en sintesis cual es tu problema?, en que te quedaste trabado?
Saludos
__________________
Si robas, roba un beso, si mientes que sea por amor y si engañas que sea a la muerte!! |
#3
|
|||
|
|||
Hola Alfredo te respondi al mail de tu contacto si me ayudas te lo voy agradecer mucho ya que es muy importante terminar este trabajo.
Saludos Martin |
#4
|
||||
|
||||
Hola Martín, creo que lo primero que deberías hacer es revisar la Guía de estilo de los foros.
En segundo lugar, comentarte que (al menos yo) no veo ninguna de las immágenes que has puesto. En tercer lugar, ya que has empezado el hilo en estos foros y hay quien te ha contestado, creo que deberías continuarlo aquí; Más que nada, porque esto son unos foros y no una "página de contactos". Si alguien posteriormente tiene la misma (o similar) duda, le gustará encontrar una respuesta y no el hilo tal y como está ahora. Igualmente otras personas del foro podrán aportarte sus opiniones, ideas y/o comentarios. Un saludo.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#5
|
||||
|
||||
Efectivamente Neftali tienes razon
Con respecto a este tema comentare lo sigiente: Martin no estaba usando base de datos y yo le recomende que lo hiciera Luego le explique como hacer para trabajar con tablas y grids para que la informacion se viera reflejada. Seguidamente agregue un par de eventos para el manejo del alias de la base: Este crea el alias o lo modifica si hace falta ademas configura la sesion
Y la insercion de registros en la tabla: desde el form2
Espero haber ilustrado un poco la situcion Saludos
__________________
Si robas, roba un beso, si mientes que sea por amor y si engañas que sea a la muerte!! |
#6
|
|||
|
|||
Respuesta PROGRAMA DE ADMINISTRACION
Hola a todos antes que nada pido disculpas pero es que soy nuevo en lo que refiere a foros, programacion DELPHI y vincularme de esta manera con la gente no asi con la pcs que hace mucho que estoy en esto.
No respondi antes porque estaba muy ocupado tratando de hacer este trabajo ya que lo tenia que presentar para la facu. Agradesco a Afunez2007 que me dio una mano muy grande en la puesta a punto del programa, lamentablemente no lo pude presentar asi por la forma en que exigian que lo presente. Asi que presente lo que tenia echo hasta el momento. Quiero destacar y resaltar la ayuda desinteresada y RAPIDA que recibi por medio de este foro y epero mas adelante hacer aportes de mas valor. Por ahora y si les sirve aca les envio el codigo que hice (no esta completo). Saludos! |
#7
|
|||
|
|||
Respuesta programa de administracion
El programa consta de dos Units
Unit 1: Codigo unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls, Menus, cliente; type TForm1 = class(TForm) MainMenu1: TMainMenu; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; Archivo1: TMenuItem; Abrir1: TMenuItem; Guardar1: TMenuItem; Salir1: TMenuItem; Buscar: TButton; Salir: TButton; Agregar: TButton; verEditar: TButton; Eliminar: TButton; Label1: TLabel; Edit1: TEdit; StringGrid1: TStringGrid; Label13: TLabel; procedure Abrir1Click(Sender: TObject); procedure Guardar1Click(Sender: TObject); procedure Salir1Click(Sender: TObject); procedure BuscarClick(Sender: TObject); procedure SalirClick(Sender: TObject); procedure AgregarClick(Sender: TObject); procedure EliminarClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure StringGrid1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Form2: TForm2; nu : TManejoSocios; nombreArchivo : String; buscarSocio : boolean; eliminarSocio : boolean; numeroDeRegistro : integer; volver : boolean; implementation {$R *.dfm} procedure TForm1.Abrir1Click(Sender: TObject); var cod : byte; var nomarchivo : string; begin nu := TManejoSocios.Create; OpenDialog1.Execute; nomarchivo:=form1.OpenDialog1.FileName; if nomarchivo = '' then begin exit end else begin {$I-} nu.AbrirArchivo(nomarchivo); {$I+} cod := IOResult; if cod=0 then begin form1.Label13.Caption := '00'; nombreArchivo := nomarchivo; end else begin exit end end; end; procedure TForm1.Guardar1Click(Sender: TObject); var nombreNuevo : string; begin Form1.SaveDialog1.Execute ; nombreNuevo:= Form1.SaveDialog1.FileName; if nombreNuevo = '' then begin showMessage('No se guardo con otro nombre'); exit; end else begin if nombreArchivo = '' then begin ShowMessage('No hay archivo abierto para copiar.'); end else begin nu.GuardarComo(nombreArchivo, nombreNuevo); end; end; end; procedure TForm1.Salir1Click(Sender: TObject); begin form1.Close; end; procedure TForm1.BuscarClick(Sender: TObject); begin if Form1.Label13.Caption = '00' then begin buscarSocio:= true; form1.Buscar.Enabled := true; ShowMessage('Ingrese el numero de NOMBRE en el campo NOMBRE y preciones el boton Aceptar.'); exit; end else begin ShowMessage('Primero hay que abrir el archivo'); //cod:= 1; end; end; procedure TForm1.SalirClick(Sender: TObject); begin if form1.Label13.Caption = '' then begin ShowMessage('No se puede cerrar el archivo porque no esta abierto.'); end else begin nu.CerrarArchivo ; form1.Label13.Caption := ''; nombreArchivo := ''; end; end; procedure TForm1.AgregarClick(Sender: TObject); begin Form2 := TForm2.Create(nil); Try Form2.ShowModal; Finally FreeAndNil(Form2); End; end; procedure TForm1.EliminarClick(Sender: TObject); begin if Form1.Label13.Caption = '00' then begin form2.Edit2.Enabled := false; form2.Edit3.Enabled := false; form2.Edit4.Enabled := false; form2.Edit5.Enabled := false; form2.Edit6.Enabled := false; ShowMessage('Precione el boton Eliminar y el Cliente sera eliminado.'); eliminarSocio := true; //habilitamos el boton. form1.Eliminar.Enabled := true; end else begin ShowMessage('Primero hay que abrir el archivo'); end; end; procedure TForm1.FormCreate(Sender: TObject); begin with StringGrid1 do begin // Título de las columnas Cells[0, 0] := 'APELLIDO NOMBRES'; Cells[1, 0] := 'SALDO'; Cells[2, 0] := 'TELEFONO'; Cells[3, 0] := 'EDAD'; end; end; procedure TForm1.StringGrid1Click(Sender: TObject); begin with StringGrid1 do begin // Título de las columnas Cells[0, 0] := 'APELLIDO NOMBRES'; Cells[1, 0] := 'SALDO'; Cells[2, 0] := 'TELEFONO'; Cells[3, 0] := 'EDAD'; end; end; end. |
#8
|
|||
|
|||
Respuesta programa de Administracion
Unit2 se llama cliente
Última edición por Neftali [Germán.Estévez] fecha: 16-12-2009 a las 09:19:58. Razón: Añadir etiquetas delphi |
#9
|
|||
|
|||
Respuesta Programa de Administracion
Aca envio las captura de pantalla del Form1 que pertecene a la Unit1
Dentro del MainMenu Archivo contiene las opciones Abrir y Guardar (ver imagen) y el form2 que pertenece a la unit Cliente (ver imagen) Si no les llego las imagenes avisen no las pude pasar por aca porque dice que no tengo todavia esa autorizacion |
#10
|
||||
|
||||
Cita:
Cuando añadas código delphi utiliza los TAG's verás que se lee mucho mejor (arriba ya te los he añadido yo). En cuanto a las imágenes, todavía no tienes permiso para añadirlas ya que eres nuevo en los foros. Puedes enviarme un privado con los links y yo te modifico el mensaje.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Administración remota!! | acertij022 | Varios | 8 | 11-10-2006 21:33:18 |
Administracion Interbase 7 | Rabata | Conexión con bases de datos | 1 | 13-10-2004 15:19:46 |
Administracion de Versiones | JorgeBec | Varios | 2 | 10-09-2004 11:28:32 |
Administracion remota | buitrago | Varios | 6 | 27-07-2004 19:57:12 |
Ayuda con administracion de archivos | Waldo | API de Windows | 1 | 09-07-2004 19:18:12 |
|