Progr'amador

É isso ae Tbaiano, é bem mais simples. Fechando... Abs. Progr'amador.

Essa foi do fundo do baú! Ae vai: http://geocities.yahoo.com.br/ecmsb/185_oracle.zip Abs. Progr'amador.

Delphi em Linux!? Pro Linux num seria o Kylix? Pelo menos, foi pra isso que a borland fez o Kylix, é com se fosse o delphi pra Linux. O Delphi não abre o Linux. Abs. Progr'amador.

Inserindo um Combobox num DBGrid Siga o passo-a-passo abaixo : 1. insira um Datasource, um DBGrid e dois Table's no form 2. link o Table1 com Datasource1 e DBGrid1 3. defina um banco de dados, uma tabela e ative o Table1 4. defina também para o Table2, mas use uma tabela diferente 5. adicione todos os campos do Table1 através do Fields Editor 6. mude a propriedade Visble para False do campo do Combobox 7. dê um clique com o botão direito do mouse sobre o Fields Editor e escolha New Field... 8. especifique os parametros para o novo campo a ) Name: <algum nome> b ) Type: <tipo do campo> c ) Size: <tamanho> d ) Field type: Lookup e ) Key Field: <campo que receberá o valor escolhido no combobox& f ) DataSet: Table2 g ) LookUpKeys: <campo listado no combo> h ) Result Field: <campo que será mostrado para o usuário no Combobox> 9. Execute a aplicação. Abs. Progr'amador.

Olá OSJunior, Tenta esse código, só é um pouquinho maior do que o seu. var nrdia: Integer; diasemana: array[1..7] of String; meses: array[1..12] of String; dia, mes, ano: Word; begin diasemana[1]:= 'Domingo'; diasemana[2]:= 'Segunda-feira'; diasemana[3]:= 'Terça-feira'; diasemana[4]:= 'Quarta-feira'; diasemana[5]:= 'Quinta-feira'; diasemana[6]:= 'Sexta-feira'; diasemana[7]:= 'Sábado'; meses[1]:= 'Janeiro'; meses[2]:= 'Fevereiro'; meses[3]:= 'Março'; meses[4]:= 'Abril'; meses[5]:= 'Maio'; meses[6]:= 'Junho'; meses[7]:= 'Julho'; meses[8]:= 'Agosto'; meses[9]:= 'Setembro'; meses[10]:= 'Outubro'; meses[11]:= 'Novembro'; meses[12]:= 'Dezembro'; DecodeDate(DATE,ano,mes,dia); nrdia:= DayOfWeek(DATE); Statusbar1.Panels[1].Text := diasemana[nrdia]+', '+IntToStr(dia)+' de '+meses[mes]+' de '+IntoToStr(ano); Abs. Progr'amador.

Olá nightmare, É na opção CharCase do DBEdit ou Edit, no object inspector. ecLowerCase = minusculo ecUpperCase = MAIUSCULO Abs. Progr'amador.

Ok, então ta resolvido né!? fechando... Abs. Progr'amador.

Certo, mas, não é possivel definir os dias corretamente se não estipularmos um período, porque os meses variam de 28, 29, 30 e 31 dias, então da forma como você colocou é impossível ter um número correto. Abs. Progr'amador.

Olá Anderson, 1a. if ander = 'anderson' then // isso se a variavel for tipo string 2a. use formStyle = fsMDIForm no form principal e fsMDIChild no outro form que será aberto dentro do principal. Abs. Progr'amador.

Ops! isso é Delphi ou Access mesmo? Ou você ta usando delphi com banco de dados access? Abs. Progr'amador.

Olá Paulo, acho que há um erro nesse calculo ae: 31/12/2004 - 428 = 30/10/2004 => 1 ano 2 meses e 0 dias. e ai vai um código que faz esse calculo: Procedure EntreDatas(DataFinal,DataInicial : TDate; var Anos,Meses,Dias : Integer); // // Retorna a diferença em Dias,Meses e Anos entre 2 datas // Function Calcula(Periodo : Integer) : Integer; var intCont : Integer; begin intCont := 0; Repeat Inc(intCont); DataFinal := IncMonth(DataFinal,Periodo * -1); Until DataFinal < DataInicial; DataFinal := IncMonth(DataFinal,Periodo); Inc(intCont,-1); Result := intCont; End; begin if DataFinal <= DataInicial then begin Anos := 0; Meses := 0; Dias := 0; exit; end; Anos := Calcula(12); Meses := Calcula(1); Dias := Round(DataFinal - DataInicial); end; procedure TForm1.Button1Click(Sender: TObject); var ano, mes, dia : integer; begin EntreDatas(StrToDate('31/12/2004'),StrToDate('30/10/2003'),ano,mes,dia); Edit1.Text := intToStr(ano)+' ano(s), '+intToStr(mes)+' mese(s) e '+intToStr(dia)+' dia(s).'; end; Abs. Progr'amador.

