|
|
|
|
 |
|
채영이 / 2001-07-10 / 오후 2:19:17 / 203.255.3.190
조회수 : 122
|
| [질문] 다시물어봐요(화면 소스를 올려요..) |
> \\\저도 그렇게 해봤는데 아무것도 값이 없던데..
> 흑흑흑..
> 또봐주세요.,
>
> Private Sub yworkview_UserEvent(ByVal EventName As String)
> '등록권자든 조회권자든 작업내용을 눌렀을 때 조회된 ytitleview의 관리번호와
> 'work_m의 관리번호가 같은 모든 자료를 display
> 'market_m의 관리번호와 work_m의 관리번호가 같은 것은 일단 모두 display하기
> Dim workado As New ADODB.Recordset
> Dim workname As New ADODB.Recordset
> Dim WKIND As String
> Dim windex As String
> Dim ycode As String
> 'Dim yshotlen As Integer
> 'Dim ytotallen As Integer
> 'Dim yshotn As String
> 'Dim searchc As String
>
>
> 'eventname=약칭명, 관리번호
>
> 'searchc = ","
> '
> 'yshotlen = InStr(1, EventName, searchc, 0) '약칭명길이
> 'yshotn = Trim(Mid(EventName, 1, yshotlen - 1)) '약칭명
> '
> 'ytotallen = Len(EventName)
> '
> 'ycode = Mid(EventName, yshotlen + 1, (ytotallen - Len(yshotlen) - 1)) '관리번호
>
>
> With workado
> .ActiveConnection = DataEnv.adocon
> .Source = "select * from work_m where w_code='" & Session("ycode") & "' order by w_index"
> .open
> End With
> With Response
> workado.CacheSize = 20 '레코드를 20개씩 캐시에 저장
> workado.PageSize = 10 '한번에 10개씩 보여주기
>
> If workado.RecordCount > 0 Then
> If CInt(EventName) = 0 Then
> workado.AbsolutePage = 1 '현재 레코드가 들어갈 페이지
> Else
> If CInt(EventName) > workado.PageCount Then
> workado.AbsolutePage = 1
> Else
> workado.AbsolutePage = CInt(EventName)
> End If
> End If
> End If
> '==============================
>
> .write "<br>"
>
> If workado.RecordCount > 0 Then
> .write "<html>"
> .write "<head>"
> .write "<title>"
> .write "</title>"
> .write "<script language='javascript'>"
> .write "function yworksave() {"
> .write " var checkvalue;"
> .write " for(var a=1;a<document.yproject.y_radio.length;a++){"
> .write " if(document.yproject.y_radio[a].checked==true) {"
> .write " checkvalue=document.yproject.y_radio[a].value;"
> .write " }"
> .write "}"
> .write " document.yproject.action='" & URLFor(yworkinsert, Session("ycode") & "," & checkvalue) & "';"
> .write " document.yproject.submit();"
> .write "}"
>
> .write "function yworkdelete() {"
> .write " var checkvalue;"
> .write " for(var a=1;a<document.yproject.y_radio.length;a++){"
> .write " if(document.yproject.y_radio[a].checked==true) {"
> .write " checkvalue=document.yproject.y_radio[a].value;"
> .write " }"
> .write "}"
> .write " document.yproject.action='" & URLFor(yworkdelete, Session("ycode") & "," & checkvalue) & "';"
> .write " document.yproject.submit();"
> .write "}"
>
>
> .write "</script>"
> .write "</head>"
>
> .write "<body bgcolor=white text=black link=blue vlink=purple alink=red>"
> .write "<p> </p>"
> .write "<form method=post name=yproject>"
> .write "<center>"
> .write "<p align=center><font size=4 color='#6161A6'><b>작업내용 조회</b></font></p>"
> .write "<br>"
> .write "<table border=1 width=643 height=10 cellspacing=0 bordercolordark=white bordercolorlight=black>"
>
> .write "<TABLE border=0 cellPadding=1 cellSpacing=1 width=95%>"
> .write "<tr><td></td><td align=right>"
>
> If workado.AbsolutePage = 1 Then
> .write "◀ |"
> Else
> .write "<a href=" & URLFor(yworkwiew, CStr(workado.AbsolutePage - 1)) & ">◀</a> |"
> End If
> If workado.AbsolutePage < workado.PageCount Then
> .write "<a href=" & URLFor(yworkview, CStr(workado.AbsolutePage + 1)) & "> ▶</a>"
> Else
> .write " ▶"
> End If
>
> .write "<td align=right width=80><font size=2> " & CStr(workado.AbsolutePage) & "/" & CStr(workado.PageCount) & "</font></td>"
> .write "</tr></table>"
> '화면 ====================================
> .write "<br>"
> .write "<table border=1 width=95% cellspacing=0 bordercolordark=white bordercolorlight=black>"
> .write "<tr>"
> .write "<td align=center bgcolor=skyblue width=52><b>선택</b></td>"
> ' .write "<td align=center bgcolor=skyblue width=40><b>NUM</b></td>"
> .write "<td align=center bgcolor=skyblue width=67><font size=2 color = black><b>관리번호</b></font></td>"
> .write "<td align=center bgcolor=skyblue width=67><font size=2 color = black><b>작업일</b></font></td>"
> .write "<td align=center bgcolor=skyblue width=67><font size=2 color=black><b>작업종류</b></font></td>"
> .write "<td align=center bgcolor=skyblue width=67><font size=2 color=black><b>담당자</b></font></td>"
> .write "<td align=center bgcolor=skyblue width=323><font size=2 color=black><b>작업내용</b></font></td>"
>
> '=========================================
> 'db에서 자료 가지고 와서 DISPLAY
> Do While Not workado.EOF
>
>
> ' ytrans_msname = yuser.Fields("m_shot_name") '약칭명
> Select Case workado.Fields("w_kind")
> Case "U":
> WKIND = "수정"
> Case "D":
> WKIND = "해지"
> Case "O":
> WKIND = "OPEN"
> End Select
>
> workname.ActiveConnection = DataEnv.adocon
> workname.Source = "select u_name from user_m where u_code='" & workado.Fields("w_man") & "'"
> workname.open
> '
>
> .write "<tr>"
>
> .write "<td align=center bgcolor=white><input type=radio name=y_radio value=" & workado.Fields("w_index") & " ></td>"
> ' .write "<td align=center bgcolor=white><font size=2 color=black>" & workado.Fields("w_index") & " </font> </td>"
> .write "<td align=center bgcolor=white><font size=2 color=black>" & workado.Fields("w_code") & "</font> </td>"
> .write "<td align=center bgcolor=white><font size=2 color=black>" & WKIND & "</font> </td>"
> .write "<td align=center bgcolor=white><font size=2 color=black>" & workado.Fields("w_kind") & "</font> </td>"
> .write "<td align=center bgcolor=white><font size=2 color=black>" & workname.Fields("u_name") & "</font> </td>"
> .write "<td align=right bgcolor=white><font size=2 color=black>" & workado.Fields("w_note") & "</font> </td>"
>
> workname.Close
> Set workname = Nothing
>
> ycode = workado.Fields("w_code")
> windex = workado.Fields("w_index")
>
> workado.MoveNext
>
> Loop
>
>
> .write "</tr>"
> .write "</table>"
> .write "<br>"
>
> .write "<table border=0 width=600 cellspacing=0 backcolor=whiteblue bordercolordark=white bordercolorlight=black>"
> .write "<tr>"
> .write "<td width=786>"
> .write "<p align=center><br> "
>
> .write "<a href='javascript:yworksave()'><img src='img/등록.gif' border=0></a> "
> ' .write "<a href=" & URLFor(yworkinsert, ycode & "," & windex) & "><img src='img/등록.gif' border=0></a> "
> '.write "<a href=" & URLFor(yworkdelete, ycode & "," & windex) & "><img src='img/삭제.gif' border=0></a>"
> .write "<a href='javascript:yworkdelete()'><img src='img/삭제.gif' border=0></a>"
> .write "</td>"
> .write "</tr> "
> .write "</table>"
>
>
>
> Else '자료가 없다면
> .write "<br>"
> .write "<br>"
> .write "<p align=center><font size=3 color=blue><b> 검색할 자료가 없습니다.</b></font>"
> .write "<br>"
> .write "<h3><p align=center><font color=""red"">등록 확인</font></h3>"
> .write "<br><br>"
> .write "<p align=center> 등록하시겠습니까? <br>"
> ' .write "[<a href=" & Chr(34) & URLFor(ydeletesave, EventName) & Chr(34) & ">예</a>] [<a href=" & Chr(34) & URLFor(ysearch, "0") & Chr(34) & ">아니오</a>]<br>"
> .write "<p align=center>[<a href=" & URLFor(yworkinsert, EventName) & ">예</a>] [<a href=" & URLFor(ytitleview, EventName) & ">아니오 </a>]<br>"
>
>
> End If
> .write "</table>"
> .write "</form>"
> .write "</body>"
> .write "</html>"
> '====================================================================
> End With
> End Sub
>
>
-----------------------------------------------------------
제가 해 보닌까 잘 되는데요?
임명님이 버턴 이름이나 폼 이름 또는 변수명에 오타가 있으신거 아닌가요?
아니면 받는쪽에서 변수명이 틀렸거나요...
value 안 붙여도 잘 되더군요...
그리고 이건 뭐가 안 된다는건가요?
질문을 정확히 해 주셔야 제가 답을 해 드릴 수가 있죠..
같이 프로그래밍 한것도 아닌데... 그냥 소스 던져 놓고 봐 달라고 하면...
제가 어떻게 답을 해 드리나요....
날 더운데... 수고하세요....
|
|
|
|