奇怪的问题(100分)

  • 主题发起人 主题发起人 vickymade
  • 开始时间 开始时间
V

vickymade

Unregistered / Unconfirmed
GUEST, unregistred user!

我用Delphi建立了一个工程,其中有一个浏览窗体(窗体自己拥有一个数据模块),令人奇怪的
是,现在我每次从Delphi中打开这个窗体,总是提示非法错误,并导致Delphi异常关闭。而我在编译
运行过程中打开这个窗体有没有问题。不止原因是什么,请高手指点。
 
把那个数据模块加入自动运行
project option auto create
 
提示信息如下:该程序执行了非法操作。即将关闭,请与供应商联系。
 
这是不是Delphi的BUG呀?
 
把你的源码贴上来看看(说明你的运行环境)
 
依我的以前的情形是:你的数据模块存在不正确的数据库连接,
如TADOConnection
解决办法:
你可以用Notepad.exe 编辑你的数据模块.dfm文件, 将
object Dress: TADOConnection
Connected = True
ConnectionString =
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
'fo=False;Initial Catalog=Dress;Data Source=192.168.0.119;Use Pro' +
'cedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workst' +
'ation ID=IDBDM;Use Encryption for Data=False;Tag with column col' +
'lation when possible=False'
LoginPrompt = False
中的配置改成正确的设置, 并保存再试
 
为什么会出现如此的错误呢?
 
我碰到过很多次DELPHI自己修改了我的代码的情况,没有办法我只有自己修改了
PAS文件和DFM文件,我想这是DELPHI的BUG,尤其是D5,碰到过N次了,D6目前只
碰到一次。
 
重装机器!把系统都作了!
 

现在我每天家一个窗体和数据模块,都出现如此问题。而且现在我们时间很紧张。谢网各位富翁拔刀相助
 
unit Browse;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, Grids, DBGrids, ExtCtrls, DBCtrls;

type
TfrmBrowseForm = class(TForm)
Panel1: TPanel;
BrowseDBGrid: TDBGrid;
BrowseFormToolBar: TToolBar;
BrowseFormStatusBar: TStatusBar;
BrowseDBNavigator: TDBNavigator;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure BrowseDBNavigatorClick(Sender: TObject;
Button: TNavigateBtn);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmBrowseForm: TfrmBrowseForm;

implementation
uses BrowseDM;
{$R *.dfm}

procedure TfrmBrowseForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;

procedure TfrmBrowseForm.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
frmBrowseForm:=nil;
end;

procedure TfrmBrowseForm.BrowseDBNavigatorClick(Sender: TObject;
Button: TNavigateBtn);
begin
//BrowseFormStatusBar.SimpleText:=BrowseDataModule.BrowseADOTable.Fields[1].AsString;
end;

end.
 
implementation
// uses BrowseDM;

这句的 // 应该去掉,没有。
 
问题被解决,***Borland真是“包滥的”。装上Delphi 6 的 SP2后,一切恢复正常。‘
 
后退
顶部