¿Cómo utilizar Delphi para vincular el nombre de usuario y la contraseña de la interfaz de inicio de sesión a la base de datos?

El siguiente contenido es solo de referencia

Pasos:

1. Cree un nuevo formulario y coloque la tabla que se muestra arriba en el formulario.

2. Conéctese a la base de datos. Seleccione la configuración ADOQuery1, haga clic en los puntos suspensivos en el lado derecho de la propiedad ConnectionString a la izquierda, haga clic en "Compilar" en el cuadro de diálogo emergente y luego seleccione Microsoft?OLE?DB?Provider?for?SQL?Sever en el cuadro de diálogo emergente, haga clic en Haga clic en "Siguiente", seleccione "Usar configuración de seguridad heredada de Windows NT" en la nueva ventana emergente (por supuesto, si su instalación de SQL tiene un nombre de usuario y contraseña, seleccione el siguiente) y luego despliegue la base de datos en el servidor Seleccione la base de datos a la que desea conectarse en el cuadro y confirme completamente. Otras opciones pueden ignorarse por ahora.

3. Escribir código. Haz doble clic en "Iniciar sesión" y escribe el siguiente código

procedure?TForm1.BitBtn1Click(Sender:?TObject);

comenzar a probar

con?adoquery1? hacer

comenzar a cerrar; sql.clear; sql.add('select?*?from?user_masterwhere nombre de usuario=:a y contraseña=:b y permiso=:c'); 'a'). Valor:= trim(combobox1.Text); parámetros.ParamByName('b').Valor:=trim(edit1.Text); if?combobox1.Text?=''?entonces

Iniciar MessageBox( 'Ingrese el nombre de usuario', 'Información solicitada', 64 combobox1.SetFocus; salir;

end;edit1.Text?=''?SetFocus;

fin; if?radiobutton1.Checked=true?then

comenzar Quanxian:='1';

end; if?radiobutton2.Checked=true?then

begin Quanxian:='0';

end; parámetros.ParamByName('parámetro').

ParamByName('c').Value:=trim(quanxian); open; end; if?adoquery1.RecordCount<>0?then

comenzar Nombre de usuario:= combobox1.Text Contraseña:=edit1.Text ; application.MessageBox('Inicio de sesión exitoso','Mensaje recordatorio',64); form2.display; self.Hide;

end else

application.MessageBox('Nombre de usuario incorrecto o contraseña ingresada','Mensaje rápido',64); excepto

application.MessageBox('Error de inicio de sesión','Mensaje rápido',64);

end; >4 Para permitir que el archivo de la base de datos se adjunte automáticamente al servidor SQL cuando el usuario use el sistema de administración por primera vez, puede hacer doble clic en la parte en blanco del formulario y agregar el siguiente código:

procedimiento?TForm1.FormCreate (Remitente:?TObject);

var

ADOCommand:TADOCommand;

s,DataPath?:?string;

comenzar

adoConnection1 :=TADOConnection.Create(nil);

adoConnection1.ConnectionString:='Provider=SQLOLEDB;Integrated?Security=SSPI;¿Persistir? Security?Info=False;Initial?Catalog=library';

adoConnection1.LoginPrompt:=false;

tryadoConnection1.Connected:=true;

excepto ADOCommand :=TADOCommand.Create(nil); ADOCommand.ConnectionString:='Provider =SQLOLEDB.1;Integrated?Security=SSPI;Persist?Security?Info=False'; 'EXEC?sp_attach_db?@dbname?=?N'+char(39 )+'biblioteca'+char(39)+','+

'@filename1?=?N'+char(39 )+DataPath+'library_Data.MDF'+char(39)+ ', '+'@nombredearchivo2?=?N'+char(39)+DataPath+'library_Log.LDF'+char(39); ?s; ADOCommand .Ejecutar();

fin;

fin;