VB.NET (transformer une application windows form)

VB.NET (transformer une application windows form) - PHP - Programmation

Marsh Posté le 30-04-2004 à 17:03:25    

Comment pourrai-je transformer cette application en application smart device pour pocket PC qui utilise une syntaxe différente sous Visual Studio.net?

Code :
  1. Public Class Form1
  2.     Inherits System.Windows.Forms.Form
  3.     Public FichierIni As String
  4.     Public DbConnect As String
  5.     Public DateRef As Date
  6.     Public Gcpper_Ident As String
  8.     ' création d'une connection = d'un lien
  9.     ' vers la base de données, la création est faite
  10.     ' dans la méthode NEW
  11.     Dim MyConnection As New OleDb.OleDbConnection
  14. #Region " Code généré par le Concepteur Windows Form "
  17.     Public Sub New()
  18.         MyBase.New()
  19.         'Cet appel est requis par le Concepteur Windows Form.
  20.         InitializeComponent()
  22.         'Ajoutez une initialisation quelconque après l'appel InitializeComponent()
  23.         FichierIni = "c:\pointeuse.ini"
  24.         ' récupération des paramètres
  25.         DbConnect = "Integrated Security=SSPI;Packet Size=4096;Data Source=DEV-INTERNET;Tag with column collation when possible=False;Initial Catalog=POINTEUSE;Use Procedure for Prepare=1;Auto Translate=True;Persist Security Info=False;Provider='SQLOLEDB.1';Workstation ID=DEV-INTERNET;Use Encryption for Data=False"
  26.         DA_1.Fill(DS_1, "GCPPER" )
  28.         ' ouverture de la connection
  29.         MyConnection.ConnectionString = DbConnect
  30.         MyConnection.Open()
  32.     End Sub
  34.     'La méthode substituée Dispose du formulaire pour nettoyer la liste des composants.
  35.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  36.         If disposing Then
  37.             If Not (components Is Nothing) Then
  38.                 components.Dispose()
  39.             End If
  40.         End If
  41.         MyBase.Dispose(disposing)
  42.     End Sub
  44.     'Requis par le Concepteur Windows Form
  45.     Private components As System.ComponentModel.IContainer
  47.     'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
  48.     'Elle peut être modifiée en utilisant le Concepteur Windows Form. 
  49.     'Ne la modifiez pas en utilisant l'éditeur de code.
  50.     Friend WithEvents TT_NOM As System.Windows.Forms.TextBox
  51.     Friend WithEvents SQL_1 As System.Data.SqlClient.SqlConnection
  52.     Friend WithEvents DA_1 As System.Data.OleDb.OleDbDataAdapter
  53.     Friend WithEvents CD_1 As System.Data.OleDb.OleDbConnection
  54.     Friend WithEvents DS_1 As WindowsApplication1.DataSet2
  55.     Friend WithEvents OleDbSelectCommand1 As System.Data.OleDb.OleDbCommand
  56.     Friend WithEvents Label1 As System.Windows.Forms.Label
  57.     Friend WithEvents Timer_Pause As System.Windows.Forms.Timer
  58.     Friend WithEvents Timer1 As System.Windows.Forms.Timer
  59.     Friend WithEvents LL_DATE As System.Windows.Forms.Label
  60.     Friend WithEvents Button1 As System.Windows.Forms.Button
  61.     Friend WithEvents TT_INPUT As System.Windows.Forms.TextBox
  62.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  63.         Me.components = New System.ComponentModel.Container
  64.         Me.SQL_1 = New System.Data.SqlClient.SqlConnection
  65.         Me.TT_NOM = New System.Windows.Forms.TextBox
  66.         Me.DA_1 = New System.Data.OleDb.OleDbDataAdapter
  67.         Me.OleDbSelectCommand1 = New System.Data.OleDb.OleDbCommand
  68.         Me.CD_1 = New System.Data.OleDb.OleDbConnection
  69.         Me.DS_1 = New WindowsApplication1.DataSet2
  70.         Me.TT_INPUT = New System.Windows.Forms.TextBox
  71.         Me.Label1 = New System.Windows.Forms.Label
  72.         Me.Timer_Pause = New System.Windows.Forms.Timer(Me.components)
  73.         Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
  74.         Me.LL_DATE = New System.Windows.Forms.Label
  75.         Me.Button1 = New System.Windows.Forms.Button
  76.         CType(Me.DS_1, System.ComponentModel.ISupportInitialize).BeginInit()
  77.         Me.SuspendLayout()
  78.         '
  79.         'SQL_1
  80.         '
  81.         Me.SQL_1.ConnectionString = "workstation id=""DEV-INTERNET"";packet size=4096;integrated security=SSPI;data sour" & _
  82.         "ce=""DEV-INTERNET"";persist security info=False;initial catalog=POINTEUSE"
  83.         '
  84.         'TT_NOM
  85.         '
  86.         Me.TT_NOM.Location = New System.Drawing.Point(24, 48)
  87.         Me.TT_NOM.Name = "TT_NOM"
  88.         Me.TT_NOM.Size = New System.Drawing.Size(232, 20)
  89.         Me.TT_NOM.TabIndex = 1
  90.         Me.TT_NOM.Text = ""
  91.         '
  92.         'DA_1
  93.         '
  94.         Me.DA_1.SelectCommand = Me.OleDbSelectCommand1
  95.         Me.DA_1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "GCPPER", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("IDENT", "IDENT" ), New System.Data.Common.DataColumnMapping("CODE", "CODE" ), New System.Data.Common.DataColumnMapping("DESIG", "DESIG" ), New System.Data.Common.DataColumnMapping("PRENOM", "PRENOM" )})})
  96.         '
  97.         'OleDbSelectCommand1
  98.         '
  99.         Me.OleDbSelectCommand1.CommandText = "SELECT IDENT, CODE, DESIG, PRENOM FROM GCPPER"
  100.         Me.OleDbSelectCommand1.Connection = Me.CD_1
  101.         '
  102.         'CD_1
  103.         '
  104.         Me.CD_1.ConnectionString = "Integrated Security=SSPI;Packet Size=4096;Data Source=""DEV-INTERNET"";Tag with col" & _
  105.         "umn collation when possible=False;Initial Catalog=POINTEUSE;Use Procedure for Pr" & _
  106.         "epare=1;Auto Translate=True;Persist Security Info=False;Provider=""SQLOLEDB.1"";Wo" & _
  107.         "rkstation ID=""DEV-INTERNET"";Use Encryption for Data=False"
  108.         '
  109.         'DS_1
  110.         '
  111.         Me.DS_1.DataSetName = "DataSet2"
  112.         Me.DS_1.Locale = New System.Globalization.CultureInfo("fr-FR" )
  113.         '
  114.         'TT_INPUT
  115.         '
  116.         Me.TT_INPUT.Location = New System.Drawing.Point(40, 112)
  117.         Me.TT_INPUT.Name = "TT_INPUT"
  118.         Me.TT_INPUT.Size = New System.Drawing.Size(200, 20)
  119.         Me.TT_INPUT.TabIndex = 2
  120.         Me.TT_INPUT.Text = ""
  121.         '
  122.         'Label1
  123.         '
  124.         Me.Label1.Location = New System.Drawing.Point(40, 72)
  125.         Me.Label1.Name = "Label1"
  126.         Me.Label1.Size = New System.Drawing.Size(192, 40)
  127.         Me.Label1.TabIndex = 3
  128.         Me.Label1.Text = "Label1"
  129.         Me.Label1.Visible = False
  130.         '
  131.         'Timer_Pause
  132.         '
  133.         '
  134.         'Timer1
  135.         '
  136.         Me.Timer1.Enabled = True
  137.         Me.Timer1.Interval = 1000
  138.         '
  139.         'LL_DATE
  140.         '
  141.         Me.LL_DATE.Location = New System.Drawing.Point(32, 16)
  142.         Me.LL_DATE.Name = "LL_DATE"
  143.         Me.LL_DATE.Size = New System.Drawing.Size(216, 23)
  144.         Me.LL_DATE.TabIndex = 4
  145.         '
  146.         'Button1
  147.         '
  148.         Me.Button1.Location = New System.Drawing.Point(216, 224)
  149.         Me.Button1.Name = "Button1"
  150.         Me.Button1.Size = New System.Drawing.Size(64, 24)
  151.         Me.Button1.TabIndex = 5
  152.         Me.Button1.Text = "Sauver"
  153.         Me.Button1.Visible = False
  154.         '
  155.         'Form1
  156.         '
  157.         Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
  158.         Me.ClientSize = New System.Drawing.Size(360, 342)
  159.         Me.Controls.Add(Me.Button1)
  160.         Me.Controls.Add(Me.LL_DATE)
  161.         Me.Controls.Add(Me.TT_INPUT)
  162.         Me.Controls.Add(Me.TT_NOM)
  163.         Me.Controls.Add(Me.Label1)
  164.         Me.Name = "Form1"
  165.         Me.Text = "Form1"
  166.         CType(Me.DS_1, System.ComponentModel.ISupportInitialize).EndInit()
  167.         Me.ResumeLayout(False)
  169.     End Sub
  171. #End Region
  173.     Protected Overrides Sub Finalize()
  174.         MyBase.Finalize()
  175.     End Sub
  178.     Private Sub TT_NOM_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles TT_NOM.Validated
  180.         DateRef = Now
  182.         ' On construit la requete à partir de la zone saisie
  183.         Dim MySql As String
  184.         MySql = "SELECT IDENT, PRENOM+' '+DESIG FROM GCPPER WHERE CODE='" _
  185.                 & TT_NOM.Text & "'"
  187.         ' Création d'une commande qui s'adressera à la connection
  188.         ' que je viens de créer: J'ai créé un tuyau, je crée
  189.         ' maintenant l'ordre (OledbCommand) qui passera dans le tuyau
  190.         Dim MyRs As OleDb.OleDbCommand
  191.         MyRs = New OleDb.OleDbCommand
  193.         ' je dis quel tuyau utiliser
  194.         MyRs.Connection = MyConnection
  195.         ' quel type d'info je veux (table ou ici une requete)
  196.         MyRs.CommandType = CommandType.Text
  197.         ' le texte de la requete
  198.         MyRs.CommandText = MySql
  200.         ' Création d'un réceptacle qui recueillera les données
  201.         ' issues de la requete
  202.         Dim MyData As OleDb.OleDbDataReader
  203.         ' on charge le réceptacle en demandant l'exexution
  204.         ' de l'objet commande
  205.         MyData = MyRs.ExecuteReader()
  207.         ' il reste à travailler sur le résultat
  208.         ' l'instruction .read lit l'enregistrement suivant
  209.         If MyData.HasRows = False Then
  210.             Label1.Text = TT_NOM.Text & " est inconnu"
  211.             Label1.Visible = True
  212.             Timer_Pause.Interval = 2000
  213.             Timer_Pause.Enabled = True
  214.             TT_NOM.Text = ""
  215.         Else
  216.             MyData.Read()
  217.             TT_NOM.Text = MyData.GetString(1)
  218.             Gcpper_Ident = MyData.GetString(0)
  219.         End If
  220.         MyData.Close()
  223.     End Sub
  225.     Private Sub Timer_Pause_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer_Pause.Tick
  226.         Timer_Pause.Enabled = False
  227.         Label1.Visible = False
  229.     End Sub
  231.     Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  232.         LL_DATE.Text = Format(Now, "dd/MM/yyyy HH:mm:ss" )
  233.     End Sub
  235.     Private Sub sub_entree()
  236.         ' On construit la requete à partir de la zone saisie
  237.         Dim MySql As String
  238.         Dim MyRs As OleDb.OleDbCommand
  239.         MyRs = New OleDb.OleDbCommand
  241.         MySql = "INSERT INTO CB_TEMPS (IDENT,DATE_SAISIE,HEURE_SAISIE) VALUES ('" _
  242.                 & Gcpper_Ident & "','" & DateRef & "','" & DateRef & "')"
  244.         ' Création d'une commande qui s'adressera à la connection
  245.         ' que je viens de créer: J'ai créé un tuyau, je crée
  246.         ' maintenant l'ordre (OledbCommand) qui passera dans le tuyau
  248.         ' je dis quel tuyau utiliser
  249.         MyRs.Connection = MyConnection
  250.         ' quel type d'info je veux (table ou ici une requete)
  251.         MyRs.CommandType = CommandType.Text
  252.         ' le texte de la requete
  253.         MyRs.CommandText = MySql
  254.         If MyRs.ExecuteNonQuery() <> 1 Then
  255.             MsgBox("erreur, aucune ligne insérée sur l'entrée!" )
  256.         End If
  258.     End Sub
  259.     Private Sub TT_INPUT_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles TT_INPUT.Validated
  260.         '  Private Sub TT_INPUT_Validated((ByVal sender As Object, ByVal e As System.EventArgs) Handles TT_INPUT.Validated
  262.         If TT_INPUT.Text = "ENTREE" Then
  263.             Call sub_entree()
  264.         ElseIf TT_INPUT.Text = "SORTIE" Then
  265.             Call Sub_Sortie()
  266.         ElseIf Microsoft.VisualBasic.Left(TT_INPUT.Text, 2) = "OF" Then
  267.             Call sub_of()
  268.         Else    ' imputation
  269.             Call sub_imputation()
  270.         End If
  271.         TT_NOM.Text = ""
  272.         TT_INPUT.Text = ""
  273.     End Sub
  275.     Private Sub Sub_Sortie()
  276.         Dim MySql As String
  277.         Dim MyRs, MyRs2 As OleDb.OleDbCommand
  278.         Dim MyData As OleDb.OleDbDataReader
  279.         Dim MyCb_Temps_Ident As Int32
  280.         MyRs = New OleDb.OleDbCommand
  281.         MyRs2 = New OleDb.OleDbCommand
  283.         Do While True
  284.             ' On vérifie qu'il y a déjà une entrée
  285.             MySql = "SELECT IDENT FROM CB_TEMPS WHERE GCPPER_IDENT='" & Gcpper_Ident & "' AND "
  286.             MySql = MySql & "GCPIMP_IDENT is null AND GCPOFRES_IDENT is null AND DATE_FIN is null"
  288.             ' je dis quel tuyau utiliser
  289.             MyRs.Connection = MyConnection
  290.             MyRs.CommandType = CommandType.Text
  291.             MyRs.CommandText = MySql
  293.             MyData = MyRs.ExecuteReader()
  295.             ' si je n'ai pas d'entrée ouverte, il faut la créer
  296.             If MyData.HasRows = False Then
  297.                 MyData.Close()
  298.                 Call sub_entree()
  299.             Else
  300.                 MyData.Read()
  301.                 MyCb_Temps_Ident = MyData.GetInt32(0)
  303.                 MyData.Close()
  304.                 ' sortie réelle
  305.                 MySql = "UPDATE CB_TEMPS SET DATE_FIN='" & DateRef & "' WHERE IDENT=" & MyCb_Temps_Ident
  307.                 MyRs2.Connection = MyConnection
  308.                 MyRs2.CommandType = CommandType.Text
  309.                 MyRs2.CommandText = MySql
  310.                 If MyRs2.ExecuteNonQuery() <> 1 Then
  311.                     MsgBox("Oxygovl!!! sur la requête de sortie" )
  312.                 End If
  313.                 Exit Do
  315.             End If
  317.         Loop
  320.     End Sub


Les différences entre ce programme et celui compréhensible par un pocket PC ne doivent se trouvées que dans la déclaration des 'variables'?  

Reply

Marsh Posté le 30-04-2004 à 17:03:25   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed