VERSION 5.00 Object = "{6BF52A50-394A-11D3-B153-00C04F79FAA6}#1.0#0"; "wmp.dll" Begin VB.Form frmDic Caption = "Add New Word to Dictionary" ClientHeight = 10785 ClientLeft = 60 ClientTop = 450 ClientWidth = 13800 Icon = "frmDic.frx":0000 LinkTopic = "Form1" ScaleHeight = 10785 ScaleWidth = 13800 StartUpPosition = 2 'CenterScreen Begin VB.CommandButton Command2 Caption = "Make Sentence Blank Word" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 9360 TabIndex = 28 Top = 7560 Width = 2535 End Begin VB.CommandButton Command1 Caption = "Save" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 6840 TabIndex = 27 Top = 5400 Width = 1335 End Begin VB.TextBox txtDef_K BeginProperty Font Name = "맑은 고딕" Size = 11.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 240 TabIndex = 25 Top = 9840 Width = 11655 End Begin VB.TextBox txtDef_New BeginProperty Font Name = "Tahoma" Size = 11.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 240 TabIndex = 23 Top = 9000 Width = 11655 End Begin VB.TextBox txtSentence_B BeginProperty Font Name = "Tahoma" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 240 TabIndex = 22 Top = 8040 Width = 11655 End Begin VB.TextBox txtSentence_K BeginProperty Font Name = "맑은 고딕" Size = 11.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 240 TabIndex = 20 Top = 6960 Width = 11655 End Begin VB.TextBox txtSentence BeginProperty Font Name = "Tahoma" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 240 TabIndex = 18 Top = 6120 Width = 11655 End Begin VB.TextBox txtKorean BeginProperty Font Name = "맑은 고딕" Size = 11.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 240 TabIndex = 16 Top = 4680 Width = 7815 End Begin VB.CommandButton cmdSend Caption = "Send Picture" BeginProperty Font Name = "Tahoma" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 4440 TabIndex = 13 Top = 5400 Visible = 0 'False Width = 2175 End Begin VB.TextBox txtWord BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 1395 Index = 4 Left = 240 MultiLine = -1 'True ScrollBars = 2 'Vertical TabIndex = 11 Top = 2880 Width = 7815 End Begin VB.TextBox txtWord BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Index = 3 Left = 2880 TabIndex = 8 Top = 2040 Width = 2415 End Begin VB.TextBox txtWord BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Index = 0 Left = 240 TabIndex = 4 Top = 480 Width = 4095 End Begin VB.TextBox txtWord BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Index = 1 Left = 240 TabIndex = 3 Top = 1320 Width = 2415 End Begin VB.TextBox txtWord BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Index = 2 Left = 240 TabIndex = 2 Top = 2040 Width = 2415 End Begin VB.CommandButton cmdFind Caption = "Find" Height = 375 Left = 6240 TabIndex = 1 Top = 480 Width = 1335 End Begin VB.CommandButton Command13 Caption = "Save" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 4560 TabIndex = 0 Top = 480 Width = 1335 End Begin WMPLibCtl.WindowsMediaPlayer Web3 Height = 2775 Left = 11160 TabIndex = 39 Top = 2520 Width = 2535 URL = "" rate = 1 balance = 0 currentPosition = 0 defaultFrame = "" playCount = 1 autoStart = -1 'True currentMarker = 0 invokeURLs = -1 'True baseURL = "" volume = 50 mute = 0 'False uiMode = "full" stretchToFit = 0 'False windowlessVideo = 0 'False enabled = -1 'True enableContextMenu= -1 'True fullScreen = 0 'False SAMIStyle = "" SAMILang = "" SAMIFilename = "" captioningID = "" enableErrorDialogs= 0 'False _cx = 4471 _cy = 4895 End Begin WMPLibCtl.WindowsMediaPlayer Web1 Height = 735 Left = 8160 TabIndex = 38 Top = 5160 Width = 2895 URL = "" rate = 1 balance = 0 currentPosition = 0 defaultFrame = "" playCount = 1 autoStart = -1 'True currentMarker = 0 invokeURLs = -1 'True baseURL = "" volume = 50 mute = 0 'False uiMode = "full" stretchToFit = 0 'False windowlessVideo = 0 'False enabled = -1 'True enableContextMenu= -1 'True fullScreen = 0 'False SAMIStyle = "" SAMILang = "" SAMIFilename = "" captioningID = "" enableErrorDialogs= 0 'False _cx = 5106 _cy = 1296 End Begin WMPLibCtl.WindowsMediaPlayer Web2 Height = 3375 Left = 8160 TabIndex = 37 Top = 2520 Width = 2895 URL = "" rate = 1 balance = 0 currentPosition = 0 defaultFrame = "" playCount = 1 autoStart = -1 'True currentMarker = 0 invokeURLs = -1 'True baseURL = "" volume = 50 mute = 0 'False uiMode = "full" stretchToFit = 0 'False windowlessVideo = 0 'False enabled = -1 'True enableContextMenu= -1 'True fullScreen = 0 'False SAMIStyle = "" SAMILang = "" SAMIFilename = "" captioningID = "" enableErrorDialogs= 0 'False _cx = 5106 _cy = 5953 End Begin VB.Label Label21 AutoSize = -1 'True Caption = "PicNo JPG 파일" BeginProperty Font Name = "맑은 고딕" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 11760 TabIndex = 36 Top = 5400 Width = 1425 End Begin VB.Label Label20 AutoSize = -1 'True Caption = "2개 전부 올린다" BeginProperty Font Name = "맑은 고딕" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 6600 TabIndex = 35 Top = 2160 Width = 1440 End Begin VB.Label Label19 AutoSize = -1 'True Caption = "ABCSound > Sound File 명 wav 파일 (mp3를 wav로 전환)" BeginProperty Font Name = "맑은 고딕" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 8160 TabIndex = 34 Top = 2160 Width = 5340 End Begin VB.Label Label18 AutoSize = -1 'True Caption = "ABCPicture_2016 > 110 사이즈 Picture No명 JPG 파일" BeginProperty Font Name = "맑은 고딕" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 8160 TabIndex = 33 Top = 1800 Width = 5040 End Begin VB.Label Label17 AutoSize = -1 'True Caption = "ABCPicture_2013 > Picture No명 JPG 파일" BeginProperty Font Name = "맑은 고딕" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 8160 TabIndex = 32 Top = 1440 Width = 3945 End Begin VB.Label Label15 AutoSize = -1 'True Caption = "ABCPicture > 단어명 JPG 파일" BeginProperty Font Name = "맑은 고딕" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 8160 TabIndex = 31 Top = 1080 Width = 2775 End Begin VB.Label Label9 BackColor = &H0080C0FF& Caption = "저장되는 FTP 서버" BeginProperty Font Name = "맑은 고딕" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 8160 TabIndex = 30 Top = 120 Width = 3975 End Begin VB.Label Label16 BackColor = &H0080C0FF& Caption = "아래 데이타가 없는 경우에는 Blank 저장됩니다" Height = 255 Left = 240 TabIndex = 29 Top = 5520 Width = 3975 End Begin VB.Label Label14 Caption = "New English Definition in Korea (영영 한글 해석)" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 240 TabIndex = 26 Top = 9600 Width = 8775 End Begin VB.Label Label12 Caption = "New English Definition (English Definition에서 핵심 뜻 )" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 240 TabIndex = 24 Top = 8760 Width = 9495 End Begin VB.Label Label13 Caption = "Word Sentence Blank (문장의 단어 블랭크 처리 하기, 문장 입력후 Make Sentence Blank Word 클릭)" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 240 TabIndex = 21 Top = 7680 Width = 8775 End Begin VB.Label Label11 Caption = "Word Sentence Korean (문장 한글 해석)" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 240 TabIndex = 19 Top = 6720 Width = 3135 End Begin VB.Label Label10 Caption = "Word Sentence (단어가 들어간 영어 문장)" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 240 TabIndex = 17 Top = 5880 Width = 6255 End Begin VB.Label Label8 AutoSize = -1 'True Caption = "단어의 그림이 없는 경우 picnone으로 표시합니다" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 2760 TabIndex = 15 Top = 1440 Width = 4200 End Begin VB.Label Label7 AutoSize = -1 'True Caption = "210.180.118.115 / 211.110.1.18 " BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Left = 8160 TabIndex = 14 Top = 720 Width = 3750 End Begin VB.Label Label6 Caption = "English Definition" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 240 TabIndex = 12 Top = 2640 Width = 1575 End Begin VB.Label Label5 Caption = "Korean Definition" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 240 TabIndex = 10 Top = 4440 Width = 2895 End Begin VB.Label Label4 Caption = "Picture No (New Word 저장시 입력 필요없음)" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 2880 TabIndex = 9 Top = 1800 Width = 4815 End Begin VB.Label Label3 Caption = "Sound File Name" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 240 TabIndex = 7 Top = 1800 Width = 1575 End Begin VB.Label Label2 AutoSize = -1 'True Caption = "Dictionary Picture Word" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 240 TabIndex = 6 Top = 1080 Width = 1695 End Begin VB.Label Label1 Caption = "Word (숙어와 같이 여러 단어들은 하이폰을 사용합니다 예: Get_Up" Height = 255 Left = 240 TabIndex = 5 Top = 120 Width = 7575 End End Attribute VB_Name = "frmDic" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Dim Cnn As New ADODB.Connection Dim RsWeb As New ADODB.Recordset Dim tSQL As String, CnStr As String Private Sub cmdFind_Click() Dim vFolder As String ' vFolder = txtFolder.Text CnStr = VisionData Cnn.Open (CnStr) tSQL = "select * from dictionary where word='" & txtWord(0).Text & "'" RsWeb.Open tSQL, Cnn, adOpenKeyset, adLockOptimistic If Not RsWeb.EOF Or Not RsWeb.BOF Then txtWord(1).Text = RsWeb!PicWord txtWord(2).Text = RsWeb!scode txtWord(3).Text = RsWeb!PicNo txtWord(4).Text = RsWeb!definition txtKorean.Text = RsWeb!n_korean txtSentence.Text = RsWeb!n_sentence txtSentence_K.Text = RsWeb!n_sentence_korean txtSentence_B.Text = RsWeb!n_sentence_blank txtDef_New.Text = RsWeb!n_english txtDef_K.Text = RsWeb!n_english_korean Web1.url = "http://www.visionwork.kr/ABCSound/" + RsWeb!scode + ".mp3" If RsWeb!PicWord <> "picnone" Then Web2.url = "http://www.visionwork.kr/ABCPicture/" & RsWeb!PicWord & ".jpg" Web3.url = "http://www.visionwork.kr/ABCPicture_2013/" & RsWeb!PicNo & ".jpg" Else Web2.url = "" txtWord(1).Text = "picnone" txtWord(3).Text = RsWeb!autono End If Else MsgBox "Not Found" txtWord(1).Text = "" txtWord(2).Text = "" txtWord(3).Text = "" txtWord(4).Text = "" txtKorean.Text = "" txtSentence.Text = "" txtSentence_K.Text = "" txtSentence_B.Text = "" txtDef_New.Text = "" txtDef_K.Text = "" End If RsWeb.Close Cnn.Close End Sub Private Sub cmdSend_Click() If txtWord(1).Text = "" Then MsgBox "Picword Data Missing" Exit Sub End If If txtWord(3).Text = "" Then MsgBox "picture No Data Missing" Exit Sub End If SaveSetting "Whitney2013", "NewPicture", "NewPicture", txtWord(1).Text SaveSetting "Whitney2013", "NewPicture", "NewPictureNo", txtWord(3).Text Shell App.Path + "\send_NewPicture_2015.exe", vbNormalFocus End Sub Private Sub Command13_Click() Dim Cnn As New ADODB.Connection Dim RsWeb As New ADODB.Recordset, RsWeb2 As New ADODB.Recordset Dim tSQL As String If txtWord(1).Text = "" Then MsgBox "Picword Data Missing" Exit Sub End If If txtWord(2).Text = "" Then MsgBox "Sound Data Missing" Exit Sub End If ' If txtWord(3).Text = "" Then ' MsgBox "picture No Data Missing" ' Exit Sub ' End If If txtWord(4).Text = "" Then MsgBox "Definition Data Missing" Exit Sub End If ' If txtWord(5).Text = "" Then ' MsgBox "Korean Definition Data Missing" ' Exit Sub ' End If If txtKorean.Text = "" Then MsgBox "New Korean Definition Data Missing" Exit Sub End If If txtSentence.Text = "" Then MsgBox "Word Sentenct Data Missing" Exit Sub End If If txtSentence_K.Text = "" Then MsgBox "Word Sentenct Korean Data Missing" Exit Sub End If If txtSentence_B.Text = "" Then MsgBox "Word Sentenct Blank Data Missing" Exit Sub End If If txtDef_New.Text = "" Then MsgBox "New English Definition Data Missing" Exit Sub End If If txtDef_K.Text = "" Then MsgBox "New English Definition Korean Data Missing" Exit Sub End If CnStr = VisionData Cnn.Open (CnStr) tSQL = "select * from dictionary where word='" & txtWord(0).Text & "'" RsWeb.Open tSQL, Cnn, adOpenKeyset, adLockOptimistic If Not RsWeb.EOF Or Not RsWeb.BOF Then RsWeb!korean = txtKorean.Text RsWeb!PicWord = txtWord(1).Text RsWeb!definition = txtWord(4).Text RsWeb!scode = txtWord(2).Text RsWeb!PicNo = txtWord(3).Text RsWeb!n_korean = txtKorean.Text RsWeb!n_sentence = txtSentence.Text RsWeb!n_sentence_korean = txtSentence_K.Text RsWeb!n_sentence_blank = txtSentence_B.Text RsWeb!n_english = txtDef_New.Text RsWeb!n_english_korean = txtDef_K.Text RsWeb.Update MsgBox "Updated" Else RsWeb.AddNew RsWeb!word = txtWord(0).Text RsWeb!definition = txtWord(4).Text RsWeb!defsen = txtKorean.Text + vbCrLf + txtWord(4).Text RsWeb!PicWord = txtWord(1).Text RsWeb!scode = txtWord(2).Text RsWeb!sentence = "NO" RsWeb!korean = txtKorean.Text RsWeb!code = txtWord(0).Text RsWeb!def_korean = "Blank" RsWeb!n_korean = txtKorean.Text RsWeb!n_sentence = txtSentence.Text RsWeb!n_sentence_korean = txtSentence_K.Text RsWeb!n_sentence_blank = txtSentence_B.Text RsWeb!n_english = txtDef_New.Text RsWeb!n_english_korean = txtDef_K.Text RsWeb!new_sound = "YES" RsWeb.Update RsWeb.Close tSQL = "select * from dictionary where word='" & txtWord(0).Text & "'" RsWeb.Open tSQL, Cnn, adOpenKeyset, adLockOptimistic If Not RsWeb.EOF Or Not RsWeb.BOF Then RsWeb!PicNo = RsWeb!autono RsWeb.Update End If MsgBox "New Word Saved" End If RsWeb.Close Cnn.Close End Sub Private Sub Command2_Click() Dim Delim As String Dim Posdel As Integer Dim vGot As String, vGot2 As String Dim vLeft As String, vRight As String Dim i As Integer Dim Cnn As New ADODB.Connection Dim RsWeb As New ADODB.Recordset, RsWeb2 As New ADODB.Recordset Dim CnStr As String, tSQL As String Dim vNo As Integer If txtWord(0).Text = "" Then MsgBox "단어가 없습니다." Exit Sub End If If txtSentence.Text = "" Then MsgBox "단어가 사용된 문장이 없습니다." Exit Sub End If vGot = txtSentence.Text Delim = LCase(txtWord(0).Text) Posdel = InStr(vGot, Delim) If Posdel > 0 Then vLeft = Left(vGot, Posdel - 1) vRight = " " + Mid(vGot, Posdel + Len(Delim) + 1) If vRight = " " Then vGot = vLeft + "______" + vRight + "." Else vGot = vLeft + "______" + vRight End If Else vLeft = "______" vRight = Mid(vGot, Posdel + Len(Delim) + 1) vGot = vLeft + " " + vRight End If txtSentence_B.Text = vGot End Sub Private Sub txtWord_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then cmdFind.Value = True End If End Sub