Einzelnen Beitrag anzeigen

tom_po

Registriert seit: 5. Feb 2006
137 Beiträge
 
Delphi 7 Enterprise
 
#8

Re: submenu mit passwort schützen

  Alt 7. Jul 2006, 13:15
hatte es vor euren letzten Postings so gemacht und geht jetzt:

Delphi-Quellcode:
procedure TPasswordDlg.OKBtnClick(Sender: TObject);
 begin
  if passworddlg.Password.Text = 'moritex2006then
  showdbview('select Order as "N.P.",Client as "Cliente",Article as "Artigo",finaldate as "Data Entrega",realdate as "Data Embalado",materialin as "Entrada Material",cuttingin as "Entrada Corte",cuttingout as "Saída Corte",'
  +'sewingin as "Entrada Conf.",sewingout as "Saída Conf.",tipo as "Stilo",Colour as "Côr",Pieces as "Peças",Minutes as "Minutos",pgroup as "Linha",prepair as "Prepar.",washing as "Lav.",'
  +'packingout as "Saída Embalagem",observations as "Observações" from orders','Mudificar Encomendas',true,true)
  else PasswordDlg.Close;
  passworddlg.Close;
end;
schaue mir nachher eure postings noch genauer an:

marabu, betr. displaynamen in meinem showdbview:
das programm ist hier für eine portugiesische Firma, die Menus sollen der tabellen sollen in portug. erscheinen, in der datenbank-tabelle sind sie auf englisch...
  Mit Zitat antworten Zitat