图书馆图书管理的数据库系统

图书馆图书管理的数据库系统内容摘要：

n6 PROMPT 按专业查询 DEFINE BAR 4 OF _0xg1eevn6 PROMPT 按班级查询 ON SELECTION BAR 1 OF _0xg1eevn6 do form ajsxhcqdj ON SELECTION BAR 2 OF _0xg1eevn6 do form axmcqdj ON SELECTION BAR 3 OF _0xg1eevn6 do form ajycqdj ON SELECTION BAR 4 OF _0xg1eevn6 do form abjcqdj DEFINE POPUP _0xg1eijc4 MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF _0xg1eijc4 PROMPT 图书档案维护 DEFINE BAR 2 OF _0xg1eijc4 PROMPT 读者档案维护 ON BAR 1 OF _0xg1eijc4 ACTIVATE POPUP _0xg1eivt0 ON BAR 2 OF _0xg1eijc4 ACTIVATE POPUP _0xg1elfhv DEFINE POPUP _0xg1eivt0 MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF _0xg1eivt0 PROMPT 添加图书档案 DEFINE BAR 2 OF _0xg1eivt0 PROMPT 修改图书档案 DEFINE BAR 3 OF _0xg1eivt0 PROMPT 删除图书档案 DEFINE BAR 4 OF _0xg1eivt0 PROMPT 清空记录 ON SELECTION BAR 1 OF _0xg1eivt0 do form tjts ON SELECTION BAR 2 OF _0xg1eivt0 do form syxgtsh ON SELECTION BAR 3 OF _0xg1eivt0 do form sysqtsh ON SELECTION BAR 4 OF _0xg1eivt0。 DO _0y40w84br。 IN LOCFILE(\TSGLXT\TSGLXT ,MPX。 MPR|FXP。 PRG ,WHERE is TSGLXT?) DEFINE POPUP _0xg1elfhv MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF _0xg1elfhv PROMPT 添加读者档案 DEFINE BAR 2 OF _0xg1elfhv PROMPT 修改读者档案 DEFINE BAR 3 OF _0xg1elfhv PROMPT 删除读者档案 DEFINE BAR 4 OF _0xg1elfhv PROMPT 清空记录 ON SELECTION BAR 1 OF _0xg1elfhv do form tjdj ON SELECTION BAR 2 OF _0xg1elfhv do form syxgdjh ON SELECTION BAR 3 OF _0xg1elfhv do form sysqdjh ON SELECTION BAR 4 OF _0xg1elfhv。 DO _0y40w84bv。 IN LOCFILE(\TSGLXT\TSGLXT ,MPX。 MPR|FXP。 PRG ,WHERE is TSGLXT?) * ********************************************************* * * * * _0Y40W84BG ON SELECTION BAR 3 OF POPUP 新菜单项 * * * * Procedure Origin: * * * * From Menu: , Record: 19 * * Called By: ON SELECTION BAR 3 OF POPUP 新菜单项 * * Prompt: 查询逾期还书读者 * * Snippet: 1 * * * ********************************************************* * PROCEDURE _0y40w84bg SELECT Dj.*, , , ,。 FROM tsgl!dj INNER JOIN tsgl!js。 INNER JOIN tsgl!ts。 ON =。 ON =。 WHERE。 AND date( )90 * ********************************************************* * * * * _0Y40W84BR ON SELECTION BAR 4 OF POPUP _0xg1eivt0 * * * * Procedure Origin: * * * * From Menu: , Record: 27 * * Called By: ON SELECTION BAR 4 OF POPUP _0xg1eivt0 * * Prompt: 清空记录 * * Snippet: 2 * * * ********************************************************* * PROCEDURE _0y40w84br use ts zap * ********************************************************* * * * * _0Y40W84BV ON SELECTION BAR 4 OF POPUP _0xg1elfhv * * * * Procedure Origin: * * * * From Menu: , Record: 33 * * Called By: ON SELECTION BAR 4 OF POPUP _0xg1elfhv * * Prompt: 清空记录 * * Snippet: 3 * * * ******************。