VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Begin VB.Form maginq1 
   Appearance      =   0  'Flat
   AutoRedraw      =   -1  'True
   BackColor       =   &H00E0E0E0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "สืบค้นดรรชนีวารสาร"
   ClientHeight    =   8625
   ClientLeft      =   90
   ClientTop       =   375
   ClientWidth     =   11910
   BeginProperty Font 
      Name            =   "MS Sans Serif"
      Size            =   8.25
      Charset         =   222
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H000040C0&
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   8625
   ScaleWidth      =   11910
   WindowState     =   2  'Maximized
   Begin VB.Frame fmelist 
      BorderStyle     =   0  'None
      Height          =   6735
      Left            =   240
      TabIndex        =   16
      Top             =   1560
      Visible         =   0   'False
      Width           =   11415
      Begin VB.CommandButton cmdcontent1 
         Caption         =   "Content"
         Height          =   375
         Left            =   7560
         TabIndex        =   24
         Top             =   6240
         Width           =   1695
      End
      Begin VB.CommandButton Command2 
         Caption         =   "Return"
         Height          =   375
         Left            =   9360
         TabIndex        =   23
         Top             =   6240
         Width           =   1695
      End
      Begin MSFlexGridLib.MSFlexGrid ss2 
         Height          =   4575
         Left            =   600
         TabIndex        =   27
         Top             =   1080
         Width           =   10215
         _ExtentX        =   18018
         _ExtentY        =   8070
         _Version        =   393216
         Rows            =   5
         FixedCols       =   0
         ForeColor       =   12582912
         BackColorSel    =   16776960
         ForeColorSel    =   0
         TextStyleFixed  =   1
         FocusRect       =   0
         ScrollBars      =   2
         SelectionMode   =   1
         AllowUserResizing=   2
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   222
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin VB.Label lbnamemag 
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Label1"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   222
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   615
         Left            =   600
         TabIndex        =   22
         Top             =   240
         Width           =   6975
      End
   End
   Begin VB.Frame fmeindex 
      BorderStyle     =   0  'None
      Height          =   6735
      Left            =   960
      TabIndex        =   19
      Top             =   1560
      Width           =   10815
      Begin VB.CommandButton cmdre 
         Caption         =   "Return"
         Height          =   375
         Left            =   6960
         TabIndex        =   25
         Top             =   4920
         Width           =   1815
      End
      Begin VB.TextBox Text1 
         Appearance      =   0  'Flat
         BackColor       =   &H80000018&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   222
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   3735
         Left            =   960
         MultiLine       =   -1  'True
         TabIndex        =   20
         Text            =   "Maginq1.frx":0000
         Top             =   720
         Width           =   7800
      End
   End
   Begin MSFlexGridLib.MSFlexGrid ss3 
      Height          =   6015
      Left            =   240
      TabIndex        =   10
      Top             =   1680
      Width           =   11415
      _ExtentX        =   20135
      _ExtentY        =   10610
      _Version        =   393216
      Rows            =   5
      FixedCols       =   0
      ForeColor       =   12582912
      BackColorSel    =   16776960
      ForeColorSel    =   0
      WordWrap        =   -1  'True
      TextStyleFixed  =   1
      FocusRect       =   0
      ScrollBars      =   2
      SelectionMode   =   1
      AllowUserResizing=   2
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   222
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.CommandButton Command6 
      Caption         =   "Exit"
      Height          =   375
      Left            =   9840
      TabIndex        =   15
      Top             =   7920
      Width           =   1815
   End
   Begin VB.CommandButton Cmdabst 
      Caption         =   "Abstract"
      Enabled         =   0   'False
      Height          =   375
      Left            =   7920
      TabIndex        =   14
      Top             =   7920
      Visible         =   0   'False
      Width           =   1815
   End
   Begin VB.CommandButton Cmdarticle 
      Caption         =   "Information"
      Height          =   375
      Left            =   6000
      TabIndex        =   13
      Top             =   7920
      Visible         =   0   'False
      Width           =   1815
   End
   Begin VB.CommandButton Cmdcontent 
      Caption         =   "Content"
      Height          =   375
      Left            =   4080
      TabIndex        =   12
      Top             =   7920
      Width           =   1815
   End
   Begin VB.CommandButton Cmdindex 
      Caption         =   "Index Card"
      Height          =   375
      Left            =   2160
      TabIndex        =   11
      Top             =   7920
      Width           =   1815
   End
   Begin VB.CheckBox Chkcon 
      BackColor       =   &H00E0E0E0&
      Caption         =   "ส่วนใดก็ได้"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   222
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   9720
      TabIndex        =   9
      Top             =   680
      Width           =   1335
   End
   Begin VB.OptionButton optcon 
      BackColor       =   &H00C0C0C0&
      Caption         =   "สืบค้นโดยหัวเรื่อง"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   222
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   375
      Index           =   3
      Left            =   240
      Style           =   1  'Graphical
      TabIndex        =   8
      Top             =   1080
      Width           =   2655
   End
   Begin VB.OptionButton optcon 
      BackColor       =   &H00C0C0C0&
      Caption         =   "สืบค้นโดยชื่อผู้เขียนบทความ"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   222
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   375
      Index           =   2
      Left            =   5880
      Style           =   1  'Graphical
      TabIndex        =   7
      Top             =   680
      Width           =   3015
   End
   Begin VB.OptionButton optcon 
      BackColor       =   &H00C0C0C0&
      Caption         =   "สืบค้นโดยชื่อบทความ"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   222
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   375
      Index           =   1
      Left            =   3360
      Style           =   1  'Graphical
      TabIndex        =   6
      Top             =   680
      Width           =   2295
   End
   Begin VB.OptionButton optcon 
      BackColor       =   &H00C0C0C0&
      Caption         =   "สืบค้นโดยชื่อวารสาร/สิ่งพิมพ์"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   222
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   375
      Index           =   0
      Left            =   240
      Style           =   1  'Graphical
      TabIndex        =   5
      Top             =   680
      Width           =   3015
   End
   Begin VB.CommandButton Cmdlist 
      Caption         =   "List Items"
      Height          =   375
      Left            =   240
      TabIndex        =   4
      Top             =   7920
      Width           =   1815
   End
   Begin VB.CommandButton cmdclear 
      Caption         =   "CLEAR"
      Height          =   375
      Left            =   10080
      TabIndex        =   3
      Top             =   120
      Width           =   1695
   End
   Begin VB.CommandButton Cmdsearch 
      Caption         =   "SEARCH"
      Height          =   375
      Left            =   8280
      TabIndex        =   2
      Top             =   120
      Width           =   1695
   End
   Begin VB.TextBox txtsearch 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   222
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   470
      Left            =   2760
      TabIndex        =   1
      Top             =   140
      Width           =   5055
   End
   Begin VB.Data Data2 
      Appearance      =   0  'Flat
      Caption         =   "Data2"
      Connect         =   "Access"
      DatabaseName    =   "F:\LIBRARY\DATABASE\MAGAZINE.MDB"
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   390
      Left            =   2040
      Options         =   0
      ReadOnly        =   -1  'True
      RecordsetType   =   1  'Dynaset
      RecordSource    =   $"Maginq1.frx":0006
      Top             =   6480
      Visible         =   0   'False
      Width           =   1815
   End
   Begin VB.Data Data1 
      Appearance      =   0  'Flat
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   "F:\LIBRARY\DATABASE\MAGAZINE.MDB"
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   375
      Left            =   240
      Options         =   0
      ReadOnly        =   -1  'True
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   6480
      Visible         =   0   'False
      Width           =   1815
   End
   Begin MSFlexGridLib.MSFlexGrid ss4 
      Bindings        =   "Maginq1.frx":00D1
      Height          =   6015
      Left            =   240
      TabIndex        =   26
      Top             =   1680
      Width           =   11415
      _ExtentX        =   20135
      _ExtentY        =   10610
      _Version        =   393216
      Rows            =   5
      FixedCols       =   0
      ForeColor       =   12582912
      BackColorSel    =   16776960
      ForeColorSel    =   0
      WordWrap        =   -1  'True
      TextStyleFixed  =   1
      FocusRect       =   0
      ScrollBars      =   2
      SelectionMode   =   1
      AllowUserResizing=   2
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   222
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin MSFlexGridLib.MSFlexGrid ss1 
      Height          =   6015
      Left            =   480
      TabIndex        =   28
      Top             =   1680
      Width           =   10695
      _ExtentX        =   18865
      _ExtentY        =   10610
      _Version        =   393216
      Rows            =   5
      FixedCols       =   0
      ForeColor       =   12582912
      BackColorSel    =   16776960
      ForeColorSel    =   0
      TextStyleFixed  =   1
      FocusRect       =   0
      ScrollBars      =   2
      SelectionMode   =   1
      AllowUserResizing=   2
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   222
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.Data Data3 
      Appearance      =   0  'Flat
      Caption         =   "Data3"
      Connect         =   "Access"
      DatabaseName    =   "F:\LIBRARY\DATABASE\MAGAZINE.MDB"
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   390
      Left            =   3840
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   $"Maginq1.frx":00E5
      Top             =   6480
      Visible         =   0   'False
      Width           =   1815
   End
   Begin VB.Frame fmeabst 
      BorderStyle     =   0  'None
      Height          =   6615
      Left            =   240
      TabIndex        =   17
      Top             =   1560
      Width           =   11415
      Begin VB.CommandButton Command1 
         Caption         =   "Return"
         Height          =   375
         Left            =   8640
         TabIndex        =   21
         Top             =   6120
         Width           =   1695
      End
      Begin VB.TextBox txtabst 
         Appearance      =   0  'Flat
         Height          =   5895
         Left            =   240
         MultiLine       =   -1  'True
         ScrollBars      =   3  'Both
         TabIndex        =   18
         Text            =   "Maginq1.frx":01AB
         Top             =   120
         Width           =   10815
      End
   End
   Begin VB.Label lblmagname 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H00E0E0E0&
      Caption         =   "ใส่ข้อมูลที่ต้องการสืบค้น"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   222
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   300
      Index           =   0
      Left            =   120
      TabIndex        =   0
      Top             =   160
      Width           =   2520
   End
