Shinhatsubai

Boa tarde, Não consigo identificar onde estou errando no código abaixo, por favor, alguém pode dar uma força? ;) Na criação das tabelas está tudo ok, porém estou encontrando problemas na hora de definir as constraints. Obrigado! CREATE DATABASE dbPIZZARIA GO USE dbPIZZARIA CREATE TABLE BAIRROS ( NOME_BAIRRO VARCHAR(30) NOT NULL, TEMPO_ESPERA NUMERIC(03) NOT NULL, ); CREATE TABLE CARDAPIO ( NUM_CARDAPIO INTEGER NOT NULL, TIPO_CARDAPIO CHAR(01) default 'P' NOT NULL, DESCRICAO VARCHAR(40) NOT NULL, TAMANHO_PIZZA CHAR(01) default 'M' NULL, INGREDIENTES VARCHAR(750) NULL, PRECO_TABELA NUMERIC(4,2) NOT NULL, ); CREATE TABLE CLIENTES ( CODIGO_CLIENTE INTEGER NOT NULL, NOME_CLIENTE VARCHAR(80) NOT NULL, ENDERECO_CLIENTE VARCHAR(100) NOT NULL, BAIRROS_NOME_BAIRRO VARCHAR(30) NOT NULL, TELEFONE_CLIENTE VARCHAR(11) NOT NULL, ); CREATE TABLE ENTREGADOR ( CODIGO_ENT INTEGER NOT NULL, TEL_CELULAR VARCHAR(11) NOT NULL, ); CREATE TABLE FUNCIONARIOS ( CODIGO_FUNC INTEGER NOT NULL, NOME_FUNC VARCHAR(80) NOT NULL, TIPO_FUNC CHAR(01) default 'A' NOT NULL, END_FUNC VARCHAR(100) NOT NULL, TELEFONE VARCHAR(11) NOT NULL, ); CREATE TABLE ITEM_PEDIDO ( PEDIDOS_NUM_PEDIDO INTEGER NOT NULL, CARDAPIO_NUM_CARDAPIO INTEGER NOT NULL, QUANTIDADE NUMERIC(3) NOT NULL, preço NUMERIC(4,2) NOT NULL, ); CREATE TABLE PEDIDOS ( NUM_PEDIDO INTEGER NOT NULL, DATA_EMISSAO DATETIME NOT NULL, VALOR_TOT_PED NUMERIC(4,2) NOT NULL, FUNCIONARIOS_CODIGO_FUNC INTEGER NOT NULL, CLIENTES_CODIGO_CLIENTE INTEGER NOT NULL, ENTREGADOR_CODIGO_ENT INTEGER NOT NULL, TIPO_PAGTO CHAR(01) default 'D' NOT NULL, ); -------------------------------------------------------------------------------------------------------------------------------------------- USE dbPIZZARIA ALTER TABLE BAIRROS ADD CONSTRAINT PK_BAIRRO PRIMARY KEY (NOME_BAIRRO); ALTER TABLE ENTREGADOR ADD CONSTRAINT PK_ENTREGADOR PRIMARY KEY (CODIGO_ENT); ALTER TABLE CLIENTES ADD CONSTRAINT PK_CLIENTES PRIMARY KEY (CODIGO_CLIENTE) ADD CONSTRAINT FK_CLIENTES FOREIGN KEY (BAIRROS_NOME_BAIRRO) REFERENCES BAIRROS; ALTER TABLE CARDAPIO ADD CONSTRAINT PK_CARDAPIO PRIMARY KEY (NUM_CARDAPIO) ADD CONSTRAINT CH1_CARDAPIO CHECK(TIPO_CARDAPIO IN('B','E','P')) ADD CONSTRAINT CH2_CARDAPIO CHECK(TAMANHO_PIZZA IN('G','M','P')); ALTER TABLE FUNCIONARIOS ADD CONSTRAINT PK_FUNCIONARIOS PRIMARY KEY (CODIGO_FUNC) ADD CONSTRAINT CH_FUNCIONARIOS CHECK(TIPO_FUNC IN('A','G','P')); ALTER TABLE PEDIDOS ADD CONSTRAINT PK_PEDIDOS PRIMARY KEY (NUM_PEDIDO) ADD CONSTRAINT FK1_PEDIDOS FOREIGN KEY (FUNCIONARIOS_CODIGO_FUNC) REFERENCES FUNCIONARIOS ADD CONSTRAINT FK2_PEDIDOS FOREIGN KEY (CLIENTES_CODIGO_CLIENTE) REFERENCES CLIENTES ADD CONSTRAINT FK3_PEDIDOS FOREIGN KEY (ENTREGADOR_CODIGO_ENT) REFERENCES ENTREGADOR ADD CONSTRAINT CH_PEDIDOS CHECK(TIPO_PAGTO IN('C','D','T')); ALTER TABLE ITEM_PEDIDO ADD CONSTRAINT PK1_ITEM_PEDIDO PRIMARY KEY (PEDIDOS_NUM_PEDIDO) ADD CONSTRAINT PK2_ITEM_PEDIDO PRIMARY KEY (CARDAPIO_NUM_CARDAPIO) ADD CONSTRAINT FK1_ITEM_PEDIDO FOREIGN KEY (PEDIDOS_NUM_PEDIDO) REFERENCES PEDIDOS ADD CONSTRAINT FK2_ITEM_PEDIDO FOREIGN KEY (CARDAPIO_NUM_CARDAPIO) REFERENCES CARDAPIO;

