code6.txt

来自「一个用数据库编写的学生信息管理系统！做课程设计的同学可以做为参考！」· 文本 代码 · 共 33 行

程序段06
下面这段程序写在窗口的Open事件上，找到当前的CPU及操作系统的信息，
其中ENV为environment变量类型

environment env
integer i
string os_type
i=getenvironment(env)     //为environment变量env赋值
choose case env.cputype   //找到系统cpu类型
  case !286!
    mle_1. text='286'
  case !386!
    mle_1. text='386'
  case !486!
    mle_1. text='486'
  case pentium!
    mle_1. text='Pentium'
  case powerpc!
    mle_1. text='PowerPC'
end choose

choose case env.ostype   //找到系统操作系统类型
  case macintosh!
    os_trpe='Macintosh'
  case Windows!
    os_type='Windows'
  case Windowsnt!
    os_type='Windows NT'
end choose

mle_1.text=mle_1.text+"~r~n"+os_type  //将cpu和操作系统类型写入多行
编辑器mle_1中