Interligação de Outras tabelas

[akemi 0]

Eu tenho 4 tabelas para cadastro do Horario do BackupMaquinanro_maq short integerdescricao Alpha 30Deptonro_depto short integerdescricao Alpha 30Fitanro_fita short integerdescricao Alpha 30Horanro_maq short integerdescr_maq descricaonro_fita short integerdescr_fita descricaonro_depto short integerdescr_depto alpha 30data datedia_semana alpha 30hora_inicial timehora_final timeObservacao memo 100Eu gostaria de saber no Cadastro de Horario, eu coloquei um dblookcombobox para puxar as informacoes descr_maq, descr_depto e nro_fita, das suas respectivas tabelas, ele esta trazendo no dblookcombobox, mas na tabela ele esta gravando o codigo na descricao e ainda eu tenho que interligar o nro_maq, com o nro_depto e qdo eu clicar no dblookupcombobox tem que trazer as fitas dessa maquina e a fita desse dia da semana, como que eu faço para interligar todas essas informacoes no delphi3 e tbém queria saber como eu faço para o campo data trazer a data atual, sem eu ter que ficar digitando a data de hj e o dia da semana se alguem puder me ajudar eu agradeçounit Unit7;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Buttons, Db, Mask, DBCtrls, ComCtrls, DBTables;type Thorario = class(TForm) Panel1: TPanel; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; btnprimeiro1: TBitBtn; Novo: TBitBtn; btnanterior1: TBitBtn; OK: TBitBtn; btnproximo1: TBitBtn; btnultimo1: TBitBtn; Excluir: TBitBtn; btnlocalizar1: TBitBtn; cancelar: TBitBtn; sair: TBitBtn; Label5: TLabel; Data: TLabel; Alterar: TBitBtn; descr_depto: TDBLookupComboBox; BitBtn1: TBitBtn; Label6: TLabel; observacao: TDBMemo; descr_maq: TDBLookupComboBox; nro_fita: TDBLookupComboBox; horai: TDBEdit; horaf: TDBEdit; nro_maq: TDBEdit; nro_depto: TDBEdit; dia_sem: TDBEdit; edata: TDBEdit; descr_fita: TDBEdit; Query1: TQuery; procedure btnprimeiro1Click(Sender: TObject); procedure btnanterior1Click(Sender: TObject); procedure sairClick(Sender: TObject); procedure btnproximo1Click(Sender: TObject); procedure btnultimo1Click(Sender: TObject); procedure NovoClick(Sender: TObject); procedure OKClick(Sender: TObject); procedure AlterarClick(Sender: TObject); procedure ExcluirClick(Sender: TObject); procedure cancelarClick(Sender: TObject); procedure descr_maqClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure btnlocalizar1Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure nro_fitaKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure descr_deptoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure data1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure nro_maqKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure horaiKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure horafKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure nro_deptoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure edataKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure observacaoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure edataClick(Sender: TObject); procedure dia_semClick(Sender: TObject); procedure dia_semEnter(Sender: TObject); procedure descr_fitaKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); private { Private declarations } public { Public declarations } end;var horario: Thorario;implementationuses Unit2, Unit4, Unit15;{$R *.DFM}procedure mudaestadobotoes(hab:boolean);begin horario.ok.enabled := not hab; horario.cancelar.enabled := not hab; horario.alterar.enabled := hab; horario.Excluir.enabled :=hab; horario.novo.enabled := hab;end;procedure Thorario.btnprimeiro1Click(Sender: TObject);begindatamodule2.hora.open;descr_maq.enabled := false;nro_maq.enabled := false;descr_fita.enabled := false;nro_fita.enabled := false;descr_depto.enabled := false;depto.enabled := false;edata.enabled := false;dia_sem.enabled := false;horai.enabled := false;horaf.enabled := false;observacao.enabled := false;datamodule2.hora.first;end;procedure Thorario.btnanterior1Click(Sender: TObject);begindatamodule2.hora.open;descr_maq.enabled := false;nro_maq.enabled := false;descr_fita.enabled := false;nro_fita.enabled := false;descr_depto.enabled := false;depto.enabled := false;edata.enabled := false;dia_sem.enabled := false;horai.enabled := false;horaf.enabled := false;observacao.enabled := false;datamodule2.hora.prior;if (not novo.enabled) then mudaestadobotoes(true);if datamodule2.hora.bof then showmessage('Inicio de Arquivo');end;procedure Thorario.sairClick(Sender: TObject);beginclose;end;procedure Thorario.btnproximo1Click(Sender: TObject);begindatamodule2.hora.open;descr_maq.enabled := false;nro_maq.enabled := false;descr_fita.enabled := false;nro_fita.enabled := false;descr_depto.Enabled := false;depto.enabled := false;edata.enabled := false;dia_sem.enabled := false;horai.enabled := false;horaf.enabled := false;observacao.enabled := false;datamodule2.hora.next;if (not novo.enabled) then mudaestadobotoes(true);if datamodule2.hora.eof then showmessage('Fim do Arquivo');end;procedure Thorario.btnultimo1Click(Sender: TObject);begindatamodule2.hora.open;descr_maq.enabled:= false;nro_maq.enabled := false;descr_fita.enabled := false;nro_fita.enabled :=false;descr_depto.enabled := false;depto.enabled := false;edata.enabled := false;horai.enabled := false;horaf.enabled := false;observacao.enabled := false;datamodule2.hora.last;end;procedure Thorario.NovoClick(Sender: TObject);begindatamodule2.hora.open;descr_maq.enabled := true;nro_maq.enabled := true;descr_fita.enabled := true;nro_fita.enabled := true;descr_depto.enabled := true;depto.enabled := true;edata.enabled := true;dia_sem.enabled := true;horai.enabled := true;horaf.enabled := true;observacao.enabled := true;//nro_maq.text := '';//nro_fita.text := ''; descr_maq.setfocus;try datamodule2.hora.append; mudaestadobotoes(false); except showmessage('Arquivo Bloqueado'); exit;end;end;procedure Thorario.OKClick(Sender: TObject);begindatamodule2.hora.post;descr_maq.enabled := false;nro_maq.enabled := false;descr_fita.enabled := false;nro_fita.enabled := false;descr_depto.enabled := false;depto.enabled := false;edata.enabled := false;dia_sem.enabled := false;horai.enabled := false;horaf.enabled := false;observacao.enabled := false;datamodule2.hora.flushbuffers;end;procedure Thorario.AlterarClick(Sender: TObject);begintrydatamodule2.hora.edit;nro_maq.enabled := true;descr_maq.enabled := true;nro_fita.enabled := true;descr_fita.enabled := true;depto.enabled := true;descr_depto.enabled := true;edata.enabled := true;horai.enabled := true;horaf.enabled := true;depto.SetFocus;mudaestadobotoes(false);exceptshowmessage('Registro Bloqueado...');exitend;end;procedure Thorario.ExcluirClick(Sender: TObject);beginif (messagedlg('Confirma a remocao do codigo?', mtconfirmation, [mbok, mbcancel],0)= mrok) then try datamodule2.hora.delete; datamodule2.hora.FlushBuffers; except showmessage('Registro Bloqueado');end;end;procedure Thorario.cancelarClick(Sender: TObject);begindatamodule2.hora.cancel;end;procedure Thorario.descr_maqClick(Sender: TObject);begindatamodule2.hora.FieldByName('descr_maq').asstring:=datamodule2.Maquina.fieldbyname('descricao').asstring;end;procedure Thorario.FormCreate(Sender: TObject);beginnro_maq.enabled := false;descr_maq.enabled := false;nro_fita.enabled := false;descr_fita.enabled := false;depto.enabled := false;descr_depto.enabled := false;edata.enabled := false;horai.enabled := false;horaf.enabled := false;end;procedure Thorario.btnlocalizar1Click(Sender: TObject);beginfrmconsulta2.show;end;procedure Thorario.BitBtn1Click(Sender: TObject);begindatamodule2.hora.filtered := false;end;procedure Thorario.nro_fitaKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if key=vk_return then perform(WM_NEXTDLGCTL,0,0);end;procedure Thorario.descr_deptoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if key=vk_return then perform(WM_NEXTDLGCTL,0,0);end;procedure Thorario.data1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if key=vk_return then perform(WM_NEXTDLGCTL,0,0);end;procedure Thorario.nro_maqKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if key=vk_return then perform(WM_NEXTDLGCTL,0,0);end;procedure Thorario.horaiKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if key=vk_return then perform(WM_NEXTDLGCTL,0,0);end;procedure Thorario.horafKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if key=vk_return then perform(WM_NEXTDLGCTL,0,0);end;procedure Thorario.nro_deptoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if key=vk_return then perform(WM_NEXTDLGCTL,0,0);end;procedure Thorario.edataKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if key=vk_return then perform(WM_NEXTDLGCTL,0,0);end;procedure Thorario.observacaoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if key=vk_return then perform(WM_NEXTDLGCTL,0,0);end;procedure Thorario.edataClick(Sender: TObject);var ADate : TDatetime; days : array[1..7] of string; Present: TDateTime; Year, Month, Day, Hour, Min, Sec, MSec: Word; Mes : String;begin {days[1] := 'Domingo'; days[2] := 'Segunda-Feira'; days[3] := 'Terça-Feira'; days[4] := 'Quarta-Feira'; days[5] := 'Quinta-Feira'; days[6] := 'Sexta-Feira'; days[7] := 'Sábado';} Present := Now; DecodeDate(Present, Year, Month, Day); Case (Month) Of 1 : Mes := '01'; 2 : Mes := '02'; 3 : Mes := '03'; 4 : Mes := '04'; 5 : Mes := '05'; 6 : Mes := '06'; 7 : Mes := '07'; 8 : Mes := '08'; 9 : Mes := '09'; 10 : Mes := '10'; 11 : Mes := '11'; 12 : Mes := '12'; End; ADate := Date; EData.Text := days[DayOfWeek(ADate)] + ', ' + IntToStr(Day) + ' / ' + Mes + ' / ' + IntToStr(Year);end;procedure Thorario.dia_semClick(Sender: TObject);VAR ADate : TDateTime; day : array[1..7] of string;begin {Volta um número inteiro que representa o dia da semana} day[1] := 'Domingo'; day[2] := 'Segunda-Feira'; day[3] := 'Terça-Feira'; day[4] := 'Quarta-Feira'; day[5] := 'Quinta-Feira'; day[6] := 'Sexta-Feira'; day[7] := 'Sábado'; ADate := Date; dia_sem.Text := day[DayOfWeek(ADate)]; end;{var ADate : TDateTime; days : array[1..7] of string; Present: TDateTime; Year, Month, Day, Hour, Min, Sec, MSec: Word; Mes : String;begin days[1] := 'Domingo'; days[2] := 'Segunda-Feira'; days[3] := 'Terça-Feira'; days[4] := 'Quarta-Feira'; days[5] := 'Quinta-Feira'; days[6] := 'Sexta-Feira'; days[7] := 'Sábado'; Present := Now; DecodeDate(Present, Year, Month, Day); Case (Month) Of 1 : Mes := '01'; 2 : Mes := '02'; 3 : Mes := '03'; 4 : Mes := '04'; 5 : Mes := '05'; 6 : Mes := '06'; 7 : Mes := '07'; 8 : Mes := '08'; 9 : Mes := '09'; 10 : Mes := '10'; 11 : Mes := '11'; 12 : Mes := '12'; End; ADate := Date; EData.Text := days[DayOfWeek(ADate)] + ', ' + IntToStr(Day) + ' / ' + Mes + ' / ' + IntToStr(Year);}procedure Thorario.dia_semEnter(Sender: TObject);VAR ADate : TDateTime; day : array[1..7] of string;begin dia_sem.Text := day[DayOfWeek(ADate)];{Volta um número inteiro que representa o dia da semana} day[1] := 'Domingo'; day[2] := 'Segunda-Feira'; day[3] := 'Terça-Feira'; day[4] := 'Quarta-Feira'; day[5] := 'Quinta-Feira'; day[6] := 'Sexta-Feira'; day[7] := 'Sábado';{var ADate : TDateTime; days : array[1..7] of string; Present: TDateTime; Year, Month, Day, Hour, Min, Sec, MSec: Word; Mes : String;begin days[1] := 'Domingo'; days[2] := 'Segunda-Feira'; days[3] := 'Terça-Feira'; days[4] := 'Quarta-Feira'; days[5] := 'Quinta-Feira'; days[6] := 'Sexta-Feira'; days[7] := 'Sábado'; Present := Now; DecodeDate(Present, Year, Month, Day); Case (Month) Of 1 : Mes := '01'; 2 : Mes := '02'; 3 : Mes := '03'; 4 : Mes := '04'; 5 : Mes := '05'; 6 : Mes := '06'; 7 : Mes := '07'; 8 : Mes := '08'; 9 : Mes := '09'; 10 : Mes := '10'; 11 : Mes := '11'; 12 : Mes := '12'; End; ADate := Date; EData.Text := days[DayOfWeek(ADate)] + ', ' + IntToStr(Day) + ' / ' + Mes + ' / ' + IntToStr(Year);}end;procedure Thorario.descr_fitaKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);beginif key=vk_return then perform(WM_NEXTDLGCTL,0,0);end;end.Lilian

[apocalipse 0]

Salve Se endetei o que você quer e so voce fazer uma sqltipo select * from cliente cl, vendas_do_dia vd where cl.cod_cliente=vd.cod_clienteBom, espero ter ajudado Dui