Visual Basic

darkelv22-Feb-08 4:34

darkelv

22-Feb-08 4:34

Until the guys who's paying for the system are convinced and willing to redo the system...

Look, we have a system, written in Delphi 5, each sub module is one exe, and there are hundreds of them, from A01 to G99, that are used by a few branches in different country, each having different business logic, and as such each branches are having the similar but not the same A01.exe-G99.exe, same for the database, enhancement is done by copy the exe and change from there, every queries are embedded in the form, and you must look at each form to look at the SQL statement, the way of passing variable is to make in-memory temp tables, then call SQL to retrieve the values from the temp tables, the database field are all user defined type for no apparent reason and benefit, date is stored as integer, money is stored as integer after mutiplied by 10000, rates are stored as integer after multiplied by 100, 10000 or 1000000 depends on the mood of the programmer, language support on a platform that doesn't support multi-languages, functions are duplicated all over the places...

Simply put, the style of the system was done in the fashion in the dBase era.

I would make a new system in a heartbeat, if I have the say. But until the people who's paying for the system are ready to remake that pile of doo-doo, the system needs to be maintained as it is.

Good thing I am not the one who's maintaining it....

Steven J Jowett22-Feb-08 7:54

Steven J Jowett

22-Feb-08 7:54

darkelv wrote:
Good thing I am not the one who's maintaining it....

If I was the one, I'd quit.

Steve Jowett
-------------------------
It is offen dangerous to try and see someone else's point of view, without proper training. Douglas Adams (Mostly Harmless)

darkelv22-Feb-08 19:07

darkelv

22-Feb-08 19:07

Even if you quit, someone else would be hired to maintain it.

Systems are usually replaced when it can no longer support the business, or the cost of maintaining it is way too high. Rarely it's due to "it's written in horrible language".

Kevin McFarlane22-Feb-08 12:26

Kevin McFarlane

22-Feb-08 12:26

Only the businesses can estimate that. I was maintaining a 16-bit VC++ 1.5 app. only 4 years ago. How long ago was that a dead product?

Kevin

supercat922-Feb-08 8:34

supercat9

22-Feb-08 8:34

It is not always easy to rewrite an application in such a fashion as to behave identically to an old one. If end users have grown accustomed to all sorts of little nuances in an old application, it may be difficult to ensure that all such nuances come through in a rewrite, especially if the earlier inclusion of such nuances was not done systematically but rather on an ad-hoc basis.

When doing such a rewrite, it can be hard to avoid a sort of 'limbo', where customers whose system works are reluctant to switch to a comparatively untested new system. Without customer assistance in testing the new system, it may be difficult to get it to the point that customers are happy switching to it.

Crystal Report

Member 367504722-Feb-08 0:55

Member 3675047

22-Feb-08 0:55

I used the crystal report wizard to connect a Ms SQL Server. During the procedure the wizard requested for the username and password to the database.
However, when i run the application and want to pull up a report the page request for the database password.
What am i doing wrong?

JESA

Re: Crystal Report

Dave Kreskowiak22-Feb-08 2:46

Dave Kreskowiak

22-Feb-08 2:46

How did you connect to the database when you developed the code?? If you used Trusted Connection or Windows Authentication, then that connection was made using your windows ID. If this is an ASP.NET app, the code is no longer running under your ID, but is using the ASPNET account. Since the ASPNET account isn't trusted by SQL Server, you get the credentials box asking for a valid login.

It could be other things too, but this is a common problem with new people using SQL Server.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

how do i indent XML

koolprasad200322-Feb-08 0:12

koolprasad2003

22-Feb-08 0:12

hello,

how do i indent XML using DOM...
i have a XML but it is not properly Indented. what should i do to indent it....

thankx in advance
koolprasad2003 Smile | :)

Be a good listener...Because Opprtunity knoughts softly...N-Joy

Re: how do i indent XML

Dave Kreskowiak22-Feb-08 2:40

Dave Kreskowiak

22-Feb-08 2:40

There is no formatting in the DOM. You only format the XML when it's written to a stream using the XmlTextWriter class. A quick'n'dirty sample:

Public Shared Function GetXmlDocumentAsString(ByVal document As XmlDocument) As String
    Using ms As New MemoryStream()
        Dim xtw As New XmlTextWriter(mw, Encoding.UTF8)
        With xtw
            .Formatting = Formatting.Indented
            .Indentation = 4
            .IndentChar = " "c
        End With
 
        document.WriteContentTo(xtw)
        xtw.Flush()
        Dim textBytes() As Byte = ms.ToArray()
        Return Encoding.UTF8.GetString(textBytes)
    End Using
End Function

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Calculator program

Member 457761921-Feb-08 20:45

Member 4577619

21-Feb-08 20:45

I have a calculator program and I would like to be able to use the key pad to enter the numbers and perform the calculations, such as adding, and having the enter key be the equals key. Would some point me in the direction of how to accomplish this? This is my current code:
Public Class calcFRM
Dim num, ans As Double
Dim oper1, oper2 As Integer
Dim oper3 As String

Private Sub num0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num0.Click
num = num & 0
display.Text = num
End Sub

Private Sub num1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num1.Click
num = num & 1
display.Text = num
End Sub

Private Sub num2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num2.Click
num = num & 2
display.Text = num
End Sub

Private Sub num3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num3.Click
num = num & 3
display.Text = num
End Sub

Private Sub num4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num4.Click
num = num & 4
display.Text = num
End Sub

Private Sub num5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num5.Click
num = num & 5
display.Text = num
End Sub

