機(jī)動(dòng)車駕駛員管理系統(tǒng)本科畢業(yè)論文-資料下載頁(yè)
2025-06-26 06:01本頁(yè)面
【正文】 =60 =60 =60 =60 endcaselocal ndo case case =1 n= case =2 n= case =3 n= case =4 n=endcaseyn = = .F. ENDIF () BOX(是否確定刪除 39。+ ALLTRIM(n)+。 39。 的信息?,4+32,信息窗口)IF yn = 6 delete packdo case case =1 =企事業(yè)單位 case =2 =駕駛員信息 case =3 =機(jī)動(dòng)車信息 case =4 =事故記錄endcase result = TABLEUPDATE(.F.) IF result = .T. =MESSAGEBOX(刪除成功 ! ,48,信息窗口) ELSE =MESSAGEBOX(刪除不成功 !! , 48,信息窗口) =TABLEREVERT(.F.) ENDIFENDIF() public curentcurent=reo()do case case =1 do form dw case =2 do form jsy case =3 do form jdc case =4 do form sgendcase() yn = MESSAGEBOX(是否確定離開?,4+32,信息窗口)IF yn = 6 () CLEAR EVENTS ENDIF 單位表單代碼Name = Form1PROCEDURE Activatego curent=substr(,1,2)=substr(,3,2)=substr(,5,2)=substr(,7,2)ENDPROCName = Text3PROCEDURE VALIDlocal d1,d2,d3,d4d1=alltrim()d2=alltrim()d3=alltrim()d4=alltrim()=d1+d2+d3+d4ENDPROC Name = cmdexityn = MESSAGEBOX(是否確定離開?,4+32,信息窗口)IF yn = 6 CLEAR MEMORY () CLEAR EVENTS ENDIFName = cmdcancel =TABLEREVERT(.F.) () =.t. =.f.ENDPROCName = Cbo1.validlocal d1d1=alltrim()=d1+substr(,3)local d2d2=alltrim()=substr(,1,2)+d2+substr(,5)local d3d3=alltrim()=substr(,1,4)+d3+substr(,6)local d4d4=alltrim()=substr(,1,6)+d4 TABLEREVERT(.F.) () =.t. =.f.Name = txtXmPROCEDURE WHENMESTATUS(1)ENDPROCPROCEDURE ValidIMESTATUS(0)ENDPROCName = Command1機(jī)動(dòng)車表單代碼:Name = Command1PROCEDURE Clickgo top=.f.=.t.=.t.ENDPROCName = Command2PROCEDURE Clickskip 1if reo()1=0=.f.=.f.endif========.t.=.t.ENDPROCName = Command3PROCEDURE Clickskipif eof()=.f.=.f.endif========.t.=.t.ENDPROCName = Command4PROCEDURE Clickgo bottom=.f.=.f.========.t.=.t.ENDPROC Name = cmdaddPROCEDURE ClickAPPEND BLANK() () ENDPROC查詢:事故查詢:Name = cmdokName = cmdokPROCEDURE Clicksgcx=do casecase =駕駛證號(hào)=case =事故編號(hào)=case =車牌號(hào)碼=endcaseName = Command5ROCEDURE Clickif =1 sj= SELECT , , , ,。 , 。 FROM sj!jsy INNER JOIN sj!sg 。 ON = 。 WHERE month() 0。INTO CURSOR sg4 = else =endifENDPROCSELECT , , , ,。 , 。 FROM sj!jsy INNER JOIN sj!sg 。 ON = 。 WHERE = sgcx。 INTO CURSOR SG2SELECT , , , ,。 , 。 FROM sj!jsy INNER JOIN sj!sg 。 ON = 。 WHERE = sgcx。 INTO CURSOR SG2Name = Form1PROCEDURE Initpublic dwcxdwcx=Name = CMDOKPROCEDURE Clickdwcx=alltrim()do casecase =單位編號(hào)=case =駕駛證號(hào)=case =駕駛員姓名=endcaseENDPROCName = CMDALLPROCEDURE Click=ENDPROCSELECT , , ,。 , 。 FROM sj!dw。 WHERE = dwcx。 INTO CURSOR Dw1SELECT , , ,。 , 。 FROM sj!dw INNER JOIN sj!jsy 。 ON = 。 WHERE = dwcx。 INTO CURSOR dw2JSY. FORMName = Form1PROCEDURE Initpublic jsycxjsycx=ENDPROCName = cmdokPROCEDURE Clickjsycx=alltrim()do casecase =單位編號(hào)=case =駕駛證號(hào)=case =駕駛員姓名=endcaseName = cmdallPROCEDURE Click=ENDPROCSELECT , , , ,。 , , , 。 FROM sj!dw INNER JOIN sj!jsy 。 ON = 。 WHERE = jsycx。 INTO CURSOR Jsy1SELECT , , , ,。 , , , 。 FROM sj!dw INNER JOIN sj!jsy 。 ON = 。 WHERE = jsycx。 INTO CURSOR Jsy2系統(tǒng)維護(hù):DO CASE CASE = 1 driver = c CASE = 2 driver = d CASE = 3 driver = a =MESSAGEBOX(將磁盤放入 A 驅(qū) !, 4+32,信息窗口)ENDCASE() RUN XCOPY \bs\*.d* amp。driver:\*.d* /sRUN XCOPY \bs\*.cdx amp。driver:\*.cdx /sRUN XCOPY \bs\*.fpt amp。driver:\*.fpt /s() ACTIVATE WINDOWS mainfrm=MESSAGEBOX(數(shù)據(jù)備份成功!, 4 +32,信息窗口)=.t.【End】
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號(hào)-1