亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來(lái)到蟲(chóng)蟲(chóng)下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關(guān)于我們
? 蟲(chóng)蟲(chóng)下載站

?? n-zz.zrg

?? 一個(gè)有關(guān)電力系統(tǒng)收費(fèi)的管理軟件
?? ZRG
?? 第 1 頁(yè) / 共 2 頁(yè)
字號(hào): 
    DF2=VAL(STR(ROUND(((VAL(DD)+GSBS)*DDDJ),2),10,2))
    DF6=VAL(STR(ROUND(((VAL(DD)+GSBS)*FJDJ1),2),10,2))
    DF3=VAL(STR(ROUND(((VAL(DD)+GSBS)*FJDJ2+(VAL(DD)+GSBS)*FJDJ3),2),10,2))
    DF4=VAL(STR(ROUND(((VAL(DD)+GSBS)*FJDJ4+(VAL(DD)+GSBS)*FJDJ5),2),10,2))
    DF5=VAL(STR(ROUND(((VAL(DD)+GSBS)*DDDJ*FJDJ6*1/100+(VAL(DD)+GSBS)*FJDJ7),2),10,2))
    DF1=DF2+DF3+DF4+DF5+DF6
    REPLACE DF WITH DF1
ENDIF

@2,0 SAY "月"+STR(DL3,8,1)
SYDL1=DL3*VAL(BL)+GSBS
REPLACE SYDL WITH SYDL1
@2,10 SAY "實(shí)"+STR(SYDL,8)
@3,11 SAY "        "
@ 3,11 SAY DF
WAIT " "
CLEAR
REPLACE ZBBZ WITH "4"
RETURN
ENDPRO

***表壞子程序*****
PROCEDURE F

SELECT A
CLEAR
@0,0 SAY "1.電表燒"
@1,0 SAY "2.電表停"
@2,0 SAY "3.電表反轉(zhuǎn)"
WAIT " " TO KEY3

DO CASE 
    CASE ASC(KEY3)=49
        CLEAR
        @0,0 SAY HH+"號(hào)"
        @0,12 SAY "廠號(hào):"+CH
        @1,0 SAY HM
        @2,0 SAY DZ
        @3,0 SAY "燒,回車鍵確認(rèn);1鍵退出" 
        WAIT " " TO KEY4

        DO CASE 
            CASE ASC(KEY4)=49
                RETURN
            CASE ASC(KEY4)=13
                REPLACE ZBBZ WITH "5"
                RETURN
        ENDCASE

    CASE ASC(KEY3)=50 
        CLEAR
        @0,0 SAY  HH+"號(hào)"
        @0,12 SAY "廠號(hào):"+CH
        @1,0 SAY HM
        @2,0 SAY DZ
        @3,0 SAY "停,回車鍵確認(rèn);1鍵退出"
        WAIT " " TO KEY4

        DO CASE
            CASE ASC(KEY4)=49
                RETURN
            CASE ASC(KEY4)=13
                REPLACE ZBBZ WITH "6"
                RETURN
        ENDCASE

    CASE ASC(KEY3)=51
        CLEAR
        @0,0 SAY HH+"號(hào)"
        @0,12 SAY "廠號(hào):"+CH
        @1,0 SAY HM
        @2,0 SAY DZ
        @3,0 SAY "反轉(zhuǎn),回車鍵確認(rèn);1退出"
        WAIT " " TO KEY4

        DO CASE
            CASE ASC(KEY4)=49
                RETURN
            CASE ASC(KEY4)=13
                REPLACE ZBBZ WITH "7"
                RETURN
        ENDCASE

ENDCASE

ENDPRO

*****欠費(fèi)催費(fèi)子程序****
PROCEDURE G

SELECT A
SET MODE TO 1
CLEAR
@0,0 SAY HH+"號(hào)"
@0,12 SAY "廠號(hào):"+CH
@1,0 SAY HM
@2,0 SAY DZ
@3,0 SAY "催,回車鍵確認(rèn);1鍵退出" 
WAIT " " TO KEY4

DO CASE 
    CASE ASC(KEY4)=49
        RETURN
    CASE ASC(KEY4)=13
        REPLACE ZBBZ WITH "8"
        RETURN
ENDCASE

ENDPRO

*****欠費(fèi)拆表子程序****
PROCEDURE L

SELECT A
SET MODE TO 1
CLEAR
@0,0 SAY HH+"號(hào)"
@0,12 SAY "廠號(hào):"+CH
@1,0 SAY HM
@2,0 SAY DZ
@3,0 SAY "拆,回車鍵確認(rèn);1鍵退出" 
WAIT " " TO KEY4

DO CASE 
    CASE ASC(KEY4)=49
        RETURN
    CASE ASC(KEY4)=13
        REPLACE ZBBZ WITH "9"
        RETURN
ENDCASE

ENDPRO

*******表不見(jiàn)******
PROCEDURE H

SET MODE TO 1
CLEAR
@0,0 SAY "1.拆房表不見(jiàn)"
@1,0 SAY "2.有卡無(wú)表"
@2,0 SAY "3.表位過(guò)高"
WAIT " " TO KEY3

DO CASE 
    CASE ASC(KEY3)=49
        CLEAR
        @0,0 SAY HH+"號(hào)"
        @0,12 SAY "廠號(hào):"+CH
        @1,0 SAY HM
        @2,0 SAY "該戶拆房表不見(jiàn)"
        @3,0 SAY "回車鍵確認(rèn);1鍵退出" 
        WAIT " " TO KEY4
   
        DO CASE 
            CASE ASC(KEY4)=49
                RETURN
            CASE ASC(KEY4)=13
                REPLACE ZBBZ WITH "3"
                RETURN
        ENDCASE

    CASE ASC(KEY3)=50 
        CLEAR
        @0,0 SAY  HH+"號(hào)"
        @0,12 SAY "廠號(hào):"+CH
        @1,0 SAY HM
        @2,0 SAY "該戶有卡無(wú)表!"
        @3,0 SAY "回車鍵確認(rèn);1鍵退出"
        WAIT " " TO KEY4

        DO CASE
            CASE ASC(KEY4)=49
                RETURN
            CASE ASC(KEY4)=13
                REPLACE ZBBZ WITH "B"
                RETURN
        ENDCASE

    CASE ASC(KEY3)=51
        CLEAR
        @0,0 SAY HH+"號(hào)"
        @0,12 SAY "廠號(hào):"+CH
        @1,0 SAY HM
        @2,0 SAY "該戶表位過(guò)高!"
        @3,0 SAY "回車鍵確認(rèn);1鍵退出"
        WAIT " " TO KEY4

        DO CASE
            CASE ASC(KEY4)=49
                RETURN
            CASE ASC(KEY4)=13
                REPLACE ZBBZ WITH "C"
                RETURN
        ENDCASE

ENDCASE

ENDPRO

**********不計(jì)算的輸機(jī)程序******
PROCEDURE I

SELECT A
SET MODE TO 1
CLEAR
@ 0,0 SAY HH
@ 0,9 SAY "號(hào)"
@ 0,12 SAY "廠號(hào):"+CH
@ 1,0 SAY HM
@ 2,0 SAY DZ
*****SYBZ判斷子程序*****
SYBZ=ZBBZ
REPLACE ZBBZ WITH "N"

IF SYBZ="1"
    @2,0 SAY "該戶上月?lián)Q表!" 
ENDIF 

IF SYBZ="2"
    @2,0 SAY "該戶上月估抄!"
ENDIF

IF SYBZ="3"
    @2,0 SAY "該戶表不見(jiàn)!" 
ENDIF

IF SYBZ="4"
    @2,0 SAY "該戶上月私自移表!"
ENDIF

IF SYBZ="5"
   @2,0 SAY "該戶上月表燒!"
ENDIF

IF SYBZ="6"
   @2,0 SAY "該戶上月表停!"
ENDIF

IF SYBZ="7"
   @2,0 SAY "該戶上月表反轉(zhuǎn)!"
ENDIF

IF SYBZ="8"
   @2,0 SAY "該戶上月已催費(fèi)!"
ENDIF

IF SYBZ="9"
   @2,0 SAY "該戶上月欠費(fèi)拆表!"
ENDIF

@ 3,0 SAY "碼" GET CM2
@3,12 SAY CM1
READ
REPLACE ZBBZ WITH "0"
CLEAR
return
ENDPRO

*********自動(dòng)審核程序********
PROCEDURE J

RR=RECCOUNT()
NUM=RECNO()

IF (CM2<CM1) AND (BW<9) AND (ZBBZ<>"N")
    @1,0 SAY "               "
    @1,0 SAY "請(qǐng)看清楚,可能有誤!"
    WAIT "  "
