unit MAIN; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Menus, Vcl.ExtCtrls, Vcl.Grids, Vcl.DBGrids, Data.DB, ZAbstractRODataset, ZAbstractDataset, ZDataset, Vcl.Tabs, Vcl.ComCtrls, Vcl.Mask, Vcl.DBCtrls, ZAbstractConnection, ZConnection, ZAbstractTable, Vcl.ExtDlgs, Vcl.Imaging.jpeg, Vcl.Buttons, VCLTee.TeEngine, VCLTee.Series, VCLTee.TeeData, VCLTee.TeeProcs, VCLTee.Chart, VCLTee.DBChart,ShellApi, Vcl.OleCtrls,IdHTTP,mshtml, SHDocVw, Vcl.DBLookup, Vcl.ToolWin, Vcl.ImgList, Data.Win.ADODB, Vcl.StdActns, System.Actions, Vcl.ActnList, Vcl.CheckLst, Vcl.OleCtnrs,strutils; type TMainForm = class(TForm) MainMenu1: TMainMenu; File1: TMenuItem; FileNewItem: TMenuItem; FileOpenItem: TMenuItem; FileCloseItem: TMenuItem; Window1: TMenuItem; Help1: TMenuItem; N1: TMenuItem; FileExitItem: TMenuItem; WindowCascadeItem: TMenuItem; WindowTileItem: TMenuItem; WindowArrangeItem: TMenuItem; HelpAboutItem: TMenuItem; OpenDialog: TOpenDialog; FileSaveItem: TMenuItem; FileSaveAsItem: TMenuItem; Edit1: TMenuItem; CutItem: TMenuItem; CopyItem: TMenuItem; PasteItem: TMenuItem; WindowMinimizeItem: TMenuItem; ActionList1: TActionList; EditCut1: TEditCut; EditCopy1: TEditCopy; EditPaste1: TEditPaste; FileNew1: TAction; FileSave1: TAction; FileExit1: TAction; FileOpen1: TAction; FileSaveAs1: TAction; WindowCascade1: TWindowCascade; WindowTileHorizontal1: TWindowTileHorizontal; WindowArrangeAll1: TWindowArrange; WindowMinimizeAll1: TWindowMinimizeAll; HelpAbout1: TAction; FileClose1: TWindowClose; WindowTileVertical1: TWindowTileVertical; WindowTileItem2: TMenuItem; ImageList1: TImageList; dbjolly: TZConnection; JOLLYACCESS: TADOConnection; O_CLIENTES: TADOQuery; O_CLIENTESIdCLIENTE: TAutoIncField; O_CLIENTESDNINIECIF: TWideStringField; O_CLIENTESNOMBRECLIENTE: TWideStringField; O_CLIENTESAPELLIDOSCLIENTE: TWideStringField; O_CLIENTESDIRECCIÓN: TWideStringField; O_CLIENTESPOBLACIÓN: TWideStringField; O_CLIENTESCÓDIGOPOSTAL: TWideStringField; O_CLIENTESPROVINCIA: TWideStringField; O_CLIENTESTELÉFONO: TWideStringField; O_CLIENTESEMAIL: TWideStringField; O_CLIENTESMODOPAGO: TWideStringField; O_CLIENTESENTIDADBANCARIA: TWideStringField; O_CLIENTESIBAN: TWideStringField; O_CLIENTESNºCUENTA: TWideStringField; O_CLIENTESSWIFT: TWideStringField; O_CLIENTESCLIENTEACTUAL: TBooleanField; O_CLIENTESETIQUETA: TBooleanField; clientes: TZQuery; clientesid: TIntegerField; clienteside: TIntegerField; clientesnif: TWideStringField; clientesnombre: TWideStringField; clientesapellidos: TWideStringField; clientesnombre_completo: TWideStringField; clientesdireccion: TWideStringField; clientespoblacion: TWideStringField; clientescodpost: TWideStringField; clientesprovincia: TWideStringField; clientestelefono1: TWideStringField; clientestelefono2: TWideStringField; clientesemail: TWideStringField; clientesformapago: TWideStringField; clientesentidad: TWideStringField; clientesiban: TWideStringField; clientescuenta: TWideStringField; clientesswift: TWideStringField; clientesactivo: TIntegerField; clientesdescuento: TIntegerField; empresa: TZQuery; empresaid: TIntegerField; empresanombre: TWideStringField; empresatipo_iva: TFloatField; Button1: TButton; qaux: TZReadOnlyQuery; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButton; Button8: TButton; Button9: TButton; alumnos: TZQuery; grupos: TZQuery; dsempresa: TDataSource; dsclientes: TDataSource; dsalumnos: TDataSource; o_alumnos: TADOQuery; o_alumnosIDALUMNO: TAutoIncField; o_alumnosNOMBREALUMNO: TWideStringField; o_alumnosAPELLIDOSALUMNO: TWideStringField; o_alumnosFOTO: TWideMemoField; o_alumnosFECHANACIMIENTO: TDateTimeField; o_alumnosOBSERVACIONESMÉDICAS: TWideStringField; o_alumnosOBSERVACIONESVARIAS: TWideStringField; o_alumnosDIRECCIÓN: TWideStringField; o_alumnosPOBLACIÓN: TWideStringField; o_alumnosCÓDIGOPOSTAL: TWideStringField; o_alumnosPROVINCIA: TWideStringField; o_alumnosCENTROESCOLAR: TWideStringField; o_alumnosFECHAALTA: TDateTimeField; o_alumnosPRUEBANIVEL: TWideStringField; o_alumnosTELÉFONO1: TWideStringField; o_alumnosOBSERVACIONESTELÉFONO1: TWideStringField; o_alumnosTELÉFONO2: TWideStringField; o_alumnosOBSERVACIONESTELÉFONO2: TWideStringField; o_alumnosNOMBREPADREMADRE: TWideStringField; o_alumnosPERSONAQUELORECOGE: TWideStringField; o_alumnosIDCLIENTE: TIntegerField; o_alumnosALUMNOACTIVO: TBooleanField; o_alumnosDCTO: TFMTBCDField; o_alumnosETIQUETA: TBooleanField; o_grupos: TADOQuery; gruposid: TIntegerField; gruposide: TIntegerField; gruposidcurso: TIntegerField; gruposidaula: TIntegerField; gruposcurso: TWideStringField; gruposnombre: TWideStringField; gruposfechainicio: TDateField; gruposfechafin: TDateField; grupospreciototal: TFloatField; grupospreciomensual: TFloatField; gruposnum_dias: TIntegerField; gruposdias: TWideStringField; gruposhorainicio: TTimeField; gruposhorafin: TTimeField; gruposhorassemanales: TIntegerField; gruposmasdias: TWideStringField; gruposhorainicio2: TTimeField; gruposhorafin2: TTimeField; gruposplazas: TIntegerField; gruposactivo: TIntegerField; gruposfechabaja: TDateField; gruposmotivobaja: TWideStringField; dsgrupos: TDataSource; cursos: TZQuery; o_cursos: TADOQuery; dscursos: TDataSource; o_cursosIDCURSO: TAutoIncField; o_cursosNOMBRECURSO: TWideStringField; o_cursosFECHAINICIOCURSO: TDateTimeField; o_cursosFECHAFINCURSO: TDateTimeField; o_cursosPRECIOMATERIAL: TBCDField; o_cursosCURSOACTIVO: TBooleanField; cursosid: TIntegerField; cursoside: TIntegerField; cursosnombre: TWideStringField; cursosfechainicio: TDateField; cursosfechafin: TDateField; cursosprecio_material: TFloatField; cursosactivo: TIntegerField; aulas: TZQuery; o_aulas: TADOQuery; dsaulas: TDataSource; o_aulasIDAULA: TAutoIncField; o_aulasNOMBREAULA: TWideStringField; o_aulasMETROSCUADRADOS: TBCDField; alumnosid: TIntegerField; alumnoside: TIntegerField; alumnosidc: TIntegerField; alumnosnombre: TWideStringField; alumnosapellidos: TWideStringField; alumnosnombre_completo: TWideStringField; alumnosfecha_nacimiento: TDateField; alumnosob_medicas: TWideStringField; alumnosob_varias: TWideStringField; alumnosdireccion: TWideStringField; alumnospoblacion: TWideStringField; alumnoscod_post: TWideStringField; alumnosprovincia: TWideStringField; alumnoscentroescolar: TWideStringField; alumnosfecha_alta: TDateField; alumnosprueba_nivel: TWideStringField; alumnostelefono1: TWideStringField; alumnosob_telefono1: TWideStringField; alumnostelefono2: TWideStringField; alumnosob_telefono2: TWideStringField; alumnosnombre_padre_madre: TWideStringField; alumnospersona_autorizada: TWideStringField; alumnosdescuento: TFloatField; alumnosactivo: TIntegerField; alumnosetiqueta: TIntegerField; asistir: TZQuery; o_asistir: TADOQuery; dsasistir: TDataSource; o_asistirNºASISTENCIA: TAutoIncField; o_asistirIDALUMNO: TIntegerField; o_asistirIDGRUPO: TIntegerField; o_asistirFECHAINICIOALUMNO: TDateTimeField; o_asistirFECHAFINALUMNO: TDateTimeField; o_asistirFECHABAJAALUMNO: TDateTimeField; o_asistirMOTIVOBAJA: TWideStringField; o_asistirDEVUELVELIBROMATERIAL: TBooleanField; o_asistirIMPORTEABONO: TBCDField; o_asistirFECHAABONO: TDateTimeField; asistirid: TIntegerField; asistiride: TIntegerField; asistirida: TIntegerField; asistiridg: TIntegerField; asistirfechainicio: TDateField; asistirfechafin: TDateField; asistirfechabaja: TDateField; asistirmotivo_baja: TWideStringField; asistirdevoluciones: TSmallintField; asistirimporte_abono: TFloatField; asistirfecha_abono: TDateField; empleados: TZQuery; o_empleados: TADOQuery; dsempleados: TDataSource; empleadosid: TIntegerField; empleadoside: TIntegerField; empleadosnif: TWideStringField; empleadosnombre: TWideStringField; empleadosapellidos: TWideStringField; empleadosnombre_completo: TWideStringField; empleadosdireccion: TWideStringField; empleadoscp: TWideStringField; empleadosprovincia: TWideStringField; empleadostelefono1: TWideStringField; empleadostelefono2: TWideStringField; empleadosemail: TWideStringField; empleadosentidad: TWideStringField; empleadoscc: TWideStringField; empleadossalario: TFloatField; o_empleadosIDPROFESOR: TAutoIncField; o_empleadosNIFNIE: TWideStringField; o_empleadosNOMBRE: TWideStringField; o_empleadosAPELLIDOS: TWideStringField; o_empleadosDIRECCIÓN: TWideStringField; o_empleadosPOBLACIÓN: TWideStringField; o_empleadosCÓDIGOPOSTAL: TWideStringField; o_empleadosPROVINCIA: TWideStringField; o_empleadosTELÉFONOFIJO: TWideStringField; o_empleadosTELÉFONOMÓVIL: TWideStringField; o_empleadosEMAIL: TWideStringField; o_empleadosENTIDADBANCARIA: TWideStringField; o_empleadosNºCUENTA: TWideStringField; o_empleadosSALARIOFIJOACTUAL: TBCDField; o_empleadosFOTO: TWideMemoField; impartir: TZQuery; o_impartir: TADOQuery; dsimpartir: TDataSource; o_impartirIDPROFESOR: TIntegerField; o_impartirIDGRUPO: TIntegerField; o_impartirFECHAINICIOPROFGRUPO: TDateTimeField; o_impartirFECHAFINPROFGRUPO: TDateTimeField; impartiride: TIntegerField; impartiridp: TIntegerField; impartiridg: TIntegerField; impartirfechainicio: TDateField; impartirfechafin: TDateField; lista: TZQuery; o_lista: TADOQuery; dslista: TDataSource; o_listaNºORDEN: TAutoIncField; o_listaFECHAINSCRIPCIÓNLISTA: TDateTimeField; o_listaNOMBRE: TWideStringField; o_listaAPELLIDOS: TWideStringField; o_listaFECHADENACIMIENTO: TDateTimeField; o_listaTELÉFONO: TWideStringField; o_listaNIVEL: TWideStringField; o_listaGRUPO: TWideStringField; o_listaOBSERVACIONES: TWideStringField; listaid: TIntegerField; listaide: TIntegerField; listafecha: TDateField; listanombre: TWideStringField; listaapellidos: TWideStringField; listanombre_completo: TWideStringField; listafecha_nac: TDateField; listatelefono: TWideStringField; listanivel: TWideStringField; listagrupo: TWideStringField; listaobservaciones: TWideStringField; facturas: TZQuery; o_facturas: TADOQuery; dsfacturas: TDataSource; o_facturasNºFACTURA: TWideStringField; o_facturasFECHAFACTURA: TDateTimeField; o_facturasCLIENTE: TIntegerField; o_facturasCONCEPTO1: TWideStringField; o_facturasCONCEPTO2: TWideStringField; o_facturasCONCEPTO3: TWideStringField; o_facturasCONCEPTO4: TWideStringField; o_facturasCONCEPTO5: TWideStringField; o_facturasCONCEPTO6: TWideStringField; o_facturasCONCEPTO7: TWideStringField; o_facturasCONCEPTO8: TWideStringField; o_facturasCONCEPTO9: TWideStringField; o_facturasCONCEPTO10: TWideStringField; o_facturasSUBTOTAL1: TBCDField; o_facturasSUBTOTAL2: TBCDField; o_facturasSUBTOTAL3: TBCDField; o_facturasSUBTOTAL4: TBCDField; o_facturasSUBTOTAL5: TBCDField; o_facturasSUBTOTAL6: TBCDField; o_facturasSUBTOTAL7: TBCDField; o_facturasSUBTOTAL8: TBCDField; o_facturasSUBTOTAL9: TBCDField; o_facturasSUBTOTAL10: TBCDField; linfacturas: TZQuery; facturasid: TIntegerField; facturaside: TIntegerField; facturasidc: TIntegerField; facturasfecha: TDateField; facturasbase: TFloatField; facturastipo_iva: TFloatField; facturasimporte_iva: TFloatField; facturastotal: TFloatField; dslinfacturas: TDataSource; Button10: TButton; Button11: TButton; Button12: TButton; Button13: TButton; Button14: TButton; Button15: TButton; linfacturaside: TIntegerField; linfacturasidf: TIntegerField; linfacturaslinea: TIntegerField; linfacturasconcepto: TWideStringField; linfacturascantidad: TFloatField; linfacturasimporte: TFloatField; notas: TZQuery; o_notas: TADOQuery; dsnotas: TDataSource; notasid: TIntegerField; notaside: TIntegerField; notasida: TIntegerField; notasidg: TIntegerField; notasfechaeval1: TDateField; notaslistening1: TFloatField; notasspeaking1: TFloatField; notasreading1: TFloatField; notaswriting1: TFloatField; notasvocabulary1: TFloatField; notasdesarrollo1: TFloatField; notasfechaeval2: TDateField; notaslistenig2: TFloatField; notasspeaking2: TFloatField; notasreading2: TFloatField; notaswriting2: TFloatField; notasvocabulary2: TFloatField; notasdesarrollo2: TFloatField; notasobservaciones: TWideStringField; notaspromocionar_a: TWideStringField; o_notasIDNOTAS: TAutoIncField; o_notasALUMNO: TIntegerField; o_notasGRUPO: TIntegerField; o_notasFECHAEVALUACIÓN1: TDateTimeField; o_notasLISTENING1: TFloatField; o_notasSPEAKING1: TFloatField; o_notasREADING1: TFloatField; o_notasWRITING1: TFloatField; o_notasVOCABULARY1: TFloatField; o_notasDESARROLLOSOCIAL1: TFloatField; o_notasFECHAEVALUACIÓN2: TDateTimeField; o_notasLISTENING2: TFloatField; o_notasSPEAKING2: TFloatField; o_notasREADING2: TFloatField; o_notasWRITING2: TFloatField; o_notasVOCABULARY2: TFloatField; o_notasDESARROLLOSOCIAL2: TFloatField; o_notasOBSERVACIONES: TWideStringField; o_notasPROMOCIONAA: TWideStringField; cobros: TZQuery; o_cobros: TADOQuery; dscobros: TDataSource; g_datos: TDBGrid; o_cobrosNºPAGO: TAutoIncField; o_cobrosFECHAMESAPAGAR: TDateTimeField; o_cobrosFECHAPAGO: TDateTimeField; o_cobrosCONCEPTOPAGO: TWideStringField; o_cobrosGRUPOPORELQUEPAGA: TIntegerField; o_cobrosIMPORTEPAGO: TBCDField; o_cobrosIDALUMNO: TIntegerField; o_cobrosPAGADO: TBooleanField; o_cobrosDOMICILIADO: TBooleanField; o_cobrosMATERIAL: TBooleanField; o_cobrosIMPRIMIRTICKET: TBooleanField; o_cobrosDINEROENTREGADO: TBCDField; o_cobrosIDCLIENTE: TIntegerField; cobrosid: TIntegerField; cobroside: TIntegerField; cobrosidc: TIntegerField; cobrosida: TIntegerField; cobrosidg: TIntegerField; cobrosfecharecibo: TDateField; cobrosfechacobro: TDateField; cobrosconcepto: TWideStringField; cobrosimporte: TFloatField; cobrosentrega: TFloatField; cobrospagado: TIntegerField; cobrosdomiciliado: TIntegerField; cobrosmaterial: TIntegerField; pagos: TZQuery; o_pagos: TADOQuery; dspagos: TDataSource; o_pagosNºPAGO: TAutoIncField; o_pagosFECHAPAGO: TDateTimeField; o_pagosOBSERVACIONES: TWideStringField; o_pagosENNÓMINA: TBCDField; o_pagosINGRESOBANCO: TBCDField; o_pagosPAGOEFECTIVO: TBCDField; o_pagosPAGADO: TBooleanField; o_pagosIDPROFESOR: TIntegerField; pagosid: TIntegerField; pagoside: TIntegerField; pagosidemp: TIntegerField; pagosfecha: TDateField; pagosnomina: TFloatField; pagosbanco: TFloatField; pagosefectivo: TFloatField; pagosobservaciones: TWideStringField; pagospagado: TSmallintField; libros: TZQuery; o_librosl: TADOQuery; dslibros: TDataSource; alquilar: TZQuery; o_librost: TADOQuery; dsalquilar: TDataSource; o_libroslCÓDIGO_LIBRO: TWideStringField; o_libroslFECHAALTALIBRO: TDateTimeField; o_libroslFECHABAJALIBRO: TDateTimeField; o_libroslPORTADALIBRO: TWideMemoField; o_libroslTÍTULO: TWideStringField; o_libroslEDITORIAL: TWideStringField; o_libroslAUTOR: TWideStringField; o_libroslNIVEL: TWideStringField; o_libroslCDAUDIO: TBooleanField; o_libroslNºCDs: TWordField; o_libroslPRESTADO: TBooleanField; o_libroslMP3: TBooleanField; o_libroslARCHIVOMP3: TWideMemoField; o_libroslTIPOLIBRO: TWideStringField; o_librostCÓDIGO_LIBRO: TWideStringField; o_librostFECHAALTALIBRO: TDateTimeField; o_librostFECHABAJALIBRO: TDateTimeField; o_librostPORTADALIBRO: TWideMemoField; o_librostTÍTULO: TWideStringField; o_librostEDITORIAL: TWideStringField; o_librostAUTOR: TWideStringField; o_librostNIVEL: TWideStringField; o_librostCDAUDIO: TBooleanField; o_librostNºCDs: TWordField; o_librostPRESTADO: TBooleanField; o_librostMP3: TBooleanField; o_librostARCHIVOMP3: TWideMemoField; o_librostTIPOLIBRO: TWideStringField; o_librostGRAMÁTICAOTROS: TBooleanField; o_alquilarl: TADOQuery; o_alquilart: TADOQuery; o_alquilartALUMNO: TIntegerField; o_alquilartLIBRO: TWideStringField; o_alquilartFECHAPRÉSTAMO: TDateTimeField; o_alquilartDEVUELTO: TBooleanField; o_alquilartFECHADEVOLUCIÓNALUMNO: TDateTimeField; o_alquilartFECHATOPEDEDEVOLUCIÓN: TDateTimeField; o_alquilartIMPORTEDEVUELTO: TBCDField; o_alquilartSELOQUEDA: TBooleanField; o_alquilarlALUMNO: TIntegerField; o_alquilarlLIBRO: TWideStringField; o_alquilarlFECHAPRÉSTAMO: TDateTimeField; o_alquilarlDEVUELTO: TBooleanField; o_alquilarlFECHADEVOLUCIÓNALUMNO: TDateTimeField; o_alquilarlSELOQUEDAELALUMNO: TBooleanField; o_alquilarlIMPORTEDEVUELTO: TBCDField; librosid: TWideStringField; libroside: TIntegerField; librostipo: TWideStringField; librosfecha_alta: TDateField; librosfecha_baja: TDateField; librostitulo: TWideStringField; libroseditorial: TWideStringField; librosautor: TWideStringField; librosnivel: TWideStringField; libroscds: TSmallintField; librosnum_cds: TIntegerField; librosprestado: TSmallintField; librosmp3: TSmallintField; librosarchivomp3: TWideStringField; librostipo_libro: TWideStringField; librosgramatica_otros: TSmallintField; alquilarid: TIntegerField; alquilaride: TIntegerField; alquilaridl: TWideStringField; alquilarida: TIntegerField; alquilarfecha: TDateField; alquilarfecha_limite: TDateField; alquilarfecha_devolucion: TDateField; alquilarimporte_devuelto: TFloatField; alquilarseloqueda: TSmallintField; alquilardevuelto: TSmallintField; dsoalumnos: TDataSource; o_alumnofoto: TADOQuery; DataSource1: TDataSource; imgfoto: TImage; DataSource2: TDataSource; DBMemo1: TDBMemo; o_gruposIDGRUPO: TAutoIncField; o_gruposCURSOESCOLAR: TWideStringField; o_gruposNOMBREGRUPO: TWideStringField; o_gruposFECHAINICIOGRUPO: TDateTimeField; o_gruposFECHAFINGRUPO: TDateTimeField; o_gruposPRECIOTOTALGRUPO: TBCDField; o_gruposPRECIOMENSUALGRUPO: TBCDField; o_gruposNºDÍASPORSEMANA: TWordField; o_gruposDÍAS: TWideMemoField; o_gruposHORACOMIENZO1: TDateTimeField; o_gruposHORAFIN1: TDateTimeField; o_gruposHORASSEMANALES: TFloatField; o_gruposMÁSDÍAS: TWideMemoField; o_gruposHORACOMIENZO2: TDateTimeField; o_gruposHORAFIN2: TDateTimeField; o_gruposIDCURSO: TIntegerField; o_gruposIDAULA: TIntegerField; o_gruposPLAZASMÁXIMAS: TWordField; o_gruposGRUPOACTIVO: TBooleanField; o_gruposFECHABAJA: TDateTimeField; o_gruposMOTIVOBAJA: TWideStringField; ADOQuery1: TADOQuery; ADOQuery1idalumno: TAutoIncField; DataSource3: TDataSource; ADOQuery1foto: TBlobField; ADOQuery1tipofoto: TWideStringField; Panel1: TPanel; Button16: TButton; Button17: TButton; Button18: TButton; img: TZTable; imgid: TIntegerField; imgide: TIntegerField; imgidalumno: TIntegerField; imgidempleado: TIntegerField; imgidlibro: TWideStringField; imgimagen: TBlobField; imgtipo: TWideStringField; imgarchivo: TWideStringField; ADOTable1: TADOTable; o_alumnofotoID: TAutoIncField; o_alumnofotoNOMBRE: TWideStringField; o_alumnofotofotonombre: TWideStringField; o_alumnofotofototipo: TWideStringField; o_alumnofotofoto: TBlobField; ADOTable1IDALUMNO: TAutoIncField; ADOTable1NOMBREALUMNO: TWideStringField; ADOTable1APELLIDOSALUMNO: TWideStringField; ADOTable1FOTO: TWideMemoField; ADOTable1FECHANACIMIENTO: TDateTimeField; ADOTable1OBSERVACIONESMÉDICAS: TWideStringField; ADOTable1OBSERVACIONESVARIAS: TWideStringField; ADOTable1DIRECCIÓN: TWideStringField; ADOTable1POBLACIÓN: TWideStringField; ADOTable1CÓDIGOPOSTAL: TWideStringField; ADOTable1PROVINCIA: TWideStringField; ADOTable1CENTROESCOLAR: TWideStringField; ADOTable1FECHAALTA: TDateTimeField; ADOTable1PRUEBANIVEL: TWideStringField; ADOTable1TELÉFONO1: TWideStringField; ADOTable1OBSERVACIONESTELÉFONO1: TWideStringField; ADOTable1TELÉFONO2: TWideStringField; ADOTable1OBSERVACIONESTELÉFONO2: TWideStringField; ADOTable1NOMBREPADREMADRE: TWideStringField; ADOTable1PERSONAQUELORECOGE: TWideStringField; ADOTable1IDCLIENTE: TIntegerField; ADOTable1ALUMNOACTIVO: TBooleanField; ADOTable1DCTO: TFMTBCDField; ADOTable1ETIQUETA: TBooleanField; empleadospoblacion: TWideStringField; empleadosprecio_km: TFloatField; empleadosprecio_hx: TFloatField; empleadosusuario: TWideStringField; empleadospassword: TWideStringField; empleadosactivo: TIntegerField; empleadostipo_acceso: TIntegerField; procedure FileNew1Execute(Sender: TObject); procedure FileOpen1Execute(Sender: TObject); procedure HelpAbout1Execute(Sender: TObject); procedure FileExit1Execute(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button7Click(Sender: TObject); procedure Button8Click(Sender: TObject); procedure Button9Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button10Click(Sender: TObject); procedure Button11Click(Sender: TObject); procedure Button12Click(Sender: TObject); procedure Button13Click(Sender: TObject); procedure Button14Click(Sender: TObject); procedure Button15Click(Sender: TObject); procedure Button16Click(Sender: TObject); procedure Button17Click(Sender: TObject); procedure Button18Click(Sender: TObject); private { Private declarations } hWndC : THandle; procedure CreateMDIChild(const Name: string); procedure SetResolution(Width, Height: integer); public { Public declarations } end; var MainForm: TMainForm; const WM_CAP_START = WM_USER; WM_CONNECT = WM_USER + 10; WM_DISCONNECT = WM_USER + 11; WM_SAVEDIB = WM_USER + 25; WM_GET_VIDEOFORMAT = WM_USER + 44; WM_SET_VIDEOFORMAT = WM_USER + 45; WM_SET_PREVIEW = WM_USER + 50; WM_SET_OVERLAY = WM_USER + 51; WM_SET_PREVIEWRATE = WM_USER + 52; WM_SET_SCALE = WM_USER + 53; function capCreateCaptureWindowA(lpszWindowName: PCHAR; dwStyle, x, y, nWidth, nHeight: integer; ParentWin: HWND; nId: integer): HWND; stdcall external 'AVICAP32.DLL'; implementation {$R *.dfm} uses CHILDWIN, About; procedure TMainForm.Button10Click(Sender: TObject); var dia,mes,anyo:word; tanyo:integer; begin g_datos.DataSource:=dsfacturas; qaux.sql.clear; qaux.sql.add('delete from facturas_lineas'); qaux.execsql; qaux.sql.clear; qaux.sql.add('delete from facturas'); qaux.execsql; facturas.open; o_facturas.open; o_facturas.First; while not o_facturas.Eof do begin decodedate(o_facturas.Fields[1].Asdatetime,anyo,mes,dia); tanyo:=((anyo-2000)*1000000)+o_facturas.Fields[0].AsInteger; facturas.Append; facturas.Fields[0].Value:=tanyo;//o_facturas.Fields[0].AsInteger; facturas.Fields[1].Value:=1; if o_facturas.Fields[2].Asstring='' then facturas.Fields[2].Value:=0 else facturas.Fields[2].Value:=o_facturas.Fields[2].AsInteger; facturas.Fields[3].Value:=o_facturas.Fields[1].Asdatetime; facturas.Fields[4].Value:=0; facturas.Fields[5].Value:=0; facturas.Fields[6].Value:=0; facturas.Fields[7].Value:=0; facturas.Post; if o_facturas.Fields[3].Asstring<>'*' then begin linfacturas.Open; linfacturas.Append; linfacturas.Fields[0].Value:=facturas.Fields[1].AsInteger; linfacturas.Fields[1].Value:=facturas.Fields[0].AsInteger; linfacturas.Fields[2].Value:=1; linfacturas.Fields[3].Value:=o_facturas.Fields[3].Asstring; linfacturas.Fields[4].Value:=1; linfacturas.Fields[5].Value:=o_facturas.Fields[13].Asfloat; linfacturas.Post; end; if o_facturas.Fields[4].Asstring<>'*' then begin linfacturas.Open; linfacturas.Append; linfacturas.Fields[0].Value:=facturas.Fields[1].AsInteger; linfacturas.Fields[1].Value:=facturas.Fields[0].AsInteger; linfacturas.Fields[2].Value:=2; linfacturas.Fields[3].Value:=o_facturas.Fields[4].Asstring; linfacturas.Fields[4].Value:=1; linfacturas.Fields[5].Value:=o_facturas.Fields[14].Asfloat; linfacturas.Post; end; if o_facturas.Fields[5].Asstring<>'*' then begin linfacturas.Open; linfacturas.Append; linfacturas.Fields[0].Value:=facturas.Fields[1].AsInteger; linfacturas.Fields[1].Value:=facturas.Fields[0].AsInteger; linfacturas.Fields[2].Value:=3; linfacturas.Fields[3].Value:=o_facturas.Fields[5].Asstring; linfacturas.Fields[4].Value:=1; linfacturas.Fields[5].Value:=o_facturas.Fields[15].Asfloat; linfacturas.Post; end; if o_facturas.Fields[6].Asstring<>'*' then begin linfacturas.Open; linfacturas.Append; linfacturas.Fields[0].Value:=facturas.Fields[1].AsInteger; linfacturas.Fields[1].Value:=facturas.Fields[0].AsInteger; linfacturas.Fields[2].Value:=4; linfacturas.Fields[3].Value:=o_facturas.Fields[6].Asstring; linfacturas.Fields[4].Value:=1; linfacturas.Fields[5].Value:=o_facturas.Fields[16].Asfloat; linfacturas.Post; end; if o_facturas.Fields[7].Asstring<>'*' then begin linfacturas.Open; linfacturas.Append; linfacturas.Fields[0].Value:=facturas.Fields[1].AsInteger; linfacturas.Fields[1].Value:=facturas.Fields[0].AsInteger; linfacturas.Fields[2].Value:=5; linfacturas.Fields[3].Value:=o_facturas.Fields[7].Asstring; linfacturas.Fields[4].Value:=1; linfacturas.Fields[5].Value:=o_facturas.Fields[17].Asfloat; linfacturas.Post; end; if o_facturas.Fields[8].Asstring<>'*' then begin linfacturas.Open; linfacturas.Append; linfacturas.Fields[0].Value:=facturas.Fields[1].AsInteger; linfacturas.Fields[1].Value:=facturas.Fields[0].AsInteger; linfacturas.Fields[2].Value:=6; linfacturas.Fields[3].Value:=o_facturas.Fields[8].Asstring; linfacturas.Fields[4].Value:=1; linfacturas.Fields[5].Value:=o_facturas.Fields[18].Asfloat; linfacturas.Post; end; if o_facturas.Fields[9].Asstring<>'*' then begin linfacturas.Open; linfacturas.Append; linfacturas.Fields[0].Value:=facturas.Fields[1].AsInteger; linfacturas.Fields[1].Value:=facturas.Fields[0].AsInteger; linfacturas.Fields[2].Value:=7; linfacturas.Fields[3].Value:=o_facturas.Fields[9].Asstring; linfacturas.Fields[4].Value:=1; linfacturas.Fields[5].Value:=o_facturas.Fields[19].Asfloat; linfacturas.Post; end; if o_facturas.Fields[10].Asstring<>'*' then begin linfacturas.Open; linfacturas.Append; linfacturas.Fields[0].Value:=facturas.Fields[1].AsInteger; linfacturas.Fields[1].Value:=facturas.Fields[0].AsInteger; linfacturas.Fields[2].Value:=8; linfacturas.Fields[3].Value:=o_facturas.Fields[10].Asstring; linfacturas.Fields[4].Value:=1; linfacturas.Fields[5].Value:=o_facturas.Fields[20].Asfloat; linfacturas.Post; end; if o_facturas.Fields[11].Asstring<>'*' then begin linfacturas.Open; linfacturas.Append; linfacturas.Fields[0].Value:=facturas.Fields[1].AsInteger; linfacturas.Fields[1].Value:=facturas.Fields[0].AsInteger; linfacturas.Fields[2].Value:=9; linfacturas.Fields[3].Value:=o_facturas.Fields[11].Asstring; linfacturas.Fields[4].Value:=1; linfacturas.Fields[5].Value:=o_facturas.Fields[21].Asfloat; linfacturas.Post; end; if o_facturas.Fields[12].Asstring<>'*' then begin linfacturas.Open; linfacturas.Append; linfacturas.Fields[0].Value:=facturas.Fields[1].AsInteger; linfacturas.Fields[1].Value:=facturas.Fields[0].AsInteger; linfacturas.Fields[2].Value:=10; linfacturas.Fields[3].Value:=o_facturas.Fields[12].Asstring; linfacturas.Fields[4].Value:=1; linfacturas.Fields[5].Value:=o_facturas.Fields[22].Asfloat; linfacturas.Post; end; o_facturas.Next; end; end; procedure TMainForm.Button11Click(Sender: TObject); begin g_datos.DataSource:=dsnotas; qaux.sql.clear; qaux.sql.add('delete from notas'); qaux.execsql; notas.open; o_notas.open; o_notas.First; while not o_notas.Eof do begin notas.Append; notas.Fields[0].Value:=o_notas.Fields[0].AsInteger; notas.Fields[1].Value:=1; notas.Fields[2].Value:=o_notas.Fields[1].Asstring; notas.Fields[3].Value:=o_notas.Fields[2].Asstring; if o_notas.Fields[3].Asstring='' then notas.Fields[4].Value:=null else notas.Fields[4].Value:=o_notas.Fields[3].Asdatetime; if o_notas.Fields[4].Asstring='' then notas.Fields[5].Value:=null else notas.Fields[5].Value:=o_notas.Fields[4].Asfloat; if o_notas.Fields[5].Asstring='' then notas.Fields[6].Value:=null else notas.Fields[6].Value:=o_notas.Fields[5].Asfloat; if o_notas.Fields[6].Asstring='' then notas.Fields[7].Value:=null else notas.Fields[7].Value:=o_notas.Fields[6].Asfloat; if o_notas.Fields[7].Asstring='' then notas.Fields[8].Value:=null else notas.Fields[8].Value:=o_notas.Fields[7].Asfloat; if o_notas.Fields[8].Asstring='' then notas.Fields[9].Value:=null else notas.Fields[9].Value:=o_notas.Fields[8].Asfloat; if o_notas.Fields[9].Asstring='' then notas.Fields[10].Value:=null else notas.Fields[10].Value:=o_notas.Fields[9].Asfloat; if o_notas.Fields[10].Asstring='' then notas.Fields[11].Value:=null else notas.Fields[11].Value:=o_notas.Fields[10].Asdatetime; if o_notas.Fields[11].Asstring='' then notas.Fields[12].Value:=null else notas.Fields[12].Value:=o_notas.Fields[11].Asfloat; if o_notas.Fields[12].Asstring='' then notas.Fields[13].Value:=null else notas.Fields[13].Value:=o_notas.Fields[12].Asfloat; if o_notas.Fields[13].Asstring='' then notas.Fields[14].Value:=null else notas.Fields[14].Value:=o_notas.Fields[13].Asfloat; if o_notas.Fields[14].Asstring='' then notas.Fields[15].Value:=null else notas.Fields[15].Value:=o_notas.Fields[14].Asfloat; if o_notas.Fields[15].Asstring='' then notas.Fields[17].Value:=null else notas.Fields[16].Value:=o_notas.Fields[15].Asfloat; if o_notas.Fields[16].Asstring='' then notas.Fields[17].Value:=null else notas.Fields[17].Value:=o_notas.Fields[16].Asfloat; if o_notas.Fields[17].Asstring='' then notas.Fields[18].Value:=null else notas.Fields[18].Value:=o_notas.Fields[17].Asstring; if o_notas.Fields[18].Asstring='' then notas.Fields[19].Value:=null else notas.Fields[19].Value:=o_notas.Fields[18].Asstring; notas.Post; o_notas.Next; end; end; procedure TMainForm.Button12Click(Sender: TObject); var idgrupo:string; begin g_datos.DataSource:=dscobros; qaux.sql.clear; qaux.sql.add('delete from cobros'); qaux.execsql; cobros.open; o_cobros.open; o_cobros.First; while not o_cobros.Eof do begin cobros.Append; cobros.Fields[0].Value:=o_cobros.Fields[0].AsInteger; cobros.Fields[1].Value:=1; cobros.Fields[2].Value:=o_cobros.Fields[12].Asinteger; cobros.Fields[3].Value:=o_cobros.Fields[6].Asinteger; if o_cobros.Fields[4].Asstring='' then idgrupo:='0' else idgrupo:=o_cobros.Fields[4].Asstring; qaux.SQL.Clear; qaux.SQL.Add('select * from grupos where id='+idgrupo); qaux.open; if qaux.RecordCount=0 then cobros.Fields[4].Value:=0 else cobros.Fields[4].Value:=o_cobros.Fields[4].Asinteger; if o_cobros.Fields[1].Asstring='' then cobros.Fields[5].Value:=0 else cobros.Fields[5].Value:=o_cobros.Fields[1].Asdatetime; if o_cobros.Fields[2].Asstring='' then cobros.Fields[6].Value:=0 else cobros.Fields[6].Value:=o_cobros.Fields[2].Asdatetime; cobros.Fields[7].Value:=o_cobros.Fields[3].Asstring; cobros.Fields[8].Value:=o_cobros.Fields[5].Asfloat; cobros.Fields[9].Value:=o_cobros.Fields[11].Asfloat; cobros.Fields[10].Value:=o_cobros.Fields[7].Asstring; cobros.Fields[11].Value:=o_cobros.Fields[8].Asstring; cobros.Fields[12].Value:=o_cobros.Fields[9].Asstring; cobros.Post; o_cobros.Next; end; end; procedure TMainForm.Button13Click(Sender: TObject); begin g_datos.DataSource:=dspagos; qaux.sql.clear; qaux.sql.add('delete from pagos'); qaux.execsql; pagos.open; o_pagos.open; o_pagos.First; while not o_pagos.Eof do begin pagos.Append; pagos.Fields[0].Value:=o_pagos.Fields[0].AsInteger; pagos.Fields[1].Value:=1; pagos.Fields[2].Value:=o_pagos.Fields[7].Asstring; pagos.Fields[3].Value:=o_pagos.Fields[1].Asdatetime; pagos.Fields[4].Value:=o_pagos.Fields[3].Asfloat; pagos.Fields[5].Value:=o_pagos.Fields[4].Asfloat; pagos.Fields[6].Value:=o_pagos.Fields[5].Asfloat; pagos.Fields[7].Value:=o_pagos.Fields[2].Asstring; pagos.Fields[8].Value:=o_pagos.Fields[6].Asstring; pagos.Post; o_pagos.Next; end; end; procedure TMainForm.Button14Click(Sender: TObject); begin g_datos.DataSource:=dslibros; qaux.sql.clear; qaux.sql.add('delete from prestamo_libros'); qaux.execsql; qaux.sql.clear; qaux.sql.add('delete from libros'); qaux.execsql; libros.open; o_librost.open; o_librost.First; while not o_librost.Eof do begin libros.Append; libros.Fields[0].Value:=o_librost.Fields[0].Asstring; libros.Fields[1].Value:=1; libros.Fields[2].Value:='TEXTO'; if o_librost.Fields[1].Asstring='' then libros.Fields[3].Value:=null else libros.Fields[3].Value:=o_librost.Fields[1].Asdatetime; if o_librost.Fields[2].Asstring='' then libros.Fields[4].Value:=null else libros.Fields[4].Value:=o_librost.Fields[2].Asdatetime; libros.Fields[5].Value:=o_librost.Fields[4].Asstring; libros.Fields[6].Value:=o_librost.Fields[5].Asstring; libros.Fields[7].Value:=o_librost.Fields[6].Asstring; libros.Fields[8].Value:=o_librost.Fields[7].Asstring; libros.Fields[9].Value:=o_librost.Fields[8].Asstring; libros.Fields[10].Value:=o_librost.Fields[9].Asinteger; libros.Fields[11].Value:=o_librost.Fields[10].Asstring; libros.Fields[12].Value:=o_librost.Fields[11].Asstring; libros.Fields[13].Value:=o_librost.Fields[12].Asstring; libros.Fields[14].Value:=o_librost.Fields[13].Asstring; libros.Fields[15].Value:=o_librost.Fields[14].Asstring; libros.Post; o_librost.Next; end; o_librosl.open; o_librosl.First; while not o_librosl.Eof do begin libros.Append; libros.Fields[0].Value:=o_LIbrosl.Fields[0].Asstring; libros.Fields[1].Value:=1; libros.Fields[2].Value:='LECTURA'; libros.Fields[3].Value:=o_LIbrosl.Fields[1].Asdatetime; libros.Fields[4].Value:=o_LIbrosl.Fields[2].Asdatetime; libros.Fields[5].Value:=o_LIbrosl.Fields[4].Asstring; libros.Fields[6].Value:=o_LIbrosl.Fields[5].Asstring; libros.Fields[7].Value:=o_LIbrosl.Fields[6].Asstring; libros.Fields[8].Value:=o_LIbrosl.Fields[7].Asstring; libros.Fields[9].Value:=o_LIbrosl.Fields[8].Asstring; libros.Fields[10].Value:=o_LIbrosl.Fields[9].Asinteger; libros.Fields[11].Value:=o_LIbrosl.Fields[10].Asstring; libros.Fields[12].Value:=o_LIbrosl.Fields[11].Asstring; libros.Fields[13].Value:=o_LIbrosl.Fields[12].Asstring; libros.Fields[14].Value:=o_LIbrosl.Fields[13].Asstring; libros.Fields[15].Value:=0; libros.Post; o_librosl.Next; end; end; procedure TMainForm.Button15Click(Sender: TObject); begin g_datos.DataSource:=dsalquilar; qaux.sql.clear; qaux.sql.add('delete from prestamo_libros'); qaux.execsql; alquilar.open; o_alquilart.open; o_alquilart.First; while not o_alquilart.Eof do begin alquilar.Append; // alquilar.Fields[0].Value:=o_alquilart.Fields[1].Asstring; alquilar.Fields[1].Value:=1; alquilar.Fields[2].Value:=o_alquilart.Fields[1].asstring; alquilar.Fields[3].Value:=o_alquilart.Fields[0].asinteger; if o_alquilart.Fields[2].Asstring='' then alquilar.Fields[4].Value:=null else alquilar.Fields[4].Value:=o_alquilart.Fields[2].Asdatetime; if o_alquilart.Fields[5].Asstring='' then alquilar.Fields[5].Value:=null else alquilar.Fields[5].Value:=o_alquilart.Fields[5].Asdatetime; if o_alquilart.Fields[4].Asstring='' then alquilar.Fields[6].Value:=null else alquilar.Fields[6].Value:=o_alquilart.Fields[4].Asdatetime; alquilar.Fields[7].Value:=o_alquilart.Fields[6].Asfloat; alquilar.Fields[8].Value:=o_alquilart.Fields[7].Asstring; alquilar.Fields[9].Value:=o_alquilart.Fields[3].Asstring; alquilar.Post; o_alquilart.Next; end; o_alquilarl.open; o_alquilarl.First; while not o_alquilarl.Eof do begin alquilar.Append; // alquilar.Fields[0].Value:=o_alquilarl.Fields[1].Asstring; alquilar.Fields[1].Value:=1; alquilar.Fields[2].Value:=o_alquilarl.Fields[1].asstring; alquilar.Fields[3].Value:=o_alquilarl.Fields[0].asinteger; if o_alquilarl.Fields[2].Asstring='' then alquilar.Fields[4].Value:=null else alquilar.Fields[4].Value:=o_alquilarl.Fields[2].Asdatetime; alquilar.Fields[5].Value:=null;//o_alquilarl.Fields[5].Asdatetime; if o_alquilarl.Fields[4].Asstring='' then alquilar.Fields[6].Value:=null else alquilar.Fields[6].Value:=o_alquilarl.Fields[4].Asdatetime; alquilar.Fields[7].Value:=o_alquilarl.Fields[6].asfloat; alquilar.Fields[8].Value:=0; alquilar.Fields[9].Value:=o_alquilarl.Fields[3].Asstring; alquilar.Post; o_alquilarl.Next; end; end; procedure TMainForm.Button16Click(Sender: TObject); begin hWndC := capCreateCaptureWindowA('Ventana de captura', WS_CHILD or WS_VISIBLE ,0, 0, Panel1.Width,Panel1.Height,Panel1.Handle,0); if hWndC <> 0 then begin SendMessage(hWndC, WM_CONNECT, 0, 0); SendMessage(hWndC, WM_SET_SCALE, 1, 0); SendMessage(hWndC, WM_SET_PREVIEWRATE, 20, 0); SendMessage(hWndC, WM_SET_OVERLAY, 1, 0); SendMessage(hWndC, WM_SET_PREVIEW, 1, 0); Panel1.Width:= 100; Panel1.Height:= 150; SetResolution(Panel1.Width, Panel1.Height); end; end; procedure TMainForm.Button17Click(Sender: TObject); begin //hWndC := capCreateCaptureWindowA('Ventana de captura', WS_CHILD or WS_VISIBLE ,0, 0, Panel1.Width,Panel1.Height,Panel1.Handle,0); if hWndC <> 0 then begin SendMessage(hWndC, WM_DISCONNECT, 0, 0); end; end; procedure TMainForm.Button18Click(Sender: TObject); var PanelDC: HDC; begin imgfoto.Picture.Bitmap.create; if not Assigned(imgfoto.Picture.Bitmap) then begin imgfoto.Picture.Bitmap := TBitmap.Create end else begin imgfoto.Picture.Bitmap.Free; imgfoto.picture.Bitmap := TBitmap.Create; end; imgfoto.Picture.Bitmap.Height := Panel1.Height; imgfoto.Picture.Bitmap.Width := Panel1.Width; imgfoto.Stretch := True; PanelDC := GetDC(Panel1.Handle); try BitBlt(imgfoto.Picture.Bitmap.Canvas.Handle, 0,0,Panel1.Width, Panel1.Height, PanelDC, 0,0, SRCCOPY); finally ReleaseDC(Handle, PanelDC); end; imgfoto.Refresh; end; procedure TMainForm.Button1Click(Sender: TObject); var valor:integer; nif:string; begin g_datos.DataSource:=dsclientes; { qaux.sql.clear; qaux.sql.add('delete from facturas'); qaux.execsql; qaux.sql.clear; qaux.sql.add('delete from prestamo_libros'); qaux.execsql; qaux.sql.clear; qaux.sql.add('delete from alumnos'); qaux.execsql; qaux.sql.clear; qaux.sql.add('delete from clientes'); qaux.execsql;} clientes.open; clientes.Append; clientes.Fields[0].Value:=999999; clientes.Fields[1].Value:=1; clientes.Fields[2].Value:='[SIN DATOS]'; clientes.Fields[3].Value:='[SIN DATOS]'; clientes.Fields[4].Value:=''; clientes.Fields[18].Value:=0; clientes.Fields[19].Value:=1; clientes.Post; qaux.sql.clear; qaux.sql.add('update clientes set id=0 where id=999999'); qaux.execsql; valor:=0; o_clientes.open; o_clientes.First; while not o_clientes.Eof do begin clientes.Append; clientes.Fields[0].Value:=o_clientes.Fields[0].AsInteger; clientes.Fields[1].Value:=1; if o_clientes.Fields[1].AsString='' then begin valor:=valor-1; nif:=inttostr(valor); end else nif:=o_clientes.fields[1].AsString; clientes.Fields[2].Value:=nif; clientes.Fields[3].Value:=o_clientes.Fields[2].Asstring; clientes.Fields[4].Value:=o_clientes.Fields[3].Asstring; clientes.Fields[5].Value:=''; clientes.Fields[6].Value:=o_clientes.Fields[4].Asstring; clientes.Fields[7].Value:=o_clientes.Fields[5].Asstring; clientes.Fields[8].Value:=o_clientes.Fields[6].Asstring; clientes.Fields[9].Value:=o_clientes.Fields[7].Asstring; clientes.Fields[10].Value:=o_clientes.Fields[8].Asstring; clientes.Fields[12].Value:=o_clientes.Fields[9].Asstring; clientes.Fields[13].Value:=o_clientes.Fields[10].Asstring; clientes.Fields[14].Value:=o_clientes.Fields[11].Asstring; clientes.Fields[15].Value:=o_clientes.Fields[12].Asstring; clientes.Fields[16].Value:=o_clientes.Fields[13].Asstring; clientes.Fields[17].Value:=o_clientes.Fields[14].Asstring; clientes.Fields[18].Value:=o_clientes.Fields[15].Asstring; clientes.Fields[19].Value:=1; clientes.Post; o_clientes.Next; end; end; procedure TMainForm.Button2Click(Sender: TObject); var valor:integer; nif,stypefoto,sfoto:string; begin g_datos.DataSource:=dsalumnos; { qaux.sql.clear; qaux.sql.add('delete from prestamo_libros'); qaux.execsql; qaux.sql.clear; qaux.sql.add('delete from cobros'); qaux.execsql; qaux.sql.clear; qaux.sql.add('delete from asistir'); qaux.execsql; qaux.sql.clear; qaux.sql.add('delete from imagenes'); qaux.execsql; qaux.sql.clear; qaux.sql.add('delete from notas'); qaux.execsql; qaux.sql.clear; qaux.sql.add('delete from alumnos'); qaux.execsql; } alumnos.open; alumnos.Append; alumnos.Fields[0].Value:=999999; alumnos.Fields[1].Value:=1; alumnos.Fields[2].Value:=0; alumnos.Fields[3].Value:='[SIN DATOS]'; alumnos.Fields[4].Value:=''; alumnos.Fields[23].Value:=0; alumnos.Post; qaux.sql.clear; qaux.sql.add('update alumnos set id=0 where id=999999'); qaux.execsql; valor:=0; o_alumnos.open; alumnos.open; o_alumnos.First; while not o_alumnos.Eof do begin { if not o_alumnos.FieldByName( 'FOTO' ).IsNull then begin sTypeFOTO := Copy( AnsiString( o_alumnofoto.FieldByName( 'foto' ).Value ), 1, 2 ); if sTypeFOTO = 'BM' then // Es BMP ? begin sFOTO := 'c:\formagest\IMAGENES\' + o_alumnos.FieldByName('ID ALUMNO').asstring + '.bmp'; end else begin sFOTO := 'c:\formagest\IMAGENES\' + o_alumnos.FieldByName('ID ALUMNO').asstring + '.jpg'; end end; imgFoto.Picture := nil; if FileExists( sFOTO ) then begin DeleteFile( PChar( sFOTO ) ); end; if not o_alumnofoto.FieldByName( 'FOTO' ).IsNull then begin ( o_alumnofoto.FindField( 'FOTO' ) As TBlobField).SaveToFile( sFOTO ); imgFoto.Picture.LoadFromFile( 'c:\formagest\imagenes\picture 95.jpg' ); end; } ////// imagenes /// /// } alumnos.Append; alumnos.Fields[0].Value:=o_alumnos.Fields[0].AsInteger; alumnos.Fields[1].Value:=1; { if o_alumnos.Fields[1].AsString='' then begin valor:=valor-1; nif:=inttostr(valor); end else nif:=o_alumnos.fields[1].AsString; } alumnos.Fields[2].Value:=o_alumnos.Fields[20].Asinteger; alumnos.Fields[3].Value:=o_alumnos.Fields[1].Asstring; alumnos.Fields[4].Value:=o_alumnos.Fields[2].Asstring; alumnos.Fields[5].Value:=''; if o_alumnos.Fields[4].Asstring='' then alumnos.Fields[6].Value:=null else alumnos.Fields[6].Value:=o_alumnos.Fields[4].Asdatetime; alumnos.Fields[7].Value:=o_alumnos.Fields[5].Asstring; alumnos.Fields[8].Value:=o_alumnos.Fields[6].Asstring; alumnos.Fields[9].Value:=o_alumnos.Fields[7].Asstring; alumnos.Fields[10].Value:=o_alumnos.Fields[8].Asstring; alumnos.Fields[11].Value:=o_alumnos.Fields[9].Asstring; alumnos.Fields[12].Value:=o_alumnos.Fields[10].Asstring; alumnos.Fields[13].Value:=o_alumnos.Fields[11].Asstring; if o_alumnos.Fields[12].Asstring='' then alumnos.Fields[14].Value:=null else alumnos.Fields[14].Value:=o_alumnos.Fields[12].Asdatetime; alumnos.Fields[15].Value:=o_alumnos.Fields[13].Asstring; alumnos.Fields[16].Value:=o_alumnos.Fields[14].Asstring; alumnos.Fields[17].Value:=o_alumnos.Fields[15].Asstring; alumnos.Fields[18].Value:=o_alumnos.Fields[16].Asstring; alumnos.Fields[19].Value:=o_alumnos.Fields[17].Asstring;; alumnos.Fields[20].Value:=o_alumnos.Fields[18].Asstring; alumnos.Fields[21].Value:=o_alumnos.Fields[19].Asstring; alumnos.Fields[22].Value:=o_alumnos.Fields[22].Asfloat*100; alumnos.Fields[23].Value:=o_alumnos.Fields[21].Asstring; alumnos.Fields[24].Value:=o_alumnos.Fields[23].Asstring; alumnos.Post; // o_alumnosfoto.SaveToFile(o_alumnos.Fields[3].asstring+'.jpg'); ///// imagenes // o_alumnofoto.close; // o_alumnofoto.SQL.Clear; // o_alumnofoto.SQL.Add('SELECT [ID ALUMNO] AS ID,[NOMBRE ALUMNO] AS NOMBRE,FOTO.filename as fotonombre,foto.filetype as fototipo,foto.filedata as foto FROM ALUMNOS'); // o_alumnofoto.sql.Add(' where [id alumno]='+o_alumnos.FieldByName('ID ALUMNO').AsString); // o_alumnofoto.Open; // if o_alumnofoto.RecordCount>0 then // begin // while not o_alumnofoto.eof do // begin // o_alumnofotofoto.SaveToFile('C:\FORMAGEST\IMAGENES\'+o_alumnoFOTOID.AsString+'.'+o_alumnofotofototipo.asstring); // o_alumnofoto.Next; // end; // end; o_alumnos.Next; end; end; procedure TMainForm.Button3Click(Sender: TObject); begin g_datos.DataSource:=dsimpartir; { qaux.sql.clear; qaux.sql.add('delete from impartir'); qaux.execsql; } impartir.open; o_impartir.open; o_impartir.First; while not o_impartir.Eof do begin impartir.Append; impartir.Fields[0].Value:=1; impartir.Fields[1].Value:=o_impartir.Fields[0].Asstring; impartir.Fields[2].Value:=o_impartir.Fields[1].Asstring; if o_impartir.Fields[2].Asstring='' then impartir.Fields[3].Value:=null else impartir.fields[3].value:=o_impartir.Fields[2].Asdatetime; if o_impartir.Fields[3].Asstring='' then impartir.Fields[4].Value:=null else impartir.fields[4].value:=o_impartir.Fields[3].Asdatetime; impartir.Post; o_impartir.Next; end; end; procedure TMainForm.Button4Click(Sender: TObject); var valor:integer; nif:string; begin g_datos.DataSource:=dslista; qaux.sql.clear; qaux.sql.add('delete from listaespera'); qaux.execsql; lista.open; valor:=0; o_lista.open; o_lista.First; while not o_lista.Eof do begin lista.Append; lista.Fields[0].Value:=o_lista.Fields[0].AsInteger; lista.Fields[1].Value:=1; if o_lista.Fields[1].Asstring='' then lista.Fields[2].Value:=null else lista.fields[2].value:=o_lista.Fields[1].Asdatetime; lista.Fields[3].Value:=o_lista.Fields[2].Asstring; lista.Fields[4].Value:=o_lista.Fields[3].Asstring; lista.Fields[5].Value:=''; if o_lista.Fields[4].Asstring='' then lista.Fields[6].Value:=null else lista.fields[6].value:=o_lista.Fields[4].Asdatetime; lista.fields[7].value:=o_lista.Fields[5].Asstring; lista.Fields[8].Value:=o_lista.Fields[6].Asstring; lista.Fields[9].Value:=o_lista.Fields[7].Asstring; lista.Fields[10].Value:=o_lista.Fields[8].Asstring; lista.Post; o_lista.Next; end; end; procedure TMainForm.Button5Click(Sender: TObject); var valor:integer; nif:string; begin g_datos.DataSource:=dsempleados; { qaux.sql.clear; qaux.sql.add('delete from pagos'); qaux.execsql; qaux.sql.clear; qaux.sql.add('delete from impartir'); qaux.execsql; qaux.sql.clear; qaux.sql.add('delete from empleados'); qaux.execsql; } empleados.open; empleados.Append; empleados.Fields[0].Value:=999999; empleados.Fields[1].Value:=1; empleados.Fields[2].Value:='[SIN DATOS]'; empleados.Fields[3].Value:='[SIN DATOS]'; empleados.Fields[4].Value:=''; empleados.Post; qaux.sql.clear; qaux.sql.add('update empleados set id=0 where id=999999'); qaux.execsql; valor:=0; o_empleados.open; o_empleados.First; while not o_empleados.Eof do begin empleados.Append; empleados.Fields[0].Value:=o_empleados.Fields[0].AsInteger; empleados.Fields[1].Value:=1; if o_empleados.Fields[1].AsString='' then begin valor:=valor-1; nif:=inttostr(valor); end else nif:=o_empleados.fields[1].AsString; empleados.Fields[2].Value:=nif; empleados.Fields[3].Value:=o_empleados.Fields[2].Asstring; empleados.Fields[4].Value:=o_empleados.Fields[3].Asstring; empleados.Fields[5].Value:=''; empleados.Fields[6].Value:=o_empleados.Fields[5].Asstring; empleados.Fields[7].Value:=o_empleados.Fields[6].Asstring; empleados.Fields[8].Value:=o_empleados.Fields[7].Asstring; empleados.Fields[9].Value:=o_empleados.Fields[8].Asstring; empleados.Fields[10].Value:=o_empleados.Fields[9].Asstring; empleados.Fields[11].Value:=o_empleados.Fields[10].Asstring; empleados.Fields[12].Value:=o_empleados.Fields[11].Asstring; empleados.Fields[13].Value:=o_empleados.Fields[12].Asstring; empleados.Fields[14].Value:=o_empleados.Fields[13].Asfloat; empleados.Fields[15].Value:=o_empleados.Fields[4].Asstring; empleados.Post; o_empleados.Next; end; end; procedure TMainForm.Button6Click(Sender: TObject); var valor:integer; nif:string; begin g_datos.DataSource:=dsasistir; { qaux.sql.clear; qaux.sql.add('delete from asistir'); qaux.execsql; } valor:=0; o_asistir.open; asistir.open; o_asistir.First; while not o_asistir.Eof do begin asistir.Append; asistir.Fields[0].Value:=o_asistir.Fields[0].AsInteger; asistir.Fields[1].Value:=1; if o_asistir.Fields[1].Asstring='' then asistir.Fields[2].Value:=0 else asistir.Fields[2].Value:=o_asistir.Fields[1].Asinteger; if o_asistir.Fields[2].Asstring='' then asistir.Fields[3].Value:=0 else asistir.Fields[3].Value:=o_asistir.Fields[2].Asinteger; if o_asistir.Fields[3].Asstring='' then asistir.Fields[4].Value:=null else asistir.Fields[4].Value:=o_asistir.Fields[3].Asdatetime; if o_asistir.Fields[4].Asstring='' then asistir.Fields[5].Value:=null else asistir.Fields[5].Value:=o_asistir.Fields[4].Asdatetime; if o_asistir.Fields[5].Asstring='' then asistir.Fields[6].Value:=null else asistir.Fields[6].Value:=o_asistir.Fields[5].Asdatetime; asistir.Fields[7].Value:=o_asistir.Fields[6].Asstring; if o_asistir.Fields[7].Asstring='' then asistir.Fields[8].Value:=0 else asistir.Fields[8].Value:=o_asistir.Fields[7].Asstring; if o_asistir.Fields[8].Asstring='' then asistir.Fields[9].Value:=0 else asistir.Fields[9].Value:=o_asistir.Fields[8].Asfloat; if o_asistir.Fields[9].Asstring='' then asistir.Fields[10].Value:=0 else asistir.Fields[10].Value:=o_asistir.Fields[9].Asdatetime; asistir.Post; o_asistir.Next; end; end; procedure TMainForm.Button7Click(Sender: TObject); var valor:integer; nif:string; begin g_datos.DataSource:=dsgrupos; { qaux.sql.clear; qaux.sql.add('delete from notas'); qaux.execsql; qaux.sql.clear; qaux.sql.add('delete from impartir'); qaux.execsql; qaux.sql.clear; qaux.sql.add('delete from asistir'); qaux.execsql; qaux.sql.clear; qaux.sql.add('delete from cobros'); qaux.execsql; qaux.sql.clear; qaux.sql.add('delete from grupos'); qaux.execsql; } valor:=0; o_grupos.open; grupos.open; grupos.Append; grupos.Fields[0].Value:=999999; grupos.Fields[1].Value:=1; grupos.Fields[2].Value:=0; grupos.Fields[3].Value:=0; grupos.Fields[4].Value:=0; grupos.Fields[5].Value:='[SIN DATOS]'; grupos.Post; qaux.sql.clear; qaux.sql.add('update grupos set id=0 where id=999999'); qaux.execsql; o_grupos.First; while not o_grupos.Eof do begin grupos.Append; grupos.Fields[0].Value:=o_grupos.Fields[0].AsInteger; grupos.Fields[1].Value:=1; if o_grupos.Fields[15].Asstring='' then grupos.Fields[2].Value:=0 else grupos.Fields[2].Value:=o_grupos.Fields[15].Asinteger; if o_grupos.Fields[15].Asstring='' then grupos.Fields[3].Value:=0 else grupos.Fields[3].Value:=o_grupos.Fields[16].Asinteger; grupos.Fields[4].Value:=o_grupos.Fields[1].Asstring; grupos.Fields[5].Value:=o_grupos.Fields[2].Asstring; grupos.Fields[6].Value:=o_grupos.Fields[3].Asdatetime; grupos.Fields[7].Value:=o_grupos.Fields[4].Asdatetime; if o_grupos.Fields[5].Asstring='' then grupos.Fields[8].Value:=0 else grupos.Fields[8].Value:=o_grupos.Fields[5].Asfloat; if o_grupos.Fields[6].Asstring='' then grupos.Fields[9].Value:=0 else grupos.Fields[9].Value:=o_grupos.Fields[6].Asfloat; grupos.Fields[10].Value:=o_grupos.Fields[7].Asinteger; grupos.Fields[11].Value:=ansireplacestr(o_grupos.Fields[8].Asstring,';',','); grupos.Fields[12].Value:=o_grupos.Fields[9].Asdatetime; grupos.Fields[13].Value:=o_grupos.Fields[10].Asdatetime; grupos.Fields[14].Value:=o_grupos.Fields[11].Asfloat; grupos.Fields[15].Value:=ansireplacestr(o_grupos.Fields[12].Asstring,';',',');//o_grupos.Fields[12].Asstring; grupos.Fields[16].Value:=o_grupos.Fields[13].Asdatetime; grupos.Fields[17].Value:=o_grupos.Fields[14].Asdatetime; grupos.Fields[18].Value:=o_grupos.Fields[17].Asinteger; grupos.Fields[19].Value:=o_grupos.Fields[18].Asstring;; grupos.Fields[20].Value:=o_grupos.Fields[19].Asdatetime; grupos.Fields[21].Value:=o_grupos.Fields[20].Asstring; grupos.Post; o_grupos.Next; end; end; procedure TMainForm.Button8Click(Sender: TObject); var valor:integer; nif:string; begin g_datos.DataSource:=dscursos; { qaux.sql.clear; qaux.sql.add('delete from aulas'); qaux.execsql; qaux.sql.clear; qaux.sql.add('delete from listaespera'); qaux.execsql; qaux.sql.clear; qaux.sql.add('delete from impartir'); qaux.execsql; qaux.sql.clear; qaux.sql.add('delete from grupos'); qaux.execsql; qaux.sql.clear; qaux.sql.add('delete from cursos'); qaux.execsql; } valor:=0; o_cursos.open; cursos.open; cursos.Append; cursos.Fields[0].Value:=999999; cursos.Fields[1].Value:=1; cursos.Fields[2].Value:='[SIN DATOS]'; cursos.Fields[5].Value:=0; cursos.Fields[6].Value:=0; cursos.post; qaux.sql.clear; qaux.sql.add('update cursos set id=0 where id=999999'); qaux.execsql; o_cursos.First; while not o_cursos.Eof do begin cursos.Append; cursos.Fields[0].Value:=o_cursos.Fields[0].AsInteger; cursos.Fields[1].Value:=1; cursos.Fields[2].Value:=o_cursos.Fields[1].Asstring; if o_cursos.Fields[2].Asstring='' then cursos.Fields[3].Value:=null else cursos.Fields[3].Value:=o_cursos.Fields[2].Asdatetime; if o_cursos.Fields[3].Asstring='' then cursos.Fields[4].Value:=null else cursos.Fields[4].Value:=o_cursos.Fields[3].Asdatetime; cursos.Fields[5].Value:=o_cursos.Fields[4].Asfloat; cursos.Fields[6].Value:=o_cursos.Fields[5].Asstring; cursos.Post; o_cursos.Next; end; end; procedure TMainForm.Button9Click(Sender: TObject); begin g_datos.DataSource:=dsaulas; { qaux.sql.clear; qaux.sql.add('delete from grupos'); qaux.execsql; qaux.sql.clear; qaux.sql.add('delete from aulas'); qaux.execsql; } o_aulas.open; aulas.open; aulas.Append; aulas.Fields[0].Value:=999999; aulas.Fields[1].Value:=1; aulas.Fields[2].Value:='[SIN DATOS]'; aulas.Fields[3].Value:=0; aulas.Post; qaux.sql.clear; qaux.sql.add('update aulas set id=0 where id=999999'); qaux.execsql; o_aulas.First; while not o_aulas.Eof do begin aulas.Append; aulas.Fields[0].Value:=o_aulas.Fields[0].AsInteger; aulas.Fields[1].Value:=1; aulas.Fields[2].Value:=o_aulas.Fields[1].Asstring; aulas.Fields[3].Value:=o_aulas.Fields[2].Asfloat; aulas.Post; o_aulas.Next; end; end; procedure TMainForm.CreateMDIChild(const Name: string); var Child: TMDIChild; begin { create a new MDI child window } Child := TMDIChild.Create(Application); Child.Caption := Name; if FileExists(Name) then Child.Memo1.Lines.LoadFromFile(Name); end; procedure TMainForm.FileNew1Execute(Sender: TObject); begin CreateMDIChild('NONAME' + IntToStr(MDIChildCount + 1)); end; procedure TMainForm.FileOpen1Execute(Sender: TObject); begin if OpenDialog.Execute then CreateMDIChild(OpenDialog.FileName); end; procedure TMainForm.HelpAbout1Execute(Sender: TObject); begin AboutBox.ShowModal; end; procedure TMainForm.FileExit1Execute(Sender: TObject); begin Close; end; procedure TMainForm.SetResolution(Width, Height: integer); var bi: BITMAPINFO; begin SendMessage(hWndC, WM_GET_VIDEOFORMAT, sizeof(bi), Cardinal(@bi)); bi.bmiHeader.biWidth:= Width; bi.bmiHeader.biHeight:= Height; if SendMessage(hWndC, WM_SET_VIDEOFORMAT, sizeof(bi), Cardinal(@bi)) <> 0 then begin SendMessage(hWndC, WM_DISCONNECT, 0, 0); SendMessage(hWndC, WM_CONNECT, 0, 0); end; end; end.