' ********************************************************
' (コンストラクタの定義)( Sub で定義する )
' ********************************************************
Public Sub New( _
ByVal type As Integer, _
ByVal sv As String, _
ByVal db As String, _
ByVal user As String, _
ByVal pass As String)

	Me.DBType = type

	Select Case Me.DBType
		Case 1
			strCon = String.Format( _
			"Driver={{MySQL ODBC 3.51 Driver}};" + _
			"SERVER={0};" + _
			"DATABASE={1};" + _
			"UID={2};" + _
			"PWD={3}", sv, db, user, pass)
		Case 2
			strCon = String.Format( _
			"Driver={{Microsoft ODBC for Oracle}};" + _
			"SERVER={0};" + _
			"UID={2};" + _
			"PWD={3}", sv, db, user, pass)
		Case Else
	End Select

End Sub

' ******************************************************
' 【マスタメンテ共通処理】
'
' 目的　　　 : グローバル変数定義とFORMコントロール
' 作成者　　 : lightbox
' ファイル名 : 共通仕様.vb
' ※ アプリケーション開始前の環境処理はここで行う
' ******************************************************

Imports System.Data.Odbc
Imports System.Text
Imports System.Runtime.InteropServices

Partial Class Form1

    ' ******************************************************
    ' 共有オブジェクト
    ' ******************************************************
    Public db As DB
    Public myReader As OdbcDataReader
    Public ini As INI
    Public msg As INI

    ' ******************************************************
    ' 共有変数
    ' ******************************************************
    Public PGDIR As String = Application.StartupPath

    Public Const INI_NAME As String = "db.ini"
    Public INI_PATH As String = PGDIR & "\" & INI_NAME
    Public Const INI_NAME_MESSAGE As String = "message.ini"
    Public INI_PATH_MESSAGE As String = PGDIR & "\" & INI_NAME_MESSAGE

    Public SELECT_SQL As String = GetSlnDir() & "\Mtn\FILES\読み出し用.sql"
    Public UPDATE_SQL As String = GetSlnDir() & "\Mtn\FILES\update.sql"
    Public UPDATE2_SQL As String = GetSlnDir() & "\Mtn\FILES\修正用.sql"
    Public INSERT_SQL As String = GetSlnDir() & "\Mtn\FILES\新規用.sql"
    Public DELETE_SQL As String = GetSlnDir() & "\Mtn\FILES\削除用.sql"
    Public REQUIRE_SQL As String = GetSlnDir() & "\Mtn\FILES\社員問合せ用.sql"


    ' ******************************************************
    ' 閉じるボタンを無効にする
    ' ******************************************************
    Protected Overrides Sub WndProc( _
        ByRef m As System.Windows.Forms.Message)
        Const WM_SYSCOMMAND As Integer = &H112
        Const SC_CLOSE As Integer = &HF060

        If m.Msg = WM_SYSCOMMAND And m.WParam.ToInt32() = SC_CLOSE Then
            Return
        End If

        If m.Msg = &H2111 Then
            Return
        End If

        MyBase.WndProc(m)

    End Sub

    ' ******************************************************
    ' ファンクションキ－の処理
    ' ******************************************************
    Private Sub Form1_KeyDown(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

        If Me.ヘッド部.Enabled Then
            If e.KeyCode = Keys.F4 Then
                Me.処理区分.Focus()
            End If

            If e.KeyCode = Keys.F6 Then
                ' ******************************************************
                ' このフォームが所有者として
                ' 新しいインスタンスを作成してダイアログを表示
                ' ******************************************************
                Dim Dialog As New View()
                Dim ret As DialogResult = Dialog.ShowDialog(Me)
                If ret = Windows.Forms.DialogResult.OK Then
                    Me.確認_Click(sender, e)
                End If
                Me.Show()
            End If
        End If

        If Me.ボディ部.Enabled Then
            If e.KeyCode = Keys.F12 Then
                キャンセル_Click(sender, e)
            End If
        End If

    End Sub

    ' ******************************************************
    ' Enter キーで次のコントロールへ移動
    ' ( フォームの KeyPreview : True )
    ' ******************************************************
    Private Sub Form1_KeyPress(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress

        If e.KeyChar = ControlChars.Cr Then
            Me.SelectNextControl(Me.ActiveControl, True, True, True, True)
            e.Handled = True
        End If

    End Sub

End Class

' ******************************************************
' ソリューションディレクトリを取得
' ******************************************************
Function GetSlnDir() As String

    GetSlnDir = Path.GetDirectoryName(Application.StartupPath)
    GetSlnDir = Path.GetDirectoryName(GetSlnDir)
    GetSlnDir = Path.GetDirectoryName(GetSlnDir)

End Function