|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - nostromo
101
« en: Jueves 29 de Julio de 2004, 17:06 »
Hola;
Tengo entendido que solamente con productos de microsoft, pero hay que hacer el intento.
La otra forma es por cgi en C++.
Nos vemos.
102
« en: Jueves 29 de Julio de 2004, 05:18 »
Hola; El .Net es bueno, pero el framework necesita alrededor de 512 MB de Ram, para que funcione decente, hay uno superior que es de Intel. Lejos mejor que Microsoft. y si no quieres pagar esta es una buena alternativa: Dev-C++, es freeware. http://www.bloodshed.net/Es muy bueno. Nos vemos.
103
« en: Jueves 29 de Julio de 2004, 04:25 »
Hola;
Debes asignar el valor del text a una variable de tipo numérico;
Option Explicit
Dim valor As Integer (double, variant, etc)
valor = Text1.Text
y luego a la consulta.
Nos vemos
104
« en: Jueves 29 de Julio de 2004, 03:33 »
Hola; Quieres programar menus espectaculares con vb: http://www.vbaccelerator.com/El sitio es espectacular. Nos vemos.
105
« en: Jueves 29 de Julio de 2004, 03:29 »
HOla;
Puedes hacer lo que quieras, necesitas un flexgrid, manejar eventos del mouse, sobre todo move, down, up.
Pero, una pregunta, como introduces los datos iniciales. El asunto es traspasar un dibujo a la base de datos y luego reproducirlo.
Aclara lo que quieres hacer.
Nos vemos.
106
« en: Jueves 29 de Julio de 2004, 01:57 »
Hola;
En primer lugar, debes asegurarte que la propiedad del form hijo este en WindowState a Normal.
Pero que hago yó,
la propiedad BorderStyle = 1 - FixedSingle;
MDIChild = True
MinButton = True;
MaxButton = False.
Y listo.
Nos vemos.
107
« en: Jueves 29 de Julio de 2004, 01:23 »
Hola viejo:
Estoy conectado en estos momentos.
Nos vemos
108
« en: Jueves 29 de Julio de 2004, 00:47 »
Hola; Tienes una consulta en php la sección del JavaScript, en archivo externo. <html> <head><title></title> <script language="javascript"> var oExcel; // abre excel var oExcelSheet; // hoja Excel var oWkBooks; // libro de Excel function CopyExcel(){ //Copia lo que se encuentra en la pagina actual textRange = document.body.createTextRange(); textRange.moveToElementText(listTable); textRange.execCommand("Remove Format"); textRange = document.body.createTextRange(); textRange.execCommand("Copy"); textRange = document.body.createTextRange(); window.alert("La Página esta Siendo Copiada a Microsoft Excel (Presione YES en el Box Siguiente). Si No Se Copia, Cierre Excel y Vuelva a Intentarlo") //Abre Microsoft Excel oExcel = new ActiveXObject('Excel.Application'); oWkBooks = oExcel.Workbooks.Add; oExcelSheet = oWkBooks.Worksheets(1); oExcelSheet.Application.Visible = true; oExcelSheet.Activate(); //Hace las activaciones de las Sheet en Microsoft Excel oExcel.ActiveSheet.Range('A1').Select; oExcel.ActiveSheet.PasteSpecial(0,false,false); oExcel.ActiveSheet.Cells.EntireColumn.AutoFit; oExcel.ActiveSheet.Range('A1').Select } </script> </head> <html> <body> <input type=button value="Copiar a Excel" onclick="CopyExcel();"> <table id=listTable border=1> <tr> <td>IDPIEZA</td><td>TIPO</td> </tr> <tr> <td>E11</td><td>Tuerca</td> </tr> <tr> <td>E201</td><td>Martillo</td> </tr> <tr> <td>E141</td><td>Alicate</td> </tr> </table>
Nos vemos.
109
« en: Miércoles 28 de Julio de 2004, 22:35 »
Hola; Visita el siguiente sitio, disponen de talleres online de html, php, asp, es nuy bueno: http://www.desarrolloweb.com/y este es mejor, sobre todo para aprender de uso de formularios: http://www.htmlweb.net/Nos vemos.
110
« en: Miércoles 28 de Julio de 2004, 22:26 »
Hola;
Recien hice una prueba, text desactivado y texto en colores, no funciona, se muestra el gris por defecto.
Nos vemos.
111
« en: Miércoles 28 de Julio de 2004, 22:07 »
Hola;
Tengo suerte de ver la programación que se necesita, por tu pregunta, y la respuesta es en C++ o C, la persona tiene experiencia por 14 años, y para lo que tú quieres necesitas ser programador C++ alrededor de 4 años.
Y es la misma tecnología de microsoft, samsung, etc. Para control de equipos por internet.
Es una Dll que responde a las acciones del select, radio button, etc. La programación toma alrededor de 1 año, si quieres el microonda alrededor de unos 6 meses.
Nos vemos.
112
« en: Miércoles 28 de Julio de 2004, 21:54 »
Hola; Puedes hacerlo fácil con css, el siguiente es un ejemplo de una página que estoy diseñando: <style> .btn {border:solid 1px #A5C9EF;font-size=10px;cursor:hand;background-color:dfefff;} .borde {border:solid 1px #000000; font-family:verdana; etc..??} </style>
En el body: <form name=ver> <input type=text class=borde> <input type=button value="Aceptar" class=btn> </form>
Lo bueno que es multiplataforma Nos vemos.
113
« en: Miércoles 28 de Julio de 2004, 21:46 »
Hola;
Has pensado utilizar JavaScript y XMLDom, al cargar la página el XML Base de Datos se carga una sola vez, y al pedir los cambios de los select no pierdes tiempo en consulta al servidor y refrescar la página. La consulta es en tiempo real.
Actualmente utilizo esta técnica, ahorras bastante tiempo en consulta. Y la mantención de la Base de Datos es fácil y rápida.
Nos vemos.
114
« en: Miércoles 28 de Julio de 2004, 18:14 »
Hola viejo; <html> <head><title></title> <script> function abrir_excel() { var oExcel; // abre excel var oExcelSheet; // hoja Excel var oWkBooks; // libro de Excel oExcel = new ActiveXObject('Excel.Application'); oWkBooks = oExcel.Workbooks.Add; oExcelSheet = oWkBooks.Worksheets(1); oExcelSheet.Application.Visible = true; } </script> </head> <body> <span onclick=abrir_excel();>Abrir</span> </body> </html>
Espero que te sirva. Nos vemos
115
« en: Miércoles 28 de Julio de 2004, 16:40 »
Hola.
Soy nuevo y tengo pega, debo realizar cambios a varias páginas html, me han dado password de entrada al dominio y al ftp, pero como nunca he realizado esta tarea, estoy algo perdido.
Solicito pasos que dar para realizar esta tarea o donde encuentro la información, debo presentar un avance en lo posible hoy en la tarde.
La información en la pega ha sido nula practicamente, el anterior se fue y con todo al parecer.
Desde ya gracias por la ayuda recibida.
116
« en: Miércoles 28 de Julio de 2004, 07:04 »
Hola viejo;
Se que estas apurado, pero he tenido reunión de trabajo por una licitación para desarrollo de software de adminsitración y facturación.
Para hoy miercoles 28 de Julio estare conectado, paciencia.
Nos vemos.
117
« en: Miércoles 28 de Julio de 2004, 05:59 »
Hola viejo:
En menu inicio del windows, en buscar archivos, carpetas, realiza la busqueda de los frm que te faltan y para saber en que directorios se encuentra y trasladarlo a tu carpeta del proyecto.
Nos vemos.
118
« en: Miércoles 28 de Julio de 2004, 05:55 »
Hola; Podemos realizar lo siguiente: Proyectos / Referencias / Microsoft DAO 3.51 Object LibraryRealizamos la Consulta: Option Explicit Dim db As Database Dim rs As Recordset Dim ac As String Dim art As Integer Dim s As String Dim men, m1, m2,m3, mensaje As String Private Sub cmdConsulta_Click() s = vbCrlf & vbCrLf art = txtIDArticulo 'Identificación del artículo de la consulta ac = .txtUsoCarpe & "\" & .lblArchivo & ".mdb" Set db = OpenDatabase(ac) Set rs = db.OpenRecordset("Select Sum(Stock) From ESTADO" Where & art) men = rs.Fields(0) m1 = "Estado de Resultado Bodega VVV" & s m2 = "Stock actual del Artículo Ref Nº " & art & " al " & lblfecha & s m3 = "Quedan : " & men & " Unidades." mensaje = m1 & m2 & m3 'Cuerpo del mensaje 'RichTextBox rtbInforme.Text = mensaje mensaje = "" End Sub
Nos vemos.
119
« en: Miércoles 28 de Julio de 2004, 05:30 »
Hola viejo; Te envio el siguiente código, el resultado los saco de una grilla pero es lo mismo: Private Sub Command3_Click() Dim wrdApp As Word.Application Set wrdApp = New Word.Application m1 = "EMPRESA" & vbTab & vbTab & ":" & vbTab & "MADECOR LTDA." & vbCrLf & vbCrLf mg = "TABLA DE LISTADOS" & vbCrLf & "Tabla nº 1. Niveles / Estado Mercaderia" & vbCrLf & vbCrLf With msflex For D = 1 To .Rows - 1 '.Col = 0 .Row = d dm = .TextMatrix(D, 0) '.Col = 1 .Row = d em = .TextMatrix(D, 1) aesc = dm & vbTab & vbTab & em If .Row = 1 Then pesc = aesc End If If .Row > 1 Then pesc = pesc & vbCrLf & aesc End If men = "Nivel" & vbTab & vbTab & "Estado" & vbCrLf & pesc & vbCrLf & vbCrLf Next D End With With msflex1 For c = 1 To .Rows - 1 'For t = 0 To .Cols - 1 '.Col = 0 .Row = c dm1 = .TextMatrix(c, 0) '.Col = 1 .Row = c em1 = .TextMatrix(c, 1) aesc1 = dm1 & vbTab & vbTab & em1 If .Row = 1 Then pesc1 = aesc1 End If If .Row > 1 Then pesc1 = pesc1 & vbCrLf & aesc1 End If men1 = "Nivel" & vbTab & vbTab & "Estado" & vbCrLf & pesc1 'Next t Next c End With mg1 = "TABLA DE LISTADOS ANEXOS" & vbCrLf & vbCrLf & "Tabla nº 2. Niveles / Estado Mercaderia" & vbCrLf & vbCrLf With wrdApp .Visible = True .Documents.Add .ActiveDocument.Content.Font.Size = 12 .ActiveDocument.Content.Font.Name = "Verdana" '.ActiveDocument.Content.Font.Bold = True .ActiveDocument.Content.Text = m1 & mg & men & mg1 & men1 '"Resulto" If optVista.Value = True Then .ActiveDocument.PrintPreview End If End With End Sub
Si quieres buscar una consulta individual colocas: Option Explicit Dim db As Database Dim rs As Recordset Dim ac As String ac = .txtUsoCarpe & "\" & .lblArchivo Set db = OpenDatabase(ac) Set rs = db.OpenRecordset("Select Sum(Cuenta) From COBRO_CLIENTE") men = rs.Fields(0) 'Esto lo colocas en el codigo de más abajo.
Los msflexgrid deben estar conectado a sus respectivos data (1 y 2), pero en la siguiente línea debes colocar lo que quieres: With wrdApp .Visible = True .Documents.Add .ActiveDocument.Content.Font.Size = 12 .ActiveDocument.Content.Font.Name = "Verdana" '.ActiveDocument.Content.Font.Bold = True .ActiveDocument.Content.Text = men 'Aqui insertas la consulta If optVista.Value = True Then .ActiveDocument.PrintPreview 'Esta opción antes de imprimir en modo End If 'Vista Preliminar End With
Debes finalizar: Private Sub Form_Unload(Cancel As Integer) Set wrdApp = Nothing End Sub
En Proyectos / Referencias / Microsoft 3.51 Object Library Proyectos / Referencias / Microsoft Word 8.0 Object Library ; en todo caso el Word permanece visible hasta que lo cierres y guardes los cambios. Nos vemos.
120
« en: Martes 27 de Julio de 2004, 19:08 »
Hola viejo;
dame 12 hrs lo instalo, lo mejor en la tarde.
Nos vemos.
121
« en: Martes 27 de Julio de 2004, 18:53 »
Hola;
Encontre esto:
Nos vemos.
122
« en: Martes 27 de Julio de 2004, 17:57 »
Hola viejo;
El problema es que es muy grande, debes adaptarlo a la resolución del cliente, no todos tienen monitores de 17' o más.
A que parte te refieres que se adapte a la pantalla (Aclara c on detalle), de hecho tu form se encuentra con BorderStyle a 0, no pueden minimizar, ni siquiera mover.
La carga debe ser automática. A quien le pagan la publicidad al lado del cliente o a tí. Es por esta razón que la publicidad debe desplegrarse de inmediato y no ha la voluntad del lado del cliente. Tú das la publicidad a tí te pagan.
Ahora que se oculte, no hes tu problema, imagina que quede en forma incomoda, word, excel, etc. Lo unico que quiere uno es la forma de borrar la barra, estadisticamente el lugar apropiado de estas barras es en la parte inferior derecha.
lo que tienes que hacer es que la publiciadad sea atractiva, desarrollala en flash, lo programs para que muestre los html con la publicidad. También lo podrías adaptar la barra con skin.
Nos vemos.
123
« en: Martes 27 de Julio de 2004, 17:44 »
Hola; Rellena el grid con SQL y listo. Código en MDI Option Explicit Dim h, w As Integer Dim db As Database Dim rs As Recordset Dim a As String Private Sub mnuConsul_No_Cliente_Click() 'FrmConsulta.Show With FrmConsulta .Show .ConsultaNoCliente With MDIPrincipal a = .txtUsoCarpe & "\" & .lblArchivo End With .Data2.DatabaseName = a .Data2.RecordSource = varcon(3) 'Function varcon en modConsulta .Data2.Refresh End With mnuConsul_No_Cliente.Enabled = False mnuIrConsul.Enabled = False End Sub
Código en Modulo Option Explicit Dim db As Database Dim rs As Recordset Dim ac As String 'Dim varcon As String Public Function varcon(ByVal opcion As Integer) As String Select Case opcion Case 1 ac = ("Select IDCLIENTE,FECHA,HORA_ENTRADA,HORA_SALIDA,TOTAL_HORA,TARIFA,PAGO_TOTAL From COBRO_CLIENTE where IDCLIENTE=" & MDIPrincipal.lstListado.Text) Case 2 ac = ("Select IDCLIENTE,FECHA,HORA_ENTRADA,HORA_SALIDA,TOTAL_HORA,TARIFA,PAGO_TOTAL From COBRO_CLIENTE") Case 3 ac = ("Select PATENTE,VEHICULO,FECHA,HORA_ENTRADA,HORA_SALIDA,TOTAL_HORA,TARIFA,PAGO_TOTAL From NO_CLIENTE") End Select varcon = ac End Function
En msfConsulta (MsfFlexGrid), en la propiedad DataSource = Data2 (control Data) y en Proyecto / Referencias / Microsoft DAO 3.51 Object Library Nos vemos.
124
« en: Martes 27 de Julio de 2004, 16:16 »
Hola; primero utiliza el VB normal, segundo que programación dominas Basic o C++, si quieres utilizar en C++ en que modo,Win32 Consola, Win32 Aplicación, MFC(Debes aprender a como programar en este ambiente). Debes ver tus limitaciones. En cuanto a la captura de camaras, existen ocx para visual basic y bastantes tutoriales al respecto, visita el siguiente sitio, encontrarás lo que busques: http://www.planet-source-code.com/Para bajar debes estar inscrito. Estoy seguro que ví tales ejemplos, manejo de puertos, camaras web, etc. el otro es : http://www.cgrsoftware.com/Si quieres un sitio espectacular es el siguiente. http://www.vbaccelerator.com/ --------->>> Verlo Importante Otro con gran abundancia de codigos: http://www.freevbcode.com/En español, paso obligado de los VisualBasicManiacos: http://www.mundoprogramacion.com/ -->> el sitio del Guille. Nos vemos.
125
« en: Martes 27 de Julio de 2004, 16:04 »
Hola;
Ayudaría demasiado si colocas en que forma quieres mostrar los resultados, en grilla, en RichtTextBox, ????.
Si es en grilla, puedes utilizar en control data y SQL para mostrar los resultados, sin importar el archivo a mostrar. stock2003.mdb, stock2004.mdb, etc.
Y sobre la misma puedes derivar la información de la grilla a un RichTextBox, con subtítulos y con posibilidad de imprimir o enviar la información a Excel o a Word en modo normal o en modo de vizualización, etc.
Del RichTextBox creas un archivo.html y lo transformas en PDF.
Que parte (s) quieres desarrollar en el Foro.
Nos vemos.
|
|
|
Mostrar Mensajes
