【導讀】統(tǒng)配合起來才能運行應用程序，它與數(shù)據(jù)庫的連接可以通過odbc接口實現(xiàn)。以得到更好的管理。理的純手工工作方式。管理，在企業(yè)內部規(guī)劃多部門協(xié)同工作合同管理模式。強大方便的合同審核功。員工合同管理工作的績效統(tǒng)計使得企業(yè)管理者能夠有效地監(jiān)管合同管理工。來的風險進行評估預測。系統(tǒng)特點采用先進的技術，系統(tǒng)運行穩(wěn)定，可擴展性強。數(shù)據(jù)管理功能，使各種合同數(shù)據(jù)都能得到安全統(tǒng)一的存放和科學管理?；锇?、查詢等功能。如果合同的簽訂、履行、變更、解除等全過程完全靠人工進行跟蹤管理，合同表中主鍵是’con_num’，客戶登錄表中主鍵是’cus_pany’。系，而客戶與我方是合作的關系，我方與合同也是簽訂的關系。

　　

【正文】 //用戶信息 insert into users values(39。ning39。,39。52139。),insert into users values(39。liang39。,39。131439。)。 客戶信息 insert into customer values(39。d ongruan39。, 39。xiaoli39。,39。xiyilu39。,39。12639。,39。11139。,39。22239。)。 insert into customer values(39。langchao39。,39。xiaozhang39。,39。xingyuanlu39。,39。16339。,39。12339。,39。12639。)。 insert into customer values(39。qinghua39。,39。xiaowang39。,39。xinerlu39。,39。12639。,39。12339。,39。55239。)。 insert into customer values(39。lianxing39。,39。xiaozhao39。,39。xuexilu39。,39。16339。,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。)。 21 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。)。 insert into pany values(39。fangzheng39。)。 我方 insert into wofang values(‘ ning’ )。 insert into wofang values(‘ qinghua’ )。 （ 3） 基本窗口源代碼 選擇登錄窗口中 login 控件源代碼分別為： open(w_denglu) open(w_login) 登陸窗口中 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!) 22 end if gs_user=ls_user 用戶注冊窗口中 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 密碼修改窗口中 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 總體查詢窗口中 tab control 控件源代碼 (sqlca) 23 () (sqlca) () search 控件源代碼 string str,ls_tj str= ls_tj=con_num like39。+str+%39。 (ls_tj) () 客戶信息管理窗口中 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 控件源代碼： if update(dw_1)=1 then mit。 else rollback。 end if exit 控件源代碼： close(parent) 24 客戶信息瀏覽窗口中 prior 控件源代碼 string str_1,str_2 integer str_3 long l1_row () (0,false) () (1) if ()0 then str_1=trim ( ((),1)) ((),true) end if str_2=select * from customer where cus_pany=39。+str_1+39。 () (sqlca) (str_2) () 合同信息查詢窗口中 search 控件源代碼： string str,ls_tj str= ls_tj=con_num like39。+str+%39。 (ls_tj) (str) dw_1 的源代碼： (0,false) (currentrow,true) string ls_tj ls_tj=(currentrow,39。con_num39。) () 窗口的 open事件： (sqlca) long ll_rows ll_rows=() =true