IDEIA PARA UM PROJETO

RICKSOUSA 25/05/2012 15:00:24
#402792
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???
RICKSOUSA 25/05/2012 15:12:50
#402796
eu estava imaginando aqui, eu gostaria de fazer essa pesquisa por data, sera que é muito dificil???
CASTELO 25/05/2012 15:22:31
#402797
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.
RICKSOUSA 25/05/2012 15:24:37
#402799
poderia dar uma olhada se não for encomodo só para ver como funciona?
CASTELO 25/05/2012 15:28:56
#402800
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
FEDERHEN 25/05/2012 16:16:45
#402803
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.
KERPLUNK 25/05/2012 16:31:06
#402806
Citação:

Na verdade, o que me parece que você quer, é um caixa.


Pra mim também me parece isso...
OMAR2011 25/05/2012 16:39:24
#402807
Resposta escolhida
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?

RICKSOUSA 25/05/2012 19:15:34
#402827
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á???
RICKSOUSA 25/05/2012 19:17:25
#402828
não estou aqui pra discutir sobre doutrinas, e sim para desenvolver esse sistema.
me desculpe.
CASTELO 25/05/2012 19:20:09
#402829
OMAR2011

Deu uma mancada feia agora meu amigo.
Página 1 de 2 [18 registro(s)]
Tópico encerrado , respostas não são mais permitidas