SQry = "Select FormName from MenuMaster Where MenuText = '" +sender.ToString + "'" ĭynamicallyLoadedObject(frmName).Show(this) Private void SelectedChildMenu_OnClick(object sender, System.EventArgs e) ParentMenuID = Convert.ToInt32( ds_()) ĭataSet ds_MenuText= dac.EjecutarConsulta( "Select MenuText from MenuMaster Where MainMenuID ='" + parentMenuID + "' And isActive = 1 And MenuID in (Select MenuID from Access Where AccessId =" + iUserAccessMode + ") Order BY MenuOrder","Table") Ĭms.Items.Add(sMn, null, new System.EventHandler(SelectedChildMenu_OnClick)) sQry = "Select MenuText from MenuMaster Where MainMenuID = 0 And MenuID in (Select MenuID from Access Where AccessId ="+id_accces+") and isActive = 1" iUserAccessMode = ĭataSet ds_nomMenu = dac.EjecutarConsulta("SELECT MenuText FROM MenuMaster WHERE MainMenuID = 0 AND MenuID IN (SELECT MenuID FROM Access WHERE AccessId ="+id_accces+") AND isActive = 1") Private void MDI_padre_Load(object sender, EventArgs e)ĪccesoDatos.AccesoDatos dac = new AccesoDatos.AccesoDatos() This function is executed at the click event of each menu item, the form to open( FormName) on the execution of the event also comes from the backend table " MENUMASTER". Next Dim tsi As ToolStripMenuItem = CType(sender, ToolStripMenuItem) New System.EventHandler( AddressOf SelectedChildMenu_OnClick)) Select MenuID from Access Where AccessId =ĭim i As Integer If sMenuRD.HasRows Then ReDim Preserve sMenu( 0) SQry = " Select MenuText from MenuMaster Where MainMenuID = SQry = " Select MenuID from MenuMaster Where MenuText = '" & sender.ToString & " '"ĭim parentMenuID As Integer If sMenuRD.HasRows Then Private Sub MainMenu_OnClick( ByVal sender As Object, ByVal e As System.EventArgs)ĭim sMenu() As String Dim Conn As New Conn1
0 Comments
Leave a Reply. |