📄 appmenu.mpr
字号:
* * *
* * Procedure Origin: *
* * *
* * From Menu: APPMENU.MPR, Record: 28 *
* * Called By: ON SELECTION BAR 3 OF POPUP applic *
* * Prompt: Next *
* * Snippet: 5 *
* * *
* ***********************************************************
*
PROCEDURE _0zk0l3jtp
SKIP
IF EOF()
WAIT WINDOW "Bottom of file" NOWAIT
GOTO BOTTOM
ENDIF
SHOW GETS
* ***********************************************************
* * *
* * _0ZK0L3JTY ON SELECTION BAR 4 OF POPUP applic *
* * *
* * Procedure Origin: *
* * *
* * From Menu: APPMENU.MPR, Record: 29 *
* * Called By: ON SELECTION BAR 4 OF POPUP applic *
* * Prompt: Prior *
* * Snippet: 6 *
* * *
* ***********************************************************
*
PROCEDURE _0zk0l3jty
SKIP -1
IF BOF()
WAIT WINDOW "Top of file" NOWAIT
GOTO TOP
ENDIF
SHOW GETS
* ***********************************************************
* * *
* * _0ZK0L3JU0 ON SELECTION BAR 6 OF POPUP applic *
* * *
* * Procedure Origin: *
* * *
* * From Menu: APPMENU.MPR, Record: 31 *
* * Called By: ON SELECTION BAR 6 OF POPUP applic *
* * Prompt: Add record *
* * Snippet: 7 *
* * *
* ***********************************************************
*
PROCEDURE _0zk0l3ju0
* Add a record to the current database
EXTERNAL ARRAY dbflist
PRIVATE allblank, i, fldname, sname, c_rec
IF (m.nextdbf <= 2) OR (ALIAS() = dbflist[1,m.cstemnum])
* Appending into main database
* Always allow this if there are no records; otherwise check for existing
* blank records.
allblank = .F.
IF RECCOUNT() > 0
sname = juststem(m.dbfname)
SELECT &sname
GOTO TOP
DO WHILE DELETED() AND !EOF()
SKIP
ENDDO
IF EOF() && all records appear to be deleted
GOTO TOP
ENDIF
=actwin(m.win_name)
m.allblank = .T.
FOR i = 1 TO FCOUNT()
m.fldname = FIELD(i)
IF !EMPTY(&fldname)
m.allblank = .F.
ENDIF
ENDFOR
* Make sure all records aren't deleted
IF m.allblank
IF RECCOUNT() < 10 && just a rule of thumb
COUNT FOR !DELETED() TO notdel
GOTO TOP
IF m.notdel = 0
m.allblank = .F.
ENDIF
ENDIF
ENDIF
ENDIF
IF !m.allblank
APPEND BLANK
SHOW GETS
ENDIF
_CUROBJ = 1
=actwin(m.win_name)
ELSE && appending record into a child browse
* Fill in the key fields. First find the dbflist record for this
* database.
i = 1
got_it = .F.
DO WHILE i <= m.numareas AND !got_it
IF UPPER(dbflist[i,m.cstemnum]) == ALIAS()
got_it = .T.
ELSE
i = i + 1
ENDIF
ENDDO
* If we found the current database, figure out what its key field is
* and make it default to the corresponding value in the parent database.
* For example, if the current database is an invoice file, make the
* customer number default to the customer number of the current record
* in the customer file.
APPEND BLANK
IF got_it
* dbflist[i,m.cfldnum] looks like "DETAIL.INO"
childfld = dbflist[i,m.cfldnum]
parentfld = dbflist[i,m.pfldnum]
* Replace the key field into the newly appended record
REPLACE &childfld WITH &parentfld
ENDIF
SHOW WINDOW (ALIAS()) REFRESH
ENDIF
* ***********************************************************
* * *
* * _0ZK0L3JU2 ON SELECTION BAR 7 OF POPUP applic *
* * *
* * Procedure Origin: *
* * *
* * From Menu: APPMENU.MPR, Record: 32 *
* * Called By: ON SELECTION BAR 7 OF POPUP applic *
* * Prompt: Copy record *
* * Snippet: 8 *
* * *
* ***********************************************************
*
PROCEDURE _0zk0l3ju2
SCATTER MEMVAR MEMO
APPEND BLANK
GATHER MEMVAR MEMO
IF TYPE("DBFLIST") = "U" OR ALIAS() == UPPER(dbflist[1,m.cstemnum])
SHOW GETS
=actwin(m.win_name) && activate user window
ENDIF
IF WEXIST(ALIAS())
SHOW WINDOW (ALIAS()) REFRESH
ENDIF
* ***********************************************************
* * *
* * _0ZK0L3JU4 ON SELECTION BAR 8 OF POPUP applic *
* * *
* * Procedure Origin: *
* * *
* * From Menu: APPMENU.MPR, Record: 33 *
* * Called By: ON SELECTION BAR 8 OF POPUP applic *
* * Prompt: Delete record *
* * Snippet: 9 *
* * *
* ***********************************************************
*
PROCEDURE _0zk0l3ju4
IF RECCOUNT() > 0
DELETE
IF TYPE("DBFLIST") = "U" OR ALIAS() = dbflist[1,m.cstemnum]
IF !EOF()
SKIP
ENDIF
IF EOF()
GOTO TOP
ENDIF
SHOW GETS
ENDIF
IF WEXIST(ALIAS())
SHOW WINDOW (ALIAS()) REFRESH
ENDIF
ENDIF
* ***********************************************************
* * *
* * _0ZK0L3JU5 ON SELECTION BAR 10 OF POPUP applic *
* * *
* * Procedure Origin: *
* * *
* * From Menu: APPMENU.MPR, Record: 35 *
* * Called By: ON SELECTION BAR 10 OF POPUP applic *
* * Prompt: Browse *
* * Snippet: 10 *
* * *
* ***********************************************************
*
PROCEDURE _0zk0l3ju5
m.skipvar = .T.
dbfstem = juststem(m.dbfname)
SELECT (dbfstem)
ON KEY LABEL enter KEYBOARD(CHR(23))
BROWSE LAST NORMAL NOAPPEND COLOR SCHEME 10
ON KEY LABEL enter
SHOW MENU _msysmenu
m.skipvar = .F.
=actwin(m.win_name)
SHOW GETS
* ***********************************************************
* * *
* * _0ZK0L3JU7 ON SELECTION BAR 11 OF POPUP applic *
* * *
* * Procedure Origin: *
* * *
* * From Menu: APPMENU.MPR, Record: 36 *
* * Called By: ON SELECTION BAR 11 OF POPUP applic *
* * Prompt: Search... *
* * Snippet: 11 *
* * *
* ***********************************************************
*
PROCEDURE _0zk0l3ju7
dbfstem = juststem(m.dbfname)
SELECT (dbfstem)
IF !regen
mname = 'appsrch.prg'
ELSE
mname = 'appsrch.spr'
ENDIF
DO (mname)
SHOW GETS
* ***********************************************************
* * *
* * _0ZK0L3JU8 ON SELECTION BAR 12 OF POPUP applic *
* * *
* * Procedure Origin: *
* * *
* * From Menu: APPMENU.MPR, Record: 37 *
* * Called By: ON SELECTION BAR 12 OF POPUP applic *
* * Prompt: Filter... *
* * Snippet: 12 *
* * *
* ***********************************************************
*
PROCEDURE _0zk0l3ju8
m.orig_rec = RECNO()
GETEXPR 'Filter Expression' TO filt_expr TYPE 'L' DEFAULT filt_expr
IF !EMPTY(m.filt_expr)
SET FILTER TO &filt_expr
GOTO TOP
IF EOF()
WAIT WINDOW "No records match that filter" NOWAIT
SET FILTER TO
IF m.orig_rec <= RECCOUNT()
GOTO m.orig_rec
ENDIF
ENDIF
ELSE
SET FILTER TO
ENDIF
SHOW GETS
* ***********************************************************
* * *
* * _0ZK0L3JUA ON SELECTION BAR 13 OF POPUP applic *
* * *
* * Procedure Origin: *
* * *
* * From Menu: APPMENU.MPR, Record: 38 *
* * Called By: ON SELECTION BAR 13 OF POPUP applic *
* * Prompt: Order... *
* * Snippet: 13 *
* * *
* ***********************************************************
*
PROCEDURE _0zk0l3jua
dbfstem = juststem(m.dbfname)
SELECT (dbfstem)
IF !EMPTY(CDX(1))
IF !regen
mname = 'getorder.prg'
ELSE
mname = 'getorder.spr'
ENDIF
DO (mname)
SHOW GETS
ELSE
WAIT WINDOW "No indexes were found"
ENDIF
* ***********************************************************
* * *
* * _0ZK0L3JUD ON SELECTION BAR 17 OF POPUP applic *
* * *
* * Procedure Origin: *
* * *
* * From Menu: APPMENU.MPR, Record: 42 *
* * Called By: ON SELECTION BAR 17 OF POPUP applic *
* * Prompt: Query... *
* * Snippet: 14 *
* * *
* ***********************************************************
*
PROCEDURE _0zk0l3jud
PRIVATE gen_name, i, qname, pname, win_name
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -