【正文】 l_find=(s_find,1,())(l_find)//()//string s_filter//s_filter=contractno=39。+s_contractno+39。//(s_filter)//()//數(shù)據(jù)窗口d_supply_weihu_b的結(jié)構(gòu)代碼:( sqlca)()( 0)//數(shù)據(jù)操作的代碼//新增數(shù)據(jù)的程序代碼l_row=(0)(l_row)(l_row)//新增時，等級默認為A，供應商編碼默認為最大string s_type[l_row]=Astring s_maxnoSELECT max() INTO :s_maxno FROM tspp //n WHERE = 39。A39。 string s_1s_1=mid(s_maxno,2)long po_0//po_0=pos(s_1,39。039。)////if po_00 then////s_1=mid(s_1,2)//else//s_1=s_1 //end if//long l_1l_1=long(s_1)if l_19 thenl_1=l_1 +1s_1=39。0039。 + string(l_1)end ifif l_199 and l_19 thenl_1=l_1 +1s_1=39。039。 + string(l_1)end ifif l_199 thenl_1=l_1 +1s_1=string(l_1)end if//n s_1=39。A39。 + s_1s_1=39。T39。 + s_1[l_row]=s_1//刪除數(shù)據(jù)l_row=(0)(l_row)(l_row)//新增時，等級默認為A，供應商編碼默認為最大string s_type[l_row]=Astring s_maxno SELECT max() INTO :s_maxno FROM tspp //n WHERE = 39。A39。 string s_1s_1=mid(s_maxno,2)long po_0//po_0=pos(s_1,39。039。)////if po_00 then////s_1=mid(s_1,2)//else//s_1=s_1 //end if//long l_1l_1=long(s_1)if l_19 thenl_1=l_1 +1s_1=39。0039。 + string(l_1)end ifif l_199 and l_19 thenl_1=l_1 +1s_1=39。039。 + string(l_1)end ifif l_199 thenl_1=l_1 +1s_1=string(l_1)end if//n s_1=39。A39。 + s_1s_1=39。T39。 + s_1[l_row]=s_1//保存數(shù)據(jù)//( )//string s1//s1 = [()]//if isnull(s1) or s1 = then// messagebox(提示,供應商名稱不能為空！)// return//end ifif ()=1 then mit。 messagebox(成功,保存成功)else rollback。end if//如果刪除供應商，記錄到數(shù)據(jù)庫表sys_loglong ll_i,ls_findstring ls_temp[],spp_s,spp_n,ss_find,s_mtlif k_changed = true then for ll_i = lowerbound(spp_name) to upperbound(spp_name) f_log(刪除供應商 + spp_name[ll_i] ) spp_n = spp_cd[ll_i] select mtl_cd into :s_mtl from supmaterial where tspp = :spp_n 。 delete from supmaterial where tspp = :spp_n 。 //創(chuàng)建數(shù)據(jù)存儲 datastore d_t1 d_t1=create datastore=d_supply_delete (sqlca) ( ) ss_find =mtl_cd=39。+s_mtl+39。 if (ss_find,1,()) = 0 then update main_b set class = ,subclass = ,wlm300 = 39。039。 where wlm1_code = :s_mtl。 end if next spp_name = ls_temp spp_cd = ls_temp k_changed = falseend if//delete from supmaterial//where tspp = ( )string s_s1if [()]= or isnull([()]) then returns_s1=[()]string s_findlong l_finds_find=spp_cd=39。+s_s1+39。l_find=(s_find,1,())( l_find)long ifor i=1 to ()if l_find=i then ( i, true) (i)else ( i, false)end ifnext采購訂單的生成程序：datetime date_2//將時間控件的數(shù)據(jù)取出賦給數(shù)據(jù)窗口中的時間字段，用這樣的方法使在數(shù)據(jù)窗口中也使用時間控件。date_2=datetime(date(f_getdate(uo_1)),time(11:00:00))((),make_time,date_2)date_1=[()]string s_no,s_no1 if () =0 thenmessagebox(提示,沒有符合條件的數(shù)據(jù)) returnend if( )//如果沒有輸入采購數(shù)量，給出提示int l_t=0long lkdouble d_kfor lk = 1 to ( ) d_k = [lk] if isnull(d_k) then d_k = 0 end if if d_k = 0 then l_t = 1 else l_t = 0 exit end ifnextif l_t = 1 then messagebox(提示,請輸入采購數(shù)量！) returnend iflong leng,l_count datastore d_dt1long l_1string s_test[]string s_k1string s_filter//供應商為空時，采購訂單自動編碼if s_gy= or isnull(s_gy) then s_no= S+ s_p leng = len(s_no) d_dt1 = create datastore=d_stock_make_f(sqlca) () s_filter = left(dybh,+string(leng)+) =39。+s_no+39。(s_filter) ()l_1 =() if l_1 0 then long ll_row,ll_s1,ll_s2,ll_i,ll_j string s_t,s_1,s_2 //ll_s1= long(right([ll_row],1)) for ll_row = 1 to ( ) s_t = [ll_row] ll_i = pos(s_t,39。_39。) ll_j = lastpos(s_t,39。_39。) s_1 = left(s_t,ll_j 1)s_2 = right(s_1,len(s_1) ll_i) ll_s2= long(s_2) if ll_s2 ll_s1 then ll_s1 = ll_s2end ifnexts_no = s_no +_+ string(ll_s1 + 1)else s_no = s_no +_+ string(1) end if[()]=s_no destroy d_dt1( )datastore d_tm1d_tm1=create datastore =d_stock_make_help(sqlca)()string s_p2s_p2=buyer=39。+s_p+39。 and plan_cd=39。+s_j+39。(s_p2) ()if () 0 then long k for k=1 to () s_k1=[k] s_no= S+ s_p + _+ string(ll_s1 + 1)+_ + s_k1 ( ) wf_movedata1(s_no,s_k1) next end ifdestroy d_tm1else //供應商不為空自動給采購訂單編碼 string s_no2 s_no= S+ s_p + _ //+ s_gy+_ s_no2 = S+ s_p leng = len(s_no2)d_dt1 = create datastore=d_stock_make_f(sqlca) () s_filter = left(dybh,+string(leng)+) =39。+s_no2+39。 (s_filter) () l_1 =() if l_1 0 then long lk_row,lk_s1,lk_s2,lk_i,lk_j string s_k,s_3,s_4 //ll_s1= long(right([ll_row],1)) for lk_row = 1 to ( ) s_k = [lk_row] lk_i = pos(s_k,39。_39。) lk_j = lastpos(s_k,39。_39。) s_3 = left(s_k,lk_j 1) s_4 = right(s_3,len(s_3) lk_i) lk_s2= long(s_4) if lk_s2 lk_s1 then lk_s1 = lk_s2 end if next s_no = s_no + string(lk_s1 + 1)+ _ + s_gy else s_no = s_no + string(1) + _ + s_gy end if/////////////////////////////////////new [()]=s_no destroy d_dt1( ) wf_movedata(s_no)=false //按鈕變不可選end if采購訂單的查詢：( )//判斷登陸人的名字是否為采購員string s_lnameif [()] = gs_loginname then s_lname = [()]SELECT INTO :s_t FROM buyer_table WHERE = :s_lname else s_t=[()] end ifs_2=[()]string s_filter,s_buyer,s_nameif s_2= or isnull(s_2) thenmessagebox(提示,請選擇訂單編號)returnend ifif s_t= or isnull(s_t) thens_t=s_filter=dybh=39。+s_2+39。elses_filter=dybh=39。+s_2+39。end if()(s_filter)()( dw_3 )s_buyer = [()]select into :s_name from buyer_table where = :s_buyer。( = 39。 + s_name + 39。)庫存查詢//查詢窗口程序Integer nColumnCount, nColumnIndex // 列數(shù) ，列號String szColumn // 列的標題名（處理后）Long lRowDataWindowChild dwcColumns // 列的標題名子DATAWINDOWstring des_1,des_2 // 列名列的標題名（處理前）id_ToActOn = is_listoldselect= () // 存儲原來的SQL表達式il_Row = 0nColumnCount = Integer( )( column_number, dwcColumns)is_aszTypes[ nColumnCount