Olá bitoinfo, porque você não usa o IF. tipo: procedure TForm1.Button1Click(Sender: TObject); var i: integer; v:string; begin if combodia.text = 'segunda' then i := 0; if combodia.text = 'terça' then i := 4; end; Abs. Progr'amador.

Olá, tenta assim: sql := 'SELECT CLIENTE.NOME, CLIENTE.DATA_NASC, ENDERECO.RUA, ENDERECO.CIDADE '; sql := sql + 'FROM CLIENTE INNER JOIN ENDERECO ON CLIENTE.CLIENTE_ID = ENDERECO.CLIENTE_ID '; sql := sql + 'WHERE (((CLIENTE.NOME) Like '+#39+ edtnome.Text +#39+') AND (CLIENTE.ESTADO_C = '+#39 + DBComboBox1.Text +#39+') '; sql := sql + ' AND ((ENDERECO.RUA) like '+#39+ edtrua.Text +#39+') AND ((ENDERECO.BAIRRO) like '+#39+ edtbairro.Text +#39+'))'; Abs. Progr'amador.

Esconder okê????

Ae você faz assim: procedure TForm1.Button1Click(Sender: TObject); var i : real; begin i := StrToDate('31/12/2004') - DateTimePicker.Date; ShowMessage('Faltam '+FloatToStr(i)+' para o final do ano. Feliz ano Novo. AUHAUHAUHAUHA!!! '); end; Ok!? Abs. Progr'amador.

Olá crownx, Pra deixar o form transparente basta fazer isso: procedure TForm1.FormShow(Sender: TObject); begin Brush.Style := BsClear; end; A do "botao afundando" , eu num entendi não... Abs. Progr'amador.

Olá nightmare, Acho que você pode usar tipo VARCHAR mesmo, ex: VARCHAR(2000); Abs. Progr'amador.

No Menu Component --> Install Pakages... Na janela que se abre, clique no botão Add..., e procure por esse arquivo (dclqrt70.bpl) nesse diretorio: C:\Arquivo de programas\Borland\Delphi7\Bin\dclqrt70.bpl Abs. Progr'amador.

Ok, seria tipo assim: Query1.Close; Query1.Sql.Clear; Query1.Sql.Add('SELECT * FROM TABALA'); Query1.Sql.Add('WHERE CAMPO1 = '+#39+ComboBox1.text+#39+''); Query1.Sql.Add(' AND CAMPO2 = '+#39+ComboBox2.text+#39); Query1.Open; Qualquer dúvida, é só postar, falou!!! Abs. Progr'amador.

ae vai: http://geocities.yahoo.com.br/pgdelphi/compwosd6.zip Abs. Progr'amador.

Olá Raphael, faz o seguinte, no evento OnKeyDown do form colocar: if Key = VK_RETURN then Perform(Wm_NextDlgCtl,0,0); Defina o propriedade KeyPreview do form como TRUE. outa forma Enter funcionando como Tab em toda a aplicação incluir na Uses do form principal: Grids adicione essa procedure: procedure TFrmPrincipal.MudarComEnter(var Msg: TMsg; var Handled: Boolean); begin If not ((Screen.ActiveControl is TCustomMemo) or (Screen.ActiveControl is TCustomGrid) or (Screen.ActiveForm.ClassName = 'TMessageForm')) then begin If Msg.message = WM_KEYDOWN then begin Case Msg.wParam of VK_RETURN,VK_DOWN : Screen.ActiveForm.Perform(WM_NextDlgCtl,0,0); VK_UP : Screen.ActiveForm.Perform(WM_NextDlgCtl,1,0); end; end; end; end; e no evento OnCreate o Form Principal digite a seguinte linha Application.OnMessage := MudarComEnter; Qualquer dúvida posta ae, falou!!! Abs. Progr'amador.

Isso aqui serve? procedure TForm1.Button1Click(Sender: TObject); var i : real; begin i := StrToDate('31/12/2004') - Date; ShowMessage('Faltam '+FloatToStr(i)+' para o final do ano. Feliz ano Novo. AUHAUHAUHAUHA!!! '); end; Abs. Progr'amador.

Bom então faz assim, Usa o código que te falei e mas esse, agora no OnKeyDown do CheckBox1: procedure TForm1.CheckBox1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Shift = [ssAlt]) then case Key of 69: Button2Click(Sender); // Alt+E end; end; ae você pode incluir quantos comandos você quizer, tipo: procedure TForm1.CheckBox1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Shift = [ssAlt]) then case Key of 65: Button1Click(Sender); // Alt+A 69: Button2Click(Sender); // Alt+E 67: Button3Click(Sender); // Alt+C 83: Button4Click(Sender); // Alt+S end; end; esses numeros (65, 69, 67, 83) representa o código ASCII das respectivas teclas (A, E, C, S). Abs. Progr'amador.

Olá Tbaiano, No D7 não tem esse componente, mas tem o IdSMTP na paleta Indy Clients, só ainda não sei como usar... Abs. Progr'amador.

OK, pegue nesse link: http://geocities.yahoo.com.br/pgdelphi/compwosd7.zip Abs. Progr'amador.