Visual Basic

Currently I am working on an old VB6 app to be compatible with UNICODE.

This app has SSTab and within this tab, there are user control q1, q2, q3 and so on.  For q1, it has the following code:

Private WithEvents q1 As VBControlExtender
Private progID As String

procId = "ALCTX10.CTX10.1"
Set q1 = Controls.Add(procId, "q1")
myTab.tab = 1
q1.Move borderSize, topMargin, myTab.Width - borderSize * 2, _
myTab.Height - borderSize - topMargin
q1.Visible = True

The procId is referring to VC++ 6 DLL. All user controls are using this DLL.
For VC++ 6 DLL, I added ",_UNICODE, UNICODE" into the preprocessor definitions under the project setting of VC++ 6.
And compiled the DLL again and then brought it back to VB6.

The problem is I am still getting the same UNICODE issue from VB6 app. 
I am using a foreign version of Windows XP so it is not the font problem.
I can’t just replace this DLL with UNICODE supported TextBox or RichTextBox since there are too many things going underneath the DLL.

I would appreciate very much if anyone sheds a light on this problem.  Thanks.

ParentTableBindingSource.EndEdit
Dim My_Parent_Modified As DataTable = DataSet1.ParentTable.GetChanges(DataRowState.Modified)
Dim My_Parent_Added As DataTable = DataSet1.ParentTable.GetChanges(DataRowState.Added)
Dim My_Parent_Deleted As DataTable = DataSet1.ParentTable.GetChanges(DataRowState.Deleted)

If My_Parent_ Modified Is Nothing = False Then
'Some Coding here
End if
If My_Parent_ Added Is Nothing = False Then
'Some Coding here
End if
If My_Parent_Deleted Is Nothing = False Then
'Some Coding here
End if
DataSet1.ParentTable.AcceptChanges


ChildTableBindingSource.EndEdit
Dim My_Child_Modified As DataTable = DataSet1.ChildTable.GetChanges(DataRowState.Modified)
Dim My_Child_Added As DataTable = DataSet1.ChildTable.GetChanges(DataRowState.Added)
Dim My_Child_Deleted As DataTable = DataSet1.ChildTable.GetChanges(DataRowState.Deleted)

If My_Child_ Modified Is Nothing = False Then
'Some Coding here
End if
If My_Child_ Added Is Nothing = False Then
'Some Coding here
End if
If My_Child_Deleted Is Nothing = False Then
'Some Coding here
End if
DataSet1.ChildTable.AcceptChanges

Problème de mise à jour liée aux élément interdépendants de ma table

Bonjour chers membres du forum, j’ai une préoccupation qui est liée à la mise à jour de ma table.

En effet j’ai conçu une application vb.net pour la gestion des opérations de caisse pour le compte
d’une structure et tout fonctionne correctement jusqu’au niveau de la modification de la table où j’ai un bémol.

Le truc c’est qu’une opération est soit une recette ou une dépense d’où j’ai créé une variable
solde = recette - dépense (recette ou dépense est nulle selon la nature de l’opération) qui représente le solde
de chaque opération effectuée.
Pour ce qui est de la part du solde de la caisse à partir d’une opération op2 on a:

E: solde_caisse_op2 = solde_op2 + solde_caisse_op1 ( égal à solde_op1) et cela fonctionne bien en insertion.

Mon problème est que sur par exemple 10 opérations effectuées on décide de modifier la 5ème opération,
comment réajuster le solde de la caisse à partir de la ligne modifiée jusqu’au dernier élément de la table
solde_caisse, vu que les différentes lignes sont dépendantes pour le calcul des différentes soldes
de la caisse d’après l’équation E.
J’ai déjà réfléchi à une solution mais qui me donne une FatalError. En effet j’ai procédé comme suit:

Imports MySql.Data
Imports MySql.Data.Entity
Imports MySql.Data.MySqlClient
Imports MySql.Data.Types
 
 Public solde_operation As Integer = 0
 Public MaxId As Integer
 Public j As Integer
 Public soldecaisse As Integer
 Public i As MySqlParameter
 
'La méthode GetMaxId() me ramène Id_max stocké dans la variable MaxId qui me servira de 
'condition d'arrêt de la boucle for
 
 
    Private Sub GetMaxId()
        connecter()
        Dim sql As String
        sql = "(SELECT MAX(Id_operation) FROM tbl_operation)"
        Dim query As New MySqlCommand()
        query = New MySqlCommand(sql, connecter)
        MaxId = Val(query.ExecuteScalar())
        connecter.close()
    End Sub
 
'celle-ci me calcule le solde de la caisse au cours de l'opération en cours (soldecaisse) en y 
'ajoutant le solde de la caisse précédent
 
 
    Private Sub GetSoldeCaisse()
        connecter()
        Dim sql As String
        sql = "select ((select Solde_operation from tbl_operation where Id_operation = @i) + (select Solde_operation from tbl_operation where Id_operation = @i-1))"
        Dim query As New MySqlCommand()
        query = New MySqlCommand(sql, connecter)
        i = New MySqlParameter("@i", j)
        soldecaisse = Val(query.ExecuteScalar())
        connecter.close()
    End Sub
 
 
'et enfin cette dernière qui fera la mise à jour en remplaçant chaque solde par soldecaisse 
'selon la variation de j dans la boucle for.
'la mis à jour commence donc à partir de la ligne modifiée jusqu'au dernier élément de la 
'colonne puisqu'ils sont liés.
 
 
    Private Sub UpdateSolde()
        connecter()
        GetMaxId()
        Dim sql As String
        sql = "UPDATE tbl_operation SET Solde_operation = soldecaisse WHERE Id_operation = @i"
        i = New MySqlParameter("@i", j)
        Dim query As New MySqlCommand()
        For j = Val(txt_num_operation.Text) To MaxId
            GetSoldeCaisse() 'appel de la methode qui retourne le solde de la caisse
            query = New MySqlCommand(sql, connecter)
        Next
        connecter.close()
    End Sub

En résumé la méthode GetMaxId() lors de son appel renvoie l'id_max de la table opération et cette valeur servira
de condition d'arrêt dans la boucle.
Ensuite la méthode GetSoldeCaisse(), quant à elle calcule le solde de la caisse au cours d'une opération donnée.
Enfin, la méthode UpdateSolde() qui sera appelée juste après celle qui effectuera la modification de la ligne
concernée, nous recalcule le solde de la caisse à partir de la ligne modifiée jusqu'au dernier élément de la colonne
car tous liés. La boucle for définit le début et la fin des modifications.

Je compte sur chacun pour la résolution de cette difficulté. Merci…

formname.txtURL.text = "www.webaddress.com.html"

formname.txtURL.text = "www.webaddress.com/(buttonnamehere).html"

http://www.webaddress.com/buttonsnames.html