VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm menumagizine 
   BackColor       =   &H00C0C0C0&
   Caption         =   "โปรแกรมระบบงานวารสาร ศูนย์วิทยบริการ มหาวิทยาลัยคริสเตียน "
   ClientHeight    =   8265
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   11880
   Icon            =   "menumagizine.frx":0000
   LinkTopic       =   "MDIForm1"
   LockControls    =   -1  'True
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   7890
      Width           =   11880
      _ExtentX        =   20955
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   2
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
         EndProperty
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   222
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.Menu maindt 
      Caption         =   "กำหนดค่า"
      Begin VB.Menu m_auth 
         Caption         =   "ผู้แต่ง"
      End
      Begin VB.Menu i 
         Caption         =   "สำนักพิมพ์"
      End
      Begin VB.Menu fac 
         Caption         =   "คณะวิชาและสาขา"
      End
   End
   Begin VB.Menu Inputdata 
      Caption         =   "บันทึกข้อมูล"
      Begin VB.Menu aaa 
         Caption         =   "เพิ่ม/แก้ไข ข้อมูลวารสาร"
      End
      Begin VB.Menu ccc 
         Caption         =   "ลงทะเบียนวารสาร"
      End
      Begin VB.Menu index_j 
         Caption         =   "บันทึกครรชนีวารสาร"
         Begin VB.Menu addnew_index 
            Caption         =   "บันทึกดรรชนีวารสารใหม่"
         End
         Begin VB.Menu edit_index 
            Caption         =   "แก้ไขดรรชนีวารสาร"
         End
      End
      Begin VB.Menu ddd 
         Caption         =   "วารสารรวมเล่ม"
      End
      Begin VB.Menu article_ctrl 
         Caption         =   "เลขทะเบียนดรรชนีวารสาร"
      End
      Begin VB.Menu jjjj 
         Caption         =   "ต่ออุายวารสาร"
      End
   End
   Begin VB.Menu reportjounal 
      Caption         =   "รายงาน"
      Begin VB.Menu cccc 
         Caption         =   "รายงานรายชื่อวารสาร"
         Begin VB.Menu jour_all 
            Caption         =   "ทั้งหมด"
         End
         Begin VB.Menu jour_dep 
            Caption         =   "แยกตามคณะวิชา"
         End
      End
      Begin VB.Menu rpt_regis 
         Caption         =   "รายงานการลงทะเบียนวารสาร"
      End
      Begin VB.Menu rep_journal_survey 
         Caption         =   "รายงานสำหรับสำรวจวารสาร"
      End
      Begin VB.Menu bbbb 
         Caption         =   "รายงานรายชื่อวาวรสารส่งเย็บเล่ม"
      End
      Begin VB.Menu ffff 
         Caption         =   "รายงานการบันทึกดรรรชนีวารสาร"
      End
      Begin VB.Menu chk_recei 
         Caption         =   "ตรวจสอบการรับวารสาร"
      End
      Begin VB.Menu aaaa 
         Caption         =   "พิมพ์บัตรดัชนีวารสาร"
         Enabled         =   0   'False
         Visible         =   0   'False
      End
   End
   Begin VB.Menu search_journal 
      Caption         =   "สืบค้นข้อมูล"
      Begin VB.Menu aaaaaa 
         Caption         =   "สืบค้นดรรชนีวารสาร"
      End
      Begin VB.Menu journal_refer 
         Caption         =   "สืบค้นดรรชนีวารสาร(รูปแบบบรรณานุกรม)"
      End
   End
   Begin VB.Menu menuexit 
      Caption         =   "ออกจากโปรแกรม"
   End
End
Attribute VB_Name = "menumagizine"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
' ประกาศฟังก์ชั่นวินโดว์ API
Private Declare Function LoadCursor Lib "User32" Alias "LoadCursorA" _
(ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

Private Declare Function SetCursor Lib "User32" (ByVal hCursor As Long) As Long

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
' จบส่วนประกาศวินโดว์ API

Private lOldWidth As Long
Private lOldHeight As Long
Private lOldDepth As Long
Private mLoaded As Boolean


Private Sub aaa_Click()
   New_Journal.Show
End Sub

Private Sub aaaaaa_Click()
    ShellExecute menumagizine.hWnd, "open", "http://libraryserver/main_search_journal.asp", "", "", 3
End Sub

Private Sub addnew_index_Click()
    index_journal.Show
End Sub

Private Sub article_ctrl_Click()
    articlectrl.Show
End Sub

Private Sub bbbb_Click()
    ShellExecute menumagizine.hWnd, "open", "http://libraryserver/rpt_journal/main_sum_journal.php", "", "", 3
End Sub

Private Sub ccc_Click()
    reg_journal.Show
End Sub


Private Sub chk_recei_Click()
    check_receive.Show
End Sub

Private Sub ddd_Click()
    sum_journal.Show
End Sub

Private Sub edit_index_Click()
       edit_index_journal.Show
End Sub

Private Sub fac_Click()
   add_fac.Show
End Sub

Private Sub ffff_Click()
    ShellExecute menumagizine.hWnd, "open", "http://libraryserver/rpt_journal/rpt_index_journal.php", "", "", 3
End Sub

Private Sub i_Click()
   Adddealer.Show
End Sub

Private Sub jjjj_Click()
    expdate.Show
End Sub

Private Sub jour_all_Click()
    ShellExecute menumagizine.hWnd, "open", "http://libraryserver/rpt_journal/rpt_journal_all.php", "", "", 3
End Sub

Private Sub jour_dep_Click()
    ShellExecute menumagizine.hWnd, "open", "http://libraryserver/rpt_journal/rpt_journal_department.php", "", "", 3
End Sub

Private Sub journal_refer_Click()
    ShellExecute menumagizine.hWnd, "open", "http://libraryserver/rpt_journal/main_refer_journal.php", "", "", 3
End Sub

Private Sub m_auth_Click()
    add_auther.Show
End Sub

Private Sub MDIForm_Load()
    ' Size the window
    ''Me.Left = 0
    ''Me.Top = 0
    ''Me.Width = 800 * Screen.TwipsPerPixelX
    ''Me.Height = 600 * Screen.TwipsPerPixelY
    ' Get the current screen resolution and store it
    ''GetScreenRes lOldWidth, lOldHeight, lOldDepth
    ' Set to our new resoution
    ' BitDepth could be 4, 8, 16, 24, or 32 (24 + 8bits alpha)
    ' but we'll just use the existing color depth
    ''If SetScreenRes(800, 600, lOldDepth) Then ' If the set worked
        ''SetTopMost Me.hWnd ' Self-explanatory (I hope;)
        ''Hook Me ' Start handling GotFocus/LostFocus messages
       ''mLoaded = True ' Set a loaded flag (see Form_Unload)
    ''Else
        ' It didn't work!?
        ' Either the system must reboot to change to this resolution,
        ' which we don't want it to do, or the specified resolution
        ' is unavailable on the current device (*frown*)
        ''MsgBox "Aww... too bad. And this would have really rocked!"
        ''Unload Me
    ''End If
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
    If mLoaded Then ' If we actually have stuff to undo
        Unhook ' Stop getting focus messages
        SetScreenRes lOldWidth, lOldHeight, lOldDepth ' Return to the original resolution
    End If
End Sub

Private Sub menuexit_Click()
    Unload Me
End Sub

Private Sub rep_journal_survey_Click()
    frmrep_journ_serv.Show
End Sub

Private Sub rpt_regis_Click()
    ShellExecute menumagizine.hWnd, "open", "http://libraryserver/rpt_journal/rpt_regis_journal.php", "", "", 3
End Sub