IDEIA PARA UM PROJETO
Boa tarde amigos,
estou começando a tentar desenvolver um projetinho basico para a minha igreja para guardar o movimento financeiro.
ex.
Movimento financeiro de Abril
domingo dia 01/04/2012 Oferta R$ 100,00
dizimo fabiano rocha R$ 50,00
| | Raquel Ferreira R$ 30,00
| | Leonardo Gonçalves R$ 25,00
Voto referente a Bateria Ricardo Batista R$ 15,00
ai no caso ira entrar os outros dias, por ai em diante
eu criei o banco de dados com 3 tabelas
Tb=Ofertas Campos=(codigo, valor,data)
Tb=Dizimos Campos=(codigo,nome,valor,data)
Tb=Votos Campos=(codigo,nome,referente,valor,data) o referente vai ser ex. referente a bateria, ou potencia, ou campanha e etc...
alguem pode dar uma ideia legal de como criar a tela a respeito disso?
eu uso msflexgrid para carregar os dados dentro dele em uma pesquisa, e tbm quando eu clicar carregar os campos.
estou imaginando na parte da data, exemplo:
eu quero ver o movimento do mes de maio, ou março.
trazer no msflexgrid todos os dados referente ao mes colocado, mais ai eu queria clicar dentro de um calendario
oq vcs pode sugerir uma ideia simples e legal???
estou começando a tentar desenvolver um projetinho basico para a minha igreja para guardar o movimento financeiro.
ex.
Movimento financeiro de Abril
domingo dia 01/04/2012 Oferta R$ 100,00
dizimo fabiano rocha R$ 50,00
| | Raquel Ferreira R$ 30,00
| | Leonardo Gonçalves R$ 25,00
Voto referente a Bateria Ricardo Batista R$ 15,00
ai no caso ira entrar os outros dias, por ai em diante
eu criei o banco de dados com 3 tabelas
Tb=Ofertas Campos=(codigo, valor,data)
Tb=Dizimos Campos=(codigo,nome,valor,data)
Tb=Votos Campos=(codigo,nome,referente,valor,data) o referente vai ser ex. referente a bateria, ou potencia, ou campanha e etc...
alguem pode dar uma ideia legal de como criar a tela a respeito disso?
eu uso msflexgrid para carregar os dados dentro dele em uma pesquisa, e tbm quando eu clicar carregar os campos.
estou imaginando na parte da data, exemplo:
eu quero ver o movimento do mes de maio, ou março.
trazer no msflexgrid todos os dados referente ao mes colocado, mais ai eu queria clicar dentro de um calendario
oq vcs pode sugerir uma ideia simples e legal???
eu estava imaginando aqui, eu gostaria de fazer essa pesquisa por data, sera que é muito dificil???
Cara,
Eu tenho no meu sistema de adm escolar um cadastro de horários, que uso para vincular o professor/disciplina/turma/horário.
Utilizo listview e datapicker
No evento change do dtpicker chamo a função de consulta ao banco que preenche o listview conforme a data do dtpicker.
Eu tenho no meu sistema de adm escolar um cadastro de horários, que uso para vincular o professor/disciplina/turma/horário.
Utilizo listview e datapicker
No evento change do dtpicker chamo a função de consulta ao banco que preenche o listview conforme a data do dtpicker.
poderia dar uma olhada se não for encomodo só para ver como funciona?
Saca só.
Private Sub DTPicker1_Change()
dia_semana.Text = diasemana(DTPicker1.Value)
carrega_horarios
End Sub
Private Sub carrega_horarios()
ListView1.Visible = False
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear
Dim ItemLst As ListItem
[ô] RICKSOUSA, aqui coloco o nome das colunas conforme as seleciono no select
ListView1.ColumnHeaders.Add , , [Ô]ID[Ô]
ListView1.ColumnHeaders.Add , , [Ô]Dia[Ô]
ListView1.ColumnHeaders.Add , , [Ô]Turma[Ô]
ListView1.ColumnHeaders.Add , , [Ô]Série[Ô]
ListView1.ColumnHeaders.Add , , [Ô]Turno[Ô]
ListView1.ColumnHeaders.Add , , [Ô]Aula[Ô]
ListView1.ColumnHeaders.Add , , [Ô]Disciplina[Ô]
ListView1.ColumnHeaders.Add , , [Ô]Professor[Ô]
ListView1.ColumnHeaders.Add , , [Ô]Ano[Ô]
Conecta_BD
Dim rsSIGA As ADODB.Recordset
Set rsSIGA = New ADODB.Recordset
Dim strSQL As String
strSQL = [Ô]select id, dia, tb_turma.turma, tb_serie.serie, tb_gradeaula.turno, tb_horario.horario, tb_disciplina.disciplina, tb_professor.nome, tb_gradeaula.ano [Ô]
strSQL = strSQL & [Ô] from (((((tb_gradeaula [Ô]
strSQL = strSQL & [Ô] inner join tb_horario on tb_gradeaula.horario = tb_horario.id_horario)[Ô]
strSQL = strSQL & [Ô] inner join tb_turma on tb_gradeaula.turma = tb_turma.id_turma)[Ô]
strSQL = strSQL & [Ô] inner join tb_serie on tb_gradeaula.serie = tb_serie.id_serie)[Ô]
strSQL = strSQL & [Ô] inner join tb_disciplina on tb_gradeaula.disciplina = tb_disciplina.id_disciplina)[Ô]
strSQL = strSQL & [Ô] inner join tb_professor on tb_gradeaula.professor = tb_professor.cod)[Ô]
strSQL = strSQL & [Ô] where Format(dia, [ô]dd/mm/yyyy[ô]) = [ô][Ô] & Format(DTPicker1.Value, [Ô]dd/mm/yyyy[Ô]) & [Ô][ô] [Ô]
strSQL = strSQL & [Ô] order by tb_turma.turma asc, tb_horario.horario asc [Ô]
rsSIGA.Open strSQL, connSIGA, adOpenForwardOnly, adLockReadOnly, adCmdText
[ô]RICKSOUSA aqui preencho a listview com o resultado da busca
While Not rsSIGA.EOF
Set ItemLst = ListView1.ListItems.Add(, , rsSIGA(0))
For i = 1 To rsSIGA.Fields.Count - 1
ItemLst.SubItems(i) = rsSIGA(i)
Next i
rsSIGA.MoveNext
Wend
ListView1.Visible = True
Desconecta_BD
End Sub
Private Sub Form_Load()
[ô] no evento LOAD do form digo que o valor do dtpicker é a data atual
DTPicker1.Value = Date
[ô] chamo a função de busca para a data do dtpicker
carrega_horarios
End Sub
Private Sub DTPicker1_Change()
dia_semana.Text = diasemana(DTPicker1.Value)
carrega_horarios
End Sub
Private Sub carrega_horarios()
ListView1.Visible = False
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear
Dim ItemLst As ListItem
[ô] RICKSOUSA, aqui coloco o nome das colunas conforme as seleciono no select
ListView1.ColumnHeaders.Add , , [Ô]ID[Ô]
ListView1.ColumnHeaders.Add , , [Ô]Dia[Ô]
ListView1.ColumnHeaders.Add , , [Ô]Turma[Ô]
ListView1.ColumnHeaders.Add , , [Ô]Série[Ô]
ListView1.ColumnHeaders.Add , , [Ô]Turno[Ô]
ListView1.ColumnHeaders.Add , , [Ô]Aula[Ô]
ListView1.ColumnHeaders.Add , , [Ô]Disciplina[Ô]
ListView1.ColumnHeaders.Add , , [Ô]Professor[Ô]
ListView1.ColumnHeaders.Add , , [Ô]Ano[Ô]
Conecta_BD
Dim rsSIGA As ADODB.Recordset
Set rsSIGA = New ADODB.Recordset
Dim strSQL As String
strSQL = [Ô]select id, dia, tb_turma.turma, tb_serie.serie, tb_gradeaula.turno, tb_horario.horario, tb_disciplina.disciplina, tb_professor.nome, tb_gradeaula.ano [Ô]
strSQL = strSQL & [Ô] from (((((tb_gradeaula [Ô]
strSQL = strSQL & [Ô] inner join tb_horario on tb_gradeaula.horario = tb_horario.id_horario)[Ô]
strSQL = strSQL & [Ô] inner join tb_turma on tb_gradeaula.turma = tb_turma.id_turma)[Ô]
strSQL = strSQL & [Ô] inner join tb_serie on tb_gradeaula.serie = tb_serie.id_serie)[Ô]
strSQL = strSQL & [Ô] inner join tb_disciplina on tb_gradeaula.disciplina = tb_disciplina.id_disciplina)[Ô]
strSQL = strSQL & [Ô] inner join tb_professor on tb_gradeaula.professor = tb_professor.cod)[Ô]
strSQL = strSQL & [Ô] where Format(dia, [ô]dd/mm/yyyy[ô]) = [ô][Ô] & Format(DTPicker1.Value, [Ô]dd/mm/yyyy[Ô]) & [Ô][ô] [Ô]
strSQL = strSQL & [Ô] order by tb_turma.turma asc, tb_horario.horario asc [Ô]
rsSIGA.Open strSQL, connSIGA, adOpenForwardOnly, adLockReadOnly, adCmdText
[ô]RICKSOUSA aqui preencho a listview com o resultado da busca
While Not rsSIGA.EOF
Set ItemLst = ListView1.ListItems.Add(, , rsSIGA(0))
For i = 1 To rsSIGA.Fields.Count - 1
ItemLst.SubItems(i) = rsSIGA(i)
Next i
rsSIGA.MoveNext
Wend
ListView1.Visible = True
Desconecta_BD
End Sub
Private Sub Form_Load()
[ô] no evento LOAD do form digo que o valor do dtpicker é a data atual
DTPicker1.Value = Date
[ô] chamo a função de busca para a data do dtpicker
carrega_horarios
End Sub
Na verdade, o que me parece que você quer, é um caixa.
Você pode criar um formulário de lançamentos com data, tipo (doação, dizimo, etc), descrição, valor, entrada ou saida
e gravar estas informações em uma tabela unica.
Depois você faz um formulário de consulta com os seguintes parametros: data inicial, data final e tipo (sendo que o tipo pode ficar em branco para mostrar todos os lançamentos)
Sugiro que você faça a consulta para imprimir, podendo ser no crystal ou outro gerador de relatórios.
Você pode criar um formulário de lançamentos com data, tipo (doação, dizimo, etc), descrição, valor, entrada ou saida
e gravar estas informações em uma tabela unica.
Depois você faz um formulário de consulta com os seguintes parametros: data inicial, data final e tipo (sendo que o tipo pode ficar em branco para mostrar todos os lançamentos)
Sugiro que você faça a consulta para imprimir, podendo ser no crystal ou outro gerador de relatórios.
Citação:Na verdade, o que me parece que você quer, é um caixa.
Pra mim também me parece isso...
Visite e terá uma bela surpresa.
[txt-color=#e80000]http://www.cristoeaverdade.net/cristo/index.php/joomlaorg/82-dizimos[/txt-color]
Tu vai me desculpar.
Minha igreja?
[txt-color=#e80000]http://www.cristoeaverdade.net/cristo/index.php/joomlaorg/82-dizimos[/txt-color]
Tu vai me desculpar.
Minha igreja?
omar oq isso tem haver com a ideia de desenvolver um sistema???
vc ta querendo corrigir a igreja que eu congrego?
nos segue a biblia, e obedece oq a biblia diz.
vc é da congregação, ou da testemunho de jeová???
vc ta querendo corrigir a igreja que eu congrego?
nos segue a biblia, e obedece oq a biblia diz.
vc é da congregação, ou da testemunho de jeová???
não estou aqui pra discutir sobre doutrinas, e sim para desenvolver esse sistema.
me desculpe.
me desculpe.
OMAR2011
Deu uma mancada feia agora meu amigo.
Deu uma mancada feia agora meu amigo.
Tópico encerrado , respostas não são mais permitidas