前面说明以下是根据各窗口功能写下代码,也有是因.docVIP

前面说明：以下是根据各窗口的功能写下的代码，也有的是因为代码重复就不再一一赘述，如维护、查询代码等。 全局变量：string uname,level,pass,id int a=1 boolean gb_manager//是否为管理者 boolean lb_fexist 1、红花事件的打开事件： // Profile axi SQLCA.DBMS = ODBC SQLCA.AutoCommit = False SQLCA.DBParm = ConnectString=DSN=axi;UID=;PWD= connect; //open(w_pxbase_plan) //open(w_main) open(w_login) //open(w_changekey) //open(w_dept_stat) 2、新员工录入窗口 窗口的打开事件： dw_1.settransobject(sqlca) dw_1.retrieve() dw_1.insertrow(0) dw_2.settransobject(sqlca) dw_2.retrieve() dw_2.setrowfocusindicator(hand!) dw_1.scrolltorow(dw_2.insertrow(0)) “新增”按钮： dw_1.scrolltorow(dw_1.insertrow(0)) dw_1.setfo