RobsonSilva < Main

Main Web>TWikiUsers>RobsonSilva (30 Sep 2008, RobsonSilva) (raw view)EditAttach

---++ My Links

   * %TWIKIWEB%.ATasteOfTWiki - view a short introductory presentation on TWiki for beginners
   * %TWIKIWEB%.WelcomeGuest - starting points on TWiki
   * %TWIKIWEB%.TWikiUsersGuide - complete TWiki documentation, Quick Start to Reference
   * Sandbox.%HOMETOPIC% - try out TWiki on your own
   * Sandbox.%TOPIC%Sandbox - just for me
   * 
   * 

---++ My Personal Data

Note: if personal data is being stored using a secret database, then it is only visible to the user and to administrators.

| E-mail | %USERINFO{"%TOPIC%" format="$emails"}% |

---++ My Personal Preferences

Uncomment preferences variables to activate them (remove the #-sign). Help and details on preferences variables are available in %TWIKIWEB%.%WIKIPREFSTOPIC%.

   * Show tool-tip topic info on mouse-over of %TWIKIWEB%.WikiWord links, on or off: 
      * #Set LINKTOOLTIPINFO = off

---++ Related Topics

   * %TWIKIWEB%.ChangePassword for changing your password
   * %TWIKIWEB%.ChangeEmailAddress for changing your email address
   * %MAINWEB%.%WIKIUSERSTOPIC% has a list of other TWiki users
   * %TWIKIWEB%.UserDocumentationCategory is a list of TWiki user documentation
   * %TWIKIWEB%.UserToolsCategory lists all TWiki user tools

 procedure TDM.QMatriculaBeforePost(DataSet: TDataSet);<br />var sMatricula: string;<br />begin<br />  QCurso.close;<br />  QCurso.open;<br />  QSicadSetup.Open;<br />  if QMatricula.State in [dsInsert] then<br />    begin<br />       ProximoNumero.parambyname('@mat').AsString :=<br />         IntToStr(QMatricula.FieldByName('AnoIngresso').AsInteger) +<br />         IntToStr(QSicadSetup.FieldByName('SemestreAtual').ASInteger) +<br />         Copy(Qcurso.FieldByName('ID_Curso').AsString,2,2);<br />       ProximoNumero.Open;<br />       sMatricula:=<br />         IntToStr(QMatricula.FieldByName('AnoIngresso').AsInteger) +<br />         IntToStr(QSicadSetup.FieldByName('SemestreAtual').ASInteger) +<br />         Copy(Qcurso.FieldByName('ID_Curso').AsString,2,2)+<br />         StringZero(ProximoNumero.FieldByName('proximo').AsInteger, 3);<br />       QMatricula.FieldByName('Matricula').AsString:=sMatricula;<br />       ProximoNumero.close;<br />    end<br />  else<br />     QMatriculaData_Matricula.Value:=date;<br />  QsicadSetup.close;<br />end;

UserForm
FirstName	Robson
LastName	Silva
OrganisationName	MEFES
OrganisationURL	http://www.mefes.dcc.ufba.br/
Profession	Student
Country	Brazil
State	Salvador
Address
Location
Telephone
VoIP
InstantMessaging (IM)	robsonsilva@hotmail.com
Email	robson.rss@gmail.com
HomePage	www.dcc.ufba.br/~robsonsilva
Comment

Topic revision: r2 - 30 Sep 2008 - 10:52:42 - RobsonSilva

Main

TWiki UFBA
Usuários
Grupos
Criar uma conta

Copyright &Â© by the contributing authors. All material on this collaboration platform is the property of the contributing authors.
Ideas, requests, problems regarding TWiki? Send feedback