End
Attribute VB_Name = "maginq1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'----------------------

Dim abstdb As Database
Dim SS2MAXCOLS As Integer
Dim SS2MAXROWS As Integer

Dim openact As Integer
Dim sqlcmd As String
Dim xpointer As String
Dim ypointer As String

Dim trandyn As Recordset   'dynaset
Public conttab As Recordset
'Dim mag1tab As table
'Dim authtab As table
'Dim arttab As table
'
Dim mautdyn As Recordset   'dynaset
Dim msubdyn As Recordset   'dynaset
Public cutsdyn As Recordset   'dynaset

Dim arttab As Recordset
Dim authtab As Recordset
Dim mag1tab As Recordset
Dim absttab As Recordset
Public jintab As Recordset

Dim msgresponse As Integer
Dim maxtextno As Integer

Dim authid As String
Public artkey As String

Dim buffer As String
Dim bufferx As String
Dim buffery As String

Dim typecode As Integer



Private Sub cmdabst_Click()
    fmeabst.Visible = True
    txtabst = absttab.Fields(1).Value
End Sub

Private Sub cmdarticle_Click()
    Dim fname As String
    Dim X

    If authid = "" Then Exit Sub
    If cutsdyn.RecordCount <= 0 Then Exit Sub

    If IsNull(cutsdyn.Fields(2).Value) Or cutsdyn.Fields(2).Value = "" Then
        MsgBox "Can not find information"
        Cmdarticle.Enabled = False
        Exit Sub
    End If
    
    fname = Trim$(cutsdyn.Fields(2).Value)
    X = Shell("F:\acrobat3\read16\acrord16.exe " & fname, 4)

