procedure TForm1.FormCreate(Sender: TObject);
begin
Database1.Close;
Database1.Params.Values['User Name']:='super';
Database1.Params.Values['Password']:='helloworld';
Database1.Open;end;procedure TForm1.Button2Click(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Clear;
Edit3.Clear;
Query1.UnPrepare;
Query1.ParamByName('name').AsString:=Edit3.Text;
Query1.SQL.Add('select * from number where name:=name');
Query1.Prepare;
Query1.Open;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Database1.Close;
end;
看过进程占用,似乎没有问题的,是不是涉及数据库资源了....
begin
Database1.Close;
Database1.Params.Values['User Name']:='super';
Database1.Params.Values['Password']:='helloworld';
Database1.Open;end;procedure TForm1.Button2Click(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Clear;
Edit3.Clear;
Query1.UnPrepare;
Query1.ParamByName('name').AsString:=Edit3.Text;
Query1.SQL.Add('select * from number where name:=name');
Query1.Prepare;
Query1.Open;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Database1.Close;
end;
看过进程占用,似乎没有问题的,是不是涉及数据库资源了....
解决方案 »
- 问 DelphiTeacher 有没有研究过IOS 的Edit风格
- 很菜的问题::datasource,query和database三个控件该怎么连接数据库?具体方法..谢了...
- 提问:关于idhttp的post问题
- 写个程序,祝圣诞快乐!
- 学习好DELPHI的用多少时间,我没有基础 工作前景如何,学习VC 又如何
- 有誰能說一說ERP的數據流是什麼?是怎樣進行的?我想這可以幫助很多人,也能得到100分
- FastReport的很难的问题?
- 66分吉祥大赠送!我编的免费发短信软件,欢迎测试!
- 第三方控件装时有错误....谁....会....改.....
- 为什么varchar 字段只能读出一部分?
- 请问在SQL Server 7.0中有了一个数据库的.MDF和.LDF文件怎么新建该数据库?
- HelpMeNow 进来领分
我身有体会阿 做数据库不释放 几个小时后就内存不足
建议+
try
Query1.destory;
Database1.destory;
finally
application.terimated;
end;