Perfeito!!! Funcionou direitinho! Agora vou dar uma bela estudada nos dois códigos, que hoje provavelmente terei prova sobre o assunto. Muito obrigado!!!

Muito obrigado pela força jaumDoDelphi e Progr'amador !!! @Progr'amador: Deu certinho o código Progr'amador, obrigado. você diz que é mais apropriado utilizar uma function ao invés de procedure, o código com function funcionou perfeitamente, mas é possível fazer esse programinha funcionar com procedure? No código que você passou, tentei trocar o function por procedure e não deu certo. A questáo é que neste exercício meu professor pediu fizessemos esse programinha usando procedure.. ainda não aprendemos functions... Mais uma vez obrigado !!!

Obrigado pela força Jaum! Estou começando a aprender o Delphi, nesse caso, acho que a intenção não é declara-las como global, mas passar os valores por referência. O meu professor pediu que concatenassemos as variáveis nome e sobrenome, sendo passador por referência para a formação do nomecompleto. O código que postei acima está muito fora de conseguir esse objetivo? Onde estou errando? Mais uma vez agradeço pela ajuda!

Muito obrigado Jaum! Mas se eu declarando-as dessa forma o Delphi me dá a mensagem de que eu estou redeclarando as variáveis. E dessa forma o parâmetro não deixaria de ser por referência?

Bom dia! Estou com um exercício de concatenação com passagem de parâmetros por referência mas não sei onde estou errando! Procurei na internet mas não encontrei nenhum exemplo que me ajudasse! Alguém pode analisar o código e me dar uma luz? Obrigado! unit Argumentos_por_EnderecoP; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; procedure Concatenar(Var nome, sobrenome: String); procedure Button3Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Concatenar; begin nome := Form1.Edit1.Text; sobrenome := Form1.Edit2.Text; Edit3.Text := nome + ' ' + sobrenome; end; procedure TForm1.Button2Click(Sender: TObject); begin Edit1.Text := ''; Edit2.Text := ''; Edit3.Text := ''; Edit1.SetFocus; end; procedure TForm1.Button3Click(Sender: TObject); begin Application.Terminate; end; procedure TForm1.Button1Click(Sender: TObject); begin Concatenar; end; end

Boa noite! Estou aprendendo HTML e Javascript e estou apanhando em dois exercícios: 1) Tenho uma tela com os radios button RG e CPF e uma caixa de texto. Tenho as funções fctRg e fctCpf para mascara de cada um dos documentos. Como faço para que dependendo do raio button selecionado, a caixa de texto assuma a mascara do documento escolhido? 2) Uma outra tela possui dois radio buttons: Real e Dolar. Por default, Real está selecionado, e existe uma caixa de texto para "Digitação de valor". Caso o usuário selecione Dolar, além da caixa de texto "Digitação de valor", deve surgir uma outra caixa de texto "Conversão para Reais". Será que alguém pode me dar uma luz? Desde já agradeço! []s