End Sub

Private Sub cmdclear_Click()
    Call open_cmd(0, 0, 0, 0)
    Call open_fme(False, False, False)
    Cmdabst.Enabled = False
    If optcon(0).Value = True Then
        Call ss11_reset
        Call ss11_properties
        'ss1.Refresh
    ElseIf optcon(1).Value = True Then
        Call ss3_clear
        Call ss3_properties
    ElseIf optcon(2).Value = True Then
        Call ss4_clear
        Call ss4_properties
    Else
        Call ss3_clear
        Call ss35_properties
    End If
    cmdclear.Enabled = False
    txtsearch = ""
    txtsearch.SetFocus
End Sub

Private Sub cmdcontent_Click()
    Dim contdyn As Recordset
    Dim fname As String
    Dim X
    
    If xpointer = "" Or IsNull(xpointer) Then
        MsgBox " Please select data "
        Exit Sub
    End If
    Set contdyn = magdb.OpenRecordset("Select * From content Where content.Pointer = '" & xpointer & "' Order By content.Magno DESC;", dbOpenDynaset)
    If contdyn.RecordCount <= 0 Then
        MsgBox " No Content for this Magazine "
        contdyn.Close
        Exit Sub
    End If
    contdyn.MoveFirst

    If xpointer = "" Or IsNull(xpointer) Then
        MsgBox " Please select data "
        Exit Sub
    Else
        If contdyn.Fields(3).Value = "" Or IsNull(contdyn.Fields(3).Value) Then
            If contdyn.Fields(2).Value = "" Or IsNull(contdyn.Fields(2).Value) Then
                MsgBox " No Content for lalest this "
                Exit Sub
            Else
                fname = Trim$(contdyn.Fields(2).Value)
                X = Shell("F:\acrobat3\read16\acrord16.exe " & fname, 4)
            End If
        Else
            ss1.Visible = False
            fmeabst.Visible = True
            txtabst = contdyn.Fields(3).Value
        End If
    End If
End Sub

Private Sub cmdcontent1_Click()
    Dim conttab As Recordset
    Dim fname As String
    Dim X
    
    Set conttab = magdb.OpenRecordset("content", dbOpenTable)
    conttab.Index = "content1"
    If ypointer = "" Or IsNull(ypointer) Then
        MsgBox " Please select data "
        Exit Sub
    End If

    conttab.Seek "=", Trim$(xpointer), Trim$(ypointer)
    If conttab.NoMatch Then
        MsgBox " No Content for this Magazine "
        Exit Sub
    Else
        If conttab.Fields(3).Value = "" Or IsNull(conttab.Fields(3).Value) Then
            If conttab.Fields(2).Value = "" Or IsNull(conttab.Fields(2).Value) Then
                MsgBox " No Content for this Magazine "
                Exit Sub
            Else
                fname = Trim$(conttab.Fields(2).Value)
                X = Shell("F:\acrobat3\read16\acrord16.exe " & fname, 4)
            End If
        Else
            fmeabst.Visible = True
            txtabst = conttab.Fields(3).Value
        End If
    End If
End Sub

Private Sub cmdExit_Click()
    Data1.Recordset.Close
    Unload Me
End Sub

Private Sub cmdindex_Click()
    Dim sql As String
    Dim n As Integer
    Dim no As String

    If typecode <= 0 Then Exit Sub
    
    If ss3.Visible = False And ss4.Visible = False Then
        MsgBox " Index Card Not Avilable "
        Exit Sub
    End If
    fmeindex.Visible = True
    fmelist.Visible = False
    Set jintab = magdb.OpenRecordset("jindex", dbOpenTable)
    jintab.Index = "jindex1"
    jintab.Seek "=", Trim(artkey), "1"
    If jintab.NoMatch Then
        Text1 = Chr(13) & Chr(10) & " --- ยังไม่ได้ทำบัตรดรรชนีวารสาร --- "
    Else
        Text1 = Chr(13) + Chr(10)
        Text1 = Text1 & jintab.Fields(2).Value
    End If
