VERSION 5.00 Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX" Begin VB.Form add_fac BackColor = &H00C0C000& Caption = "เพิ่มรายชื่อคณะวิชา/สาขาวิชา" ClientHeight = 7095 ClientLeft = 60 ClientTop = 345 ClientWidth = 8670 Icon = "add_fac.frx":0000 LinkTopic = "Form1" ScaleHeight = 7095 ScaleWidth = 8670 StartUpPosition = 2 'CenterScreen Begin VB.Frame Frame2 BackColor = &H00C0E0FF& Caption = "สาขาวิชา" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 222 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00C00000& Height = 3735 Left = 240 TabIndex = 11 Top = 3240 Width = 8295 Begin VB.TextBox Text4 BackColor = &H00FFFFFF& Enabled = 0 'False BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 222 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00C00000& Height = 330 Left = 1560 Locked = -1 'True MaxLength = 255 MultiLine = -1 'True TabIndex = 20 Top = 2760 Width = 5175 End Begin VB.TextBox Text3 BackColor = &H00FFFFFF& BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 222 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00C00000& Height = 330 Left = 1560 Locked = -1 'True TabIndex = 19 Top = 2400 Width = 1215 End Begin VB.CommandButton Cmdcanceldep Caption = "Cancel" Enabled = 0 'False BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 222 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Left = 6960 Picture = "add_fac.frx":030A Style = 1 'Graphical TabIndex = 18 Top = 2040 Width = 1095 End Begin VB.CommandButton Cmdeditdep Caption = "Edit" Enabled = 0 'False BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 222 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Left = 6960 Picture = "add_fac.frx":0614 Style = 1 'Graphical TabIndex = 17 Top = 1200 Width = 1095 End Begin VB.CommandButton Cmdadddep Caption = "Add" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 222 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Left = 6840 Picture = "add_fac.frx":0A56 Style = 1 'Graphical TabIndex = 16 Top = 360 Width = 1095 End Begin VB.CommandButton Cmdsaveeditdep Caption = "Save" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 222 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Left = 6960 Picture = "add_fac.frx":0E98 Style = 1 'Graphical TabIndex = 15 Top = 1200 Visible = 0 'False Width = 1095 End Begin VB.CommandButton Cmdsaveadddep Caption = "Save" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 222 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Left = 6960 Picture = "add_fac.frx":11A2 Style = 1 'Graphical TabIndex = 14 Top = 360 Visible = 0 'False Width = 1095 End Begin VB.CommandButton Cmdexit Caption = "Exit" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 222 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Left = 6960 Picture = "add_fac.frx":14AC Style = 1 'Graphical TabIndex = 12 Top = 2880 Width = 1095 End Begin MSFlexGridLib.MSFlexGrid showdep Height = 2025 Left = 480 TabIndex = 13 Top = 240 Width = 6135 _ExtentX = 10821 _ExtentY = 3572 _Version = 393216 Rows = 8 FixedCols = 0 BackColor = 12648447 ForeColor = 12582912 BackColorFixed = 16777152 FocusRect = 0 ScrollBars = 2 SelectionMode = 1 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.Label Label4 Alignment = 1 'Right Justify BackColor = &H00C0E0FF& Caption = "สาขาวิชา :" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 222 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00800000& Height = 330 Left = 360 TabIndex = 22 Top = 2760 Width = 1095 End Begin VB.Label Label3 Alignment = 1 'Right Justify BackColor = &H00C0E0FF& Caption = "รหัสาขา :" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 222 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00800000& Height = 330 Left = 120 TabIndex = 21 Top = 2400 Width = 1335 End End Begin VB.Frame Frame1 BackColor = &H00C0FFFF& Caption = "คณะวิชา" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 222 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00C00000& Height = 3255 Left = 240 TabIndex = 0 Top = 0 Width = 8295 Begin VB.TextBox Text1 BackColor = &H00FFFFFF& BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 222 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00C00000& Height = 330 Left = 1560 Locked = -1 'True TabIndex = 8 Top = 2400 Width = 1215 End Begin VB.TextBox Text2 BackColor = &H00FFFFFF& Enabled = 0 'False BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 222 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00C00000& Height = 330 Left = 1560 Locked = -1 'True MaxLength = 255 MultiLine = -1 'True TabIndex = 7 Top = 2760 Width = 5175 End Begin VB.CommandButton Cmdadd Caption = "Add" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 222 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Left = 6960 Picture = "add_fac.frx":18EE Style = 1 'Graphical TabIndex = 5 Top = 360 Width = 1095 End Begin VB.CommandButton Cmdedit Caption = "Edit" Enabled = 0 'False BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 222 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Left = 6960 Picture = "add_fac.frx":1D30 Style = 1 'Graphical TabIndex = 4 Top = 1200 Width = 1095 End Begin VB.CommandButton Cmdsaveadd Caption = "Save" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 222 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Left = 6960 Picture = "add_fac.frx":2172 Style = 1 'Graphical TabIndex = 3 Top = 360 Visible = 0 'False Width = 1095 End Begin VB.CommandButton Cmdcancel Caption = "Cancel" Enabled = 0 'False BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 222 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Left = 6960 Picture = "add_fac.frx":247C Style = 1 'Graphical TabIndex = 2 Top = 2040 Width = 1095 End Begin VB.CommandButton Cmdsaveedit Caption = "Save" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 222 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Left = 6960 Picture = "add_fac.frx":2786 Style = 1 'Graphical TabIndex = 1 Top = 1200 Visible = 0 'False Width = 1095 End Begin MSFlexGridLib.MSFlexGrid showfac Height = 2025 Left = 480 TabIndex = 6 Top = 240 Width = 6135 _ExtentX = 10821 _ExtentY = 3572 _Version = 393216 Rows = 8 FixedCols = 0 BackColor = 12648384 ForeColor = 12582912 BackColorFixed = 12640511 FocusRect = 0 ScrollBars = 2 SelectionMode = 1 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.Label Label1 Alignment = 1 'Right Justify BackColor = &H00C0FFFF& Caption = "รหัสคณะ :" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 222 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00800000& Height = 330 Left = 120 TabIndex = 10 Top = 2400 Width = 1335 End Begin VB.Label Label2 Alignment = 1 'Right Justify BackColor = &H00C0FFFF& Caption = "คณะวิชา :" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 222 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00800000& Height = 330 Left = 360 TabIndex = 9 Top = 2760 Width = 1095 End End End Attribute VB_Name = "add_fac" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Dim Conn As New ADODB.Connection Dim add_publ As New ADODB.Recordset Dim factab As New ADODB.Recordset Dim deptab As New ADODB.Recordset Dim numrowfac As Integer Dim numrowdep As Integer Private Sub Cmdadd_Click() Cmdadd.Visible = False Cmdedit.Enabled = False Cmdsaveadd.Visible = True Cmdcancel.Enabled = True showfac.Enabled = False showdep.Enabled = False If numrowfac < 10 Then Text1.Text = "0" + Trim(Str(numrowfac)) Else Text1.Text = Trim(Str(numrowfac)) End If Text2.Text = "" Text2.Enabled = True Text2.Locked = False Text2.SetFocus End Sub Private Sub Cmdadddep_Click() Cmdadddep.Visible = False Cmdeditdep.Enabled = False Cmdsaveadddep.Visible = True Cmdcanceldep.Enabled = True showfac.Enabled = False showdep.Enabled = False If numrowdep < 10 Then Text3.Text = showfac.TextMatrix(showfac.RowSel, 0) + "0" + Trim(Str(numrowdep)) Else Text3.Text = showfac.TextMatrix(showfac.RowSel, 0) + Trim(Str(numrowdep)) End If Text4.Text = "" Text4.Enabled = True Text4.Locked = False Text4.SetFocus End Sub Private Sub Cmdcancel_Click() Cmdadd.Visible = True Cmdadd.Enabled = True Cmdsaveadd.Visible = False showfac.Enabled = True showdep.Enabled = True Text2.Enabled = False Text2.Locked = True Text1.Text = showfac.TextMatrix(showfac.RowSel, 0) Text2.Text = showfac.TextMatrix(showfac.RowSel, 1) Cmdedit.Visible = True Cmdsaveedit.Visible = False Cmdedit.Enabled = False Cmdcancel.Enabled = False End Sub Private Sub Cmdcanceldep_Click() Cmdadddep.Visible = True Cmdadddep.Enabled = True Cmdsaveadddep.Visible = False showfac.Enabled = True showdep.Enabled = True Text4.Enabled = False Text4.Locked = True Text3.Text = showdep.TextMatrix(showdep.RowSel, 0) Text4.Text = showdep.TextMatrix(showdep.RowSel, 1) Cmdeditdep.Visible = True Cmdsaveeditdep.Visible = False Cmdeditdep.Enabled = False Cmdcanceldep.Enabled = False End Sub Private Sub Cmdedit_Click() Cmdadd.Enabled = False Cmdcancel.Enabled = True Cmdedit.Visible = False Cmdsaveedit.Visible = True Text2.Enabled = True Text2.Locked = False Text2.SetFocus End Sub Private Sub Cmdeditdep_Click() Cmdadddep.Enabled = False Cmdcanceldep.Enabled = True Cmdeditdep.Visible = False Cmdsaveeditdep.Visible = True Text4.Enabled = True Text4.Locked = False Text4.SetFocus End Sub Private Sub Cmdexit_Click() If Conn.State = adStateOpen Then Conn.Close Set Conn = Nothing Unload Me End Sub Private Sub cmdsaveadd_Click() If MsgBox("ต้องการบันทึกข้อมูลหรือไม่", vbQuestion + vbYesNo, "บันทึกข้อมูลคณะวิชา") = vbYes Then Set factab = New ADODB.Recordset If factab.State = adStateOpen Then factab.Close factab.CursorLocation = adUseClient factab.Open " select * from department ", Conn, adOpenForwardOnly, adLockOptimistic factab.AddNew factab.Fields(0).Value = Text1.Text factab.Fields(1).Value = Text2.Text factab.Update factab.Close Set factab = Nothing showfac.Rows = showfac.Rows + 1 showfac.TextMatrix(numrowfac, 0) = Text1.Text showfac.TextMatrix(numrowfac, 1) = Text2.Text Text1.Text = showfac.TextMatrix(showfac.RowSel, 0) Text2.Text = showfac.TextMatrix(showfac.RowSel, 1) Cmdadd.Visible = True Cmdsaveadd.Visible = False showfac.Enabled = True showdep.Enabled = True Text2.Enabled = False Text2.Locked = True End If End Sub Private Sub Cmdsaveadddep_Click() If MsgBox("ต้องการบันทึกข้อมูลหรือไม่", vbQuestion + vbYesNo, "บันทึกข้อมูลคณะวิชา") = vbYes Then Set deptab = New ADODB.Recordset If deptab.State = adStateOpen Then deptab.Close deptab.CursorLocation = adUseClient deptab.Open " select * from department1 ", Conn, adOpenForwardOnly, adLockOptimistic deptab.AddNew deptab.Fields(0).Value = Text3.Text deptab.Fields(1).Value = Text4.Text deptab.Update deptab.Close Set deptab = Nothing showdep.Rows = showdep.Rows + 1 showdep.TextMatrix(numrowdep, 0) = Text3.Text showdep.TextMatrix(numrowdep, 1) = Text4.Text Text3.Text = showdep.TextMatrix(showdep.RowSel, 0) Text4.Text = showdep.TextMatrix(showdep.RowSel, 1) Cmdadddep.Visible = True Cmdsaveadddep.Visible = False showfac.Enabled = True showdep.Enabled = True Text4.Enabled = False Text4.Locked = True End If End Sub Private Sub Cmdsaveedit_Click() If MsgBox("ต้องการบันทึกข้อมูลหรือไม่", vbQuestion + vbYesNo, "บันทึกข้อมูลคณะวิชา") = vbYes Then Set factab = New ADODB.Recordset If factab.State = adStateOpen Then factab.Close factab.CursorLocation = adUseClient factab.Open " select * from department where Department_Code='" & Text1.Text & "'", Conn, adOpenForwardOnly, adLockOptimistic If Not factab.EOF Then factab.Fields(1).Value = Text2.Text factab.Update End If factab.Close Set factab = Nothing showfac.TextMatrix(showfac.RowSel, 1) = Text2.Text Cmdadd.Enabled = True Cmdcancel.Enabled = False Cmdedit.Visible = True Cmdsaveedit.Visible = False showfac.Enabled = True showdep.Enabled = True Text2.Enabled = False Text2.Locked = True End If End Sub Private Sub Cmdsaveeditdep_Click() If MsgBox("ต้องการบันทึกข้อมูลหรือไม่", vbQuestion + vbYesNo, "บันทึกข้อมูลคณะวิชา") = vbYes Then Set deptab = New ADODB.Recordset If deptab.State = adStateOpen Then deptab.Close deptab.CursorLocation = adUseClient deptab.Open " select * from department1 where depcode='" & Text3.Text & "'", Conn, adOpenForwardOnly, adLockOptimistic If Not deptab.EOF Then deptab.Fields(1).Value = Text4.Text deptab.Update End If deptab.Close Set deptab = Nothing showdep.TextMatrix(showdep.RowSel, 1) = Text4.Text Cmdadddep.Enabled = True Cmdcanceldep.Enabled = False Cmdeditdep.Visible = True Cmdsaveeditdep.Visible = False showfac.Enabled = True showdep.Enabled = True Text4.Enabled = False Text4.Locked = True End If End Sub Private Sub Form_Load() Set Conn = New ADODB.Connection Conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _ & "SERVER=192.168.1.15;" _ & "DATABASE=magazine;" _ & "UID=chaiya;" _ & "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384 Conn.CursorLocation = adUseClient Conn.Mode = adModeUnknown Conn.Open showfac.Rows = 2 With showfac .Row = 0 .ColWidth(0) = 900 .ColWidth(1) = 5100 .TextMatrix(0, 0) = "รหัสคณะ" ' .ColAlignment(0) = flexAlignCenterCenter .TextMatrix(0, 1) = " คณะวิชา " End With showdep.Rows = 2 With showdep .Row = 0 .ColWidth(0) = 1000 .ColWidth(1) = 5000 .TextMatrix(0, 0) = "รหัสสาขา" '.ColAlignment(0) = flexAlignCenterCenter .TextMatrix(0, 1) = " สาขาวิชา " End With Set factab = New ADODB.Recordset If factab.State = adStateOpen Then factab.Close factab.CursorLocation = adUseClient factab.Open " select * from department order by Department_Code", Conn, adOpenForwardOnly, adLockReadOnly numrowfac = 1 Do While Not factab.EOF showfac.Rows = showfac.Rows + 1 showfac.TextMatrix(numrowfac, 0) = factab.Fields(0).Value showfac.TextMatrix(numrowfac, 1) = factab.Fields(1).Value showfac.ColAlignment(1) = Left numrowfac = numrowfac + 1 factab.MoveNext Loop factab.Close Set factab = Nothing Set deptab = New ADODB.Recordset If deptab.State = adStateOpen Then deptab.Close deptab.CursorLocation = adUseClient deptab.Open " select * from department1 where left(depcode,2)= '" & showfac.TextMatrix(1, 0) & "'", Conn, adOpenForwardOnly, adLockReadOnly numrowdep = 1 Do While Not deptab.EOF showdep.Rows = showdep.Rows + 1 showdep.TextMatrix(numrowdep, 0) = deptab.Fields(0).Value showdep.TextMatrix(numrowdep, 1) = deptab.Fields(1).Value showdep.ColAlignment(1) = Left numrowdep = numrowdep + 1 deptab.MoveNext Loop deptab.Close Set deptab = Nothing End Sub Private Sub Form_Unload(Cancel As Integer) If Conn.State = adStateOpen Then Conn.Close Set Conn = Nothing End Sub Private Sub showpubl_dblClick() Cmdedit.SetFocus End Sub Private Sub showdep_Click() Text3.Text = showdep.TextMatrix(showdep.Row, 0) Text4.Text = showdep.TextMatrix(showdep.Row, 1) Cmdeditdep.Enabled = True End Sub Private Sub showfac_Click() Text1.Text = showfac.TextMatrix(showfac.Row, 0) Text2.Text = showfac.TextMatrix(showfac.Row, 1) Call clsshowdep Set deptab = New ADODB.Recordset If deptab.State = adStateOpen Then deptab.Close deptab.CursorLocation = adUseClient deptab.Open " select * from department1 where left(depcode,2)= '" & showfac.TextMatrix(showfac.Row, 0) & "' order by depcode", Conn, adOpenForwardOnly, adLockReadOnly numrowdep = 1 Do While Not deptab.EOF showdep.Rows = showdep.Rows + 1 showdep.TextMatrix(numrowdep, 0) = deptab.Fields(0).Value showdep.TextMatrix(numrowdep, 1) = deptab.Fields(1).Value numrowdep = numrowdep + 1 deptab.MoveNext Loop deptab.Close Set deptab = Nothing Text3.Text = showdep.TextMatrix(1, 0) Text4.Text = showdep.TextMatrix(1, 1) Cmdedit.Enabled = True Cmdadddep.Enabled = True Cmdeditdep.Enabled = False End Sub Sub clsshowdep() Dim clsrow As Integer For clsrow = 1 To showdep.Rows - 1 showdep.TextMatrix(clsrow, 0) = "" showdep.TextMatrix(clsrow, 1) = "" Next clsrow showdep.Rows = 2 End Sub