HF-MIS-SYS--LEEHSIEHJUI/WindowsApp1/FrmMDI.vb

Imports System.Data.SqlClient
Public Class FrmMDI
    Private Sub CloseAllToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CloseAllToolStripMenuItem.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
    End Sub
    Private m_ChildFormNumber As Integer
    Private Sub mdiForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = Me.Text & "  --  " & g_conn_type & "  --  " & gUserName & "  --  系統版本  :" & 版本
        更換底圖()
    End Sub
    Private Sub mdiForm_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        '-----------------系統設定--------------------------------
        系统設定_tsm.Visible = cc(51)
        '-----------------業務管理--------------------------------
        业务管理_tsm.Visible = cc(52)
        订单控制表_tsm.Visible = cc(53) : 销货控制表_tsm.Visible = cc(54)
        '-----------------皮料管理--------------------------------
        皮料管理_tsm.Visible = cc(55)
        蓝皮_tsm.Visible = cc(56) : 在制品_tsm.Visible = cc(57) : 每日发货_tsm.Visible = cc(36) : 每日发货1_tsm.Visible = cc(50) : 蓝皮采购_tsm.Visible = cc(58)
        皮胚中检_tsm.Visible = cc(49) : 打尺发货_tsm.Visible = cc(59) : 添梅_tsm.Visible = cc(60) : 添梅喷台摔鼓_tsm.Visible = cc(61) : 皮胚盘点_tsm.Visible = cc(62)
        反毛打尺入库_tsm.Visible = cc(68) : 打尺入库_tsm.Visible = cc(69) : 下鼓染色_tsm.Visible = cc(70) : PU主机_tsm.Visible = cc(71) : 磨皮_tsm.Visible = cc(72)
        水场在制_tsm.Visible = cc(73) : 噴台_tsm.Visible = cc(74)
        '-----------------化料管理--------------------------------
        化料管理_tsm.Visible = cc(6)
        化料主档_tsm.Visible = cc(7) : 用量试算_tsm.Visible = cc(31) : 盘点_tsm.Visible = cc(9) : 即时库存_tsm.Visible = cc(10) : 呆料管理_tsm.Visible = cc(13)
        染料用量_tsm.Visible = cc(14) : 货柜采购_tsm.Visible = cc(11) : 采购汇总_tsm.Visible = cc(12) : 其他_tsm.Visible = cc(64) : PU_tsm.Visible = cc(65)
        化工用量_tsm.Visible = cc(15) : 手册进口_tsm.Visible = cc(8) : 化工领料_tsm.Visible = cc(34) : 化工認証_tsm.Visible = cc(46) : 化工认证1_tsm.Visible = cc(47)
        '-----------------工藝管理--------------------------------
        工艺管理_tsm.Visible = cc(16)
        染色工艺_tsm.Visible = cc(17) : 染色记录_tsm.Visible = cc(18) : 染色领料记录_tsm.Visible = cc(19) : 涂饰配料记录_tsm.Visible = cc(30) : 涂饰领料记录_tsm.Visible = cc(48)
        涂饰工艺_tsm.Visible = cc(66) : 工艺_tsm.Visible = cc(67)
        '-----------------現場報表--------------------------------
        现场报表_tsm.Visible = cc(45)
        各组工作日报表_tsm.Visible = cc(42) : 染色日报表_tsm.Visible = cc(44) : 流程追踪_tsm.Visible = cc(43) : 生皮出库_tsm.Visible = cc(41) : 喷台日报表_tsm.Visible = cc(40)
        反毛量尺_tsm.Visible = cc(39) : PU量尺_tsm.Visible = cc(38) : 在制品1_tsm.Visible = cc(37) : 皮料盘点汇总_tsm.Visible = cc(35) : 量尺在线数据_tsm.Visible = cc(29)
        '-----------------關務管理--------------------------------
        关务管理_tsm.Visible = cc(1)
        手冊管理_tsm.Visible = cc(2) : 蓝皮采购1_tsm.Visible = cc(32) : 化料采购_tsm.Visible = cc(63) : 手册进出台帐_tsm.Visible = cc(3) : 手册进出汇总_tsm.Visible = cc(4)
        关务主页面_tsm.Visible = cc(5) : 汇入数据_tsm.Visible = cc(33) : 备查帐_tsm.Visible = cc(26) : 备查帐汇总_tsm.Visible = cc(27)
        '-----------------金蝶串接--------------------------------
        金蝶串接_tsm.Visible = cc(75)
        同步订单及销售_tsm.Visible = cc(76) : 同步收料入库_tsm.Visible = cc(77) : 同步领料出库_tsm.Visible = cc(78)
        '-----------------系統維護--------------------------------
        其他1_tsm.Visible = cc(79)
        汇入数据1_tsm.Visible = cc(80) : 水场水表_tsm.Visible = cc(81) : 打印唛头_tsm.Visible = cc(82)
        '-----------------系統維護--------------------------------
        系统维护_tsm.Visible = cc(20)
        使用者权限管理_tsm.Visible = cc(24) : 资料库转换_tsm.Visible = cc(25) : 汇率管理_tsm.Visible = cc(21) : 资料库备份_tsm.Visible = cc(22) : 资料库回存_tsm.Visible = cc(23)
        汇入_tsm.Visible = cc(28) : 系統執行檔版本管理_tsm.Visible = cc(25)
    End Sub
    Private Sub mdiForm_Closed(sender As Object, e As EventArgs) Handles MyBase.Closing
        frmLogin.Close()
    End Sub
    Private Sub mdiForm_SIZE(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
        更換底圖()
    End Sub
    Private Sub 更換底圖()
        Dim 現在時間 As Integer = DateTime.Now.Hour
        If 現在時間 >= 5 AndAlso 現在時間 < 17 Then : Me.BackgroundImage = My.Resources._00002 : Else : Me.BackgroundImage = My.Resources._00003 : End If
        Me.BackgroundImageLayout = ImageLayout.Stretch
    End Sub
    '-----------------系統設定--------------------------------
    Private Sub 個人帳號管理_tsm_Click(sender As Object, e As EventArgs) Handles 個人帳號管理_tsm.Click
        個人帳號管理.ShowDialog()
    End Sub
    '-----------------業務管理--------------------------------
    Private Sub 订单控制表_tsm_Click(sender As Object, e As EventArgs) Handles 订单控制表_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_01HF_orders.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_01HF_orders.Show()
    End Sub
    Private Sub 销货_tsm_Click(sender As Object, e As EventArgs) Handles 销货控制表_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_00_Ship.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_00_Ship.Show()
    End Sub
    '-----------------皮料管理--------------------------------
    Private Sub 在制品_tsm_Click(sender As Object, e As EventArgs) Handles 在制品_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_00_InProcess.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_00_InProcess.Show()
    End Sub
    '-----------------工藝管理--------------------------------
    Private Sub 染色工艺_tsm_Click(sender As Object, e As EventArgs) Handles 染色工艺_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_00_Retan_rcp.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Me.WindowState = FormWindowState.Normal : Frm_00_Retan_rcp.Show()
    End Sub
    Private Sub 染色领料记录_tsm_Click(sender As Object, e As EventArgs) Handles 染色领料记录_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_retan_cost.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_retan_cost.Show()
    End Sub
    '-----------------系統維護--------------------------------
    Private Sub 使用者权限管理_tsm_Click(sender As Object, e As EventArgs) Handles 使用者权限管理_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_User_AUTH.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_User_AUTH.Show()
    End Sub
    Private Sub 系統執行檔版本管理_tsm_Click(sender As Object, e As EventArgs) Handles 系統執行檔版本管理_tsm.Click
        系統執行檔版本管理.ShowDialog()
    End Sub













    Private Sub 用量试算_tsm_Click(sender As Object, e As EventArgs) Handles 用量试算_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_RETAN_Evaluation.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_RETAN_Evaluation.Show()
    End Sub
    Private Sub 流程追踪_tsm_Click(sender As Object, e As EventArgs) Handles 流程追踪_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_process.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_process.Show()
    End Sub
    Private Sub 盘点_tsm_Click(sender As Object, e As EventArgs) Handles 盘点_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_Chem_month.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_Chem_month.Show()
    End Sub
    Private Sub 各组工作日报表_tsm_Click(sender As Object, e As EventArgs) Handles 各组工作日报表_tsm.Click
        For Each form In MdiChildren : If form.Name = FrmPROCESS_DEP.Name Then : form.BringToFront() : Exit Sub : End If : Next
        FrmPROCESS_DEP.Show()
    End Sub
    Private Sub 即时库存_tsm_Click(sender As Object, e As EventArgs) Handles 即时库存_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm1.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm1.Show()
    End Sub
    Private Sub 染色记录_tsm_Click(sender As Object, e As EventArgs) Handles 染色记录_tsm.Click
        For Each form In MdiChildren : If form.Name = frm_01hf_RetanRcpSummary.Name Then : form.BringToFront() : Exit Sub : End If : Next
        frm_01hf_RetanRcpSummary.Show()
    End Sub
    Private Sub 心皮出库_tsm_Click(sender As Object, e As EventArgs) Handles 生皮出库_tsm.Click
        For Each form In MdiChildren : If form.Name = FrmWB_OUT.Name Then : form.BringToFront() : Exit Sub : End If : Next
        FrmWB_OUT.Show()
    End Sub
    Private Sub 喷台报表_tsm_Click(sender As Object, e As EventArgs) Handles 喷台日报表_tsm.Click
        For Each form In MdiChildren : If form.Name = FrmSPRAY.Name Then : form.BringToFront() : Exit Sub : End If : Next
        FrmSPRAY.Show()
    End Sub
    Private Sub 量尺_tsm_Click(sender As Object, e As EventArgs) Handles 反毛量尺_tsm.Click
        For Each form In MdiChildren : If form.Name = frmMeasure.Name Then : form.BringToFront() : Exit Sub : End If : Next
        frmMeasure.Show()
    End Sub
    Private Sub 染料用量_tsm_Click(sender As Object, e As EventArgs) Handles 染料用量_tsm.Click
        For Each form In MdiChildren : If form.Name = FrmDye.Name Then : form.BringToFront() : Exit Sub : End If : Next
        FrmDye.Show()
    End Sub
    Private Sub 水场水表_tsm_Click_1(sender As Object, e As EventArgs) Handles 水场水表_tsm.Click
        For Each form In MdiChildren : If form.Name = FrmWaterMeter.Name Then : form.BringToFront() : Exit Sub : End If : Next
        FrmWaterMeter.Show()
    End Sub
    Private Sub 采购_tsm_Click(sender As Object, e As EventArgs) Handles 采购汇总_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_ChemBuy.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_ChemBuy.Show()
    End Sub
    Private Sub 其他_tsm1_Click(sender As Object, e As EventArgs) Handles 其他_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_Chem_IO.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_Chem_IO.Show()
    End Sub
    Private Sub PU_tsm_Click(sender As Object, e As EventArgs) Handles PU_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_PU.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_PU.Show()
    End Sub
    Private Sub 手册进出_tsm_Click(sender As Object, e As EventArgs) Handles 手册进出台帐_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_BG_IO.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_BG_IO.Show()
    End Sub
    Private Sub 呆料管理_tsm_Click(sender As Object, e As EventArgs) Handles 呆料管理_tsm.Click
        For Each form In MdiChildren : If form.Name = Frmchem_nouse.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frmchem_nouse.Show()
    End Sub
    Private Sub 化工用量_tsm_Click(sender As Object, e As EventArgs) Handles 化工用量_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_Chem_use.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_Chem_use.Show()
    End Sub
    Private Sub 在制品_tsm1_Click(sender As Object, e As EventArgs) Handles 在制品1_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_Stock.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_Stock.Show()
    End Sub
    Private Sub 皮料盘点汇总_tsm_Click(sender As Object, e As EventArgs) Handles 皮料盘点汇总_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_STOCK_SUM.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_STOCK_SUM.Show()
    End Sub
    Private Sub 手册进口_tsm_Click(sender As Object, e As EventArgs) Handles 手册进口_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_BG_CHEM.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_BG_CHEM.Show()
    End Sub
    Private Sub 进口_tsm_Click(sender As Object, e As EventArgs) Handles 手冊管理_tsm.Click
        For Each form In MdiChildren : If form.Name = FrmBG.Name Then : form.BringToFront() : Exit Sub : End If : Next
        FrmBG.Show()
    End Sub
    Private Sub 手册进出汇总_tsm_Click(sender As Object, e As EventArgs) Handles 手册进出汇总_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_BG_sum.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_BG_sum.Show()
    End Sub
    Private Sub 关务主页面_tsm_Click(sender As Object, e As EventArgs) Handles 关务主页面_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_BG_main.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_BG_main.Show()
    End Sub
    Private Sub FrmMDI_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        For Each form In MdiChildren : If form.Name = frmLogin.Name Then : form.BringToFront() : Exit Sub : End If : Next
        frmLogin.Close()
    End Sub
    Private Sub 资料库转换_tsm_Click(sender As Object, e As EventArgs) Handles 资料库转换_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_0Import1.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_0Import1.Show()     ' Frm_Import1.ShowDialog()
    End Sub
    Private Sub _tsm2_Click(sender As Object, e As EventArgs) Handles 化料采购_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_CHEM_container.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_CHEM_container.Show()
    End Sub
    Private Sub 汇入_tsm_Click(sender As Object, e As EventArgs) Handles 汇入_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_DB_T.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_DB_T.Show()
    End Sub
    Private Sub 汇入数据_tsm1_Click(sender As Object, e As EventArgs) Handles 汇入数据_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_DB_T.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_DB_T.Show()
    End Sub
    Private Sub 化工领料_tsm_Click(sender As Object, e As EventArgs) Handles 化工领料_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_M_retan.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_M_retan.Show()
    End Sub
    Private Sub 备查帐_tsm_Click(sender As Object, e As EventArgs) Handles 备查帐_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_ACC.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_ACC.Show()
    End Sub
    Private Sub 备查帐汇总_tsm_Click(sender As Object, e As EventArgs) Handles 备查帐汇总_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_ACC_1.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_ACC_1.Show()
    End Sub
    Private Sub 蓝皮_tsm_Click_1(sender As Object, e As EventArgs) Handles 蓝皮_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_WetBlue.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_WetBlue.Show()
    End Sub
    Private Sub 每日发货_tsm_Click(sender As Object, e As EventArgs) Handles 每日发货_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_SHIP.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_SHIP.Show()
    End Sub
    Private Sub 每日发货1_tsm_Click(sender As Object, e As EventArgs) Handles 每日发货1_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_Ship_daily_1.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_Ship_daily_1.Show()
    End Sub
    Private Sub 蓝皮采购_tsm1_Click(sender As Object, e As EventArgs) Handles 蓝皮采购_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_WB_Container.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_WB_Container.Show()
    End Sub
    Private Sub 化工認証_tsm_Click(sender As Object, e As EventArgs) Handles 化工認証_tsm.Click
        For Each form In MdiChildren : If form.Name = frm_Chem_cert.Name Then : form.BringToFront() : Exit Sub : End If : Next
        frm_Chem_cert.Show()
    End Sub
    Private Sub 化工认证1_tsm_Click(sender As Object, e As EventArgs) Handles 化工认证1_tsm.Click
        For Each form In MdiChildren : If form.Name = frm_Chem_Cert1.Name Then : form.BringToFront() : Exit Sub : End If : Next
        frm_Chem_Cert1.Show()
    End Sub
    Private Sub 皮胚中检_tsm_Click(sender As Object, e As EventArgs) Handles 皮胚中检_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_PU_crust.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_PU_crust.Show()
    End Sub
    Private Sub 打尺发货_tsm_Click(sender As Object, e As EventArgs) Handles 打尺发货_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_Ship_Daily_sum.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_Ship_Daily_sum.Show()
    End Sub
    Private Sub 添梅_tsm_Click(sender As Object, e As EventArgs) Handles 添梅_tsm.Click
        For Each form In MdiChildren : If form.Name = FrmTienMei.Name Then : form.BringToFront() : Exit Sub : End If : Next
        FrmTienMei.Show()
    End Sub
    Private Sub 添梅喷台摔鼓_tsm_Click(sender As Object, e As EventArgs) Handles 添梅喷台摔鼓_tsm.Click
        For Each form In MdiChildren : If form.Name = FrmTienMei_spray_mill.Name Then : form.BringToFront() : Exit Sub : End If : Next
        FrmTienMei_spray_mill.Show()
    End Sub
    Private Sub 皮胚盘点_tsm_Click(sender As Object, e As EventArgs) Handles 皮胚盘点_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_TM.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_TM.Show()
    End Sub
    Private Sub 打尺入库_tsm_Click(sender As Object, e As EventArgs) Handles 打尺入库_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_Measure_PU.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_Measure_PU.Show()
    End Sub
    Private Sub 反毛打尺入库_tsm_Click(sender As Object, e As EventArgs) Handles 反毛打尺入库_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_Measure_FM.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_Measure_FM.Show()
    End Sub
    Private Sub 下鼓染色_tsm_Click(sender As Object, e As EventArgs) Handles 下鼓染色_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_Retan.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_Retan.Show()
    End Sub
    Private Sub PU主机_tsm_Click(sender As Object, e As EventArgs) Handles PU主机_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_PU_WORK.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_PU_WORK.Show()
    End Sub
    Private Sub 磨皮_tsm_Click(sender As Object, e As EventArgs) Handles 磨皮_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_BUFF.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_BUFF.Show()
    End Sub
    Private Sub 水场在制_tsm_Click(sender As Object, e As EventArgs) Handles 水场在制_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_Retan_Inprocess.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_Retan_Inprocess.Show()
    End Sub
    Private Sub PU主机模版_tsm_Click(sender As Object, e As EventArgs) Handles 打印唛头_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_01_OUTPUT.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_01_OUTPUT.Show()
    End Sub
    Private Sub 噴台_tsm_Click(sender As Object, e As EventArgs) Handles 噴台_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_Spray.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_Spray.Show()
    End Sub
    Private Sub 涂饰成本_tsm_Click(sender As Object, e As EventArgs) Handles 涂饰领料记录_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_01hf_finish.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_01hf_finish.Show()
    End Sub
    Private Sub 量尺在线数据_tsm_Click(sender As Object, e As EventArgs) Handles 量尺在线数据_tsm.Click
        For Each form In MdiChildren : If form.Name = eform_measure.Name Then : form.BringToFront() : Exit Sub : End If : Next
        eform_measure.Show()
    End Sub
    Private Sub 涂饰工艺_tsm_Click(sender As Object, e As EventArgs) Handles 涂饰配料记录_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_01HF_finish_chem.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_01HF_finish_chem.Show()
    End Sub
    Private Sub 涂饰泡料_tsm_Click(sender As Object, e As EventArgs) Handles 涂饰工艺_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_01_finish_rcp.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_01_finish_rcp.Show()
    End Sub
    Private Sub 工艺_tsm_Click(sender As Object, e As EventArgs) Handles 工艺_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_00_Retan_rcp.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_00_Retan_rcp.Show()
    End Sub
    Private Sub 同步生产领料_tsm_Click(sender As Object, e As EventArgs) Handles 同步领料出库_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_01_retan_chem_to_k3.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_01_retan_chem_to_k3.Show()
    End Sub
    Private Sub 即时库存表_tsm_Click(sender As Object, e As EventArgs) Handles 即时库存表_tsm.Click
        For Each form In MdiChildren : If form.Name = Frm_00_k3_realtime_stock.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm_00_k3_realtime_stock.Show()
    End Sub
    Private Sub 资料库备份_tsm_Click(sender As Object, e As EventArgs) Handles 资料库备份_tsm.Click
        Dim conn As New SqlConnection
        conn.ConnectionString = connstring
        conn.Open()
        Dim all1 As String       '用來存放需要備份的資料庫的備份時的名字
        Dim all2 As String
        all1 = "d:\DB_BACKUP\MDB_BACKUP_" & Format(Now, "yyyy-MM-dd-HH-mm-ss")   '指定備份的路徑和名字，在這裡加了一個時間
        all2 = "c:\DB_BACKUP\MDB_BACKUP_" & Format(Now, "yyyy-MM-dd-HH-mm-ss")   '指定備份的路徑和名字，在這裡加了一個時間
        Dim cm As New SqlCommand("BACKUP DATABASE rt2021 TO DISK='" & all1 & "' WITH Format", conn)    '通過使用WITH FORMAT可以做到覆蓋任何現有的備份和建立一個新的媒體集
        cm.ExecuteNonQuery()
        MsgBox("備份成功到" & all1)
        Dim cm1 As New SqlCommand("BACKUP DATABASE rt2021 TO DISK='" & all2 & "' WITH Format", conn)    '通過使用WITH FORMAT可以做到覆蓋任何現有的備份和建立一個新的媒體集
        cm1.ExecuteNonQuery()
        MsgBox("備份成功到" & all2)
        conn.Close()
    End Sub
    Private Sub 资料库回存_tsm_Click(sender As Object, e As EventArgs) Handles 资料库回存_tsm.Click
        Dim str As String                  '定義一個字元用來盛放資料庫程序
        Dim conn As New SqlConnection
        Dim conn1 As New SqlConnection
        conn.ConnectionString = connstring
        conn.Open()
        conn1.ConnectionString = connstring
        conn1.Open()
        Dim all As String
        With OpenFileDialog1
            .FileName = "D:\db_backup\"
            .ShowDialog()
            all = .FileName
        End With
        Me.OpenFileDialog1.Filter = "所有檔案(*.*)|*.*|備份檔案(*.bak)|*.bak"   '開啟選擇框進行選擇
        If all = Nothing Then
            MessageBox.Show("檔名不能為空", "系統提示")
            Exit Sub
        End If
        Dim cm As SqlCommand = New SqlCommand("select spid from master..sysprocesses where dbid=db_id('maindb_HY2014')", conn)  '選擇所有程序
        Dim mydr As SqlDataReader = cm.ExecuteReader()
        Dim cm1 As SqlCommand = New SqlCommand()
        cm1.Connection = conn1
        While (mydr.Read())   '殺死程序
            str = mydr("spid").ToString()
            cm1.CommandText = str
            cm1.CommandType = CommandType.Text
            Application.DoEvents()
            cm1.ExecuteNonQuery()
        End While
        mydr.Close()
        cm = New SqlCommand("RESTORE DATABASE maindb_HY2014 FROM DISK='" & all & "'WITH REPLACE", conn)
        cm.ExecuteNonQuery()
        MsgBox("恢復自" & all & "，軟體自動關閉，請重新啟動")
        conn.Close()
        conn1.Close()
    End Sub
    Private Sub Tsm1_Click(sender As Object, e As EventArgs) Handles 蓝皮采购1_tsm.Click
        Dim Frm1 As New Frm_WB_Container
        For Each form In MdiChildren : If form.Name = Frm1.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm1.Show()
        Frm1.MdiParent = Me
    End Sub
    Private Sub 化料主档_tsm_Click(sender As Object, e As EventArgs) Handles 化料主档_tsm.Click
        Dim Frm1 As New FrmChem_Main
        For Each form In MdiChildren : If form.Name = Frm1.Name Then : form.BringToFront() : Exit Sub : End If : Next
        FrmChem_Main.Show()
    End Sub
    Private Sub PU量尺_tsm_Click(sender As Object, e As EventArgs) Handles PU量尺_tsm.Click
        Dim Frm1 As New Frm_pu_measure
        For Each form In MdiChildren : If form.Name = Frm1.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm1.Show()
        Frm1.MdiParent = Me
    End Sub
    Private Sub 采购_tsm1_Click(sender As Object, e As EventArgs) Handles 货柜采购_tsm.Click
        Dim Frm1 As New Frm_CHEM_container
        For Each form In MdiChildren : If form.Name = Frm1.Name Then : form.BringToFront() : Exit Sub : End If : Next
        Frm1.Show()
        Frm1.MdiParent = Me
    End Sub
End Class