End Sub

Private Sub cmdlist_Click()
    ypointer = ""
    fmelist.Visible = True
    ss1.Visible = False
    Call ss2_properties
    Call open_cmd(False, False, True, False)
    lbnamemag.Caption = Trim$(ss1.TextMatrix(ss1.Row, 0))
    lbnamemag.Caption = lbnamemag.Caption + " ; ISSN : " & Trim$(ss1.TextMatrix(ss1.Row, 1))
    Call ss2_clear
    Call load_ss2
End Sub

Private Sub cmdreturn_Click()
    fmelist1.Visible = False
    Call open_cmd(1, 0, 1, 0)
End Sub

Private Sub cmdreturn1_Click()
    fmeindex.Visible = False
    fmelist.Visible = True
End Sub

Private Sub cmdreturn5_Click()
    txtabst = ""
    fmeabst.Visible = False
End Sub
Function checstring(st As String, tsea As String) As Integer
checstring = InStrRev(st, Trim(tsea))
End Function

Private Sub cmdre_Click()
fmeindex.Visible = False
If optcon(1).Value = True Or optcon(3).Value = True Then
    ss3.Visible = True
Else
    ss4.Visible = True
End If

End Sub

Private Sub cmdsearch_Click()
 Dim seachta As Recordset

    If txtsearch = "" Or IsNull(txtsearch) Then
        MsgBox " Please fill data "
        txtsearch.SetFocus
        Exit Sub
    End If
    If optcon(0).Value = True Then
        Call open_fmelist(True, False, False)
        Call ss11_properties
        Call load_ss1
        Call open_cmd(1, 0, 1, 0)
    ElseIf optcon(1).Value = True Then
        Cmdabst.Enabled = False
        Call open_fmelist(False, True, False)
        Call ss3_properties
        Call load_ss3
        Call open_cmd(False, False, False, True)
    ElseIf optcon(2).Value = True Then
        Call open_fmelist(False, False, True)
        Call ss4_properties
        Call load_ss4
        Call open_cmd(False, 1, 0, 1)
    ElseIf optcon(3).Value = True Then
        Cmdabst.Enabled = False
        Call open_fmelist(False, True, False)
        Call ss35_properties
        Call load_ss3_5
        Call open_cmd(False, False, False, True)
    Else
        MsgBox "Please select condition before search"
        Exit Sub
    End If
    'MsgBox sqlcmd
End Sub

Private Sub DataGrid1_Click()

End Sub

Private Sub Command1_Click()
ss1.Visible = True
ss1.Refresh
fmeabst.Visible = False
End Sub

Private Sub Command2_Click()
ss1.Visible = True
fmelist.Visible = False
Call open_cmd(True, False, True, False)
End Sub

Private Sub Command3_Click()
   Dim contdyn As Recordset
    Dim fname As String
    Dim X
    
    If ypointer = "" Or IsNull(ypointer) Then
        MsgBox " Please select data "
        Exit Sub
    End If
    Set contdyn = magdb.OpenRecordset("Select * From content Where content.Pointer = '" & ypointer & "' Order By content.Magno DESC;", dbOpenDynaset)
    If contdyn.RecordCount <= 0 Then
        MsgBox " No Content for this Magazine "
        contdyn.Close
        Exit Sub
    End If
    contdyn.MoveFirst

    If ypointer = "" Or IsNull(ypointer) Then
        MsgBox " Please select data "
        Exit Sub
    Else
        If contdyn.Fields(3).Value = "" Or IsNull(contdyn.Fields(3).Value) Then
            If contdyn.Fields(2).Value = "" Or IsNull(contdyn.Fields(2).Value) Then
                MsgBox " No Content for lalest this "
                Exit Sub
            Else
                fname = Trim$(contdyn.Fields(2).Value)
                X = Shell("F:\acrobat3\read16\acrord16.exe " & fname, 4)
            End If
        Else
            ss1.Visible = False
            fmeabst.Visible = True
            txtabst = contdyn.Fields(3).Value
        End If
    End If
End Sub

Private Sub Command6_Click()
Unload Me
End Sub

Private Sub Form_Activate()

    Set abstdb = libWs.OpenDatabase("F:\library\database\abstract.mdb", False, True)

    Set absttab = abstdb.OpenRecordset("abstract", dbOpenTable)
    absttab.Index = "abstract1"
    Call ss11_properties
    Call open_cmd(0, 0, 0, 0)
End Sub

Private Sub Form_Load()
    Dim X
    Call openingtab
    fmeabst.Visible = False
    fmelist.Visible = False
    fmeindex.Visible = False
    ss3.Visible = False
    ss4.Visible = False
    optcon(0).Value = True
    Chkcon.Value = False
    cmdclear.Enabled = False
    
End Sub

Private Sub Form_Resize()
    'Me.Move 0, 0, Me.Width, Me.Height
End Sub

