Jhonas

a maneira correta: var Total : real; begin QueryAquisicao.Active := FALSE; QueryAquisicao.SQL.Clear; QueryAquisicao.SQL.Append('SELECT SUM( preço ) AS TOTAL FROM aquisicao '+ 'WHERE DATA BETWEEN :D1 AND :D2'); QueryAquisicao.Params[0].AsDate := DateTimePicker1.Date; QueryAquisicao.Params[1].AsDate := DateTimePicker2.Date; QueryAquisicao.Active := TRUE; end; abraço

voce deve verificar qual é a fonte padrão que está definida quando voce liga a impressora veja Set de Caracteres e Fontes: Set de caracteres internacionais com suporte ao caracter Euro e aos seguintes code pages: DOS: 437, 737, 850, 851, 855, 857, 860, 861, 862, 863, 865, 866 e 869. WINDOWS: 1250, 1251, 1252, 1253, 1254, 1255, 1256 e 1257 para caracteres especiais voce pode usar o code page DOS 850 ou WINDOWS 1252 abraço

exemplo: 'Enable/Disable Task Manager with WriteProcessMemory Coded by stoopid' Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal lFlags As Long, lProcessID As Long) As Long Const TH32CS_SNAPPROCESS As Long = &H2 Const PROCESS_ALL_ACCESS = &H1F0FFF Private Declare Function Process32First Lib "kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Public Type PROCESSENTRY32 dwSize As Long cntUseage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long th32ParentProcessID As Long pcPriClassBase As Long swFlags As Long szExeFile As String * 1024 End Type Public Function DisableTaskManager(Disable As Boolean) As Boolean Dim hSnapShot As Long, hAddress As Long, hProcess As Long, hWrite As Long Dim pe32 As PROCESSENTRY32 hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0) 'create snapshot of process pe32.dwSize = Len(pe32) 'get size of processentry32 Process32First hSnapShot, pe32 'get info about first process Do While Process32Next(hSnapShot, pe32) <> 0 'loop through next processes until process found If InStr(1, LCase(pe32.szExeFile), LCase("TASKMGR.EXE")) > 0 Then 'process found hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, pe32.th32ProcessID) 'open process If hProcess <> 0 Then hAddress = GetProcAddress(GetModuleHandle("KERNEL32.DLL"), "TerminateProcess") 'get base address If hAddress <> 0 Then If Disable = True Then hWrite = WriteProcessMemory(hProcess, ByVal hAddress, 195, 1, 0) 'disable Else hWrite = WriteProcessMemory(hProcess, ByVal hAddress, 0, 1, 0) 'enable End If If hWrite <> 0 Then DisableTaskManager = True End If Call CloseHandle(hWrite) End If Call CloseHandle(hAddress) 'close base address End If Call CloseHandle(hProcess) 'close process End If Loop Call CloseHandle(hSnapShot) 'close snapshot End Function Sub Main() If DisableTaskManager(True) = True Then MsgBox "Enabled/disabled Task Manager" Else MsgBox "Could Not enable/disable Task Manager" End If End Sub abraço

exemplos: http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=802 http://www.planetadelphi.com.br/download/4...date-de-sistema http://www.guilherme.inf.br/index.php?opti...i&Itemid=77 http://imastercontroll.blogspot.com/2007/1...plicativos.html http://www.google.com.br/url?q=http://www....22foCUrrfMucK_w abraço

exemplo: SELECT SUM( PR_VENDA) AS TOTAL_VENDA FROM TABELA WHERE DATA BETWEEN '01/01/2011' AND '01/30/2011' abraço

Em delphi, voce pode construir o programa em módulos, dessa maneira fica facil montar um padrão para os proximos por exemplo: tela de login e senha tela de Menu telas de cadastros telas de utilitários telas de controle ... etc sabendo-se que algumas telas sempre poderão ser utilizadas em outros programas, basta adicionar ou retirar do projeto as units ( módulos do programa ), e modificar aquelas que forem necessarias, sem que tenha que refazer o todo o código. abraço

Pesquise no forum por Kill Process http://scriptbrasil.com.br/forum/index.php...te=kill+process abraço

exemplo na instrução sql: INSERT INTO Customer (CustNo, CustFirstName, CustLastName, CustStreet, CustCity, CustState, CustZip, CustBal) VALUES ("9999999", 'John', 'Avitabile', '432 Western', 'Albany', 'NY', '80217-0211', 500) OBS: foi utilizado aspas duplas no valor, o que causara erro INSERT INTO Customer (CustNo, CustFirstName, CustLastName, CustStreet, CustCity, CustState, CustZip, CustBal) VALUES ('9999999', 'John', 'Avitabile', '432 Western', 'Albany', 'NY', '80217-0211') OBS: a maneira correta é usar aspas simples outra maneira seria fazer a conversão como no exemplo do post anterior, se voce estiver usando variaveis com passagem de parametros. INSERT INTO Customer (CustNo, CustFirstName, CustLastName, CustStreet, CustCity, CustState, CustZip) VALUES (:Num, :Nome, :Sobre_nome, :Rua, :Cidade, :Estado, :CEP) Então antes de processar a instrução voce faz a conversão do tipo outro exemplo se uso: http://files.edin.dk/php/win32/dev/php_bui...les/o8idemo.sql abraço

