窗口设计说明
1. 系统登录与修改密码窗口w_xtdl，如下表2-3-3所示。
表2-3-3 窗口w_xtdl的设计说明
项 目 说 明
窗口名 w_xtdl
所在的PBL库 账务处理系统.pbl
功能 系统登录
父窗口 window
界面设计
窗口控件说明
控件类型 控件名 控件名称 说明
数据窗口 dw_zz 选择账套信息
命令按钮 cb_dkzk &D打开账套 打开指定账套窗口
命令按钮 cb_ztgl &GZ账套管理 进入对指定账套进行删除或停用等操作的窗口
命令按钮 cb_xjzt &X新建账套 进入新建账套窗口
命令按钮 cb_tc &T退出 退出关闭窗口
单行编辑框 sle_bh 输入操作员编号
单行编辑框 sle_mm 输入操作员密码
格式编辑框 em_rq 系统日期
事件 脚本
W_xtdl:
Open! integer r_count
em_rq.text=string(today(),'yyyy-mm-dd')
dw_zz.settransobject(sqlca)
dw_zz.insertrow(0)
select top 1 zth into :g_zth from zz_ztxxb ;
dw_zz.setitem(1,1,g_zth)
//第一次使用空数据库时，系统默认增加一超级用户
select count(*) into :r_count from zz_czyxxb ;
if r_count=0 then
INSERT INTO zz_czyxxb ( zth, czybh, czyxm, czymm, ssbm_code, czyqx_code )
VALUES ( '00', '1', '超级用户', '1', '00', '00') ;
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页