阿
阿虫
Unregistered / Unconfirmed
GUEST, unregistred user!
1、今天请教了一个问题,是关于对以存在的数据记录进行判断的,有位老兄告诉了我以下这段程
序,可当我运行时,提示:LOPARTIALKEY未申报。但我认为它一个函数,还要申报吗,请告诉我。
2、我的数据库放在C盘根目录下,在我的机子上一切正常,可我将应用程程序拷到别人的机子上,
将数据库也放在了C 盘下后,运行程序时,就会出现程序出错,再点,说无法完成联接的提示。
我用的PARADOX数据库。要如何设置呢,在装有DELPHI 的机子上也是这样。
procedure TForm1.BitBtn1Click(Sender: TObject);
BEGIN
TABLE1.ACTIVE:=TRUE;
if table1.locate('姓名',edit1.text,[loPartialKey])=false then
begin
table1.append;
table1.fieldbyname('姓名').asstring:=edit1.text;
table1.post;
TABLE1.ACTIVE:=FALSE;
end
else
begin
if application.messagebox('重名,是否覆盖?','error',mb_yesno)=id_yes then
序,可当我运行时,提示:LOPARTIALKEY未申报。但我认为它一个函数,还要申报吗,请告诉我。
2、我的数据库放在C盘根目录下,在我的机子上一切正常,可我将应用程程序拷到别人的机子上,
将数据库也放在了C 盘下后,运行程序时,就会出现程序出错,再点,说无法完成联接的提示。
我用的PARADOX数据库。要如何设置呢,在装有DELPHI 的机子上也是这样。
procedure TForm1.BitBtn1Click(Sender: TObject);
BEGIN
TABLE1.ACTIVE:=TRUE;
if table1.locate('姓名',edit1.text,[loPartialKey])=false then
begin
table1.append;
table1.fieldbyname('姓名').asstring:=edit1.text;
table1.post;
TABLE1.ACTIVE:=FALSE;
end
else
begin
if application.messagebox('重名,是否覆盖?','error',mb_yesno)=id_yes then