操屁眼的视频在线免费看,日本在线综合一区二区,久久在线观看免费视频,欧美日韩精品久久综

unit ;

uses

, , , , , , , Forms,

, , DB, ADODB;

type

= class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

: ;

: ;

: ;

: ;

: ;

: ;

: ;

: ;

: ;

: ;

Edit6: TEdit;

: ;

(: );

(: );

(: );

{ }

{ }

end;

var

: ;

uses ;

{$R *.dfm}

.(: );

var

i:;

begin

with do

begin

:='';

.Clear;

.('@', , , 50, edit1.Text);

.('@', , , 50, edit2.Text);

.('@Sex', , , 50, edit3.Text);

.('@Age', , , 50, edit4.Text);

.('@', , , 50, edit5.Text);

.('@', , , 10, 0);

:= true;

;

i:=.('@').value;

edit6.Text:=(i);

end;

end;

.(: );

var

:;

i:; //聲明變量來測試返回值的成功

begin

.SQL.Clear;

:='exec '''+edit1.Text+''','''+edit2.Text+''','''+edit3.Text+''','''+edit4.Text+''','''+edit5.Text+''',:C ';

.SQL.Add();

.;

i:=..Items[0].Value; //2對應著C，為返回值賦值

edit6.Text:=(i);

//其它

end;

.(: );

var

:;

i:; //聲明變量來測試返回值的成功

begin

.SQL.Clear;

:='exec :A,:B,:C,:D,:E,:F ';

.SQL.Add();

..Items[0].Value:=edit1.Text;

..Items[1].Value:=edit2.Text;

..Items[2].Value:=edit3.Text;

..Items[3].Value:=edit4.Text;

..Items[4].Value:=edit5.Text;

.;

.;

i:=..Items[5].Value;

edit6.Text:=(i);

end;

end.