Private Sub load_ss2()
    Dim reco As Long
   
    sqlcmd = "Select * From tranfile Where tranfile.Pointer = '" & Trim(xpointer) & "' And (tranfile.Status = '' Or IsNull(tranfile.Status)) Order By Format(tranfile.Daily, ""yyyy/mm/dd"") DESC;"
    
    Set trandyn = magdb.OpenRecordset(sqlcmd, dbOpenDynaset)
    
    If trandyn.RecordCount <= 0 Then
        Call ss2_clear
    Else
        reco = 1
        trandyn.MoveFirst
        ypointer = Trim$(trandyn.Fields(0).Value)
        
        Do While Not trandyn.EOF
            ss2.TextMatrix(reco, 0) = reco
            ss2.TextMatrix(reco, 1) = IIf(IsNull(trandyn.Fields(0).Value), "", trandyn.Fields(0).Value)
            ss2.TextMatrix(reco, 2) = IIf(IsNull(trandyn.Fields(4).Value), "", trandyn.Fields(4).Value)
            ss2.TextMatrix(reco, 3) = IIf(IsNull(trandyn.Fields(5).Value), "", trandyn.Fields(5).Value)
            ss2.TextMatrix(reco, 4) = IIf(IsNull(trandyn.Fields(6).Value), "", trandyn.Fields(6).Value)
            ss2.TextMatrix(reco, 5) = IIf(IsNull(trandyn.Fields(7).Value), "", trandyn.Fields(7).Value)
            reco = reco + 1
            
            If recno > 200 Then Exit Do

            trandyn.MoveNext
        Loop
        ss2.Rows = reco + 1
        ss2.Refresh
    End If
    
End Sub
Private Sub load_ss1()
    Dim magg As Recordset
    Dim reco As Long
    If Chkcon.Value = False Then
        sqlcmd = "Select magazine1.Magazine_Name, magazine1.ISSN, magazine1.Pointer From magazine1 Where magazine1.Magazine_Name like '" & txtsearch & "*' Order By magazine1.Magazine_Name"
        Set magg = magdb.OpenRecordset(sqlcmd, dbOpenDynaset)
        reco = 1
        If magg.RecordCount > 0 Then
        magg.MoveFirst
        Do While Not magg.EOF
            ss1.TextMatrix(reco, 0) = IIf(IsNull(magg.Fields(0).Value), "", magg.Fields(0).Value)
            ss1.TextMatrix(reco, 1) = IIf(IsNull(magg.Fields(1).Value), "", magg.Fields(1).Value)
            ss1.TextMatrix(reco, 2) = IIf(IsNull(magg.Fields(2).Value), "", magg.Fields(2).Value)
            reco = reco + 1
            If recno > 200 Then Exit Do
            magg.MoveNext
        Loop
        End If
    Else
        Set magg = magdb.OpenRecordset("magazine1", dbOpenDynaset)
        reco = 1
        If magg.RecordCount > 0 Then
        magg.MoveFirst
        Do While Not magg.EOF
            If InStrRev(magg.Fields(1), Trim(txtsearch)) <> 0 Then
                ss1.TextMatrix(reco, 0) = IIf(IsNull(magg.Fields(1).Value), "", magg.Fields(1).Value)
                ss1.TextMatrix(reco, 1) = IIf(IsNull(magg.Fields(7).Value), "", magg.Fields(7).Value)
                ss1.TextMatrix(reco, 2) = IIf(IsNull(magg.Fields(0).Value), "", magg.Fields(0).Value)
                reco = reco + 1
            End If
            If recno > 200 Then Exit Do
            magg.MoveNext
        Loop
        End If
    End If
    If reco = 1 Then
       MsgBox " No current record "
       Exit Sub
    Else
       cmdclear.Enabled = True
    End If
    ss1.Rows = reco + 1
    ss1.Refresh
End Sub
Private Sub load_ss3()
    Dim magg1 As Recordset
    Dim reco As Long
    If Chkcon.Value = False Then
        sqlcmd = "Select article.Article_Name, mauthfile.authname, mauthfile.article_no, mauthfile.idno From article Inner Join mauthfile On article.Article_No = mauthfile.article_no Where article.Article_Name like '" & Trim$(txtsearch) & "*' Order By article.Article_Name;"
        Set magg1 = magdb.OpenRecordset(sqlcmd, dbOpenDynaset)
        reco = 1
        If magg1.RecordCount > 0 Then
        magg1.MoveFirst
        Do While Not magg1.EOF
            ss3.TextMatrix(reco, 0) = IIf(IsNull(magg1.Fields(0).Value), "", magg1.Fields(0).Value)
            ss3.TextMatrix(reco, 1) = IIf(IsNull(magg1.Fields(1).Value), "", magg1.Fields(1).Value)
            ss3.TextMatrix(reco, 2) = IIf(IsNull(magg1.Fields(2).Value), "", magg1.Fields(2).Value)
            ss3.TextMatrix(reco, 3) = IIf(IsNull(magg1.Fields(3).Value), "", magg1.Fields(3).Value)
            reco = reco + 1
            If recno > 200 Then Exit Do
            magg1.MoveNext
        Loop
        End If
    Else
        sqlcmd = "Select article.Article_Name, mauthfile.authname, mauthfile.article_no, mauthfile.idno From article Inner Join mauthfile On article.Article_No = mauthfile.article_no Order By article.Article_Name;"
        Set magg1 = magdb.OpenRecordset(sqlcmd, dbOpenDynaset)
        reco = 1
        If magg1.RecordCount > 0 Then
        magg1.MoveFirst
        Do While Not magg1.EOF
            If InStrRev(magg1.Fields(0), Trim(txtsearch)) <> 0 Then
                ss3.TextMatrix(reco, 0) = IIf(IsNull(magg1.Fields(0).Value), "", magg1.Fields(0).Value)
                ss3.TextMatrix(reco, 1) = IIf(IsNull(magg1.Fields(1).Value), "", magg1.Fields(1).Value)
                ss3.TextMatrix(reco, 2) = IIf(IsNull(magg1.Fields(2).Value), "", magg1.Fields(2).Value)
                ss3.TextMatrix(reco, 3) = IIf(IsNull(magg1.Fields(3).Value), "", magg1.Fields(3).Value)
                reco = reco + 1
            End If
            If recno > 200 Then Exit Do
            magg1.MoveNext
        Loop
        End If
    End If
    If reco = 1 Then
       MsgBox " No current record "
       Exit Sub
    Else
       cmdclear.Enabled = True
    End If
    ss3.Rows = reco + 1
    ss3.Refresh