ENDIF

RETURN
ENDPRO

*********列出未抄表的程序**********
PROCEDURE K

SELECT A
RR=RECCOUNT()
NUM=RECNO()
CLEAR
GO TOP
N=0

DO WHILE NUM<=RR .OR. N=5

    IF ZBBZ="N"
        @N,0 SAY HH
        @N,12 SAY CH
        N=N+1

        IF N=4
            WAIT " " TO KEY1

            DO CASE  
                CASE ASC(KEY1)=49 .OR. ASC(KEY1)=13
                    N=0
                    CLEAR
                CASE ASC(KEY2)=24
                    RETURN
                    CLEAR
                    EXIT
            ENDCASE

        ENDIF

        SKIP

    ENDIF

    IF  ZBBZ<>"N"
        SKIP
    ENDIF

ENDDO

RETURN
ENDPRO


****主菜單*****
START

SELECT A
RR = RECCOUNT( )
NUM=RECNO()
LOCATE FOR CM2=0

IF EOF()
    GO TOP
ENDIF

num=recno()
GO NUM

jqh=series()

CLEAR
@0,0 SAY "   興安縣供電公司"
@1,0 say "***** "+jqh+" ******"
@2,0 SAY "    客戶服務(wù)中心"
@3,0 say "      (微機(jī)班)"
wait""
clear

DO WHILE .T.

    HH1=HH
    CH1=CH
    BH1=BH
    clear
    @0,2 SAY "①. 區(qū)戶號(hào)查詢"
    @1,2 SAY "②. 廠號(hào)查詢"
    @2,2 SAY "③. 表號(hào)查詢" 
    @3,2 SAY "④. 列出未抄表"
    WAIT " " TO KEY2

    DO CASE 

        CASE ASC(KEY2)=14

            IF NUM<RR
                SKIP 1
                NUM=RECNO()
            ENDIF

        CASE ASC(KEY2)=17

            IF RECNO()<>1
                SKIP -1
                NUM=RECNO()
            ENDIF

        CASE ASC(KEY2)=24

            NUM=RECNO()
            GO NUM
            EXIT

        CASE ASC(KEY2)=49

            CLEAR
            @0,1 SAY "區(qū)戶號(hào):" GET HH1
            READ

            IF VAL(HH1)=0
                EXIT
            ENDIF

            LOCATE FOR HH=HH1

            IF EOF()
                @ 1,1 SAY HH1+"沒(méi)找到!"
                WAIT
                go num
                LOOP
            ENDIF

            CLEAR

        CASE ASC(KEY2)=50

            CLEAR
            @0,1 SAY "廠號(hào):" GET CH1
            READ

            IF VAL(CH1)=0
                EXIT
            ENDIF

            LOCATE FOR CH=CH1 

            IF EOF()
                @ 1,1 SAY CH1+"沒(méi)找到!"
                WAIT
                go num
                LOOP
            ENDIF

            CLEAR

        CASE ASC(KEY2)=51

            CLEAR
            @0,1 SAY "表號(hào):" GET BH1
            READ

            IF VAL(BH1)=0
                EXIT
            ENDIF

            LOCATE FOR BH=BH1 

            IF EOF()
                @ 1,1 SAY BH1+"沒(méi)找到!"
                WAIT
                go num
                LOOP
            ENDIF

            CLEAR

        CASE ASC(KEY2)=52

            CLEAR
            DO K
            CLEAR

    ENDCASE

    RR=RECCOUNT()
    NUM=RECNO()
    GO NUM

    DO WHILE .T.

        clear
        @0,0 SAY  HH
        @0,12 SAY "廠號(hào):"+CH
        @1,0 SAY HM
        @2,0 SAY DZ
        @3,0 SAY "1.抄表 2.處理 3.輸機(jī)"
        WAIT " " TO KEY1

        DO CASE

            CASE ASC(KEY1)=14

                IF NUM<RR
                    SKIP 1
                    NUM=RECNO()
                ENDIF

            CASE ASC(KEY1)=17

                IF RECNO()<>1
                    SKIP -1
                    NUM=RECNO()
                ENDIF

            CASE ASC(KEY1)=24

                NUM=RECNO()
                GO NUM
                EXIT

            CASE ASC(KEY1)=49 .OR. ASC(KEY1)=13

                CLEAR
                NUM=RECNO()
                GO NUM
                DO M
                DO J
                skip

            CASE ASC(KEY1)=50

                CLEAR
                @0,0 SAY "1.換表"
                @0,10 SAY "2.鎖門(mén)估抄"
                @1,0 SAY "3.表不見(jiàn)"
                @1,10 SAY "4.私自移表"
                @2,0 SAY "5.表壞"
                @3,0 SAY "6.欠費(fèi)催費(fèi)"
                @3,10 SAY "7.欠費(fèi)拆表"
                WAIT " " TO KEY3

                DO CASE

                    CASE ASC(KEY3)=49

                        DO C
                        DO J  
                        SKIP

                    CASE ASC(KEY3)=52

                        DO E
                        SKIP

                    CASE ASC(KEY3)=50

                        DO D
                        SKIP

                    CASE ASC(KEY3)=53

                        DO F
                        SKIP

                    CASE ASC(KEY3)=54

                        DO G
                        SKIP

                    CASE ASC(KEY3)=55

                        DO L
                        SKIP

                    CASE ASC(KEY3)=51

                        DO   H
                        SKIP

                ENDCASE

            *****輸機(jī)********
            CASE ASC(KEY1)=51 

                CLEAR
                @2,0 SAY "是否需要計(jì)算電費(fèi)?(1/2)"
                @3,0 SAY "1.計(jì)算 2.不計(jì)算"
                WAIT " " TO KEY4

                DO CASE

                    CASE ASC(KEY4)=49
                        FLAG=1

                        DO WHILE FLAG=1

                            NUM=RECNO()
                            GO NUM
                            DO A
                            DO J

                            IF CM2=0
                                FLAG=0
                                SKIP -1
                            ENDIF

                            SKIP

                        ENDDO

                    CASE ASC(KEY4)=50

                        FLAG=1

                        DO WHILE FLAG=1

                            NUM=RECNO()
                            GO NUM
                            DO I
                            DO J

                            IF CM2=0
                                FLAG=0
                                SKIP -1  
                            ENDIF   

                            SKIP

                        ENDDO

                ENDCASE

            ENDCASE

        ENDDO

    ENDDO

