THISFORMcomma
dgroup1comma
d1ENABLEDtTHISFORMcomma
dgroup1comma
d2ENABLEDtTHISFORMcomma
dgroup1comma
d3ENABLEDtTHISFORMcomma
dgroup1comma
d4ENABLEDfTHISFORMcomma
dgroup1comma
d5ENABLEDfTHISFORMcomma
dgroup1comma
d6ENABLEDtENDPROCPROCEDUREComma
d6Click单击命令按钮6的事件过程SELE1选择1号工作区USEAXJEXCLUSIVE打开A盘中的XJDBF数据表PACK彻底删除已作了删除标记的记录THISFORMRELEASE释放录入数据表单ENDPROCPROCEDUREI
teractiveCha
geREPL是否党员WITHTHISFORMcombo5DISPLAYVALUE用组合框的值替换是否党员字段THISFORMREFRESHENDPROC4、修改数据表单源代码A修改sct
f图3PROCEDUREComma
d1ClickIFNOTBOF如果记录指针没有到记录的开头SKIP1向上跳转一个记录THISFORMREFRESHTHISFORMcomma
dgroup1comma
d2ENABLEDtELSEWAITWINDOW已经是第一条记录了！系统给出内容为“已经是第一条记录了！”提示窗口ENDIFENDPROCPROCEDUREComma
d2ClickIFNOTEOF如果记录指针没有到记录的结尾SKIP向下跳转一个记录THISFORMREFRESHTHISFORMcomma
dgroup1comma
d1ENABLEDtELSEWAITWINDOW已经是最后一条记录了！ENDIFENDPROCPROCEDUREComma
d3ClickGOTOP将记录指针移到记录的开头THISFORMREFRESHTHISFORMcomma
dgroup1comma
d1ENABLEDfTHISFORMcomma
dgroup1comma
d2ENABLEDtENDPROC
fPROCEDUREComma
d4ClickGOBOTTOM将记录指针移到记录的结尾THISFORMREFRESHTHISFORMcomma
dgroup1comma
d1ENABLEDtTHISFORMcomma
dgroup1comma
d2ENABLEDfENDPROCPROCEDUREComma
d5ClickTABLEUPDATETTHISFORMcomma
dgroup1comma
d1ENABLEDtTHISFORMcomma
dgroup1comma
d2ENABLEDtTHISFORMcomma
dgroup1comma
d3ENABLEDtTHISFORMcomma
dgroup1comma
d4ENABLEDtTHISFORMcomma
dgroup1comma
d5ENABLEDfTHISFORMcomma
dgroup1comma
d6ENABLEDfTHISFORMcomma
dgroup1comma
d7ENABLEDtENDPROCPROCEDUREComma
d6ClickTABLEREVERTT启用表缓冲，放弃表中对所有记录所做的修改函数THISFORMcomma
dgroup1comma
d1ENABLEDtTHISFORMcomma
dgroup1comma
d2ENABLEDtTHISFORMcomma
dgroup1comma
d3ENABLEDtTHISFORMcomma
dgroup1comma
d4ENABLEDtTHISFORMcomma
dgroup1comma
d5ENABLEDfTHISFORMcomma
dgroup1comma
d6ENABLEDfTHISFORMcomma
dgroup1comma
d7ENABLEDtENDPROCPROCEDUREComma
d7ClickUSEAXJEXCLUSIVEPACKTHISFORMRELEASEENDPROCPROCEDUREClickIFEMPTYTHISFORMcombo1VALUE如果组合框1的值为空MESSAGEBOX