关闭指定窗口时报错(50分)

jackson_wu · 2006-09-28

小兄自己写了一个小程序，目的是实现一些查询   主菜单中有4个button，当单击一个button时打开一个画面(From1)，然后再单击[查询]显示另一个画面(From2),输入相应的条件，然后再单击确定，执行相应的语句并关闭窗口From2,关闭From1时再将数据集关闭   存在的问题是：当我关闭FrmCwGCZK后，再关闭[主菜单]时总报：标题：Application Error  内容:Exception EAccessViolation in module WBL.exe at 0009d4A4 Access violation at address 0049D4A4 in module wbl.exe Write of address 00E46700,单击确定后，标题：Debugger Exception Notification 内容：Project Wbl.exe raised exception class EAccessViolation with message 'Access violation at address 00406022 in module' wbl.exe'.Read of address 01062DF8'.Process stopped.Use Step or Run to Continue   如果打开FrmCwGCZK后，不执行sql就关闭FrmCwGCZK,然后再关闭[主菜单]，不会报错；   如果打开FrmCwGCZK后，执行了sql后，再关闭FrmCwGCZK,回到[主菜单]后，再打开另一个窗口，执行另一个查询后关闭，再关闭[主菜单]不会报错。   如果打开其它From后，执行sql后关闭，再关闭[主菜单]不会报错.   这个问题困扰我好几天了，帮帮我吧！！！ 代码如下： unit CwGCZKSelect; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ComCtrls, DB, ADODB; type  TFrmCwGCZKSelect = class(TForm)    Label1: TLabel;    Label2: TLabel;    DateTimePicker1: TDateTimePicker;    ComboBox1: TComboBox;    Button1: TButton;    Button2: TButton;    ADOQuery1: TADOQuery;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  FrmCwGCZKSelect: TFrmCwGCZKSelect; implementation uses CwGCZK; {$R *.dfm} procedure TFrmCwGCZKSelect.Button1Click(Sender: TObject); begin  with self.ADOQuery1 do    begin      ADOQuery1.Close;      ADOQuery1.SQL.Clear;      ADOQuery1.SQL.Add('select a.porder,a.hcode,c.name,e.klotvalue,f.bumo,d.bunr,a.ocnt,a.proc_no '            +'  from ( SELECT a.Proc_no,a.INDATE,A.PORDER,A.HCODE,A.OCNT FROM sks.dbo.hs_proc a , '            +' (select porder,max(KBAN) KBAN from  sks.dbo.hs_proc where indate <=:EndDate and '            +' porder not in ( select distinct porder from (select * from  sks.dbo.hs_proc where indate <=:EndDate1) a '            +' where (KBAN = '+''''+'999'+''''+' and class = '+''''+'j'+''''+')) group by porder ) B '            +' WHERE A.PORDER=B.PORDER AND A.KBAN=B.KBAN AND PKUBUN ='+''''+'T'+''''+' &nbsp

