模块开发宗卷.doc

模块开发卷宗 1标题 仓库管理系统 本模块为该系统的第一大模块，标识为：第一模块 刘宏彦 创建时间 2005年6月 15 编排日期2005-7-3 2模块开发情况表 3功能说明 本模块包括三个小模块，分别为登陆模块，安全模块，库存操作模块 4设计说明 本模块是该系统第一大模块，是仓库管理系统的核心 5原代码清单 登陆部分源代码为： int guanbi if count=1 then goto a else //messagebox(,这是第+string(count)+次打开主窗体,在次设置) //return end if a: // 连接数据库 string ls_inifile ls_inifile=数据库\cangku.ini SQLCA.DBMS =profileString(ls_inifile,profile cangku,DBMS,ODBC) SQLCA.logid = profileString(ls_inifile,profile cangku,logid,) SQLCA.DBParm =profileString(ls_inifile,profile cangku,dbparm,) SQLCA.lock=profileString(ls_inifile,profile cangku,lock,) SQLCA.autocommit=FALSE connect; string password,qx,zhiwu,username,k,un,pwd un=trim(sle_1.text) pwd=f_jiami(trim(sle_2.text)) if sle_1.text= and sle_2.text= then messagebox(提示,用户名或密码不能为空！) return end if SELECT glyb.g_username,glyb.g_password,glyb.g_quanxian,glyb.g_work,glyb.g_key INTO :username, :password, :qx, :zhiwu, :k FROM glyb WHERE glyb.g_username = :un; if usernameun then count_username=1+count_username if count_username=5 then messagebox(警告,非法试探，系统即将关闭！) //声明一个结构，写入日志 us_rizhi rizhi rizhi.shijian=now() rizhi.user=un rizhi.reason=多次探视,连续试探无效用户名 rizhi.biao=管理员表 rizhi.baojing=1 rizhi.beizhu=wu rizhi.riqi=today() if f_rizhi(rizhi)=0 then messagebox(写入日志错误,sqlca.sqlerrtext) end if guanbi=1 goto jieshu else messagebox(提示,该用户名不存在！) return end if end if if passwordpwd then count_password=1+count_password if count_password3 then messagebox(警告,非法试探，系统即将关闭！) //声明一个结构，写入日志 us_rizhi rizhi1 rizhi1.shijian=now() rizhi1.user=un rizhi1.reason=连续输入三次无效密码！ rizhi1.biao=管理员表 rizhi1.baojing=1 rizhi1.beizhu=使用的用户名为：+un rizhi1.riqi=today() if f_rizhi(rizhi1)=0 then messagebox(写入日志错误,sqlca.sqlerrtext) end if guanbi=1 goto jieshu else messagebox(提示,密码错误！) return end if end if userpass.user=username userpass.pass=password userpass.quanxian=qx userpass.shenfen=zhiwu userpass.key=k if userpass