自定义函数(30)

N

ntjrr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-09-11

• #1

由于特殊的需要，想把下面的过程改为带参数的函数，不知道应该如何改变？procedure TForm1.Button1Click(Sender: TObject);begin adoquery1.Close; adoquery1.SQL.Text:='insert into 表A(xh,name)' +' Valuesxh,:name)'; adoquery1.Parameters.ParamValues['xh']:=edit1.text; adoquery1.Parameters.ParamValues['name']:=edit2.text; adoquery1.ExecSQL;end;我的想法是不是比如把表的名称作为字符型的参数，如果新增成功结果为TRUE，否则为FALSE，那么具的写法应该怎么样比较标准呢？

 

S

superong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-09-11

• #2

procedure FuncName(AXh,AName:String);begin adoquery1.Close; adoquery1.SQL.Text:='insert into 表A(xh,name)' +' Valuesxh,:name)'; adoquery1.Parameters.ParamValues['xh']:=AXh; adoquery1.Parameters.ParamValues['name']:=AName;try adoquery1.ExecSQL;exceptend;end;

 

G

greenwon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-09-11

• #3

不明白：“把表的名称作为字符型的参数”

 

N

ntjrr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-09-12

• #4

to superong 和我的意思基本相符了，那么改为函数后就这样写？function FuncName(AXh,AName:String):Boolean;begin adoquery1.Close; adoquery1.SQL.Text:='insert into 表A(xh,name)' +' Valuesxh,:name)'; adoquery1.Parameters.ParamValues['xh']:=AXh; adoquery1.Parameters.ParamValues['name']:=AName;try adoquery1.ExecSQL;result:=trueexceptresult:=false;end;

 

S

superong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-09-15

• #5

嗯，这应该没什么问题的。

 

W

wql

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-09-15

• #6

嘿嘿，还是有问题的:应该加function FuncName(AXh,AName:String):Boolean;begin with form1 do// 加 begin// 加 adoquery1.Close; adoquery1.SQL.Text:='insert into 表A(xh,name)' +' Valuesxh,:name)'; adoquery1.Parameters.ParamValues['xh']:=AXh; adoquery1.Parameters.ParamValues['name']:=AName;try adoquery1.ExecSQL;result:=trueexceptresult:=false;end;// 加 end;

 

N

ntjrr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-09-16

• #7

多人接受答案了。