機動車駕駛員管理系統(tǒng)本科畢業(yè)論文(參考版)
2025-06-29 06:01本頁面
【正文】 driver:\*.fpt /s() ACTIVATE WINDOWS mainfrm=MESSAGEBOX(數(shù)據(jù)備份成功!, 4 +32,信息窗口)=.t.【End】51。driver:\*.d* /sRUN XCOPY \bs\*.cdx amp。 WHERE = jsycx。 FROM sj!dw INNER JOIN sj!jsy 。 INTO CURSOR Jsy1SELECT , , , ,。 ON = 。 , , , 。 WHERE = dwcx。 FROM sj!dw INNER JOIN sj!jsy 。 INTO CURSOR Dw1SELECT , , ,。 FROM sj!dw。 INTO CURSOR SG2Name = Form1PROCEDURE Initpublic dwcxdwcx=Name = CMDOKPROCEDURE Clickdwcx=alltrim()do casecase =單位編號=case =駕駛證號=case =駕駛員姓名=endcaseENDPROCName = CMDALLPROCEDURE Click=ENDPROCSELECT , , ,。 ON = 。 , 。 WHERE = sgcx。 FROM sj!jsy INNER JOIN sj!sg 。INTO CURSOR sg4 = else =endifENDPROCSELECT , , , ,。 ON = 。 , 。 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。, 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(是否確定離開?,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()=d1+d2+d3+d4local d1,d2,d3,d4d1=alltrim()d2=alltrim()d3=alltrim()d4=alltrim()=d1+d2+d3+d4 GetZP = GETFILE(39。 KEY CTRL+X, Ctrl+X 。 KEY CTRL+C, Ctrl+C 。 KEY CTRL+V, Ctrl+V 。 KEY CTRL+Z, Ctrl+Z 。 KEY CTRL+R, Ctrl+R 。 KEY ALT+Q, ALT+QDEFINE BAR 2 OF (a_menupops[3]) PROMPT 駕駛員名冊(\J)...DEFINE BAR 3 OF (a_menupops[3]) PROMPT 機動車備案清單(\C)DEFINE BAR 4 OF (a_menupops[3]) PROMPT 事故統(tǒng)計表(\S)ON SELECTION BAR 1 OF (a_menupops[3]) report form dw noconsole previewON SELECTION BAR 2 OF (a_menupops[3]) report form jsy noconsole previewON SELECTION BAR 3 OF (a_menupops[3]) report form jdc noconsole previewON SELECTION BAR 4 OF (a_menupops[3]) report form sg noconsole previewDEFINE POPUP (a_menupops[4]) MARGIN RELATIVE SHADOW COLOR SCHEME 4DEFINE BAR 1 OF (a_menupops[4]) PROMPT 更改密碼(\P)... 。 KEY ALT+S, ALT+S 。 KEY ALT+C, ALT+C 。 KEY ALT+J, ALT+J 。 KEY ALT+Q, ALT+Q 。 SKIP FOR ctlmenu=0 。 MESSAGE 輸入企事業(yè)單位、機動車、駕駛員備案信息DEFINE BAR 2 OF (a_menupops[1]) PROMPT 編輯數(shù)據(jù)(\E)... 。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)... 。 IN LOCFILE(\BS\MAINMENU ,MPX。 KEY ALT+X, ON PAD _04n0zaqhm OF () ACTIVATE POPUP (a_menup
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號-1