e.prg

来自「包括出车记录」· PRG 代码 · 共 53 行

PRIVATE mcondi,dbfs,m.no,olddel
DIMENSION flds(12),flds_c(12),numbsz(1)
olddel = SET("DELETE")
SET DELETE OFF
sum = 0
numbsz = 0
dbfs = "student"
mcondi = " "
flds(1) = "cno"
flds(2) = "dw"
flds(3) = "jsy"
flds(4) = "dz"
flds(5) = "tel"
flds(6) = "cc"
flds(7) = "cp"
flds(8) = "zzg"
flds(9) = "ccrq"
flds(10) = "fprq"
flds(11) = "bfrq"
flds(12) = "syzk"
flds_c(1) = "车牌号"
flds_c(2) = "单位"
flds_c(3) = "驾驶员"
flds_c(4) = "地址"
flds_c(5) = "电话"
flds_c(6) = "车型"
flds_c(7) = "厂牌型号"
flds_c(8) = "制造国"
flds_c(9) = "出厂日期"
flds_c(10) = "发牌证日期"
flds_c(11) = "报废日期"
flds_c(12) = "使用状况"
PUSH KEY CLEAR
ON KEY LABEL Ctrl+D DO delrec
ON KEY LABEL Ctrl+R DO recallrec
ON KEY LABEL Ctrl+f DO locate
IF USED("JDC1")
   SELECT JDC1
ELSE 
   USE JDC1 IN 0
   SELECT JDC1
ENDIF
ACTIVATE SCREEN
BROWSE FIELDS cno:H='',;
               dw:H='',;
              jsy:H='',;
               dz:H='',;
              tel:H='',;
               cc:H='',;
               cp:H='',;
              zzg:H='',;