Procedure tform1.btn1click (Sender: tobject );
VaR
I: integer;
Begin
// Preprocessing
With orastoredproc1 do
Begin
Autocommit: = false;
Fetchall: = true;
Storedprocname: = 'P _ register_user ';
Params. Clear;
Params. createparam (ftstring, 'v _ cn', ptinput );
Params. createparam (ftstring, 'v _ password', ptinput );
Params. createparam (ftstring, 'v _ ip', ptinput );
Params. createparam (ftinteger, 'B _ return', ptoutput );
Prepare;
End;
// Execute
With orastoredproc1 do
Begin
Parambyname ('v _ cn'). asstring: = edt1.text;
Parambyname ('v _ password'). asstring: = edt2.text;
Parambyname ('v _ ip'). asstring: = '192. 168.1.1 ';
Execproc;
I: = parambyname ('B _ return'). value;
Case I
0: showmessage ('adduser OK .');
1: showmessage ('user exists .');
9: showmessage ('other error .');
End;
End;
End;
Procedure tform1.btn2click (Sender: tobject );
VaR
STR: string;
Begin
Oraquery1.close;
Oraquery1. SQL. Clear;
Oraquery1. SQL. Add ('select MD5 ('aaa') from user_basic ');
Oraquery1.open;
STR: = oraquery1.fields [0]. asstring;
Showmessage (STR );
End;