End Sub
Private Sub load_ss3_5()
    Dim magg11 As Recordset
    Dim reco As Long
    If Chkcon.Value = False Then
        sqlcmd = "SELECT DISTINCTROW msubject.subject, article.Article_Name, mauthfile.article_no, mauthfile.idno FROM (msubject INNER JOIN article ON msubject.article_no = article.Article_No) INNER JOIN mauthfile ON article.Article_No = mauthfile.article_no Where msubject.subject like '" & Trim$(txtsearch) & "*' Order By msubject.subject;"
        Set magg11 = magdb.OpenRecordset(sqlcmd, dbOpenDynaset)
        reco = 1
        If magg11.RecordCount > 0 Then
        magg11.MoveFirst
        Do While Not magg11.EOF
            ss3.TextMatrix(reco, 0) = IIf(IsNull(magg11.Fields(0).Value), "", magg11.Fields(0).Value)
            ss3.TextMatrix(reco, 1) = IIf(IsNull(magg11.Fields(1).Value), "", magg11.Fields(1).Value)
            ss3.TextMatrix(reco, 2) = IIf(IsNull(magg11.Fields(2).Value), "", magg11.Fields(2).Value)
            ss3.TextMatrix(reco, 3) = IIf(IsNull(magg11.Fields(3).Value), "", magg11.Fields(3).Value)
            reco = reco + 1
            If recno > 200 Then Exit Do
            magg11.MoveNext
        Loop
        End If
    Else
        sqlcmd = "SELECT DISTINCTROW msubject.subject, article.Article_Name, mauthfile.article_no, mauthfile.idno FROM (msubject INNER JOIN article ON msubject.article_no = article.Article_No) INNER JOIN mauthfile ON article.Article_No = mauthfile.article_no Order By msubject.subject;"
        Set magg11 = magdb.OpenRecordset(sqlcmd, dbOpenDynaset)
        reco = 1
        If magg11.RecordCount > 0 Then
        magg11.MoveFirst
        Do While Not magg11.EOF
            If InStrRev(magg11.Fields(0), Trim(txtsearch)) <> 0 Then
                ss3.TextMatrix(reco, 0) = IIf(IsNull(magg11.Fields(0).Value), "", magg11.Fields(0).Value)
                ss3.TextMatrix(reco, 1) = IIf(IsNull(magg11.Fields(1).Value), "", magg11.Fields(1).Value)
                ss3.TextMatrix(reco, 2) = IIf(IsNull(magg11.Fields(2).Value), "", magg11.Fields(2).Value)
                ss3.TextMatrix(reco, 3) = IIf(IsNull(magg11.Fields(3).Value), "", magg11.Fields(3).Value)
                reco = reco + 1
            End If
            If recno > 200 Then Exit Do
            magg11.MoveNext
        Loop
        End If
    End If
    If reco = 1 Then
       MsgBox " No current record "
       Exit Sub
    Else
       cmdclear.Enabled = True
    End If
    ss3.Rows = reco + 1
    ss3.Refresh
