var
LoginForm1: TLoginForm1;
implementation
uses
admin_main;
{$R *.dfm}
procedure TLoginForm1.Button1Click(Sender: TObject);
begin
with Query1 do
begin
Close;
SQL.Clear;
SQL.Add('select password,quanxian from login_user ');
SQL.Add('where username=:name');
ParamByName('name').Value:=Edit1.Text;
Open;
if FieldByName('password').Value<>null then
begin
if fieldbyname('password').Value=https://bbs.csdn.net/topics/Edit2.Text then
begin
if FieldByName('quanxian').Value='https://bbs.csdn.net/topics/admin' then
begin
LoginForm1.Hide;
adminMainForm1.Show;
end
else ShowMessage('學生登錄');
end
else ShowMessage('密碼錯誤');
end
else ShowMessage('用戶不存在');
end;
end;
執行show方法就會出現下面的錯誤，我百度了說設定性能那啥就可以，但是我嘗試過了并沒有解決問題，只能來求助了
uj5u.com熱心網友回復：
adminMainForm1沒建立吧，uj5u.com熱心網友回復：
有的，在同一個目錄下uj5u.com熱心網友回復：
我參考了那個表單的單元檔案，自動提示里有這個。uj5u.com熱心網友回復：
到adminMainForm1里面去跟蹤看一下問題出在哪uj5u.com熱心網友回復：
光參考不行啊，你還得建立form的實體：adminMainForm1 := TadminMainForm1.Create(Application);uj5u.com熱心網友回復：
問題解決了，感謝
uj5u.com熱心網友回復：
是的表單本身存在的前提下,才能show操作。表單的存在，有二種方式，一是工程創建時創建。二是動態創建。二者取一即可。
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/63125.html
標籤：語言基礎/算法/系統設計
上一篇：firedac傳參NULL值問題
下一篇：Delphi tts