高手帮我看看这几行odac的代码

[blackcase]

初学，请问下列代码有问题吗？
OraSession1的connectString＝blackcase/blackcase@10.10.10.10.:1521:blackcase

with OraTable1 do
begin
OraTable1.Open;
if not Locate('MEMBER_ID',ID,[loCaseInsensitive]) then //这里判断是否存在id用户
begin //如果不存在该id用户，则添加记录
OraTable1.Insert;
OraTable1.FindParam('MEMBER_NAME').AsString := trim(name1);
OraTable1.FindParam('SEX').AsInteger := StrToInt(sex);
OraTable1.FindParam('NATION').AsString := trim(nation);
OraTable1.FindParam('BIRTH').AsString := MidStr(birthday, 1, 4)+'-'+MidStr(birthday, 5, 2)+'-'+MidStr(birthday, 7, 2);
OraTable1.FindParam('PLACE').AsString := trim(place);
OraTable1.FindParam('MEMBER_ID').AsString := ID;
OraTable1.FindParam('POLICE').AsString := trim(police);
OraTable1.FindParam('MEMBER_VALIDATE').AsString := MidStr(validDate, 1, 4)+'-'+MidStr(validDate, 5, 2)+'-'+MidStr(validDate, 7, 2)+'－'+
MidStr(validDate, 9, 4)+'-'+MidStr(validDate, 13, 2)+'-'+MidStr(validDate, 15, 2);
TBlobField(FieldByName('PHOTO')).LoadFromFile('zp.jpg');
OraTable1.Post;
end
else
showmessage('此用户已存在');
end;
ss.Free;
except
on e:exception do
begin
ss.Free;
showmessage(e.Message);
end;
end;
end;

[Rubi]

你自己调试下就知道有没有问题了