
maikel
Membros-
Total de itens
151 -
Registro em
-
Última visita
Tudo que maikel postou
-
aí pessoal... Seguinte.... to querendo implantar aqui no meu sistema um esquema que ele me envie um email com os dados do sistema um vez por semana... só que supondo que ele vai estar em máquinas que estarão conectadas a diferentes servidores... diferentes redes e número IP... como posso fazer para que meu sistema envie um e-mail sem ter que configurar o número do ip do servidor de e-mail manualmente? Tem como eu descobrir o servidor de e-mail ao qual a máquina está conectado? Ou alguma outra sugestão de fazer isso? Se alguém puder me dar uma força... agradeço. Att.
-
Olá... Bom... para criar uma aplicação MDI... no Delphi é File>>New>>Other>>Projects>>MDI Application E para criar um novo form MDI, basta você adicionar um novo form e na propriedade FormStyle do mesmo, defina como sendo fsMDIChild... Att..
-
Que tipo de base você usa... Não sei como funciona nos outros tipos de bancos, mas em Firebird você pode usar assim: extract(month from date 'TODAY') Testa em outra base.... mas não garanto que vai funcionar... Att
-
Olá.... Isso mesmo, por padrão o ASP.NET coloca 20 minutos, mas isso pode ser alterado... Localize dentro do seu arquivo web.config o trecho semelhante a este: <sessionState mode="InProc" stateConnectionString="tcpip=127.0.0.1:42424" sqlConnectionString="data source=127.0.0.1;user id=sa;password=" cookieless="false" timeout="20" /> Note que o timeout está como 20, basta alterar o valor para o tempo desejado e salvar o arquivo. Att... Maikel
-
Olá Andréia Tente colocar o código a seguir no Evento OnTitleClick do DBGrid: Var i:Integer; begin Try for i:=0 to Column.Grid.FieldCount - 1 do begin GridExibicao.Columns.Items[i].Title.Font.Color:=ClBlack;//Cor da Fonte GridExibicao.COLUMNS.ITEMS[I].TITLE.FONT.STYLE := [];//Cot da Fonte GridExibicao.Columns.Items[i].Title.Color:=clBtnFace;//Cor do Fundo do Titulo Normal Column.Title.Color :=clSilver;//Cor do Fundo do Titulo Selecionado COLUMN.TITLE.FONT.STYLE := [FSBOLD]; Column.Title.Font.Color:=ClBlue; Column.Font.color:=clTeal; Col:= GridExibicao.Columns[Column.Index].Index; GridExibicao.Columns.Items[i].Font.color:=ClBlack; (DataSourceGrid.DataSet as TClientDataSet).IndexFieldNames := Column.FieldName; end; Except ShowMessage('Não foi possível ordenar os valores'); End; Esse código ordena por ordem crescente e destaca a coluna selecionada... Acho que isso vai te ajudar... Att
-
Olá... GDB é a extensão de um arquivo de dados. Mais precisamente é a extensão gerada pelo Interbase. (Banco de Dados Interbase). Você pode criar esse tipo de arquivo usando o prórpio interbase ou usando um outro ótimo gerenciador que é o IB Expert. Você deverá criar um novo banco de dados (arquivo). Att
-
Bom... Isso deve ser num banco de dados...Qual? Se for firebird, você pode usar um campo do tipo varchar e definir o valor ou um campo Blob. Att
-
Olá.... Esse erro ai que você ecreveu quer dizer que você está chamando/referenciando um objeto que ainda não foi criado, ou seja, não existe. De uma olhada se você não está querendo usar um Label, TextBox que não existam , ou também, as Sessions, variáveis de sessão. Você pode estar usando ela para mostar os nome de uma pessoa logada ou coisa assim, só que a session ainda não foi criada. Espero que seja esse seu problema. Att
-
Como Faço Para Identificar A Tecla Ctrl+c
pergunta respondeu ao mestre fyoda de maikel em Delphi, Kylix
Olá.... usa o componente ActionList..... Certamente você fazer isso para copiar alguma frase.... texto... para isso tem ações prontas no ActionList... va em NewStandartAction e Selecione Copy... Paste.... as ações que você quiser.... ou se você pretende fazer uma outra função.... crie apenas uma nova ação..... de um nome a ela.... na propriedade ShortCut defina o Ctrl+C e no evento OnExecute da mesma descreva sua rotina.... depois.. quando quiser executar a ação basta chamar ela.... vê se isso te ajuda.... Att... -
Olá..... E se você fosse criar um diretório virtual no IIS da sua máquina.... você criaria um diretorio chamado meusistema.... e depois dentro da sua rede interna.... você iria digitar IP da máquina/meusistema... ou ainda se esta máquina tiver um IP válido.... poderia acessar ele da Internet de qualquer lugar... Vê ai se isto consegue te ajudar.... Att
-
Olá amigo... Eu uso os componentes padrões do Delphi 7, uso o Chart da paleta Additional e o DBChart da paleta Data Controls, eles são bem completos, tem várias opções de gráficos, pizza, barras... etc e são de fácil configuração... Att
-
Bom Dia Andreia Seu DBGrid está ligado a um DataSource???? Você já experimentou clicar com o botão direito do mouse sobre o DBGrid e Columns Editor..... Irá abrir uma nova janelinha... onde você terá um botão de Add All Fields... Clicando lá você estara adicionando todas as colunas no Grid (Todos os campos da DataSource)... Selecionando um campo... no Object Inspector.... você terá varias opções específicas daquela coluna.. entre elas.. tem a propriedade Width... onde você irá definir a largura da coluna. Acho que isso te ajuda.... Att.... Maikel
-
Olá Luis... Ok... desenvolvo sistemas do genero...tenho interesse... e-mail enviado... Aguardo confirmação...Certo. Att..
-
Olá... Um aspecto importante onde você precisar tomar muito cuidado é quando você inicia um begin no meio de uma procedure... veja o erro que você está cometendo: procedure TForm1.btn1Click(Sender: TObject); begin//>>>>Begin da Procedure if btn1.enabled = true then begin//>>>Begin do If btn1.Enabled :=false; btn2.Enabled :=true; btn1.Caption :='OFF'; btn2.Caption :='ON'; end;//>>>Fim do Begin do If END;//>>>>Você precisa fechar o Begin da Procedure procedure TForm1.btn2Click(Sender: TObject); begin if btn2.enabled = true then begin btn2.Enabled :=false; btn1.Enabled :=true; btn2.caption :='OFF'; btn1.caption :='ON'; end; End;//Faltou mais um End Certo....???? Att..Maikel
-
Olá... Você utiliza algum banco de dados... qual...?? Não sei como funciona nos outros bancos de dados... mas se utilizar o firebird... na hora de criar o banco você deve informar um Charset......o padrão em ASP.NET é win1252... mas depois se você fizer alguma consulta via sql... tipo Like... se tiver acentuação ele não retorna valor.... então eu uso NONE.... Vê ai... se este não for seu problema... posta ai de novo... Att... Maikel maikel@setrem.com.br
-
Boa dia... Micheus... valeu por responder o tópico... eu também já tinha pensado nisso... e fiz alguma coisa parecida a sua sugestão... deixei o mês como sendo parametro e cada vez que o Delphi executa a sql... é ele que vai extrair o mês da data atual e jogar ela para a SQL.. Valeu pela força ai.... Att...
-
Bom dia... Seguinte... estou desenvolvendo um sistemas com Delphi 2005 .NET onde tenho uma página que tem um DataGrid, o qual é preenchido com a seguinte função: function SelecionaFormatacoes(CodUsuario,Status:String):DataTable; Var Tabela:DataTable; Linha:DataRow; Begin Try Tabela:=DataTable.Create; Tabela.Columns.Add('TITULO',TypeOf(&String)); Tabela.Columns.Add('DATA',TypeOf(&String)); Tabela.Columns.Add('PAGINAS',TypeOf(&String)); Tabela.Columns.Add('ORCAMENTO',TypeOf(&String)); Tabela.Columns.Add('STATUS',TypeOf(&String)); Tabela.Columns.Add('CODIGO',TypeOf(&String)); BdpCom:=BdpCommand.Create('SELECT FORMATAR.COD_FORMATACAO, FORMATAR.TITULO_TRABALHO, FORMATAR.DATA_CADASTRO, '+ 'FORMATAR.NUMERO_PAGINAS, FORMATAR.ORCAMENTO, STATUS.DESCRICAO_STATUS '+ 'FROM FORMATAR INNER JOIN STATUS ON (FORMATAR.COD_STATUS = STATUS.COD_STATUS) '+ 'WHERE ((FORMATAR.COD_USUARIO = ?) and (FORMATAR.STATUS = ?)) '+ 'ORDER BY FORMATAR.COD_FORMATACAO',dados.CONEXAO); BdpCom.Parameters.Clear; BdpCom.Parameters.Add('CodUsuario',BdpType.&String); BdpCom.Parameters.Add('Status',BdpType.&String); BdpCom.Parameters['CodUsuario'].Value := CodUsuario; BdpCom.Parameters['Status'].Value := Status; BdpRead:=BdpCom.ExecuteReader; while BdpRead.Read do Begin Linha:=Tabela.NewRow; Linha[0]:= BdpRead['TITULO_TRABALHO'].ToString; Linha[1]:= BdpRead.GetDateTime(2).ToString('dd/MM/yyyy'); Linha[2]:= BdpRead['NUMERO_PAGINAS'].ToString; Linha[3]:= BdpRead['ORCAMENTO'].ToString; Linha[4]:= BdpRead['DESCRICAO_STATUS'].ToString; Linha[5]:= BdpRead['COD_FORMATACAO'].ToString; Tabela.Rows.add(Linha); End; Result:=Tabela; //*****Passando Result para o Grid****** GridFormatacoes.DataSource:=SelecionaFormatacoes('1','1'): GridFormatacoes.DataBind; Até ai tudo certo... só que para mim poder selecionar um registro no grid depois... eu preciso estar mostrando a coluna código no grid(Linha[5]), onde pego o valor da linha clicada da seguinte forma: e.item.cells[5].text; Retorna o código do registro que selecionei... mas se eu não quisesse mostrar esse registro... não criar essa coluna no Grid e só criar ela na função... teria com eu acessar o valor dela...? Já tentei várias formas... mas não consegui.... Alguém pode me ajudar... ou tem alguma dica que possa resolver este problema...? Agradeço a quem puder me ajudar..... Att...
-
Boa Tarde Churc... Ajudou sim... só tive que fazer uma pequena alteração... o código que você passou retonava "11 de maio" então alterei para FormatDateTime('MM',Date); que retornou o que eu estava precisando... "05"... Valeu pela ajuda... me deu uma baita mão... Att... Maikel
-
Bom dia pessoas... Seguinte.... estou desenvolvendo um sistema onde quero mostrar quantos usuários acessaram o sistema no mês... ai fiz uma sql no firebird... seguinte: SELECT COUNT(usuarios.cod_usuario) as mês FROM usuarios WHERE EXTRACT(month FROM usuarios.ultimo_acesso) = '5' Ele mostra certo todos os usuários que acessaram no mês 5... mas e se depois for o mês 6... não quero ir no sistema alterar a sql...tem alguma forma de etrair o mês da data atual nessa sql...??? Se alguém puder ajudar... agradeço... Att..
-
Bom dia.... Para você deixar um programa rodando no Tray quando é fechado ou minimizado você pode utilizar um componente chamado SysTray... É só colocar ele no form Principal e configurar algumas ações bem simples... Att+ Maikel
-
Bom dia... Valeu pela dica Graymalkin... Fiz isso mesmo... agora está funcionando.... Obrigado pela ajuda... Valeu... Att.... Maikel
-
Valeu s3c.... Agora funcionou.... Obrigado pela ajuda.... Att..
-
Bom dia.... Pessoal.. estou com um probleminha... estou desenvolvendo uma aplicação MDI... só que tive que mudar a estrutura dos forms devido a um form de Login.. ou seja... no MDIForm ..no evento OnCreate deste estou criando um Form Normal.. o form de Login... e no OK..se os dados estiverem corretos dou um Show no MDIForm... só que dentro dele... deveria abrir um form MDIChild....mas quando tento criar ele ou apenas dar um show nele aparece uma mensagem de erro dizendo que o MDIChild ainda não está ativo... alguém sabe como faço para ativar ele.... ou para criar esse form....??? Se alguém puder ajudar.... agradeço... Att+
-
Bom dia... Pessoal... to com o seguinte problema..tenho um data grid na minha página (Delphi 2005 for .NET), neste DataGrid tenho 5 colunas.. as quais eu crio em tempo de execução... só que em tempo de execução eu crio 6 colunas...Titulo, Data, Paginas, Orçamento, Status e Codigo.. onde o código não aparece em nenhum lugar... Seguinte... estou usando o evento ItemCommand do DataGrid.... como eu posso pegar esse valor do campo código se ele não está aparcendo.. já tentei varias formas... mas eu só consigo pegar o valor dos campos do DataGrid.. mas o Campo Código só aparece no DataSource... onde eu poderia colocar ele para ele não aparecer no Grid e eu conseguir pegar o valor separado dele para cada registro de linha no DataGrid....?? Desde já agradeço pela ajuda.... Att...
-
beleza... agora ta funcionando.... usei a dica do Micheus... Agradeço a todos que me ajudaram.... valeu galera... muito obrigado... Att...