Ayuda a crear Cliente - Servidor

[Casimiro Noteví]

Hola, bienvenido, creo que deberías de empezar primero por aquí y luego por aquí.
Saludos.

[[AzidRain]]

Con todo respeto y sin querer ofender a nuestro amigo, que su luchita ya la está haciendo. Se trata se trata de un proyecto de universidad, bien. El proyecto que se te pide es para que lo razones, diseñes y elabores tu mismo y con eso se califique tu capacidad en la materia que sea. Estoy de acuerdo con que ahora el internet es la biblioteca del nuevo universitario pero...una cosa es consultar y otra muy diferente es esperar que otros te digan como solucionar algo que tu mismo no puedes hacer...por lo tanto no tienes la capacidad para aprobar la materia de que se trate. ¿Quien contrataría a un ingeniero que no puede elaborar un proyecto desde cero por sí mismo y tiene que recurrir a otros para que le digan por donde o como? En tu pregunta no planteas ni una sola propuesta de como piensas hacerlo, no expones un proyecto al que se le pueda aportar algo, simplemente es un clásico "¿Como le hago para hacer esto que me pidieron?". Da pena ver que las nuevas generaciones en las universidades cada vez más recurren a foros, chats y otras cosas para que les digan que tienen que hacer. Las comunidades en línea son para presentar conocimiento, resolver dudas pequeñas con opiniones de alguien que ya pasó por ahí, pero de ninguna manera pueden ni deben convertirse en la fábrica de ineptos (ojo, no digo que tu lo seas) y "copy-pasters". Es como querer hacer una tesis sin escribir un solo párrafo de la opinión propia sino solo armándola con pedazos de lo que ya otros hicieron y no a modo de cita sino de vil plagio.

[joseph183]

Hola muy buenas noches, Sr. [AzidRain], usted tiene razón en sus palabras, que dice solo como comentario y se lo agradezco de antemano, y digo no es un proyecto de universidad, si no un proyecto mío en lo personal, además le comento que en la universidad no nos enseñaron Delphi, siempre Netbeans y hasta ahi quizás por el tipo de modalidad que llevo ya que por suerte, trabajo y estudio y la mediocridad del trabajo con altas horas, poca plata, al ser un sustento de familia me es delimitado tiempo de estudiar, mas sin embargo trato de superarme y superar mis expectativas hacia un nuevo futuro, y Delphi lo vi a un profesor y la verdad me llamo la atención, y pues vera usted sin que me enseñen siquiera he visto la amanera de aprender algo de código y quiero aprender mas, por que en esta vida no nada mas te da de comer una sola cosa tienes que pelear para sobrevivir en esta jungla asfáltica, y fue por eso que recurrí a este sito, vera no me siento ofendido es mas me siento agradecido por que debo de esforzarme día a día para lograr metas y agradezco al moderador por darme un buen libro para empezar gracias y espero no haberle causado molestias.,
y por cierto vivo en Mexico donde el corrupto, politico se engolosina dejando al humilde morirse de hambre y el esquema educativo es una basura y así los que queremos salir adelante tenemos todo en contra pero mas sin embargo no nos damos por vencido,

[Casimiro Noteví]

Empezado por joseph183

y por cierto vivo en Mexico donde el corrupto, politico se engolosina dejando al humilde morirse de hambre y el esquema educativo es una basura y así los que queremos salir adelante tenemos todo en contra pero mas sin embargo no nos damos por vencido,

Por desgracia, eso ocurre en todos sitios, aquí en España también existe una corrupción terrible por parte de los políticos gobernantes.
Como bien dices, AzidRain, te ha hecho ese comentario para ayudarte, aunque suene un poco duro.
Yo te aconsejo que antes de hacer nada, te leas el libro que te he indicado, te abrirá la mente y verás las cosas de otra forma. Luego verás que tienes las ideas mucho más claras para realizar tu proyecto.
Te pongo un ejemplo/analogía: imagina que quieres construir una casa y no tienes ni idea ¿qué haces?: 1. Te pones a poner ladrillos de cualquier forma. 2. Estudias y te informas de cómo se hace una casa.
Seguro que optas por la opción 2. Primero te informas y luego ya puedes decidir cómo hacer la casa. Habrás aprendido varios métodos, cada uno con sus virtudes y problemas. Habrás hablado o leido de diferentes especialistas y finalmente con toda esa información, tomas una decisión.
Pues aquí es igual, primero lee ese libro, creo que es primordial para lo que quieres hacer porque es Delphi enfocado a Bases de datos, justo lo que necesitas. Además está escrito de una forma muy amena y entretenida, con ejemplos fáciles de entender. Luego decides.
Saludos.

[joseph183]

