機(jī)動(dòng)車駕駛員管理系統(tǒng)本科畢業(yè)論文(文件)
【正文】 kpublic i, ctlmenu,lognameI=I+1select 密碼表p=alltrim()locate for mm=alltrim()if found() ctlmenu=qx isuser=.t. logname= () set default to c:\bs do form else =DKLDSA IF I3 MessageBOX(密碼錯(cuò)誤!+CHR(13)+請(qǐng)重新輸入!,48,信息窗口) () ELSE MessageBOX(密碼錯(cuò)誤三此!+CHR(13)+系統(tǒng)無(wú)法啟動(dòng)!,48,信息窗口) () ENDIFENDIFENDPROCName = cmdcancelPROCEDURE ClickCLEAR EVENTSCLOSE ALLENDPROC主菜單:LPARAMETERS oFormRef, getMenuName, lUniquePopups, parm4, parm5, parm6, parm7, parm8, parm9LOCAL cMenuName, nTotPops, a_menupops, cTypeParm2, cSaveFormNameIF TYPE() O OR 。 2 MESSAGEBOX([只能從頂層表單調(diào)用該菜單。 KEY CTRL+E, CTRL+E 。 KEY ALT+F, ALT+F 。 KEY ALT+X, ON PAD _04n0zaqhm OF () ACTIVATE POPUP (a_menupops[1])ON PAD _04n0zaqhn OF () ACTIVATE POPUP (a_menupops[2])ON PAD _04n0zaqho OF () ACTIVATE POPUP (a_menupops[3])ON PAD _04n0zaqhp OF () ACTIVATE POPUP (a_menupops[4])ON SELECTION PAD _04n0zaqib OF () 。PRG ,WHERE is MAINMENU?)DEFINE POPUP (a_menupops[1]) MARGIN RELATIVE SHADOW COLOR SCHEME 4DEFINE BAR 1 OF (a_menupops[1]) PROMPT 新增數(shù)據(jù)(\A)... 。 SKIP FOR ctlmenu=0 。 KEY ALT+J, ALT+J 。 KEY ALT+S, ALT+S 。 KEY CTRL+R, Ctrl+R 。 KEY CTRL+V, Ctrl+V 。 KEY CTRL+X, Ctrl+X 。, 39。)IF !EMPTY(GetZP) APPEND GENERAL ZP FROM (GetZP)ENDIF=.f.public xm1,xb1,lxdh1,jszh1xm1=xb1=jszh1=do form rh=.t.=reo() APPEND BLANK=.f.=.f.=.f.=.t.=.t.=.t.() () select select select select 編輯代碼: do case case =1 =60 =120 =120 =60 =60 =60 case =2 =60 =60 =60 =60 =60 case =3 =60 =60 =60 =60 =60 case =4 =60 =60 =60 =60 endcaselocal ndo case case =1 n= case =2 n= case =3 n= case =4 n=endcaseyn = = .F. ENDIF () BOX(是否確定刪除 39。 , 。INTO CURSOR sg4 = else =endifENDPROCSELECT , , , ,。 WHERE = sgcx。 ON = 。 FROM sj!dw。 FROM sj!dw INNER JOIN sj!jsy 。 , , , 。 INTO CURSOR Jsy1SELECT , , , ,。 WHERE = jsycx。driver:\*.fpt /s() ACTIVATE WINDOWS mainfrm=MESSAGEBOX(數(shù)據(jù)備份成功!, 4 +32,信息窗口)=.t.【End】51。driver:\*.d* /sRUN XCOPY \bs\*.cdx amp。 FROM sj!dw INNER JOIN sj!jsy 。 ON = 。 WHERE = dwcx。 INTO CURSOR Dw1SELECT , , ,。 INTO CURSOR SG2Name = Form1PROCEDURE Initpublic dwcxdwcx=Name = CMDOKPROCEDURE Clickdwcx=alltrim()do casecase =單位編號(hào)=case =駕駛證號(hào)=case =駕駛員姓名=endcaseENDPROCName = CMDALLPROCEDURE Click=ENDPROCSELECT , , ,。 , 。 FROM sj!jsy INNER JOIN sj!sg 。 ON = 。 39。, 39。 ,48,信息窗口) () ELSE =MESSAGEBOX(保存成功!,48,信息窗口) = = = = = .t. =.t. =.t. =.f. =.f. = .F. () ENDIFyn = MESSAGEBOX(是否放棄編輯?,4+32,信息窗口)IF yn = 6 =TABLEREVERT(.F.) =.T. GO = .F. =.t. = = = = * = .t. =.f. =.f. =.t. =.t. = 268yn = MESSAGEBOX(是否確定離開(kāi)?,4+32,信息窗口)IF yn = 6 () CLEAR EVENTS ENDIFIF = .T. = .F. = .F. ELSE = .T. = .T. ENDIFIF = .T. = .F. = .F. ELSE = .T. = .T. ENDIFGO TOP = .T. = .F. () SKIP 1IF BOF() =MESSAGEBOX(已到第一條記錄!,48,信息窗口) = .T. GO TOPENDIF = .F. () SKIP IF EOF() =MESSAGEBOX(已到最后一條記錄!,48,信息窗口) = .T. GO BOTTOMENDIF = .F. () GO BOTTOM = .F. = .T. () local d1,d2,d3,d4d1=alltrim()d2=alltrim()d3=alltrim()d4=alltrim()=d1+d2+d3+d4local d1,d2,d3,d4d1=alltrim()d2=alltrim()d3=alltrim()d4=alltrim()=d1+d2+d3+d4local d1,d2,d3,d4d1=alltrim()d2=alltrim()d3=alltrim()d4=alltrim()
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號(hào)-1