donde declaro una function para varios form
Publicado por homer (17 intervenciones) el 25/06/2012 05:27:32
hola gente programadora, necesito su ayuda...
tengo una function de tipo boolean, y esta la utilizare en varios formularios, y mi pregutna es.. donde debo declarar esta function para ser utilizada en cualquier formulario.... recien se me ocurrio utilizarla, pro que en varios formularios utilizare una funcion que ace es buscar en una base datos un numero de registro, si existe ese numero me manda un mensage y si no existe ma manda otro mensage....
Y ahi tambien esta otro tema....en la function debo abrir la base datos para la busqueda...... el codigo que quiero utilizar en la funcion es este
tengo una function de tipo boolean, y esta la utilizare en varios formularios, y mi pregutna es.. donde debo declarar esta function para ser utilizada en cualquier formulario.... recien se me ocurrio utilizarla, pro que en varios formularios utilizare una funcion que ace es buscar en una base datos un numero de registro, si existe ese numero me manda un mensage y si no existe ma manda otro mensage....
Y ahi tambien esta otro tema....en la function debo abrir la base datos para la busqueda...... el codigo que quiero utilizar en la funcion es este
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
function busqueda(NumeroMatricula:integer, cadena:string);
var // boton GUARDAR LINEA
existe : boolean;begin
{ si cadena es DISTINTO de ' ' entonces hay algo escrito en la variable cadena}
if (cadena<> ' ') then
begin
existe :=false; // inicialiso en falso
ADOTable1.First; // voy al primer registro
while(not(existe )) and (not(ADOTable1.Eof))do // ciclo de busqeda
begin
if(ADOTable1.FieldValues['numMat']=NumeroMatricula) then //hacienod la busqueda, comparando
begin
application.MessageBox('Este Numero Matricula ya existe','Informacio de Error',MB_OK+Mb_IconWarning);
existe := true // variable a TRUE esta registrado a matricula, y sale del bucle While
end; // fin del if
ADOTable1.next; //siguiente registro
end; // fin del while
if existe = false then begin // si no existe ese numero en la base datos, entocnes registro ese numero y otros datos
ADOTable1.Insert; //
...................
...........................
ADOTable1.Post;end;
end else
ShowMessage('Debe introducir numero');
end;
Valora esta pregunta
0
