，求指教！
2,498
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
CCDDzclxy 2013-09-04
- 打赏
- 举报
image 没有任何代码？
那你 在 BitBtn1 里面 Image.show; 又把 TLogIn给hide 了。
那么你的“第二次运行就出错了”是个什么意思？是指 第二次点击 BitBtn1 ？还是指 第一次程序运行后，把程序关闭，然后第二次运行程序？？
ivemoxmo 2013-09-03
- 打赏
- 举报
image是一个新建Form,没有任何代码。
CCDDzclxy 2013-09-03
- 打赏
- 举报
Image 里面是不是把自己释放掉了啊？？
Image 里面的关闭页面代码是咋样的？
ivemoxmo 2013-09-03
- 打赏
- 举报
没错，我怀疑是没有释放内存，但又不知哪里错了
msfm 2013-09-03
- 打赏
- 举报
begin
if Image=nil then
Image：=TStartImage。craete（self）;
Image.show;
self.hide;
end;
关了运行第二次报错？
ivemoxmo 2013-09-03
- 打赏
- 举报
源码是这样的，第一次运行没问题，，第二次运行就出错了
unit Log_In;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls, Buttons;
type
TLogIn = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
LogIn: TLogIn;
implementation
uses StartImage;
{$R *.dfm}
procedure TLogIn.BitBtn1Click(Sender: TObject);
begin
ADOQuery1.close;
ADOQuery1.sql.clear;
ADOQuery1.sql.add('select * from Login where username='''+edit1.text+''' and password='''+edit2.text+'''');
ADOQuery1.open;
if ADOQuery1.RecordCount=0 then
begin
showmessage('输入的用户名或密码不正确！');
end
else
begin
Image.show;
self.hide;
end;
end;
procedure TLogIn.BitBtn2Click(Sender: TObject);
begin
close;
end;
end.
zhhg975 2013-09-03
- 打赏
- 举报
这个是内存错误啊，要看具体源码了
