[pb课程设计]合同管理系统论文

[pb课程设计]合同管理系统论文内容摘要：

39。 ,39。 4666339。 ,39。 454539。 )。 insert into customer values(39。 fangzheng39。 ,39。 xiaoliu39。 ,39。 fenjinlu39。 ,39。 12639。 ,39。 45439。 ,39。 458839。 )。 合同信息 insert into contract values(39。 00139。 ,39。 hezuo39。 ,19960213,39。 ning39。 ,39。 dongruan39。 ,39。 keyboard39。 ,39。 20039。 ,39。 yiqian39。 )。 insert into contract values(39。 00239。 ,39。 hezuo39。 ,2020525,39。 ning39。 ,39。 langchao39。 ,39。 host39。 ,39。 100039。 ,39。 yiqian39。 )。 insert into contract values(39。 00339。 ,39。 hezuo39。 ,2020521,39。 ning39。 ,39。 qinghua39。 ,39。 browser39。 ,39。 100039。 ,yijiechu39。 )。 insert into contract values(39。 00439。 ,39。 hezuo39。 ,2020430,39。 ning39。 ,39。 lianxiang39。 ,39。 mouse39。 ,39。 20039。 ,39。 yiqian39。 )。 insert into contract values(39。 00539。 ,39。 hezuo39。 ,2020112,39。 ning39。 ,39。 fangzheng39。 ,39。 host39。 ,39。 202039。 ,39。 weiqian39。 )。 客户方 insert into pany values(39。 dongruan39。 )。 insert into pany values(39。 langchao39。 )。 insert into pany values(39。 qinghua39。 )。 insert into pany values(39。 lianxiang39。 )。 8 insert into pany values(39。 fangzheng39。 )。 我方 insert into wofang values(‘ ning’ )。 insert into wofang values(‘ qinghua’ )。 （ 3）系统中基本窗口及创建及功能的实现 选择用户登录窗口 在应用中建立窗口，添加各控件 分别对三个命令按钮编写代码，登录到相应的管理员主窗口和用户主窗口。 图 41 登录窗口 //login 控件源代码分别为： open(w_denglu) open(w_login) 管理员登录窗口： 新建窗口后，在窗口中放入命令按钮、单行编辑器、静态文本编辑按钮，分别根据各命令按钮的功能编写源代码。 9 图 42 管理员登录窗口 在编写脚本之前要先对窗口定义全局变量 gs_user string gs_user //inter 控件的源代码： string ls_user,ls_password,gs_user ls_user= select pass into :ls_password from users where name=:ls_user。 if =or =then messagebox(,not null!) return end if if =ls_password then open (w_main) close(parent) else messagebox(,error!) end if gs_user=ls_user 10 //users apply 控件源代码： open(w_apply) 管理员登录主窗口 在应用中建立主菜单，包括信息查询、客户信息管理、合同信息管理等菜单项。 然后新建主窗口，在主窗口中导入刚建立的菜单，通过选择菜单项实现相应模块的功 能，当用户登录之后就可以直接进入主窗口进行相应的操作。 图 43 管理员主窗口 新管理员注册窗口 为了使方便更多的人管理，系统中设置了新用户的注册窗口，在窗口中添加控键为各个控件添加脚本，实现管理员注册功能。 并且将注册的管理员名字和密码添加到数据库中，以后该用户就可以以管理员的身份对合同管理系统进行管理。 11 图 44 管理员注册窗口 apply 控件源代码： string ls_user,ls_pass select name into :ls_user from users where name=:ls_user。 if =ls_user then messagebox(,message is exist!) return else insert into users values (:,:)。 mit。 messagebox(,apply successly!) end if 密码修改窗口 为了维护管理员个人信息，系统中增加了用户密码修改窗口，用户通过出入用户名、旧密码 和修改后的新密码就可以将新修改的密码添加到数据库 12 中，管理员以后就可以通过新密码登录。 图 45 管理员密码修改窗口 ok 控件源代码： string ls_user,ls_pass,gs_user select pass into:ls_pass from users where name=:。 if ls_pass then messagebox(,old id error。 ) return end if update users set pass=: where name=:。 if =0 then messagebox(,success!) close(parent) end if 总体查询窗口 13 实现对客户信息和合同信息的总体浏览，在窗口中添加 TAB 控件可以实现在同一窗口中建立两种查询的功能。 图 46 总体查询窗口 //tab control 控件源代码 (sqlca) () (sqlca) () //search 控件源代码 string str,ls_tj str= ls_tj=con_num like39。 +str+%39。 (ls_tj) () 客户信息管理窗口 创建表后可以实现对客 户信息的管理，对客户信息修改、插入、删除并实现修改信息后的保存功能。 该窗口只能由管理员访问。 14 图 47 客户信息管理窗口 //modify 控件源代码： integer ls_tj () ls_tj=(true,false) if ls_tj=1 then mit using sqlca。 () messagebox(,modify successly!) else rollback using sqlca。 end if //insert 控件源代码： () (0) () //delete 控件源代码： (0) //save 控件源代码： 15 if update(dw_1)=1 then mit。 else rollback。 end if //exit 控件源代码： close(parent) 客户信息浏览 对客户信息进行浏览，开始只能察看默认的信息。