A  '            +' LEFT JOIN tpics31.dbo.xhead c on a.hcode=c.code  '            +' Left Join Tpics31.dbo.xitem d on a.hcode=d.code   '            +' Left Join sks.dbo.hs_procl e on A.PORDER=e.kporder and e.klotcode='+''''+'9998'+''''            +' Left Join tpics31.dbo.xslip f on a.PORDER =f.PORDER and a.hcode=f.code  '            +' WHERE  c.mainbumo=d.bumo AND d.BUNR like :strbunr '            +' ORDER BY A.PORDER ');      ADOQuery1.Parameters.ParamByName('strbunr').DataType:=ftString;      ADOQuery1.Parameters.ParamByName('strbunr').Value:=Trim(Self.ComboBox1.Text)+'%';      ADOQuery1.Parameters.ParamByName('EndDate').DataType:=ftString;      ADOQuery1.Parameters.ParamByName('EndDate').Value:=FormatDatetime('yyyymmdd',DateTimePicker1.Date)+'1';      ADOQuery1.Parameters.ParamByName('EndDate1').DataType:=ftString;      ADOQuery1.Parameters.ParamByName('EndDate1').Value:=FormatDatetime('yyyymmdd',DateTimePicker1.Date)+'1';      try        begin          self.ADOQuery1.open;        end;      except        begin          showmessage('连接数据库失败！！！！')  ;        end;      end;      self.ComboBox1.Text:='';      FrmCwGCZKSelect.Close;    end; end; procedure TFrmCwGCZKSelect.Button2Click(Sender: TObject); begin  FrmCwGCZKSelect.Close; end; end. unit CwGCZK; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, DB, GridsEh, DBGridEh, ComCtrls,comobj; type  TFrmCwGCZK = class(TForm)    Button1: TButton;    DataSource1: TDataSource;    DBGridEh1: TDBGridEh;    Button2: TButton;    procedure Button1Click(Sender: TObject);    procedure FormClose(Sender: TObject; var Action: TCloseAction);    procedure FormCreate(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  FrmCwGCZK: TFrmCwGCZK; implementation uses CwGCZKSelect; {$R *.dfm} procedure TFrmCwGCZK.Button1Click(Sender: TObject); begin  FrmCwGCZKSelect.ShowModal; end; procedure TFrmCwGCZK.FormClose(Sender: TObject; var Action: TCloseAction); begin  FrmCwGCZKSelect.ADOQuery1.close; end; procedure TFrmCwGCZK.FormCreate(Sender: TObject); begin  FrmCwGCZK.DBGridEh1.Columns[0].Width:=90;  FrmCwGCZK.DBGridEh1.Columns[1].Width:=90;  FrmCwGCZK.DBGridEh1.Columns[2].Width:=120;  FrmCwGCZK.DBGridEh1.Columns[3].Width:=120;  FrmCwGCZK.DBGridEh1.Columns[4].Width:=40;  FrmCwGCZK.DBGridEh1.Columns[5].Width:=60;  FrmCwGCZK.DBGridEh1.Columns[6].Width:=60;  FrmCwGCZK.DBGridEh1.Columns[7].Width:=40; end; end.

hityou · 2006-09-28

你在第一个窗体关闭的时候FrmCwGCZKSelect.ADOQuery1.close了一次,第二个窗体关闭的时候又关闭了一次. 主要是第二此关闭的时候,第一个船体已经释放了,所以找不到这个query

zywcd · 2006-09-28

我觉得你可以这样测试。 你把FrmCwGCZKSelect中的ADOQuery1放置在FrmCwGCZK窗口中，给我的感觉你的查询数据是在FrmCwGCZK窗口显示的。你可以试试看，

jackson_wu · 2006-09-28

hityou： 你说的是：在Button1事件中FrmCwGCZKSelect.Close;这句吗？ FrmCwGCZKSelect.ADOQuery1.close这一句我是写在另一个窗体的关闭时的事件中，如果不这样写的话第一次打开FrmCwGCZK后，查询出数据后，再关闭，再次打开时就会打开前一次的数据集。 再帮我看看吧

dinglj1760 · 2006-09-28

写的太乱了。

jackson_wu · 2006-09-28

你是指程序还是指对问题的说明

hityou · 2006-09-28

你把这些都在弹出的窗体里面处理.动态创建,动态销毁. 不要放在外面就成了.

jackson_wu · 2006-09-28

hityou 可不可以稍微具体一点

关闭指定窗口时报错(50分)

jackson_wu

Unregistered / Unconfirmed

hityou

Unregistered / Unconfirmed

zywcd

Unregistered / Unconfirmed

jackson_wu

Unregistered / Unconfirmed

dinglj1760

Unregistered / Unconfirmed

jackson_wu

Unregistered / Unconfirmed

hityou

Unregistered / Unconfirmed

jackson_wu

Unregistered / Unconfirmed

Similar threads