¿Cómo generar números automáticamente en VB6.0?
Opción explícita
dim idnum(2 As Long 'Almacena principalmente ID que crecen automáticamente, uno para cada departamento, y cuántas matrices hay para cuántos departamentos.
Subcomando privado1_Click()
Texto1.Text = getNewID
Conector final
Subcomando privado1_Click()
Cuando Al guardar el registro, necesitamos guardar idnum+1 en un archivo
idnum(Combo1.ListIndex+1)= idnum(combo 1.ListIndex + 1)
Dim fname as string<. /p>
Si pair(App.Path, 1) = "\Then
fname = App.Path con ruta." myid.txt "
Otro
fname = App. " \myid.txt "
Terminará si...
Abrir fname como salida número 1
Recuerde el orden de cada departamento o puedes cambiarlo a modo de lectura ini
Imprimir #1, " id = " & ampCStr(idnum(1))
Imprimir #1, " id =. " & ampCStr(idnum(2))
Cerrar #1
Conector final
Subcomando privado 2_Click()
Texto1. Texto = getNewID
Conector final
Sub DTPicker1_Change()
Texto1. >Continúe con el siguiente paso si ocurre un error
Comando 1. Caption = "Guardar número"
Comando 2. Caption = "Generar número"
Combo1 Agregue un elemento "Departamento de desarrollo"
Combo1.ListIndex = 0
La identificación que crece automáticamente se logra principalmente registrándola en el archivo. Cuando se inicializa el programa, se juzga si hay myid.txt en el directorio actual Create, su contenido es id=***, si es así, se acaba de leer
Dim fname as string<. /p>
Si par(App.Path, 1) = " \Then
fname = App. Caminos y caminos. " myid.txt "
Otro
fname = Aplicación. Caminos y caminos. " \myid.txt "
Terminará si...
Si Dir(fname) = ", entonces
El archivo de descripción no existe.
Abrir fname como salida n.º 1
Imprimir n.º 1, " id=0 "
Imprimir n.º 1, " id=0 "
idnum( 1) = 0
idnum(2) = 0
Cerrar #1
Otros
archivos tienen ID de lectura valores.
Abrir fname como entrada n.° 1
Dim aline como cadena
Entrada de línea n.° 1, aline
idnum(1) = Val (Mid(aline, 4))
Entrada de línea #1, aline
idnum(2) = Val(Mid(aline, 4))
Cerrar #1
Terminará si...
Conector final
Función privada getNewID() en forma de cadena
El primer paso , Obtenga el número de departamento.
Debe consultar el número de departamento correspondiente según el nombre del departamento seleccionado y obtener el número directamente durante el proceso de consulta de la base de datos provincial.
Atenuar partid como cadena
partid = Format(Combo1.ListIndex + 1, "000")
Anotar la identificación de datos como cadena
Debe considerar usted mismo el criterio de control de fecha.
dataid = Format((DTPicker1.value-CDate("2006-12-31")\7+1,"000")
Dim addid como cadena
Autocontrol fuera de rango
addid = Format(idnum(combo 1. ListIndex + 1) + 1, " 000 ")
getNewID = partid & ampdataid & ampaddid
Finalizar función