veja http://www.activedelphi.com.br/forum/viewt...4a0f15646b5dda0 abraço

experimente usar o componente ShellListView ( delphi 7 ) http://scriptbrasil.com.br/forum/index.php...st&p=634619 abraço

exemplos prontos e videos No link abaixo voce vai encontrar varios programas de cadastro com fontes http://www.edudelphipage.com.br/programas_...php?categoria=2 ---------------------------------------------------------------------- http://www.oficinadanet.com.br/artigo/500/...phi_e_interbase http://www.google.com.br/search?q=cadastro...ved=0CCYQqwQwBg http://www.facunte.com.br/livros/dw7/livro..._capitulo_7.pdf OBS: Tem um exemplo utilizando Interbase, o principio é o mesmo bastanto substituir o banco de dados para MYSQL abraço

Já que voce esta seguindo o exemplo do link: Aqui vale uma dica muito importante: para que a importação ocorra perfeitamente, os campos de destino têm que ter o mesmo nome, tipo de dados e ordem na tabela, caso contrário ocorrerá erros ao inserir os dados. reveja a definição de tipo de dados na sua tabela, e não precisará fazer nenhuma conversão exemplo de uma conversão de tipo var num : string; num1 : integer num := '1'; num1 := num; // aqui ocorrerá erro de conversão num1 := strtoint(num); // aqui está correta a conversão de tipo abraço

Dynamic SQL Error SQL error code = -303 conversion error from string "1" erro de conversão para string "1" OBS: supondo que o seu campo CUST_NO seja do tipo inteiro, voce deverá fazer a conversão da string "1" que é um caracter para um valor inteiro. abraço

A dúvida é: qual linguagem vocês recomendam para este uso específico? O Delphi é adequado a este tipo de desenvolvimento? para ajuda-lo na pesquisa, veja: http://www.delphibasics.co.uk/Article.asp?Name=Files http://www.linhadecodigo.com.br/Dica.aspx?id=1285 http://www.planetadelphi.com.br/artigo/159...fice)---parte-2 OBS: Gerar arquivos txt a partir de Edits ( entrada dos dados ) no form é muito facil exportar o txt para odt dá um pouco mais de trabalho os links acima lhe darão uma idéia de como fazer, mas como voce não é programador, vai ficar dificil abraço

veja http://scriptbrasil.com.br/forum/index.php...=160502&hl= abraço

http://dicasdedelphi.blogspot.com/2007/09/...-executvel.html outra sugestão http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=817 abraço

desculpe não poder ser mais especifico .... estou com um serviço no momento. quem sabe outro colega possa ajuda-lo abraço

exemplo: ADOQuery1.Close; DBChart1.Legend.Visible:=False; with DBChart1.SeriesList.Series[0] do begin DataSource := ADOQuery1; XLabelsSource := ADOQuery1Company.FieldName; XValues.ValueSource := ADOQuery1SumItems.FieldName; YValues.ValueSource := ''; Marks.Style := smsXValue; CheckDataSource; end; with DBChart1.SeriesList.Series[1] do begin DataSource := ADOQuery1; XLabelsSource := ''; XValues.ValueSource := ADOQuery1NumOrders.FieldName; YValues.ValueSource := ''; CheckDataSource; end; ADOQuery1.Open; ou pesquise na net por: Charting with Databases delphi abraço

pelo que eu entendi, voce quer redimensionar a pagina no webbrowser .. é isso ? me passe um endereço em que a pagina seja mais larga que a janela, para fazer um teste abraço

voce já viu o exemplo do proprio delphi ? o TeeChart esta na pasta demos abraço

se for referente a mesma dúvida, use o mesmo post, se não crie outro OBS: Faça sempre uma pesquisa no forum, antes de postar a sua dúvida abraço

with WebBrowser1.Document.Body.Style do begin OverflowX := 'hidden'; OverflowY := 'hidden'; end; ou WBrowser1.OleObject.Document.Body.Style.OverflowX := 'hidden'; WBrowser1.OleObject.Document.Body.Style.OverflowY := 'hidden'; ou propriedades HorzScrollBar.Visible = false e VertScrollBar.Visible = false veja se ajuda http://www.planetadelphi.com.br/artigo/97/...ma-muito-simple abraço

pode ser, mas para ter certeza o ideal seria voce entrar em contato com o suporte da zebra http://www.zebra.com.br/ abraço

clique com o botão direito do mouse em uma parte do form, e selecione a opção < TAb Order... > voce verá a sequencia em que os componentes estão ( basta alterar a sequencia ) ... será nessa sequencia que o TAB seguirá. abraço

experimente trocar o tipo da fonte, para ver se ocorre a mesma coisa abraço