End Sub
Private Sub load_ss4()
    Dim magg2 As Recordset
    Dim reco As Long
    If Chkcon.Value = False Then
        sqlcmd = "Select mauthfile.authname, article.Article_Name, mauthfile.article_no, mauthfile.idno From mauthfile Inner Join article On mauthfile.article_no = article.Article_No Where mauthfile.authname like '" & Trim$(txtsearch) & "*' Order By mauthfile.authname;"
        Set magg2 = magdb.OpenRecordset(sqlcmd, dbOpenDynaset)
        reco = 1
        If magg2.RecordCount > 0 Then
        magg2.MoveFirst
        Do While Not magg2.EOF
            'ss1.Col = 1
            'ss1.Row = reco
            'ss1.CellAlignment = 1
            ss4.TextMatrix(reco, 0) = IIf(IsNull(magg2.Fields(0).Value), "", magg2.Fields(0).Value)
            ss4.TextMatrix(reco, 1) = IIf(IsNull(magg2.Fields(1).Value), "", magg2.Fields(1).Value)
            ss4.TextMatrix(reco, 2) = IIf(IsNull(magg2.Fields(2).Value), "", magg2.Fields(2).Value)
            ss4.TextMatrix(reco, 3) = IIf(IsNull(magg2.Fields(3).Value), "", magg2.Fields(3).Value)
            reco = reco + 1
            If recno > 200 Then Exit Do
            magg2.MoveNext
        Loop
        End If
    Else
        sqlcmd = "Select mauthfile.authname, article.Article_Name, mauthfile.article_no, mauthfile.idno From mauthfile Inner Join article On mauthfile.article_no = article.Article_No Order By mauthfile.authname;"
        Set magg2 = magdb.OpenRecordset(sqlcmd, dbOpenDynaset)
        reco = 1
        If magg2.RecordCount > 0 Then
        magg2.MoveFirst
        Do While Not magg2.EOF
            If InStrRev(magg2.Fields(0), Trim(txtsearch)) <> 0 Then
                ss4.TextMatrix(reco, 0) = IIf(IsNull(magg2.Fields(0).Value), "", magg2.Fields(0).Value)
                ss4.TextMatrix(reco, 1) = IIf(IsNull(magg2.Fields(1).Value), "", magg2.Fields(1).Value)
                ss4.TextMatrix(reco, 2) = IIf(IsNull(magg2.Fields(2).Value), "", magg2.Fields(2).Value)
                ss4.TextMatrix(reco, 3) = IIf(IsNull(magg2.Fields(3).Value), "", magg2.Fields(3).Value)
                reco = reco + 1
            End If
            If recno > 200 Then Exit Do
            magg2.MoveNext
        Loop
        End If
    End If
    If reco = 1 Then
       MsgBox " No current record "
       Exit Sub
    Else
       cmdclear.Enabled = True
    End If
    ss4.Rows = reco + 1
    ss4.Refresh
End Sub

Private Sub open_cmd(b1 As Integer, b2 As Integer, b3 As Integer, b4 As Integer)
    Cmdlist.Enabled = b1
    Cmdindex.Enabled = b2
    Cmdcontent.Enabled = b3
    Cmdarticle.Enabled = b4
End Sub

Private Sub open_fme(b1 As Integer, b2 As Integer, b3 As Integer)
    fmelist.Visible = b1
   ' fmelist1.Visible = b2
    fmeindex.Visible = b3
End Sub

Private Sub open_fmelist(a1 As Integer, a2 As Integer, a3 As Integer)
    ss1.Visible = a1
    ss3.Visible = a2
    ss4.Visible = a3
End Sub

Private Sub openingtab()
    
    PATHDATABASELIB = "F:\LIBRARY\DATABASE\LIBRARY.MDB"
    PATHDATABASEMAG = "F:\LIBRARY\DATABASE\MAGAZINE.MDB"
    Set libWs = DBEngine.Workspaces(0)
    Set libdb = libWs.OpenDatabase(PATHDATABASELIB, False, True)
    Set magdb = libWs.OpenDatabase(PATHDATABASEMAG, False, True)
    
    'Set absttab = abstdb.OpenRecordset("abstract", dbOpenTable)
    Set arttab = magdb.OpenRecordset("article", dbOpenTable)
    Set authtab = libdb.OpenRecordset("authname", dbOpenTable)
    Set mag1tab = magdb.OpenRecordset("magazine1", dbOpenTable)
    Set conttab = magdb.OpenRecordset("content", dbOpenTable)

    'absttab.Index = "abstract1"
    
    mag1tab.Index = "magazine11"
    authtab.Index = "authname1"
    arttab.Index = "article1"
    conttab.Index = "content2"
End Sub

Private Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub optcon_Click(Index As Integer)
    If Index = 0 Then
        typecode = 0
        Call open_cmd(True, False, True, False)
        'Call ss11_properties
        'Call ss11_reset
    ElseIf Index = 1 Then
        typecode = 1
        Call open_cmd(False, True, False, False)
    Else
        typecode = 2
        Call open_cmd(False, True, False, False)
    End If
End Sub



Private Sub ss1_Click()
    If ss1.Row <> 0 Then
          If optcon(0).Value = True Then
            ' ss1.Col = 2
             xpointer = ss1.TextMatrix(ss1.Row, 2)
             ElseIf optcon(1).Value = True Then

        ElseIf optcon(2).Value = True Then

        End If
    End If
End Sub

'Private Sub ss10_Clear()
'    ss1.Col = 1
'    ss1.Row = 1
'    ss1.Col2 = SS2MAXCOLS
'    ss1.Row2 = SS2MAXROWS
'    ss1.BlockMode = True
'    ss1.Action = 3  'clear
'    ss1.BlockMode = False
'
'    ss1.Row = 1
'    ss1.Row2 = ss2.MaxRows
'    ss1.Col = 1
'    ss1.Col2 = ss2.MaxCols
'    ss1.BlockMode = 2
'    ss1.Lock = True
'End Sub

Private Sub ss11_properties()
   With ss1
        .Cols = 3
        .Rows = 500
        .ColWidth(0) = 8700
        .ColWidth(1) = 2000
        .TextMatrix(0, 0) = "                ชื่อวารสาร/สิ่งพิมพ์"
        .TextMatrix(0, 1) = "            ISSN"
        .ColAlignment(1) = 1
   End With
