Ayuda a crear Cliente - Servidor

[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

[[AzidRain]]

Abundo en mi opinión y ya sabiendo que también vives en México te aporto lo siguiente:

En primer lugar en nuestro país gozamos de algo que ya quisieran en muchos otros lados del mundo y de nuestra latinomérica: libertad para hacer, aprender o dedicarnos a lo que se nos pegue nuestra real y regalada gana sin que un militarsucho o un dictadorcillo nos venga a decir que podemos y que no podemos hacer, ergo, ahí tienes tu primera ventaja: puedes aprender a hacer cualquier cosa con la información que tienes a tu alcance (conozco a un vendedor de tacos sudados allá en el DF que aprendió a hacerlos...usando youtube!!!!)

Segundo. Es muy cierto tu punto respecto a que hay que aprender de todo lo posible porque ya en estos tiempos no basta ser experto en una disciplina, hablando de cuestiones de sistemas y demás. Sin embargo, lo que yo si quiero que tengas en cuenta es que aunque tengas las ganas y el empuje para apreder algo, estás pensando en el resultado y los beneficios a obtener antes siquiera de dar el primer teclazo. Podrás ser muy hábil aprendiendo y tener muy claro tu objetivo, no lo se quizá tengas una gran idea que te pueda dejar beneficios pero ahorita no tienes el know-how para concretarla. Un beneficio de este negocio es que inviertes poco dinero pero si que se requiere tiempo.

Entonces, tienes que ser realista y aprender desde la base, no se trata de armar algo, medio entender como le hiciste y porque funciona así, perder tiempo en consultas o buscando respuestas a temas a los que no les dedicaste el tiempo necesario les tendrás que dedicar el doble. Al final quizá logres tu objetivo pero no es lo mismo un software conceptualizado a un software comercializable y mucho menos ya en producción.

Concluyo con un bonito cuento que me platicaba mi fallecida madre: "¿Tu sabes por que los nidos de golondrina solo son construidos a la mitad y la otra mitad queda pegada a un muro o algo similar? Resulta que la golondrina en un principio no sabia hacer nidos, por lo que cuando tuvo la necesidad empezó a preguntar a todos los demás pájaros que se encontraba: algunos le decían que con ramitas secas, otros que con hierba ensalivada, otros más que había que tejer y así todos tenían una diferente opinión. Muchos le enseñaban como irlo haciendo pero la golondrina tenía demasiada prisa por terminar lo que quería y siempre terminaba por decirles..."sí, sí, ya vi como lo haces...yo sigo sola" para que al poco tiempo se diera cuenta de que no le quedaba...así paso el tiempo hasta que ya nadie quería ayudarle...en ese momento su nido ya estaba a la mitad pero nunca pudo terminarlo pues no pudo aprender por su cuenta más de lo que ya los demás pájaros le habían enseñado...por lo que tuvo que pegar su nido en paredes, troncos y similares...y no como el resto de las aves que lo fabrican en ramas y copas de los árboles."