Ir para conteúdo
Fórum Script Brasil

DELPHI-Man32

Veteranos
  • Total de itens

    895
  • Registro em

  • Última visita

Tudo que DELPHI-Man32 postou

  1. amigo, escolha um otino nick e registre-se no forum falowss! aeh está a unita completa do form de login unit u_login; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Buttons, Db, DBTables; type Tfm_login = class(TForm) Table1: TTable; DataSource1: TDataSource; Edit1: TEdit; Edit2: TEdit; BitBtn1: TBitBtn; BitBtn2: TBitBtn; Panel1: TPanel; CheckBox1: TCheckBox; Label1: TLabel; Label2: TLabel; Panel2: TPanel; procedure CheckBox1Click(Sender: TObject); procedure Edit2Change(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); private { Private declarations } public { Public declarations } end; var fm_login: Tfm_login; iOK : integer; implementation uses u_ajuda_login, u_main; {$R *.DFM} procedure Tfm_login.CheckBox1Click(Sender: TObject); begin Edit1.Color := clWhite; Edit2.Color := clWhite; Edit1.Enabled := True; Edit2.Enabled := True; Edit1.SetFocus; Panel1.Caption := 'Digite seu nome de Usuário e Senha...' end; procedure Tfm_login.Edit2Change(Sender: TObject); begin BitBtn1.Enabled := True; end; procedure Tfm_login.BitBtn2Click(Sender: TObject); begin ShowMessage('Não foi possivel efetuar o login ou ação cancelada!'); Application.Terminate; end; procedure Tfm_login.BitBtn1Click(Sender: TObject); begin if Table1.Locate('Usuario;Senha', VarArrayOf([Edit1.Text,Edit2.Text]),[]) then begin iOK := 625; Close; end else begin Panel1.Caption := Edit1.Text +', seus dados estão inválidos!'; Edit1.SetFocus; end; end; procedure Tfm_login.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin if iOK <> 625 then CanClose := False; end; end. ------- no evento OnCreate do Form principal coloque fm_login := Tfm_login.Create(self); fm_login.Showmodal; isso chamara o form do login...hahahaha! DELPHI-Man32
  2. scriprbrasil.com.br vai lá!
  3. DELPHI-Man32

    Agenda De Datas

    cara se você está trabalhando com tabelas já deve ter ouvir falado um chave primária! ela não pode ser duplicada na tbl, eu acho..rs*.... então defina o campo como chave primaria, quando tentar repetir, sempre será retornado um erro de Key Violation, depois postarei como tratar este erro! esta é um uma forma bem simples!
  4. amigo em tempo de execução não tenho nada, mas tem esse ae^h no codigo! Exemplo para arquivo .dbf e .db : 1. Crie um novo projeto. 2. Coloque os seguintes comoponentes no form: Tdatabase, Ttable, Tdatasource, Tdbgride Tbutton. 3. Dê um duplo clique no Tdatabase para entrar no Database propriety editor. 4. Configure o Database Name para 'MeuAlias' . 5. Selecione 'STANDART' para Drive Name. 6. Clique no botão Default. Ele automaticamente adicionará um PATH= na área de parâmetros. 7. Configure o PATH= para C:\DELPHI\DEMOS\DATA. 8. Clique no botão OK para fechar a caixa de diálogo. 9. Configure a proporiedade DatabaseName do Ttable para 'MeuAlias'. 10.Configure a proporiedade Dataset do TDatasource para 'Table1'. 11.Configure a proporiedade DataSource do Tdbgrid para 'Datasource1'. 12.Coloque o seguinte código no evento Onclick do TButton: Procedure TForm1.Button1Click(Sender:Tobjetc); begin Table1.TableName := 'CUSTOMER'; Table1.Active := true; End; Uma alternativa para os passos 1-11: Coloque o seguinte código no evento OnClick do TButton: Procedure TForm1.Button1Click(Sender:Tobjetc); begin Database1.DataBaseName := 'MeuAlias'; Database1.DriverName := 'STANDART'; Database1.Params.Clear; Database1.Params.Add('PATH=C:\DELPHI\DEMOS\DATA'); Table1.DatabaseName := 'MeuALias'; Table1.TableName := "CUSTOMER' Table1.Active := true; DataSource1.Dataset := Table1; DBGrid1.DataSource := Datasource1; End; Criado Alias via programação Inclua na seção uses: DB { se o alias não existir... } if not Session.IsAlias('MeuAlias') then begin { Adiciona o alias } Session.AddStandardAlias('MeuAlias', 'C:\DirProg', 'PARADOX'); { Salva o arquivo de configuração do BDE } Session.SaveConfigFile; end; Para criar um alias do dBase troque a string 'PARADOX' por 'DBASE'. No caso acima usei como path o caminho "C:\DirProg", mas se você quiser poderá trocar este caminho por ExtractFilePath(ParamStr(0)) para que o alias seja direcionado para o local onde est veja o que pode ser util pra vc!
  5. valeu pessoal pela atenção dada ao meu tópico, mas fix a 1ª instalação e nada deu certo. e agora diz que não foi possivel logar como root! com aquela senha que agente coloa na instalação! e logo depois vai direto para o terminal de comandos, dai não sei o que fazer... alguém poderia me mandar o processo de instalação maix detalhado? e os comandos que poderie usar caso a parte gráfica não funcione? estou usando um hd reserva com 1300mb. sendo 1000M para a 1ª partição e 120M para a swap. falowss... deem sempre uma olhadinha lá do DELPHI/KYLIX... abraços, DELPHI-Man32
  6. você quer controlar entrada e saida de babidas, fornecedores, preços etc... essas coisas não é! também nunca vi nada parecido! coloq algo + explicado do que você que controlar e como! falowss estamos ae^h para ajudar!
  7. a coisa maix facil de se fazer isso é com um componente TTable mesmo e Um TDataSource. coloca a tabela no forma e liga ela a sua base de dados pelo alias ou pelo diretorio onde estao as tabelas. coloca um TDBgrid e seta a propriedade database para DataSource1 que esta usanda a Table1. agora é só ativar a tabela clicando nela e setando a primeira opção Active para True. - Consulta SQL que usa a data do sistema Solução: Query.Close; Query.SQL.Text := 'select * from Tabela where CampoData <= :Hoje'; Query.ParamByName('Hoje').AsDate := Date; Query.Open; ------ falowsssss ah! não se esqueca de se registrar na comunidade!
  8. DELPHI-Man32

    Visualizar Jpg

    veja se é isto aqui.... Ler imagem JPG da tabela Paradox Procedure Le_Imagem_JPEG(Campo:TBlobField; Foto:TImage); var BS:TBlobStream; MinhaImagem:TJPEGImage; Begin if Campo.AsString <> '' Then Begin BS := TBlobStream.Create((Campo as TBlobField), BMREAD); MinhaImagem := TJPEGImage.Create; MinhaImagem.LoadFromStream(BS); Foto.Picture.Assign(MinhaImagem); BS.Free; MinhaImagem.Free; End Else Foto.Picture.LoadFromFile('c:\temp\limpa.jpg'); End; procedure TForm1.Button1Click(Sender: TObject); begin Le_Imagem_JPEG(TbClientesCli_Foto, Image1); // TbClientesCli_Foto é um variavel da tabela do tipo Blob // Image1 é um componente end; ------ Gravar imagem JPG em tabela Paradox Procedure Grava_Imagem_JPEG(Tabela:TTable; Campo:TBlobField; Foto:TImage; Dialog:TOpenPictureDialog); var BS:TBlobStream; MinhaImagem:TJPEGImage; Begin Dialog.InitialDir := 'c:\temp'; Dialog.Execute; if Dialog.FileName <> '' Then Begin if not (Tabela.State in [dsEdit, dsInsert]) Then Tabela.Edit; BS := TBlobStream.Create((Campo as TBlobField), BMWRITE); MinhaImagem := TJPEGImage.Create; MinhaImagem.LoadFromFile(Dialog.FileName); MinhaImagem.SaveToStream(BS); Foto.Picture.Assign(MinhaImagem); BS.Free; MinhaImagem.Free; Tabela.Post; DBISaveChanges(Tabela.Handle); End; End; procedure TForm1.Button1Click(Sender: TObject); begin Grava_Imagem_JPEG(TbClientes,TbClientesCli_Foto, Image1, OpenPictureDialog1); // TbClientes é o nome de alguma Tabela // TbClientesCli_Foto é um variavel da tabela do tipo Blob // Image1 é um componente // OpenPictureDialog1 é o componente para abrir a figura end;
  9. poxa amigo, não adinta ficar bravinho não... com certeza ele foi visitado e quando alguém tiver a resposta com certeza lhe dará! lembra daquela velho proverbio que sua avó deve ter lhe dito muito... "a pressa e inimiga da perfeição!" então estamos todos aqui para ensinar e também aprender...
  10. DELPHI-Man32

    Menu Iniciar

    Escondendo o Programa de Ctrl+Alt+Del unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} {Para ocultar um programa, deve-se registrar este como um serviço do Windows. Normalmente um serviço do Windows é ativado quando com a inicialização do sistema (Windows) e pemanece ativo até a finalização deste. Este processo esconde o programa da lista "Ctrl+Alt+Del"} Const Servico_Simples = 1; Servico_Unregister = 1; Function RegisterServiceProcess(DwProcessID, dwType: DWord): DWord; StdCall; External 'KERNEL32.dll'; procedure TForm1.FormCreate(Sender: TObject); begin RegisterServiceProcess(GetCurrentProcessID, Servico_Simples); end; procedure TForm1.FormDestroy(Sender: TObject); begin RegisterServiceProcess(GetCurrentProcessID, Servico_Unregister); end; end. ----- EXLUSIVIDADE PARA O PROGRAMA NO SHELL DO WINDOWS... No System.ini você tem uma configuração como esta : Shell=Explorer.exe Basta trocar por Shell=Myprog.exe Ou usando delphi procedure Tform1.ChangeShell(String programa); var ArquivoIni : Tinifile; begin try ArquivoIni := Tinifile.Create('System.ini'); ArquivIni.WriteSection('Config','Shell','Myprog.exe'); fynally ArquivoIni.Destroy; end; end; VEJA SE É ISSO QUE você PRECISA... DELPHI-Man
  11. tudo resolvido! Opa fechando..... ®odrigo_$am se tiver + duvidas....posta ai!
  12. opa achei! Isso funciona, faz exatamente o q você quer! procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Button1.visible := false; button2.Visible := true; end; procedure TForm1.Button2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Button1.visible := true; button2.Visible := false; end; você pode também colocar mensagens em labels e personalizar outras coisas, use a kbeça...se precisar de 1 help, estamos ae^h... DELPHI-Man32
  13. se já estiver tudo resolvido vamos fechar o tópico não é?!
  14. coeh galera do linux, se alguém puder me ajudar... é o seguinte... instalei na minha maquina em um hd separado do que uso o windows mas não consigue configurar a parte gráfica do bicho. o bicho é o tal do sistema operacional --> Unix OpenBSD 2.7 grato pela atenção... DELPHI-Man32
  15. DELPHI-Man32

    Teclas...(key)

    ajude a comunidade crescer.. registre-se hoje mesmo!
  16. você poderia ter 3 tabelas Clientes ----> Pedidos -------> Produtos(Itens dos pedidos). Cada pedido precisa de produtos e de clientes... então a tabela de Produtos poderia ficar! 1-Cod_Pro (Código do Produto) N 2-Descrição ( descrição do produto) A 3-Valor (valor do produto) $ e fazer o relacionamento entre o pedido e produto atraves do cod_prod. vou ver o que posso fazer para lhe ajudar!! DELPHI-Man32
  17. olha aeh cara Classes Classes são tipos de objetos, uma classe é declarada na cláusula type da seção interface e os métodos são definidos na seção implementation. Examine o código de um Form para identificar os elementos de sua classe. interface type TFrmSomar = class(TForm) EdtA: TEdit; EdtB: TEdit; BtnSoma: TButton; procedure BtnSomaClick(Sender: TObject); private { Private declarations } public { Public declarations } end; implementation procedure TFrmSoma.BtnSomaClick(Sender: TObject); begin ShowMessage(EdtA.Text + EditB.Text); end; Arrays Arrays fornecem uma forma de criar variáveis que contenham múltiplos valores, como em uma lista ou tabela, cujos elementos são do mesmo tipo. Veja abaixo alguns exemplos de arrays de dimensões variadas. TTempDia = array [1..24] of Integer; TTempMes = array [1..31, 1..24] of Integer; TTempAno = array [1..12, 1..31, 1..24] of Integer; var TD: TTempDia; I: Integer; begin for I := 1 to 24 do TD := StrToIntDef(InputBox('Temperaturas', 'Digite a temperatura na hora ' + IntToStr(I), ''), 30); end; Um array pode ser definido como constante tipada, onde todos os seus elementos devem ser inicializados. FAT: array[1..7] of Integer = (1, 2, 6, 24, 120, 720, 5040); O tipo dos elementos de um array pode ser qualquer um, você pode ter uma array de objetos, de conjuntos, de qualquer tipo que quiser, até mesmo um array de arrays. TTempMes = array [1..31] of TTempDia; TBtnList = array [1..10] of TButton; Procedimentos Procedimentos são sub-rotinas, que realizam uma tarefa e não retornam um valor. A declaração de um procedimento é feita na seção interface e a definição, na seção implementation. Ao chamar o identificador do procedimento, com os parâmetros necessários, esse procedimento será executado. Veja abaixo o exemplo de uma unit com a implementação um procedimento. unit Tools; interface procedure ErrorMsg(const Msg: string); implementation uses Forms, Windows; procedure ErrorMsg(const Msg: string); begin Application.MessageBox(PChar(Msg), 'Operação inválida', MB_ICONERROR); end; end. procedure TForm1.FormCreate (Sender: TObject); {diz que o procedimento vai acontecer quando o form for criado} begin ShowMessage('Aqui vai a mensagem que será exibida antes de criar o form'); end; espero ter ajudado, manda seu e-mail que lhe mando umas apostilas bacanas DELPHI-Man32
  18. cara! manda seu e-mail pra mim que envio pra você todos os procedimentos para se criar um relatório. do jeito que você falou! design-vagner@bol.com.br DELPHI-Man32
  19. DELPHI-Man32

    Procedure

    pelo q eu entendi da sua pergunta é o seguinte: o procedimento FormCreate acontece sempre o que form é criado, ou executado, todas as linhas de codigo que estiverem dentro da procedure serão executadas quando o form for executado, se o form for o principal da aplicação, as linhas serao exexutadas quando você executar seu programa! ex. procedure TForm1.FormCreate (Sender: Object); begin ShowMessage('Olá seja bem vindo'); end; quando o programa for executado aparece uma mensagem de boas vindas.. falowss.. espero que seja isso! cara. DELPHI-Man32 não se esquece de se registrar no fórum! falowss..
  20. amigão! ajude a comunidade SB crescer! registre-se no forum, estamos todos a sua espera tenho certeza que encontrará o que procura! falowss! DELPHI-Man32
  21. VOU COLOCAR UM TESTE NO URL ABAIXO http://www.delphiman32.kit.net/teste.zip falows DELPHI-Man32
  22. explique como você fez seu qr. PRA GENTE RESOLVER O PROBLEMA! DELPHI-Man32
  23. verifique se você esta setando os dados da tabela com os dados do campo dbedit da tbl de cadastro. dentro do QR. aqui deu tudo certo! DELPHI-Man32
  24. QUAL A FIFERENÇA ENTRE CADASTRO.DB E CLIENTES.DB PENSEI QUE CADASTRO TERIA OS DADOS DO CLENTE E OUTRA TABELA COM OS DADOS DA VENDA! DELPHI-Man32
×
×
  • Criar Novo...