Private Sub num6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num6.Click
num = num & 6
display.Text = num
End Sub

Private Sub num7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num7.Click
num = num & 7
display.Text = num
End Sub

Private Sub num8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num8.Click
num = num & 8
display.Text = num
End Sub

Private Sub num9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num9.Click
num = num & 9
display.Text = num
End Sub

Private Sub dot_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dot.Click
MsgBox(" not coded")
End Sub

Private Sub eql_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles eql.Click
If oper3 = "+" Then
oper2 = Val(display.Text)
display.Text = oper1 + oper2
ElseIf oper3 = "-" Then
oper2 = Val(display.Text)
display.Text = oper1 - oper2
ElseIf oper3 = "*" Then
oper2 = Val(display.Text)
display.Text = oper1 * oper2
ElseIf oper3 = "/" Then
oper2 = Val(display.Text)
display.Text = oper1 / oper2
End If
End Sub

Private Sub div_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles div.Click
oper3 = "/"
oper1 = Val(display.Text)
display.Clear()
display.Text = ans
num = 0
End Sub

Private Sub multi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles multi.Click
oper3 = "*"
oper1 = Val(display.Text)
display.Clear()
display.Text = ans
num = 0
End Sub

Private Sub subt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles subt.Click
oper3 = "-"
oper1 = Val(display.Text)
display.Clear()
display.Text = ans
num = 0
End Sub

Private Sub add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles add.Click
oper3 = "+"
oper1 = Val(display.Text)
display.Clear()
display.Text = ans
num = 0
End Sub

Private Sub del_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles del.Click
display.Clear()
ans = 0
num = 0
End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
MsgBox("This button currently has no function")
End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
MsgBox("This button currently has no function")
End Sub
End Class

Thank you

Re: Calculator program

Christian Graus21-Feb-08 20:50

problem while working with DatagridView

21-Feb-08 20:50

Handle the keypress event on the form and check the value of the key pressed, then call your events for the different buttons based on the key pressed.

Christian Graus - Microsoft MVP - C++

"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )

soniasan21-Feb-08 20:29

soniasan

21-Feb-08 20:29

Hi to all,

I want to show the contents of a cell of datagridview when i click on
that cell to text box
How i can able to achive it????????

Please Help.

Thanks

Re: problem while working with DatagridView

Mycroft Holmes21-Feb-08 20:58

Mycroft Holmes

21-Feb-08 20:58

use the cell click event to identify the cell and set the text property of the textbox to the cell value

TextBox1.text = sender.value

particular coloumn selection in a grid

MS Lee21-Feb-08 20:18

MS Lee

21-Feb-08 20:18

ppl,
am using a grid
at run time am getting 8 values in to the coloumn,
when i call the grid i need to edit only one column value from the grid and finally am saving all data in to my table,

could you explain me how to edit a particular (only one )column value....

self confidence+hard work=SUCCESS

Re: particular coloumn selection in a grid

Christian Graus21-Feb-08 20:22

Re: particular coloumn selection in a grid

21-Feb-08 20:22

Write your editing template so it shows the values for the other columns, and not a control to allow editing.

MS Lee22-Feb-08 0:50

MS Lee

22-Feb-08 0:50

i could not get editing template mean?

self confidence+hard work=SUCCESS

How to Open a popup window after generating a word document in asp.net 2.0

attalurisubbu21-Feb-08 19:53

attalurisubbu

21-Feb-08 19:53

Hi all,

In my application i am generating a word document after that,as per my requirement i need to open a popup window contains file upload control.

Actually what happens is Word document is generating fine after clicking Save button behind popup window containing file upload control is closing.

Can any body help me from this?

thanks in advance,

eswar.

Re: How to Open a popup window after generating a word document in asp.net 2.0

Mycroft Holmes21-Feb-08 20:32

Mycroft Holmes

21-Feb-08 20:32

Try popping the upload form from the save event!

Memeory release

H.A.Faheem21-Feb-08 19:38

H.A.Faheem

21-Feb-08 19:38

Hello iahve a problem with my vb 6 application ,in application i got the data from a machine to the text file then read this file and transfer that data to the data base,its works fine on first and thier is timer which chech the file for update but when timer generate event it did not work and not read from file,ithink the release of the memory is the problem please give me some sugesstion for memeory release in vb 6
thanks

Christian Graus21-Feb-08 20:26

21-Feb-08 20:26

I doubt very much that memory release is the problem. It sounds like you're very confused. Why are you still using VB6 ?

H.A.Faheem21-Feb-08 20:48

H.A.Faheem

21-Feb-08 20:48

i think when i opena it remains open thats why its not updating it,and i am using vb 6 beacuse application that i am using is devloped in vb6 and now i am changing it for new requirments.

Dim fso As FileSystemObject
Dim target_folder As File
Set fso = New FileSystemObject

Set target_folder = fso.GetFile(filename)
Dim value As String
Dim datemodified As String
value = Now
value = Left(value, Len(value) - 6)
datemodified = target_folder.DateLastModified
is their anay wway to close the file and drp the links between application and a file,like "close fso" but it is not working

Christian Graus21-Feb-08 20:52

21-Feb-08 20:52

Ah - so it's not memory, it's the file itself. I don't know. I've never used VB6, it's a nightmare. However, any file class, in any language, should offer a close method, as in target_folder.Close() or fso.Close()

H.A.Faheem21-Feb-08 21:06

H.A.Faheem

21-Feb-08 21:06

thanks for reply but there is no close function

Christian Graus21-Feb-08 23:19