【文章內容簡介】 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）系統中基本窗口及創(chuàng)建及功能的實現 選擇用戶登錄窗口 在應用中建立窗口，添加各控件 分別對三個命令按鈕編寫代碼，登錄到相應的管理員主窗口和用戶主窗口。 圖 41 登錄窗口 //login 控件源代碼分別為： open(w_denglu) open(w_login) 管理員登錄窗口： 新建窗口后，在窗口中放入命令按鈕、單行編輯器、靜態(tài)文本編輯按鈕，分別根據各命令按鈕的功能編寫源代碼。 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) () 客戶信息管理窗口 創(chuàng)建表后可以實現對客 戶信息的管理，對客戶信息修改、插入、刪除并實現修改信息后的保存功能。該窗口只能由管理員訪問。 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) 客戶信息瀏覽 對客戶信息進行瀏覽，開始只能察看默認的信息