Part of the code:
Procedure TForm1. Button1Click (Sender: TObject);
The begin
The begin
If edit1. Text=datamodule1. ADsid. Lookup (' name 'combobox1. Text, "password") then
The begin
The main. The Show;
Form1. Visible:=false;
End
The else
Showmessage (' sorry, you input the wrong password! ');
end;
CodePudding user response:
To create datamodule1 firstCodePudding user response:
Single step debugging, see which objects are not createdCodePudding user response:
Why does it have to be like this login form? Why is not in the main program file make a change? Displays login forms in according to the main form first and I'll see you this should be the first display main form the landing (form) and then display other forms (main interface),
CodePudding user response:
Datamodule1. ADsid. Lookup (' name 'combobox1. Text, "password") has a problemThe correct database may have no link, of course