End Sub

Private Sub ss11_reset()
    ss1.Rows = 500
    For i = 1 To ss1.Rows - 1
        ss1.TextMatrix(i, 0) = " "
        ss1.TextMatrix(i, 1) = " "
    Next i
End Sub

Private Sub ss2_clear()
    ss2.Rows = 500
    For i = 1 To ss2.Rows - 1
        ss2.TextMatrix(i, 0) = " "
        ss2.TextMatrix(i, 1) = " "
        ss2.TextMatrix(i, 2) = " "
        ss2.TextMatrix(i, 3) = " "
        ss2.TextMatrix(i, 4) = " "
        ss2.TextMatrix(i, 5) = " "
    Next i
End Sub

Private Sub ss2_Click()
    ypointer = Trim$(ss2.TextMatrix(ss2.Row, 1))
End Sub

Private Sub ss2_properties()
    With ss2
        .Cols = 6
        .Rows = 500
        .ColWidth(0) = 450
        .ColWidth(1) = 1400
        .ColWidth(2) = 1400
        .ColWidth(3) = 1400
        .ColWidth(4) = 1400
        .ColWidth(5) = 4100
        .TextMatrix(0, 1) = "MagNo."
        .TextMatrix(0, 2) = "Daily"
        .TextMatrix(0, 3) = "Year No."
        .TextMatrix(0, 4) = "Item No."
        .TextMatrix(0, 5) = "Descrition"
    End With
        
End Sub

Private Sub ss3_clear()
    ss3.Rows = 500
    For i = 1 To ss3.Rows - 1
        ss3.TextMatrix(i, 0) = " "
        ss3.TextMatrix(i, 1) = " "
        ss3.TextMatrix(i, 2) = " "
        ss3.TextMatrix(i, 3) = " "
    Next i
End Sub

Private Sub ss3_Click()
    Dim sql As String

    artkey = ss3.TextMatrix(ss3.Row, 2)
    authid = ss3.TextMatrix(ss3.Row, 3)

    Cmdindex.Enabled = True
    Cmdarticle.Enabled = False

    sql = "Select * from cutsheet where cutsheet.Article_No ='" & artkey & "'"
    Set cutsdyn = magdb.OpenRecordset(sql, dbOpenDynaset)
    If cutsdyn.RecordCount <> 0 Then Cmdarticle.Enabled = True

    absttab.Seek "=", Trim(artkey)
    If Not absttab.NoMatch Then
        Cmdabst.Enabled = True
    Else
        Cmdabst.Enabled = False
    End If
End Sub

Private Sub ss3_properties()
    With ss3
     .Cols = 4
     .Rows = 500
     .BackColor = RGB(255, 255, 255)
     .ColWidth(0) = 9000   'set column width (no.of col)
     .ColWidth(1) = 4000
     .ColWidth(2) = 1000
     .ColWidth(3) = 1000
     .TextMatrix(0, 0) = "          ชื่อบทความ"
     .TextMatrix(0, 1) = "   ชื่อผู้แต่ง"
     End With
End Sub

Private Sub ss35_properties()
   With ss3
     .Cols = 4
     .Rows = 5000
     .BackColor = RGB(255, 255, 255)
     .ColWidth(0) = 3000   'set column width (no.of col)
     .ColWidth(1) = 95000
     .ColWidth(2) = 1000
     .ColWidth(3) = 1000
     .TextMatrix(0, 0) = "         ชื่อหัวเรื่อง"
     .TextMatrix(0, 1) = "                 ชื่อบทความ"
   End With
End Sub

Private Sub ss4_clear()
    ss4.Rows = 500
    For i = 1 To ss4.Rows - 1
        ss4.TextMatrix(i, 0) = " "
        ss4.TextMatrix(i, 1) = " "
        ss4.TextMatrix(i, 2) = " "
        ss4.TextMatrix(i, 3) = " "
    Next i
End Sub

Private Sub ss4_Click()
    Dim sql As String

    artkey = ss4.TextMatrix(ss4.Row, 2)
    authid = ss4.TextMatrix(ss4.Row, 3)
    Cmdindex.Enabled = True
    Cmdarticle.Enabled = False
    
    sql = "Select * from cutsheet where article_no ='" + artkey + "'"
    Set cutsdyn = magdb.OpenRecordset(sql, dbOpenDynaset)
    If cutsdyn.RecordCount <> 0 Then Cmdarticle.Enabled = True
    absttab.Seek "=", Trim$(artkey)
    If Not absttab.NoMatch Then
        Cmdabst.Enabled = True
    Else
        Cmdabst.Enabled = False
    End If
End Sub

Private Sub ss4_properties()
    With ss4
        .Cols = 4
        .Rows = 500
        .BackColor = RGB(255, 255, 255)
        .ColWidth(0) = 3000   'set column width (no.of col)
        .ColWidth(1) = 9500
        .ColWidth(2) = 1000
        .ColWidth(3) = 1000
        .TextMatrix(0, 0) = "     ชื่อผู้แต่ง"
        .TextMatrix(0, 1) = "                     บทความ"
     End With
End Sub

Private Sub txtsearch_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Call cmdsearch_Click
End Sub