Holaaaa gracias por el comentario y pues quizás no me explique pero pues ahi dando batalla a nuestro Delphi y me ha encantado ya creo que he mejorado un 1.5% de 0.000089% que sabia de Dlphi solo el nombre jejeje ya practicando se aprende uno bastante te comento que hice se un tipo servidor donde se abre a pantalla completa, y pues con combobox seleccionas lo que quieras y muestra en un dbgrid al igual buscas por fechas he usado, dos DataTimePker para establecer de fecha a fecha final y que dependa del combobox ejemplo un reporte de cuentas, seleccionado en un combobox muestra en el dbgrid y a su vez buscar el por fechas depende del combox y buscar por partida o clave depende del cobmbox y al igual puedes dar alta de producto y baja le he puesto que si en el edit va números debe de ir numero deshabilita parte del teclado y solo deja activo el numérico puedes igual sacar reportes de cada venta global y estoy en eso por sectores y la impresión que lleve el dbgrid con estilo de cabecera y el logo de la empresa también su pie de pagina con hora y fecha y numero de pagina, y el cliente que es el que me ha quedado algo de dudas me gustaría que me ayudase a resolverlas
en otro equipo puse el cliente y de prueba sin pass ni nada conecta al 100% uso ADOConnection y busco la base en este caso en acces 2016 en el servidor que es una netbook conectado via wifi y funciona de maravilla lo digo por que le puse un Caption y un Mensaje de Felicidades se estableció la conexión,

Ahora esto es lo bueno el cliente, en si que es una pc teóricamente estoy haciendo el Form que se ejecute automáticamente al iniciar el equipo y que no deje ni minimizar ni usar el botón inicio ni el ctrl+alt+supr solo se pueda acceder usando su matricula y su contraseña, y cuando lo haga se oculte o se cierre y solo parezca un form pequeño donde parezca su nombre sus apellidos su estatus admin o vendedor equipo que usa y fecha y hora y que esos se esta mostrando pero esos datos ya se guardaron en una base de datos y al final cuando salga o le de clic al botón salir se regrese el form 1 de bloqueo y su hora de salida se registre igualmente así que es el fin que trato de llegar el servidor queda funcionando al 100%

mi duda, como deshabilito el botón de inicio, y el ctrl+alt+supr y traer el nombre ya que sis se puede traer el nombre del usuario puedo traer de ahi mismo lo que quiero y guardarlos tengo la idea es solo traerlos de la base llamada usuarios y que al salir solamente guarde la hora de salida

ejemplo: dbguardaaccesos
nombre apellido matricula status equipo fecha hora/entrada hora/salida
pepito de los cuentos 564518 vendedor base01 17/12/2049 24:56:45

ahora esto se guarde en la base y ya solo al salir guarde la hora de salida

[joseph183]

justamente le puse esto para el loggueo y funciona de maravilla
procedure TForm6.Button1Click(Sender: TObject);
var
consulta : string;
begin
consulta := '';
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
if Edit1.Text = '' then
begin
ShowMessage('Digite su Matricula por favor');
Edit1.SetFocus;
exit;
end
else if Edit2.Text = '' then
begin
ShowMessage('Digite su contraseña por favor ');
Edit2.SetFocus;
exit;
end
else
consulta := 'SELECT * FROM usuarios where matricula='+Edit1.Text+' and clave='+CHR(39)+Edit2.Text+CHR(39)+'';
ADOQuery1.SQL.Add(consulta);
ADOQuery1.Open;
if ADOQuery1.Eof then
begin
Application.MessageBox('Usuario No Encontrado ó Contraseña Incorrecto favor de verificar ','Aviso ',MB_OK + MB_ICONerror);
Edit1.Clear;
Edit2.Clear;
Edit1.SetFocus;
exit;
end
else
begin
//aquí borro datos de los edit usados
Edit1.Clear;
Edit2.Clear;
ShowMessage('Felicidades usuario, en breve serás redirigido al escritorio de Windows...');
//aquí muestra el segundo form donde aparecerán en otro form datos en puros Tlabel
Form7.ShowModal;
//aquí cierra el form de loggue
Form6.Close;
end;
end;

pero no lo cierra ni lo oculta ya use hide y nada el form en sus propiedades puse, bordeStyle bsNone, le deshabilite el minimizar maximizar en Windowstate puse wsMaximized y no mas nada no lo oculta
ahora en el form 7 esto le he puesto
procedure TForm7.Button1Click(Sender: TObject);
begin
Form7.Close;
Form6.ShowModal;
end;

procedure TForm7.FormActivate(Sender: TObject);
begin
aquí leo en un txt bueno le puse formato para que no lo modificaran en un memo directamente a un label
Memo1.Lines.LoadFromFile('C:\win_PC99.jav');
Label10.Caption:=Memo1.Lines[0];
//Memo1.Lines.LoadFromFile('C:\win_PC99.jav');
//Label6.Caption:=Memo1.Lines[1];
end;

procedure TForm7.FormCreate(Sender: TObject);
begin
// aquí quiero mostrar la consulta del usuario logueado y estos mismos valores guardalos a la base de datos
//Label5.Caption:=DBGrid1.DataSource.DataSet.FieldByName('nombre').AsString;
//Label6.Caption:=DBGrid1.DataSource.DataSet.FieldByName('status').AsString;
end;

procedure TForm7.Timer1Timer(Sender: TObject);
begin
//aquí muestro la fecha y las horas
Label14.caption:=timetostr(time);
Label12.caption:=datetostr(date);
end;

end.

al momento funciona todo de maravilla pero no se traer los valores de la consulta ni poder ocultar el form del loggin y que se vuelva a bloquear la pantalla, ni bloquear el botón inicio o el del admin alguna idea

[Casimiro Noteví]

Veo que no has leido esto ni has tenido en cuenta esto:

Recuerda poner los tags al código fuente, ejemplo:



Gracias por tu colaboración