|
|
|
|
 |
|
최임명 / 2001-07-10 / 오후 12:02:15 / 211.33.136.27
조회수 : 143
|
| [질문] 다시물어봐요(화면 소스를 올려요..) |
\\\저도 그렇게 해봤는데 아무것도 값이 없던데..
흑흑흑..
또봐주세요.,
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
|
|
|
|