dev/powerbuilder

대/중/소 분류 만들기

두억시니 2008. 9. 3. 17:32
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
//clicked() script

STRING cConKind, cRegion, cRoomType, ls_newsql
DataWindowChild dwc  

Choose Case dwo.name

    //콘도이용지역 
    Case 'region'
    
        This.AcceptText()  
        cConKind = This.GetItemString(This.GetRow(), 'con_kind')
        
        This.getchild('region', dwc)  // dcode
        dwc.SetTransObject(SQLCA)
        
        ls_newsql = " SELECT datachkd.dcode,         " + &
                    "        datachkd.dname,         " + &
                    "        datachkd.hcode,         " + &
                    "        datachkd.dname1,        " + &
                    "        datachkd.dvalue,        " + &
                    "        datachkd.hdcode,        " + &
                    "        datachkd.relate_code1,  " + &    
                    "        datachkd.relate_code2,  " + & 
                    "        datachkd.fix_code1,     " + &
                    "        datachkd.fix_code2      " + &
                    "   FROM datachkd                " + &
                    "  WHERE datachkd.hcode = 'H753' " + &
                    "    AND datachkd.relate_code1 like '"+ cConKind +"'"  
        
        dwc.SetSqlSelect(ls_newsql)    
        dwc.Retrieve() 

End Choose
cs