MOSTREM SUAS TELAS [SETEMBRO/2012]

JONATHANSTECKER 11/09/2012 17:23:39
#409452
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.
F001E 14/09/2012 11:04:16
#409680




Cadastro de Funcionário do Ponto Eletronico...
ONBASS 14/09/2012 11:21:32
#409685
show de bola F001E. parabéns!!
FRANZES 14/09/2012 15:20:32
#409704
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?
F001E 14/09/2012 15:50:01
#409707
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
F001E 19/09/2012 18:08:40
#410027
Balancete de Verificação da Contabilidade



NIKYTS 23/09/2012 19:11:36
#410292
Actualizando o meu centro de programas
NIKYTS 23/09/2012 19:17:37
#410293
Tela do resultado da pesquisa
NIKYTS 23/09/2012 19:19:46
#410294
programas instalados
F001E 25/09/2012 09:57:20
#410424
Plano de Contas


ALTAIR148 26/09/2012 21:34:26
#410612
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

Página 1 de 2 [15 registro(s)]
Tópico encerrado , respostas não são mais permitidas