求助 信息录入后编号的递增 谢谢
//clicked 代码//c是全局变量赋值37012519840000
string l1,l2,l3,l4,l5,l6,l7
c+=1
l2=string(sle_1.text)
l3=string(sle_2.text)
l4=string(c)
//if mle_1.text<>''and
//sle_1.text<>''and
//sle_2.text<>''and
//sle_3.text<>''and
//sle_4.text<>''and
//sle_5.text<>'' then
//
if rb_1.checked=true then
l1='男'
if sle_1.text<>'' and sle_2.text<>'' then
insert into student(stunumber,name,sex,age)
values(:l4,:l2,:l1,:l3);
messagebox('提示','添加成功！')
sle_1.text=''
sle_2.text=''
else
messagebox('提示','信息填写不完全！')
end if
else
l1='女'
if sle_1.text<>'' and sle_2.text<>'' then
insert into student(stunumber,name,sex,age)
values(:l4,:l2,:l1,:l3);
messagebox('提示','添加成功！')
sle_1.text=''
sle_2.text=''
else
messagebox('提示','信息填写不完全！')
end if
end if
//我关闭运行窗口后序号又从37012519840001开始。
//请问在pb中静态变量怎么写啊！
//或者对开始值怎么设置啊！
十分感谢！！！！！ //clicked 代码
//c是全局变量赋值37012519840000
string l1,l2,l3,l4,l5,l6,l7
String ls_max
//c+=1
SELECT MAX(stunumber)
INTO :ls_max
FROM student
;
c += Dec(ls_max)
l2=string(sle_1.text)
l3=string(sle_2.text)
l4=string(c)
//if mle_1.text<>''and
//sle_1.text<>''and
//sle_2.text<>''and
//sle_3.text<>''and
//sle_4.text<>''and
//sle_5.text<>'' then
//
if rb_1.checked=true then
l1='男'
else
l1='女'
end if
if sle_1.text<>'' and sle_2.text<>'' then
insert into student(stunumber,name,sex,age)
values(:l4,:l2,:l1,:l3);
IF sqlca.sqlcode <> 0 Then
Rollback;
messagebox('提示','Error！')
END IF
messagebox('提示','添加成功！')
sle_1.text=''
sle_2.text=''
else
messagebox('提示','信息填写不完全！')
end if
COMMIT;
看看行吗
页:
[1]