//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;

看看行吗