Xafam
-
Total de itens
41 -
Registro em
-
Última visita
Posts postados por Xafam
-
-
é porque quando eu fiz o codigo estava fazendo igual o cara que programou o aplicativo (usando o Pagecontrol1 e Painel) ,
agora .. eu troquei e deu certo (pelo menos na parte de escrever nos BDEdits) .. eu usei esse codigo:
// essa daki já existia DMSISRET.Qvoto.Edit; Pagecontrol1.Enabled := True; Panel1.Enabled := True; Edit1.Text := 'A'; // eu fui e acrescentei esse codigo aki DMSISRET.Qarmazem2.Edit; Panel3.Enabled := True; // e coloquei todos os DBEdit que serão alterados DBEdit22.Enabled := True; DBEdit14.Enabled := True; DBEdit16.Enabled := True; DBEdit20.Enabled := True; DBEdit18.Enabled := True; DBEdit21.Enabled := True; DBEdit17.Enabled := True; DBEdit23.Enabled := True;
alem desse codigo, na propriedade RequestLive e UniDirectionalda query Qarmazem2, eu coloquei TRUE, ai o erro parou ... finalmente funcionou ... consegui escrever nos DBEdit's ... :) :) e como felicidade de pobre dura pouco <_< <_< <_< to precisando de outra ajuda .... , consigo escrever nos DBEdit's, mas não salvo as informações contidas neles .. :( eu acrescentei ao codigo que já existia do butao salvar :// esse aki já existia DMSISRET.Qvoto.edit; DMSISRET.Qvoto.Post; DMSISRET.Qvoto.Close; DMSISRET.Qvoto.Open; Pagecontrol1.Enabled := false; Panel1.Enabled := false; Edit1.Text := ''; // eu fui e acrescentei isso (sinplesmente troquei a query [en vez de Qvoto, coloqueiQarmazem2] // e o Painel [en vez do Panel1, coloquei Panel3] DMSISRET.Qarmazem2.edit; DMSISRET.Qarmazem2.Post; DMSISRET.Qarmazem2.Close; DMSISRET.Qarmazem2.Open; Panel3.Enabled := false; Edit1.Text := '';
e ai quando compilo e aperto o butao salvar, gera esse erro:
Project SISRET.exe raised exception class EDBEngineError with message 'General SQL error. [Microsoft][ODBC SQL Server Driver][sql Server] The view or function 'dbo.VIEW18' is not updatable because the definition contains the TOP clause.'. Process stopped. Use Step ou Run to continue.
alguém tem ideia de o que seja isso ??? :blink:
valeu todos a ajuda ...
xafam
-
a aplicação , não fui eu quem criei .. foi um cara aki onde trabalho (estagio) que criou (e ta de ferias) , ele fez um botao de alterar, que quando apertado , da para escrever no BDEdit, cliquei 2x no butao para ver qual era o comando e apareceu isso:
DMSISRET.Qvoto.Edit; // aki, acho q é pra editar o BD Pagecontrol1.Enabled := True; // pra colocar o Enabled do Pagecontro1 true Panel1.Enabled := True; // pra colocar o Enabled do Panel1 true Edit1.Text := 'A'; // aki não faço a minina ideia de que gambiarra ele fez
ai eu fui e fiz isso . . .DMSISRET.Qvoto.Edit; Pagecontrol1.Enabled := True; Panel1.Enabled := True; Edit1.Text := 'A'; // acrescentei esses codigos aki DMSISRET.Qarmazem2.Edit; // aki para editar o banco q eu quero , no caso Qarmazem2 Panel3.Enabled := True; // pra colocar o Enabled do Panel3 true , já q é onde vai ficar os campos
mas ai da esse erro ...
Project SISRET.exe raised exception class EDatabaseError with message 'Qarmazem2: Cannot modify a read-only dataset'. Process stopped. Use Step ou Run to continue.outra coisa ... quando eu jogo os campos de outra tabela (por exemplo TbUsuario) aparece o conteúdo que tá neles, e nesse banco o Qarmazem2, aparece em branco ..
nunca mechi com DBEdit, por isso tenho muitas duvidas de como usá-los ..
valeu a ajuda ..
xafam ...
-
bom dia,
estou com o seguinte problema,
tenho uma tabela com os seguintes componentes
placaVeiculo = placa do veiculo
nrAuto = Nº do auto
cdInfracao = codigo da infração
data_autuacao = data da autuação
data_notificacao_autuacao = data de notificação da autuação
data_publicacao = data da publicação
data_publicacao = data da publicação
nr_processo = nº do processo
eu pego o placaVeiculo e arrasto ele pro meu form, e é criado um DBEdit, até ai tudo bem ...
porem quando executo a aplicação e tento escrever nesse DBEdit, o cursor de escrita fica la (piscando), mas eu não consigo escrever nada nele ...
porque isso acontece ??
ps.: não testei com os outros campos ...
-
so tem um executaval para rodar
deletei ate o executavel pra ver se ele iria ser criado e nun dei em nada ...
procurei no Delphi 4 se tinha alguma opção de "criar executavel" ( :rolleyes: ) e nada ...
agora ... tava olhando nesse lugar q você me falou pra ir .. (project manager) e reparei que um dos relatorios esta no diretório C: e não no meu pen drive (E:), e ai fui executar o executavel e tava la tudo o que eu tinha feito ...
não entendi o porque disso, mas valeu a ajuda ..
===========
agora to com outro problema .. eu fiz com q o relatorio que estava no C: fosse para o E:, compilei o programa, mas mesmo assim o executavel continua no C:, e esse é o meu problema .... como que eu faço para o executavel ficar no meu pendrive (E:)
att,
Xafam
-
bom dia ...
seguinte . .. eu peguei pra consertar um programa .. coisas simples .. maioria estética ..
eu fazia as alterações e executava pelo delphi (4) e dava tudo beleza ..
porem quando eu fui testar o aplicativo rodando somente o executavel , ele continua do mesmo jeito que antes .. sem nenhuma alteração ... e quando eu entro no Delphi ele ta com as alterações todas feitas ....
att,
Xafam
-
to usando o ReportBuilder ...
-
boa dia. ..
acabei de pegar um programa para ser concertado ...
un dos problemas q foi acusado foi que a impressao do relatório em impressoras matriciais sai do espaço delimitado pelo campo que foi colocado para fica lá o texto ..
agora, em impressoras a laiser e a jato de tinta .. a impressao sai normal ...
explicando melhor :
assim é a impressao feita por impressoras a laiser e jato de tinta ..
Digite um texto:
-----------------------------------------
| textotextotextotextotextotexto |
| textotextotextotextotextotexto |
-----------------------------------------
assim é a impressao feita por impressoras matriciais ..
Digite um texto:
-----------------------------------------
| textotextotextotextotextotext|texotextotextotextotexto
| textotextotextotextotextotext|textotextotextotextotexto
-----------------------------------------
[]s,
Xafam
-
Lembrando que no caso de você formatar o campo numérico, ele sempre vai apresentar os oito dígitos, no caso, o número 1234, por exemplo, vai ficar assim: 00001234. Abraço!
isso não teria importancia não , porque todos os nomes tem 8 caracteres ...
mas aki, eu achei uma solução
olha o codigo
Memo1.Lines.LoadFromFile('c:\Dm\TXT2MDB\Lista\lista.txt'); for x:=0 to Memo1.Lines.Count - 1 do begin bloco2:=copy(Memo1.Lines.Strings[x],1,8); comando := 'INSERT INTO ARQUIVO(ARQ_NOME) VALUES(' + quotedStr(bloco2) + ')'; ADOCommand2.CommandText := comando; ADOCommand2.Execute; end;
tipo, eu mandava adicionar sem colocar aspas no nome(bloco2), ai usei o comando quotedStr e deu certo
[]s,
Xafam
-
bom dia ..
queria saber o nome de um bom livro para programação de jogos em C++
de preferencia em Portugues ...
já procurei nos sites de compra, porem os comentarios dos leitores dos livros foram muito desanimador ...
[]s,
Xafam
-
aki, so uma coisa que eu reparei ...
quando você coloca uma letra em vez de numero , dá erro ..
heheh
coisa bem tosta de se reparar .. :rolleyes: :rolleyes: :rolleyes:
hehe
[]s,
Xafam
-
ai gente...
valei pela ajuda ..
problema resolvido .. :D :D :D
valeu a todos
Xafam
-
Denis Courcy,
valei pela dica
agora o trem compilou ....
uma coisa, como que eu faço isso q você fez no codigo , esse janelinha meio rosa (CODE)
valei cara , ajudou muito ...
t+
Xafam
-
hhehehhe
mais uma coisa ...
Sitação:
"Eu sei que Zero a direita não tem valor "
quis dizer a ESQUERDA
foi mau, to no trab e nun tive tempo de revisar o que eu escrivi ...
t+
-
bom dia galera ..
to com o seguinte problema ..
eu tenho nome de arquivos em um TXT (os nomes são 8 numeros - Ex.:12345678), acontece que tem nomes que começão com 0 (zero), e quando ele é importado para o banco de dados Access, o zero é importado ..
eu sei que Zero a direita não tem valor ... porem por ser nomes de arquivos, esse zero tem valor
tipo, o nº 05 é igual á 5, mas o nome 05 é diferente de 5 ..
qual comando eu faço para fazer o 0(zero) ser importado ???
[]s
Xafam
uma correçao , agora que vi ...
Siteção:
"eu tenho nome de arquivos em um TXT (os nomes são 8 numeros - Ex.:12345678), acontece que tem nomes que começão com 0 (zero), e quando ele é importado para o banco de dados Access, o zero é importado .."
na verdade o ZERO não é importado ..
ehehhe :blush: :blush: :blush:
-
oi galera,
meu problema é o seguinte ..
criei um programa para que lista todos os arquivos de uma pasta e coloque os nomes dos respectivos arquivos em uma arquivo Excel (.xls) ...
olha o codigo:
int main (void)
{
// colocar os nomes de todos os arquivos da pasta no arquivo Excel lista.xls
system("dir /b C:\\Documents and Settings\\Computador\\Meus documentos\\Arquivos\\*.* > C:\\Documents and Settings\\Computador\\Meus documentos\\lista.xls");
}
porem ele não compila ...
acho que por eu estar usando comandos DOS, ele não reconheçe o espaço entre as palavras ...
e da o erro "Diretorio não encontrado" ...
como que eu faço para fazer compilar, existe algum caracter que faça com que o DOS entenda que é um espaço ..
tipo, /n (que é quebra de linha) ..
[]s
Xafam
não consigo escrever no DBEdit
em Delphi, Kylix
Postado
Micheus,
eu não falei porque não sabia qual era... ai, fui no SQL Explorer , cliquei no meu banco de dados (DBSISRET) e la tava, TYPE: SQL SERVER ...os componentes de acesso são:
Database; // sinceramente não seu o que faz ...
Query; // existem 6, mas só uma me interessa , que é a Qarmazem2
DataSource; // existem 7, mas só uma me interessa , que é a DSarmazem2
Table; // que tem apenas 3 campos (usu_matricula, usu_tipo, usu_nome)
quando eu clico duas vezes na minha Query Qarmazem2, para ver os campos... em todos os campos, na Propriedade Origin, está VIEW18.nome_do_campo
acho que está sendo feita sobre uma VIEW ...
ainda não pesquisei a respeito , por falta de tempo ..
valeu a ajuda de todos ...
tão dando uma grande força ...
valeu mesmo ...
Xafam