procedure TForm7.Button2Click(Sender: TObject); begin form6.adotable1.Open ; form6.ADOTable1.first; if not form6.ADOTable1.Locate('prod_id',edit1.text,[])then begin application.MessageBox('未查到次商品,请检查!'),pchar('提示'),mb_iconexclamation; edidt1.Text :=''; edit1.SetFocus;end;end.
代码 procedure TForm7.Button2Click(Sender: TObject); begin form6.adotable1.Open ; form6.ADOTable1.first; if not form6.ADOTable1.Locate('prod_id',edit1.text,[])then begin application.MessageBox('未查到次商品,请检查!'),pchar('提示'),mb_iconexclamation; edidt1.Text :=''; edit1.SetFocus;end;end. 哪里的问题,谢谢帮忙哦
procedure TForm7.Button2Click(Sender: TObject); begin form6.adotable1.Open ; form6.ADOTable1.first; if not form6.ADOTable1.Locate('prod_id',edit1.text,[])then begin application.MessageBox( Pchar('未查到次商品,请检查!'),pchar('提示'),mb_iconexclamation); edidt1.Text :=''; edit1.SetFocus; end; 你說的錯誤,一般是控件版本問題,如果DELPHI不能自動刪掉,嘗試用DELPHI直接打開DFM文件,手工刪除無效的屬性
begin form6.adotable1.Open ;
form6.ADOTable1.first;
if not form6.ADOTable1.Locate('prod_id',edit1.text,[])then
begin
application.MessageBox('未查到次商品,请检查!'),pchar('提示'),mb_iconexclamation;
edidt1.Text :='';
edit1.SetFocus;end;end.
procedure TForm7.Button2Click(Sender: TObject);
begin form6.adotable1.Open ;
form6.ADOTable1.first;
if not form6.ADOTable1.Locate('prod_id',edit1.text,[])then
begin
application.MessageBox('未查到次商品,请检查!'),pchar('提示'),mb_iconexclamation;
edidt1.Text :='';
edit1.SetFocus;end;end.
哪里的问题,谢谢帮忙哦
begin form6.adotable1.Open ;
form6.ADOTable1.first;
if not form6.ADOTable1.Locate('prod_id',edit1.text,[])then
begin
application.MessageBox( Pchar('未查到次商品,请检查!'),pchar('提示'),mb_iconexclamation);
edidt1.Text :='';
edit1.SetFocus; end; 你說的錯誤,一般是控件版本問題,如果DELPHI不能自動刪掉,嘗試用DELPHI直接打開DFM文件,手工刪除無效的屬性
http://hi.baidu.com/qidh/blog/item/6372f7513be2bd10377abe0a.html不知道对你是否有帮助。
怎么会说是版本问题了