Form logim e Form Menu

[Carlos Rocha]

Bom pessoal.

Tenho minha aplicação normal com um form MDI como "pai de todos".

Ai, decidi por um form de login. E, para o form de login abrir antes da aplicação(form MDI), alterei as propriedades da aplicação (), a proriedade startup para abrir com o form de logim.

O problema é que parece que quando faço isso, o orm logim passa a sero form principal da aplicação de forma tal que só fechando ele se fecha (encerra) a aplicação. fechando o form principal não é possivel encerrar a aplicação.

Pergunto:

Como faço para, mantendo tudo como esta, alterar o form de de fechamento da aplicação novamente para o form pincipal?

[OSJunior]

Olá, Carlos.

Nas propriedades da sua aplicação, retorne o startup para o seu formulário principal.

No componente que você quer que o seu formulário de login seja aberto (creio que no Load), utilize o código abaixo:

Form filho = new Form();
filho.MdiParent = this;
filho.Show();

Até.

[Carlos Rocha]

Ok, esse procedimento eu já havia tentado de outra fom mas o problema é como manter o Form MDI fechado até que o form de login faça a autenticação?

[OSJunior]

Ah, sim...

Ou você deixa o formulário de login como principal, ou então deixa o formulário principal desabilitado e invisível.

[Carlos Rocha]

Mas, como fazer isso?

Da uma ideia!

[Carlos Rocha]

alguém

[OSJunior]

Olá, Carlos.

Qual a dúvida em questão?

Em meu último post disse o que você poderia fazer.

[Carlos Rocha]

Sabe,a tarde resolvi o problema assim:

Form startup = Form de Login

Evento MouseClosed = my.Forms.formlogin.close

Agora to com um outro problema para veterano ajudar resolver:

Bom, estou trabalhando com inserção de registros (ítens dos pedidos) usando datatables temporarios (tabelas criadas dentro do dataset e não ligadas a Bancos de dados).

Para exibir esses ítens dos pedidos, estou usando uma DataGridView ligada por datasource à essa tabela temporia. O problema que ta acontecendeo agora é que, quando vou INCLUIR OU EXCLUIR os ítens dos pedido de um pedido que já apareceram na DataGridView no momento em que eu abri o formulario ocorre tudo cero inclusive quando tento incluir linhas novas. Mas, se exluir qualquer uma dessas linhas novas ele já não acha a correspondencia entre datagridviewrow e a datarow.

Estou usando o código abaixo mas ta dando o seguinte erro na hora de salvar as alterações:

"Informações sobre a linha excluída não podem ser acessadas através da linha."

Mas esse erro é só se eu deletar linhas que forma inseridas e que por ventura tenha desistido delas:

Private Sub Excluir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Excluir.Click
        'a propriedade SelectionMode deve ser igual a FullRowSelect para deletar linhas
        'verifica se a linha a ser excluida é valida
        Dim registro As DataRowView = TryCast(DGWPedidos.CurrentRow.DataBoundItem, DataRowView)
        ' Existe algum registro selecionado? 
        If registro IsNot Nothing Then
            ' Sim... Então apaga;) 
            registro.Delete()
        End If
    End Sub

Código para inserir:

Private Sub Incluir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Incluir.Click
        'a propriedade SelectionMode deve ser igual a FullRowSelect para deletar linhas
        If cliente.Text = String.Empty Then
            MsgBox("Escolha o clientes...")
            bcliente_Click(Nothing, Nothing)
            Exit Sub
        ElseIf produto.Text = String.Empty Then
            MsgBox("Escolha o produto.")
            bproduto_Click(Nothing, Nothing)
            Exit Sub
        ElseIf qtde.Text = String.Empty Then
            MsgBox("Informe a quantidade requerida...")
            qtde.Focus()
            Exit Sub
        End If
       
        Dim rowNew As DataRow = ds_itens_temp.Tables(0).NewRow
        rowNew("pedidoID") = codigoped.Text
        rowNew("produtoID") = codigoprod.Text
        rowNew("unidade") = unidade.Text
        rowNew("descricao") = produto.Text
        rowNew("preço") = preço.Text
        rowNew("quantidade") = qtde.Text
        rowNew("subtotal") = preço.Text * qtde.Text
        ds_itens_temp.Tables(0).Rows.Add(rowNew)
        ds_itens_temp.AcceptChanges()

        total.Text = 0.0
        For Each linha As DataGridViewRow In DGWPedidos.Rows
            total.Text += linha.Cells(6).Value
            total.Text = FormatCurrency(total.Text, "0.00")
        Next linha
    End Sub

Editado Dezembro 11, 2008 por Carlos Rocha