ENDSTART

?? 快捷鍵說(shuō)明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號(hào) Ctrl + =
減小字號(hào) Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
天天色天天爱天天射综合| 99久久精品国产精品久久 | 国产精品少妇自拍| 国产精品一品二品| 国产校园另类小说区| 激情另类小说区图片区视频区| 欧美性猛交xxxx黑人交| 国产精品短视频| 日本乱码高清不卡字幕| 一区二区成人在线| 欧美高清激情brazzers| 美女高潮久久久| 国产精品天干天干在观线| 成人av综合在线| 夜夜嗨av一区二区三区中文字幕| 欧美三片在线视频观看 | 久久99最新地址| 国产精品伦理在线| 欧美性生交片4| 色女孩综合影院| 日韩电影在线看| 精品99一区二区| 欧美午夜宅男影院| 看电视剧不卡顿的网站| 亚洲国产精品二十页| 欧美另类一区二区三区| 国产成人免费在线观看不卡| 亚洲欧美日韩系列| 久久综合色8888| 91欧美激情一区二区三区成人| 亚洲成av人片在www色猫咪| 久久免费视频色| 欧美日韩黄色影视| 91在线视频在线| 岛国精品在线观看| 另类小说图片综合网| 亚洲国产一区二区在线播放| 国产日韩欧美高清| 久久人人97超碰com| 9191精品国产综合久久久久久 | 国产精品自拍网站| 亚洲天堂福利av| 国产精品三级电影| 久久久久久久久免费| 欧美成人精品福利| 日韩精品资源二区在线| 欧美肥妇bbw| 欧美精品 国产精品| 欧美精品视频www在线观看 | 免费在线成人网| 天天操天天色综合| 蜜桃精品视频在线观看| 六月婷婷色综合| 国产精品一区三区| 国产成人精品亚洲日本在线桃色| 国产美女在线观看一区| 国产·精品毛片| 99精品视频一区| 欧美色老头old∨ideo| 欧美一区二区久久久| 欧美精品一区二区蜜臀亚洲| 国产色爱av资源综合区| 亚洲欧洲色图综合| 亚洲午夜激情网站| 国产乱一区二区| 在线观看91视频| 精品国产一区a| 国产精品动漫网站| 精品蜜桃在线看| 色综合久久综合中文综合网| 国产成人精品www牛牛影视| 国产在线播精品第三| 成人激情图片网| 在线观看一区二区视频| 欧美一级高清片在线观看| 久久精品欧美一区二区三区不卡 | 国产精品网友自拍| 污片在线观看一区二区 | 亚洲视频在线观看三级| 欧美一区二区精品| 日本一区二区久久| 日韩精品成人一区二区三区| 波多野结衣欧美| 精品日韩欧美在线| 五月婷婷激情综合| 白白色亚洲国产精品| 2024国产精品视频| 婷婷综合五月天| 欧美性生活影院| 亚洲欧洲精品一区二区三区| 狠狠色丁香久久婷婷综| 欧美三级在线播放| 亚洲欧美日韩在线不卡| 成人午夜视频福利| 久久久综合九色合综国产精品| 天堂va蜜桃一区二区三区漫画版| 99这里都是精品| 欧美国产日韩在线观看| 国产一区二区三区免费观看| 日韩视频一区在线观看| 日韩中文字幕91| 这里只有精品99re| 日韩av网站免费在线| 欧美高清性hdvideosex| 午夜视频在线观看一区| 欧美日韩亚洲不卡| 亚洲777理论| 51精品国自产在线| 免费的成人av| 26uuu亚洲综合色欧美| 国产高清不卡一区| 国产精品久久二区二区| 91麻豆6部合集magnet| 亚洲一二三四在线| 日韩视频永久免费| 成人激情黄色小说| 亚洲午夜三级在线| 欧美一区欧美二区| 成人国产精品免费| 日韩av不卡在线观看| 亚洲mv大片欧洲mv大片精品| wwww国产精品欧美| 欧美专区在线观看一区| 韩国视频一区二区| 一区二区三区在线高清| 日韩一区二区不卡| 99久久综合国产精品| 日产国产高清一区二区三区| 亚洲桃色在线一区| 久久久影院官网| 精品视频在线免费观看| 成人免费视频视频在线观看免费| 亚洲不卡av一区二区三区| 中文字幕日本不卡| 精品久久久久香蕉网| 欧美年轻男男videosbes| 成人黄动漫网站免费app| 麻豆精品新av中文字幕| 亚洲黄色免费网站| 国产精品久久久久久久久免费桃花| 欧美日韩成人一区| 在线看不卡av| 99精品欧美一区二区三区小说| 精品国产免费一区二区三区四区| 视频一区二区三区在线| 国产精品网站在线观看| 久久精子c满五个校花| 久久久.com| 中文字幕精品综合| 国产精品福利一区二区三区| 中文字幕一区二区三区四区| 国产精品你懂的在线欣赏| 中文字幕欧美一区| 亚洲在线视频免费观看| 五月激情丁香一区二区三区| 亚洲v精品v日韩v欧美v专区| 亚洲黄一区二区三区| 日本亚洲三级在线| 国产黄色精品网站| 日韩精品专区在线影院观看| 欧美一级午夜免费电影| 久久一区二区三区国产精品| 国产午夜一区二区三区| 亚洲色图20p| 日本va欧美va精品发布| 国产精品综合一区二区| 一本大道av伊人久久综合| 欧美日韩国产123区| 国产偷国产偷亚洲高清人白洁| 亚洲欧美日韩在线播放| 国内精品免费**视频| 99九九99九九九视频精品| 日韩精品一区国产麻豆| 国产精品黄色在线观看| 蜜桃久久av一区| 在线观看一区日韩| 国产亚洲一二三区| 视频一区二区三区在线| 91丨九色丨黑人外教| 久久这里只有精品6| 亚洲亚洲人成综合网络| 国产乱对白刺激视频不卡| 51午夜精品国产| 日韩综合小视频| 欧美日韩在线不卡| 亚洲综合免费观看高清完整版| 国产91精品一区二区麻豆亚洲| 日韩精品一区二区三区四区| 亚洲国产aⅴ成人精品无吗| 91色综合久久久久婷婷| 中文字幕+乱码+中文字幕一区| 精品一区二区三区视频在线观看| 欧美日韩国产乱码电影| 亚洲成人tv网| 欧美日韩国产高清一区| 奇米影视7777精品一区二区| 欧美一三区三区四区免费在线看| 日韩精品一二三| 欧美电影免费观看高清完整版在线| 久久成人精品无人区|