Red de conocimiento informático - Aprendizaje de código fuente - Imprimir la programación de la tabla en el formato especificado

Imprimir la programación de la tabla en el formato especificado

Hay muchas maneras de imprimir informes de datos en VB. Una es completar la impresión y salida de informes mediante su propio diseño y programación. El segundo es imprimir el informe a través de MS OFFICE. La tercera opción es utilizar el Diseñador de informes de datos para imprimir el informe. A menudo utilizo el primer método, que tiene las características de una aplicación flexible bajo demanda, pero requiere escribir un programa. Adjunto está el siguiente código. El primer código define variables básicas, el segundo código define la función de impresión y el tercer código es el código de impresión específico, incluida la conversión de datos. El cuarto código es el código de carga del formulario. La conexión de la base de datos específica y el código de impresión deben modificarse de acuerdo con los requisitos de datos en los que esté involucrado. El código de vista previa está disponible en la siguiente URL:

/question/4165080.html

Código de impresión del informe:

Opción explícita

Privado n es un número entero

Privado m es un número entero

Privado zh_dm(10) como doble

Privado dy_dm(3000, 10) como variable

Zsl privado como número entero

Y privado como número entero

X privado como número entero

I privado como número entero

Como entero Privado k

Privado p como entero

Privado pa como entero

Privado j como entero

Privado como cadena txt

Fnt privado como número entero

DD privado como variante

Función pública prnt(x es una variable, y es una variable, fnt es una variable, txt0 es variable)

Impresora. CurrentX = x

Impresora. valor actual = y

impresora. FontSize = fnt

Impresora. Imprimir txt0

Finalizar función

Sub cmdPrint_Click()

Adodc1. Recordset.MoveFirst

Para i = 0 a zsl - 1

Para j = 0 a 7

dy_dm(i, j) = Adodc1. Recordset(j)

Siguiente j

Adodc1. Recordset.MoveNext

A continuación,

determino el número de páginas

K = Int(zsl/80)'80 es el número de líneas por página.

Si k-zsl/80 & lt; entonces 0

k = k + 1

Terminará si...

fnt = 8

Para p = 0 a k - 1

pa = p + 1

y = 300

x = 4500

Txt = "Inventario de materiales de la máquina"

dd = prnt(x, y, fnt, txt)

x = 8500

Txt = "primero" & p+1 & "página"

dd = prnt(x, y, fnt, txt)

y = 500

x = 600

Txt = "Código de accesorio"

dd = prnt(x, y, fnt, txt)

x = 1500

Txt = "Nombre del repuesto"

dd = prnt(x, y, fnt, txt)

x = 3500

Txt = "Especificaciones de accesorios "

dd = prnt(x, y, fnt, txt)

x = 5500

Txt = "Importar número de computadora"

dd = prnt(x, y, fnt, txt)

x = 7500

Txt = "Reserva Mínima"

dd = prnt(x, y , fnt, txt)

x = 9000

Txt = "Inventario"

dd = prnt(x, y, fnt, txt)

Para i = 0 + p * 80 a 79 + p * 80

y = 700 + 180 * (i - p * 80)

x = 600

txt = dy_dm(i, 1)

dd = prnt(x, y, fnt, txt)

x = 1500

txt = dy_dm(i, 2)

dd = prnt(x, y, fnt, txt)

x = 3500

txt = dy_dm(i, 3 )

dd = prnt(x, y, fnt, txt)

x = 5500

txt = dy_dm(i, 4)

dd = imprimir(x, y, fnt, txt)

x = 7500

txt = dy_dm(i, 5)

dd = imprimir( x , y, fnt, txt)

x = 9000

txt = dy_dm(i, 6)

dd = prnt(x, y, fnt, txt )

Si Int(i / 10) - i / 10 = 0, entonces

Impresora. Filas (500, 695 + (Panel * 80) * 180) - (10000, 695 + (Panel * 80) * 180)

Terminará si...

Continuar hacia abajo i

si zsl -p * 80>entonces 80

impresora. Línea(500, 695 + 180 * 80)-(10000, 695 + 180 * 80)

Impresora. Nueva página

Terminará si...

Siguiente p

Impresora. Se completa la impresión de "EndDoc".

Cls

Conector final

Subform_Load() privado

Adodc1.

ConnectionString = " Proveedor = msdas QL . 1; Información de seguridad persistente = Falso Fuente de datos = jwl_dbf "

adodc 1 fuente de registro = " seleccione cs . js_DM, cs. Código de pieza de repuesto. Nombre de pieza de repuesto, cs. Especificaciones de repuestos. Inventario mínimo. Precio unitario del saldo. _

Dónde está el precio unitario del saldo. código de accesorio = sl. Código de repuesto "&" y cs. Código de repuesto > "&""""&" pedido por sl. Código de categoría, sl. Código de pieza de repuesto"

Adodc1.Refresh

Restauración de DataGrid1

zsl = Adodc1.RecordSet

Adodc3.ConnectionString = " Proveedor = msdas QL 1; Persistir información de seguridad = False DataSource = jwl_dbf "

Adodc3.RecordSource = "seleccione suma(saldo) como hj de jwl_jiec "

Adodc3.Refresh

Conector final

Lo anterior es como referencia. Para obtener más información, consulte "Habilidades de programación avanzadas de VISUAL BASIC 6.0: acceso a datos ADO" publicado por Xi Jiaotong University Press.

上篇: Ensayo: Humo de la casa vieja 下篇: Boicotear los productos japoneses

Artículos populares