MOSTREM SUAS TELAS [SETEMBRO/2012]
Saudações pessoal...
Postem suas telas neste tópico usando algum hosting de imagens (ex. Para hospedar as imagem utilizem o site www.imageshack.us) ou a opção Anexar arquivo do site.
Postem suas telas neste tópico usando algum hosting de imagens (ex. Para hospedar as imagem utilizem o site www.imageshack.us) ou a opção Anexar arquivo do site.
show de bola F001E. parabéns!!
F001E , rapaz fiquei curioso e como funciona as consultas?
tava vendo no mes passado () o seu programa pra fazer venda, vi q vc chamou a tabela os produtos via codigo e no caso de ter procurar no banco de dados via nome?
fora isso ta muito bonito o programa parabens, falando sobre ele tu fez com WPF?
tava vendo no mes passado () o seu programa pra fazer venda, vi q vc chamou a tabela os produtos via codigo e no caso de ter procurar no banco de dados via nome?
fora isso ta muito bonito o programa parabens, falando sobre ele tu fez com WPF?
FRANZES..obrigado....Esse programa fiz no Visual Studio 2010 o VB.NET com componentes do DevExpress....
Sobre a Consulta de Produtos na tela de Vendas faço assim....
Private Sub MontaGrid(ByVal Tabela As String, ByVal Campo1 As String, ByVal Campo2 As String, ByVal VerEmpresa As Boolean)
Try
CarregaPanel(Panel, 0)
SQL = [Ô][Ô]
SQL = SQL & [Ô]SELECT [Ô] & Campo1 & [Ô] AS CODIGO,[Ô] & Chr(13)
SQL = SQL & Campo2 & [Ô] AS DESCRICAO[Ô] & Chr(13)
SQL = SQL & [Ô] FROM [Ô] & Tabela & [Ô][Ô] & Chr(13)
SQL = SQL & [Ô] WHERE 1 = 1[Ô] & Chr(13)
If VerEmpresa = True Then
SQL = SQL & [Ô] AND EMPRESA = [ô][Ô] & Empresa & [Ô][ô][Ô] & Chr(13)
End If
If Trim(txtDescricao.Text) <> [Ô][Ô] Then
SQL = SQL & [Ô] AND [Ô] & Campo2 & [Ô] LIKE [ô][Ô] & Trim(txtDescricao.Text) & [Ô]%[ô][Ô] & Chr(13)
End If
If Trim(txtCodigoInicial.Text) <> [Ô][Ô] And Trim(txtCodigoFinal.Text) <> [Ô][Ô] Then
SQL = SQL & [Ô] AND [Ô] & Campo1 & [Ô] >= [ô][Ô] & Trim(txtCodigoInicial.Text) & [Ô][ô][Ô] & Chr(13)
SQL = SQL & [Ô] AND [Ô] & Campo1 & [Ô] <= [ô][Ô] & Trim(txtCodigoFinal.Text) & [Ô][ô][Ô] & Chr(13)
End If
If optTipo.SelectedIndex = 0 Then
SQL = SQL & [Ô] ORDER BY [Ô] & Campo1 & [Ô][Ô]
Else
SQL = SQL & [Ô] ORDER BY [Ô] & Campo2 & [Ô][Ô]
End If
CarregarDataSet(SQL, BancoSQLEstoque, 0)
With grdDados
.DataSource = Nothing
If oDataTable.Rows.Count > 0 Then
CreateWaitDialog([Ô]Por Favor, Aguarde...[Ô], [Ô]Carregando Dados...[Ô])
.DataSource = oDataTable
.Columns.Item(0).Width = 70
.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(0).DefaultCellStyle.Format = Format([Ô]00000[Ô])
.Columns.Item(1).Width = 460
CloseWaitDialog()
End If
End With
CarregaPanel(Panel, 1)
Catch ex As Exception
TratarErro([Ô]frmSelecao[Ô], [Ô]MontaGrid[Ô], Err.Number, Err.Description, Erl)
End Try
End Sub
Dai chamo essa Procedure assim...
Private Sub cmdLocalizar_Click(sender As System.Object, e As System.EventArgs) Handles cmdLocalizar.Click
Try
MontaGrid(NomeTabela, NomeCampo1, NomeCampo2, VerificaEmpresa)
Catch ex As Exception
TratarErro([Ô]frmSelecao[Ô], [Ô]cmdLocalizar_Click[Ô], Err.Number, Err.Description, Erl)
End Try
End Sub
Mas isso é em um Form só de Consulta...Nesse Form posso consultar tanto Produtos, quanto Clientes, Fornecedores,,Notas Fiscais...
E para Chamar esse Tela de Consulta faço assim...
No Evento Form KeyDows do Código do Produtos...
Private Sub txtProduto_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles txtProduto.KeyDown
Try
If e.KeyCode = Keys.F9 Then
NomeTabela = [Ô]AUTOMACAO_PRODUTOS[Ô]
NomeCampo1 = [Ô]CODPRODUTO[Ô]
NomeCampo2 = [Ô]NOME[Ô]
NomeSeleciocaoDados = [Ô]Seleção de Produtos[Ô]
VerificaEmpresa = True
frmSelecao.ShowDialog()
ElseIf e.KeyCode = Keys.Enter Then
If Trim(txtProduto.Text) <> [Ô]0[Ô] And Trim(txtProduto.Text) <> [Ô][Ô] Then
SequenciaProduto = 0
SQL = [Ô][Ô]
SQL = SQL & [Ô]SELECT SEQUENCIA,[Ô] & NomeCampo1 & [Ô],[Ô] & NomeCampo2 & [Ô][Ô] & Chr(13)
SQL = SQL & [Ô] FROM [Ô] & NomeTabela & [Ô][Ô] & Chr(13)
SQL = SQL & [Ô] WHERE CODPRODUTO = [Ô] & Trim(txtProduto.Text) & [Ô][Ô]
SQL = SQL & [Ô] AND EMPRESA = [ô][Ô] & Empresa & [Ô][ô][Ô]
CarregarDataSet(SQL, BancoSQLEstoque, 0)
If oDataTable.Rows.Count > 0 Then
For Each oDataRow In oDataTable.Rows
SequenciaProduto = IIf(Convert.IsDBNull(oDataRow([Ô]SEQUENCIA[Ô])) = True, [Ô][Ô], UCase(oDataRow([Ô]SEQUENCIA[Ô])))
txtNomeProduto.Text = IIf(Convert.IsDBNull(oDataRow([Ô]NOME[Ô])) = True, [Ô][Ô], UCase(oDataRow([Ô]NOME[Ô])))
txtValorUnit.Text = IIf(Convert.IsDBNull(oDataRow([Ô]VALORUNIT[Ô])) = True, [Ô]0,00[Ô], FormataValor(oDataRow([Ô]VALORUNIT[Ô]), 1))
Next
Else
XtraMessageBox.Show([Ô]Produto não encontrada..![Ô], Titulomsg, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
SequenciaProduto = 0
txtNomeProduto.Text = [Ô][Ô]
txtValorUnit.Text = [Ô][Ô]
txtProduto.Focus()
End If
Else
SequenciaProduto = 0
txtProduto.Text = [Ô][Ô]
txtNomeProduto.Text = [Ô][Ô]
txtValorUnit.Text = [Ô][Ô]
End If
End If
Catch ex As Exception
TratarErro([Ô]frmFaturamento[Ô], [Ô]txtProduto_KeyDown[Ô], Err.Number, Err.Description, Erl)
End Try
End Sub
Sobre a Consulta de Produtos na tela de Vendas faço assim....
Private Sub MontaGrid(ByVal Tabela As String, ByVal Campo1 As String, ByVal Campo2 As String, ByVal VerEmpresa As Boolean)
Try
CarregaPanel(Panel, 0)
SQL = [Ô][Ô]
SQL = SQL & [Ô]SELECT [Ô] & Campo1 & [Ô] AS CODIGO,[Ô] & Chr(13)
SQL = SQL & Campo2 & [Ô] AS DESCRICAO[Ô] & Chr(13)
SQL = SQL & [Ô] FROM [Ô] & Tabela & [Ô][Ô] & Chr(13)
SQL = SQL & [Ô] WHERE 1 = 1[Ô] & Chr(13)
If VerEmpresa = True Then
SQL = SQL & [Ô] AND EMPRESA = [ô][Ô] & Empresa & [Ô][ô][Ô] & Chr(13)
End If
If Trim(txtDescricao.Text) <> [Ô][Ô] Then
SQL = SQL & [Ô] AND [Ô] & Campo2 & [Ô] LIKE [ô][Ô] & Trim(txtDescricao.Text) & [Ô]%[ô][Ô] & Chr(13)
End If
If Trim(txtCodigoInicial.Text) <> [Ô][Ô] And Trim(txtCodigoFinal.Text) <> [Ô][Ô] Then
SQL = SQL & [Ô] AND [Ô] & Campo1 & [Ô] >= [ô][Ô] & Trim(txtCodigoInicial.Text) & [Ô][ô][Ô] & Chr(13)
SQL = SQL & [Ô] AND [Ô] & Campo1 & [Ô] <= [ô][Ô] & Trim(txtCodigoFinal.Text) & [Ô][ô][Ô] & Chr(13)
End If
If optTipo.SelectedIndex = 0 Then
SQL = SQL & [Ô] ORDER BY [Ô] & Campo1 & [Ô][Ô]
Else
SQL = SQL & [Ô] ORDER BY [Ô] & Campo2 & [Ô][Ô]
End If
CarregarDataSet(SQL, BancoSQLEstoque, 0)
With grdDados
.DataSource = Nothing
If oDataTable.Rows.Count > 0 Then
CreateWaitDialog([Ô]Por Favor, Aguarde...[Ô], [Ô]Carregando Dados...[Ô])
.DataSource = oDataTable
.Columns.Item(0).Width = 70
.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(0).DefaultCellStyle.Format = Format([Ô]00000[Ô])
.Columns.Item(1).Width = 460
CloseWaitDialog()
End If
End With
CarregaPanel(Panel, 1)
Catch ex As Exception
TratarErro([Ô]frmSelecao[Ô], [Ô]MontaGrid[Ô], Err.Number, Err.Description, Erl)
End Try
End Sub
Dai chamo essa Procedure assim...
Private Sub cmdLocalizar_Click(sender As System.Object, e As System.EventArgs) Handles cmdLocalizar.Click
Try
MontaGrid(NomeTabela, NomeCampo1, NomeCampo2, VerificaEmpresa)
Catch ex As Exception
TratarErro([Ô]frmSelecao[Ô], [Ô]cmdLocalizar_Click[Ô], Err.Number, Err.Description, Erl)
End Try
End Sub
Mas isso é em um Form só de Consulta...Nesse Form posso consultar tanto Produtos, quanto Clientes, Fornecedores,,Notas Fiscais...
E para Chamar esse Tela de Consulta faço assim...
No Evento Form KeyDows do Código do Produtos...
Private Sub txtProduto_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles txtProduto.KeyDown
Try
If e.KeyCode = Keys.F9 Then
NomeTabela = [Ô]AUTOMACAO_PRODUTOS[Ô]
NomeCampo1 = [Ô]CODPRODUTO[Ô]
NomeCampo2 = [Ô]NOME[Ô]
NomeSeleciocaoDados = [Ô]Seleção de Produtos[Ô]
VerificaEmpresa = True
frmSelecao.ShowDialog()
ElseIf e.KeyCode = Keys.Enter Then
If Trim(txtProduto.Text) <> [Ô]0[Ô] And Trim(txtProduto.Text) <> [Ô][Ô] Then
SequenciaProduto = 0
SQL = [Ô][Ô]
SQL = SQL & [Ô]SELECT SEQUENCIA,[Ô] & NomeCampo1 & [Ô],[Ô] & NomeCampo2 & [Ô][Ô] & Chr(13)
SQL = SQL & [Ô] FROM [Ô] & NomeTabela & [Ô][Ô] & Chr(13)
SQL = SQL & [Ô] WHERE CODPRODUTO = [Ô] & Trim(txtProduto.Text) & [Ô][Ô]
SQL = SQL & [Ô] AND EMPRESA = [ô][Ô] & Empresa & [Ô][ô][Ô]
CarregarDataSet(SQL, BancoSQLEstoque, 0)
If oDataTable.Rows.Count > 0 Then
For Each oDataRow In oDataTable.Rows
SequenciaProduto = IIf(Convert.IsDBNull(oDataRow([Ô]SEQUENCIA[Ô])) = True, [Ô][Ô], UCase(oDataRow([Ô]SEQUENCIA[Ô])))
txtNomeProduto.Text = IIf(Convert.IsDBNull(oDataRow([Ô]NOME[Ô])) = True, [Ô][Ô], UCase(oDataRow([Ô]NOME[Ô])))
txtValorUnit.Text = IIf(Convert.IsDBNull(oDataRow([Ô]VALORUNIT[Ô])) = True, [Ô]0,00[Ô], FormataValor(oDataRow([Ô]VALORUNIT[Ô]), 1))
Next
Else
XtraMessageBox.Show([Ô]Produto não encontrada..![Ô], Titulomsg, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
SequenciaProduto = 0
txtNomeProduto.Text = [Ô][Ô]
txtValorUnit.Text = [Ô][Ô]
txtProduto.Focus()
End If
Else
SequenciaProduto = 0
txtProduto.Text = [Ô][Ô]
txtNomeProduto.Text = [Ô][Ô]
txtValorUnit.Text = [Ô][Ô]
End If
End If
Catch ex As Exception
TratarErro([Ô]frmFaturamento[Ô], [Ô]txtProduto_KeyDown[Ô], Err.Number, Err.Description, Erl)
End Try
End Sub
Actualizando o meu centro de programas
Tela do resultado da pesquisa
programas instalados
Telas do meu sistema gerador de Backups
Nessa tela é gerado todas as informações sobre o andamento do backup, e depois gerado um log para ser enviado por email com as informações do procedimento.
Nessa tela é onde é configurado os horários em que o sistema deverá executar o backup(Agendamento)
Nesta tela é possÃvel fazer as configurações como senha do banco, endereço do banco, email para envio do log.... etc.
O sistema é iniciado em modo background junto com o Windows, e ao iniciar/finalizar o processo, o sistema emite um simples aviso na tela.
Exemplo do log recebido no email
Nessa tela é gerado todas as informações sobre o andamento do backup, e depois gerado um log para ser enviado por email com as informações do procedimento.
Nessa tela é onde é configurado os horários em que o sistema deverá executar o backup(Agendamento)
Nesta tela é possÃvel fazer as configurações como senha do banco, endereço do banco, email para envio do log.... etc.
O sistema é iniciado em modo background junto com o Windows, e ao iniciar/finalizar o processo, o sistema emite um simples aviso na tela.
Exemplo do log recebido no email
Tópico encerrado , respostas não são mais permitidas