Trouver un fichier de code source :
   

Version Française - English Version
Accueil > 

Visual Basic

 > 

ANNUTEL3.5

 > 

ASHSoft_annutel/mod.frm


ANNUTEL3.5

ASHSoft_annutel/mod.frm


Informations sur ce code source

Code Source ANNUTEL3.5
Auteur ashco
Fichier ASHSoft_annutel/mod.frm en Visual Basic, VB6, VB.NET, VB 2005, VB
Publié le 23/07/2012

Enfin je décide de partager un tout petit programme pour gérer les contacts téléphoniques, avec possibilité de de modification, de suppression et d'impression!
 

Fichier : ASHSoft_annutel/mod.frm

Nombre de lignes : 590 lignes


Afficher ce fichier en plein écran
  • VERSION 5.00
  • Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
  • Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
  • Begin VB.Form frm_mod
  • BackColor = &H80000002&
  • BorderStyle = 1 'Fixed Single
  • Caption = "ANNUTEL 3.5 _______ Modification"
  • ClientHeight = 4500
  • ClientLeft = 45
  • ClientTop = 375
  • ClientWidth = 9480
  • Icon = "mod.frx":0000
  • LinkTopic = "Form1"
  • MaxButton = 0 'False
  • MinButton = 0 'False
  • Picture = "mod.frx":0442
  • ScaleHeight = 4500
  • ScaleWidth = 9480
  • StartUpPosition = 2 'CenterScreen
  • Begin VB.TextBox txt_cod
  • BorderStyle = 0 'None
  • BeginProperty Font
  • Name = "Arial"
  • Size = 9.75
  • Charset = 0
  • Weight = 700
  • Underline = 0 'False
  • Italic = 0 'False
  • Strikethrough = 0 'False
  • EndProperty
  • Height = 345
  • Left = 1770
  • Locked = -1 'True
  • TabIndex = 18
  • Top = 780
  • Width = 2265
  • End
  • Begin VB.TextBox txt_not
  • Appearance = 0 'Flat
  • BackColor = &H00FFFFFF&
  • BorderStyle = 0 'None
  • BeginProperty Font
  • Name = "Arial"
  • Size = 11.25
  • Charset = 0
  • Weight = 400
  • Underline = 0 'False
  • Italic = -1 'True
  • Strikethrough = 0 'False
  • EndProperty
  • ForeColor = &H00000000&
  • Height = 945
  • Left = 1800
  • MultiLine = -1 'True
  • ScrollBars = 2 'Vertical
  • TabIndex = 6
  • Top = 2790
  • Width = 5595
  • End
  • Begin VB.TextBox txt_tel
  • Appearance = 0 'Flat
  • BackColor = &H00FFFFFF&
  • BorderStyle = 0 'None
  • BeginProperty Font
  • Name = "Arial"
  • Size = 11.25
  • Charset = 0
  • Weight = 700
  • Underline = 0 'False
  • Italic = 0 'False
  • Strikethrough = 0 'False
  • EndProperty
  • ForeColor = &H00000000&
  • Height = 315
  • Left = 1800
  • TabIndex = 5
  • Top = 2280
  • Width = 5595
  • End
  • Begin VB.TextBox txt_ad
  • Appearance = 0 'Flat
  • BackColor = &H00FFFFFF&
  • BorderStyle = 0 'None
  • BeginProperty Font
  • Name = "Arial"
  • Size = 11.25
  • Charset = 0
  • Weight = 700
  • Underline = 0 'False
  • Italic = 0 'False
  • Strikethrough = 0 'False
  • EndProperty
  • ForeColor = &H00000000&
  • Height = 315
  • Left = 1800
  • TabIndex = 4
  • Top = 1770
  • Width = 5595
  • End
  • Begin VB.TextBox txt_nom
  • Appearance = 0 'Flat
  • BackColor = &H00FFFFFF&
  • BorderStyle = 0 'None
  • BeginProperty Font
  • Name = "Arial"
  • Size = 11.25
  • Charset = 0
  • Weight = 700
  • Underline = 0 'False
  • Italic = 0 'False
  • Strikethrough = 0 'False
  • EndProperty
  • ForeColor = &H00000000&
  • Height = 315
  • Left = 1770
  • TabIndex = 3
  • Top = 1260
  • Width = 5625
  • End
  • Begin VB.Frame Frame1
  • BackColor = &H00800000&
  • BorderStyle = 0 'None
  • Caption = "Nouvel enregistrement"
  • BeginProperty Font
  • Name = "MS Sans Serif"
  • Size = 12
  • Charset = 0
  • Weight = 400
  • Underline = 0 'False
  • Italic = 0 'False
  • Strikethrough = 0 'False
  • EndProperty
  • ForeColor = &H00FFFFFF&
  • Height = 675
  • Left = 0
  • TabIndex = 1
  • Top = 0
  • Width = 9465
  • Begin VB.Label Label6
  • BackStyle = 0 'Transparent
  • Caption = "Modification"
  • BeginProperty Font
  • Name = "Arial"
  • Size = 14.25
  • Charset = 0
  • Weight = 400
  • Underline = 0 'False
  • Italic = -1 'True
  • Strikethrough = 0 'False
  • EndProperty
  • ForeColor = &H00FFFFFF&
  • Height = 375
  • Left = 150
  • TabIndex = 2
  • Top = 180
  • Width = 2625
  • End
  • End
  • Begin VB.Frame Frame3
  • BackColor = &H00800000&
  • BorderStyle = 0 'None
  • Caption = "Nouvel enregistrement"
  • BeginProperty Font
  • Name = "MS Sans Serif"
  • Size = 12
  • Charset = 0
  • Weight = 400
  • Underline = 0 'False
  • Italic = 0 'False
  • Strikethrough = 0 'False
  • EndProperty
  • ForeColor = &H00FFFFFF&
  • Height = 675
  • Left = 0
  • TabIndex = 0
  • Top = 3840
  • Width = 9465
  • Begin VB.Label Label7
  • Alignment = 1 'Right Justify
  • BackStyle = 0 'Transparent
  • Caption = "ASH SOFTWARES (C) 2012"
  • BeginProperty Font
  • Name = "Rockwell"
  • Size = 8.25
  • Charset = 0
  • Weight = 700
  • Underline = 0 'False
  • Italic = -1 'True
  • Strikethrough = 0 'False
  • EndProperty
  • ForeColor = &H00C0C0C0&
  • Height = 345
  • Left = 7350
  • TabIndex = 20
  • Top = 180
  • Width = 2115
  • End
  • End
  • Begin MSDataGridLib.DataGrid DataGrid2
  • Bindings = "mod.frx":300486
  • Height = 1035
  • Left = 1500
  • TabIndex = 7
  • Top = 3360
  • Visible = 0 'False
  • Width = 375
  • _ExtentX = 661
  • _ExtentY = 1826
  • _Version = 393216
  • HeadLines = 1
  • RowHeight = 15
  • BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
  • Name = "MS Sans Serif"
  • Size = 8.25
  • Charset = 0
  • Weight = 700
  • Underline = 0 'False
  • Italic = -1 'True
  • Strikethrough = 0 'False
  • EndProperty
  • BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
  • Name = "MS Sans Serif"
  • Size = 8.25
  • Charset = 0
  • Weight = 700
  • Underline = 0 'False
  • Italic = -1 'True
  • Strikethrough = 0 'False
  • EndProperty
  • ColumnCount = 2
  • BeginProperty Column00
  • DataField = ""
  • Caption = ""
  • BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
  • Type = 0
  • Format = ""
  • HaveTrueFalseNull= 0
  • FirstDayOfWeek = 0
  • FirstWeekOfYear = 0
  • LCID = 1036
  • SubFormatType = 0
  • EndProperty
  • EndProperty
  • BeginProperty Column01
  • DataField = ""
  • Caption = ""
  • BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
  • Type = 0
  • Format = ""
  • HaveTrueFalseNull= 0
  • FirstDayOfWeek = 0
  • FirstWeekOfYear = 0
  • LCID = 1036
  • SubFormatType = 0
  • EndProperty
  • EndProperty
  • SplitCount = 1
  • BeginProperty Split0
  • BeginProperty Column00
  • EndProperty
  • BeginProperty Column01
  • EndProperty
  • EndProperty
  • End
  • Begin MSAdodcLib.Adodc adc_tel
  • Height = 330
  • Left = 300
  • Top = 3570
  • Visible = 0 'False
  • Width = 1200
  • _ExtentX = 2117
  • _ExtentY = 582
  • ConnectMode = 0
  • CursorLocation = 3
  • IsolationLevel = -1
  • ConnectionTimeout= 15
  • CommandTimeout = 30
  • CursorType = 3
  • LockType = 3
  • CommandType = 2
  • CursorOptions = 0
  • CacheSize = 50
  • MaxRecords = 0
  • BOFAction = 0
  • EOFAction = 0
  • ConnectStringType= 1
  • Appearance = 1
  • BackColor = -2147483643
  • ForeColor = -2147483640
  • Orientation = 0
  • Enabled = -1
  • Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=BASE.mdb;Persist Security Info=False"
  • OLEDBString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=BASE.mdb;Persist Security Info=False"
  • OLEDBFile = ""
  • DataSourceName = ""
  • OtherAttributes = ""
  • UserName = ""
  • Password = ""
  • RecordSource = "CONTACT"
  • Caption = "Adodc1"
  • BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
  • Name = "MS Sans Serif"
  • Size = 8.25
  • Charset = 0
  • Weight = 700
  • Underline = 0 'False
  • Italic = -1 'True
  • Strikethrough = 0 'False
  • EndProperty
  • _Version = 393216
  • End
  • Begin VB.Image Image1
  • Height = 1650
  • Left = 7650
  • Picture = "mod.frx":30049C
  • Top = 690
  • Width = 1650
  • End
  • Begin VB.Label Label10
  • BackStyle = 0 'Transparent
  • Caption = "Code contact"
  • BeginProperty Font
  • Name = "Arial"
  • Size = 11.25
  • Charset = 0
  • Weight = 400
  • Underline = 0 'False
  • Italic = 0 'False
  • Strikethrough = 0 'False
  • EndProperty
  • ForeColor = &H00000000&
  • Height = 345
  • Left = 30
  • TabIndex = 19
  • Top = 780
  • Width = 1485
  • End
  • Begin VB.Label lab_quit
  • BackStyle = 0 'Transparent
  • Height = 435
  • Left = 6270
  • MousePointer = 99 'Custom
  • TabIndex = 17
  • Top = 3900
  • Width = 1095
  • End
  • Begin VB.Label lab_val
  • BackStyle = 0 'Transparent
  • Height = 435
  • Left = 4890
  • MousePointer = 99 'Custom
  • TabIndex = 16
  • Top = 3900
  • Width = 1095
  • End
  • Begin VB.Label Label8
  • BackStyle = 0 'Transparent
  • Caption = "Nom et prenoms"
  • BeginProperty Font
  • Name = "Arial"
  • Size = 11.25
  • Charset = 0
  • Weight = 400
  • Underline = 0 'False
  • Italic = 0 'False
  • Strikethrough = 0 'False
  • EndProperty
  • ForeColor = &H00000000&
  • Height = 405
  • Left = 30
  • TabIndex = 15
  • Top = 1260
  • Width = 1635
  • End
  • Begin VB.Shape Shape7
  • BorderColor = &H00C0C0C0&
  • BorderStyle = 6 'Inside Solid
  • Height = 435
  • Left = 1710
  • Shape = 4 'Rounded Rectangle
  • Top = 1200
  • Width = 5745
  • End
  • Begin VB.Shape Shape14
  • BorderColor = &H00C0C0C0&
  • BorderStyle = 6 'Inside Solid
  • Height = 435
  • Left = 1710
  • Shape = 4 'Rounded Rectangle
  • Top = 1710
  • Width = 5745
  • End
  • Begin VB.Shape Shape2
  • BorderColor = &H00C0C0C0&
  • BorderStyle = 6 'Inside Solid
  • Height = 435
  • Left = 1710
  • Shape = 4 'Rounded Rectangle
  • Top = 2220
  • Width = 5745
  • End
  • Begin VB.Shape Shape3
  • BorderColor = &H00C0C0C0&
  • BorderStyle = 6 'Inside Solid
  • Height = 1065
  • Left = 1710
  • Shape = 4 'Rounded Rectangle
  • Top = 2730
  • Width = 5745
  • End
  • Begin VB.Label Label1
  • BackStyle = 0 'Transparent
  • Caption = "Adresse"
  • BeginProperty Font
  • Name = "Arial"
  • Size = 11.25
  • Charset = 0
  • Weight = 400
  • Underline = 0 'False
  • Italic = 0 'False
  • Strikethrough = 0 'False
  • EndProperty
  • ForeColor = &H00000000&
  • Height = 405
  • Left = 60
  • TabIndex = 14
  • Top = 1770
  • Width = 885
  • End
  • Begin VB.Label Label2
  • BackStyle = 0 'Transparent
  • Caption = "N° de téléphone"
  • BeginProperty Font
  • Name = "Arial"
  • Size = 11.25
  • Charset = 0
  • Weight = 400
  • Underline = 0 'False
  • Italic = 0 'False
  • Strikethrough = 0 'False
  • EndProperty
  • ForeColor = &H00000000&
  • Height = 405
  • Left = 30
  • TabIndex = 13
  • Top = 2250
  • Width = 1575
  • End
  • Begin VB.Label Label3
  • BackStyle = 0 'Transparent
  • Caption = "Informations"
  • BeginProperty Font
  • Name = "Arial"
  • Size = 11.25
  • Charset = 0
  • Weight = 400
  • Underline = 0 'False
  • Italic = 0 'False
  • Strikethrough = 0 'False
  • EndProperty
  • ForeColor = &H00000000&
  • Height = 405
  • Left = 30
  • TabIndex = 12
  • Top = 2970
  • Width = 1575
  • End
  • Begin VB.Label Label12
  • BackColor = &H00A88826&
  • Height = 3135
  • Left = 7470
  • TabIndex = 11
  • Top = 690
  • Width = 135
  • End
  • Begin VB.Label Label5
  • BackColor = &H00A88826&
  • Height = 3135
  • Left = 9330
  • TabIndex = 10
  • Top = 690
  • Width = 135
  • End
  • Begin VB.Label Label4
  • BackStyle = 0 'Transparent
  • Height = 345
  • Left = 7710
  • MouseIcon = "mod.frx":30C1F0
  • MousePointer = 99 'Custom
  • TabIndex = 8
  • Top = 3360
  • Width = 1425
  • End
  • Begin VB.Label Label9
  • Alignment = 2 'Center
  • BackColor = &H00FFFFFF&
  • BackStyle = 0 'Transparent
  • Caption = "MODIFIER"
  • BeginProperty Font
  • Name = "Arial"
  • Size = 11.25
  • Charset = 0
  • Weight = 700
  • Underline = 0 'False
  • Italic = 0 'False
  • Strikethrough = 0 'False
  • EndProperty
  • ForeColor = &H00FFFFFF&
  • Height = 255
  • Left = 7740
  • TabIndex = 9
  • Top = 3390
  • Width = 1365
  • End
  • Begin VB.Shape Line1
  • BackColor = &H000000C0&
  • BackStyle = 1 'Opaque
  • FillStyle = 5 'Downward Diagonal
  • Height = 345
  • Left = 7680
  • Shape = 4 'Rounded Rectangle
  • Top = 3360
  • Width = 1455
  • End
  • Begin VB.Shape Shape1
  • BackColor = &H00400000&
  • BackStyle = 1 'Opaque
  • BorderColor = &H00008000&
  • Height = 375
  • Left = 7680
  • Shape = 4 'Rounded Rectangle
  • Top = 3360
  • Width = 1455
  • End
  • End
  • Attribute VB_Name = "frm_mod"
  • Attribute VB_GlobalNameSpace = False
  • Attribute VB_Creatable = False
  • Attribute VB_PredeclaredId = True
  • Attribute VB_Exposed = False
  • Private Sub Form_Unload(Cancel As Integer)
  • MENU.Show
  • Unload Me
  • End Sub
  • Private Sub Label4_Click()
  • Dim code As String
  • code = txt_cod.Text
  • If MsgBox("Voulez-vous vraiment enregistrer les modifications ?", vbQuestion + vbYesNo, "Enregistrer les modifications") = vbNo Then
  • Exit Sub
  • End If
  • 'enregistrement
  • adc_tel.Refresh
  • With adc_tel.Recordset
  • .Filter = "cod='" & Replace(MENU.txt_cod.Text, "'", "''") & "'"
  • .Fields("nom").Value = UCase(txt_nom.Text)
  • .Fields("adresse").Value = (txt_ad.Text)
  • .Fields("tel").Value = (txt_tel.Text)
  • If txt_not.Text = "" Then
  • .Fields("info").Value = ""
  • Else
  • .Fields("info").Value = (txt_not.Text)
  • End If
  • .Update
  • End With
  • adc_tel.Refresh
  • MENU.adc_tel.Refresh
  • 'Call txt_cod_Change
  • '=================================================
  • MENU.txt_nom.Text = MENU.adc_tel.Recordset.Fields("nom").Value
  • MENU.txt_ad.Text = MENU.adc_tel.Recordset.Fields("adresse").Value
  • MENU.txt_tel.Text = MENU.adc_tel.Recordset.Fields("tel").Value
  • MENU.txt_not.Text = MENU.adc_tel.Recordset.Fields("info").Value
  • '===================================================
  • MsgBox "Modification effectuée avec succès.", vbOKOnly + vbInformation, "Enregistrement de " & code
  • MENU.adc_tel.Recordset.Sort = "nom"
  • MENU.adc_tel.Recordset.Find ("cod='" & Replace(code, "'", "''") & "'")
  • MENU.Show
  • Unload Me
  • End Sub
  • Private Sub label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  • Line1.Visible = True
  • End Sub
  • Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  • Line1.Visible = False
  • End Sub


Liste des fichiers du ZIP

FichierTaille
ASHSoft_annutel/2.frm19,59 Ko
ASHSoft_annutel/2.frx3,05 Mo
ASHSoft_annutel/2.log210 o
ASHSoft_annutel/ARRPL.bmp3 Mo
ASHSoft_annutel/BASE.mdb304 Ko
ASHSoft_annutel/de.DCA3,78 Ko
ASHSoft_annutel/de.Dsr2,97 Ko
ASHSoft_annutel/enr.frm10,39 Ko
ASHSoft_annutel/enr.log420 o
ASHSoft_annutel/FAC.PDM4,63 Ko
ASHSoft_annutel/FAC.TXT469 o
ASHSoft_annutel/FAC.vbp1,66 Ko
ASHSoft_annutel/FAC.vbw365 o
ASHSoft_annutel/frm_ap.frm9,41 Ko
ASHSoft_annutel/frm_ap.frx44,71 Ko
ASHSoft_annutel/frmSplash.frm5,96 Ko
ASHSoft_annutel/frmSplash.frx41,46 Ko
ASHSoft_annutel/MENU.frm40,71 Ko
ASHSoft_annutel/MENU.frx3,06 Mo
ASHSoft_annutel/MENU.log421 o
ASHSoft_annutel/mod.frm19,26 Ko
ASHSoft_annutel/mod.frx3,05 Mo
ASHSoft_annutel/mod.log210 o
ASHSoft_annutel/rpt_cli.DCA148,99 Ko
ASHSoft_annutel/rpt_cli.Dsr16,54 Ko
ASHSoft_annutel/rpt_cli.dsx50,72 Ko
ASHSoft_annutel/TEL.bmp47,32 Ko

Pour télécharger le zip au complet, veuillez vous rendre sur cette page :
Télécharger ANNUTEL3.5


Sources du même langage comportant un zip


  • Visual Basic, VB6, VB.NET, VB 2005, VB Excel impression par lot
    Bonjour, Grâce à ce module, vous pourrez lancer des impressions d'un répertoire complet contenant des fichiers Excel sans avoir à ouvrir o...
    Langage : Visual Basic, VB6, VB.NET, VB 2005, VB, publié le 20/05/2013 par beaubeau21

  • Visual Basic, VB6, VB.NET, VB 2005, VB Excel suppression par lot d'une feuille
    Bonjour, Grâce à ce code vous pourrez supprimer la 2eme feuille de tous les fichiers Excel d'un répertoire sélectionné. mon site : http...
    Langage : Visual Basic, VB6, VB.NET, VB 2005, VB, publié le 20/05/2013 par beaubeau21

  • Visual Basic, VB6, VB.NET, VB 2005, VB Personnalisation du ruban sous excel 2007 - 2 eme version
    Enfin voilà , chose promise voici donc un classeur excel qui assemble les fichiers customUI et rels et qui permet d'y ajouter directement se...
    Langage : Visual Basic, VB6, VB.NET, VB 2005, VB, publié le 19/05/2013 par warlok2008

  • Visual Basic, VB6, VB.NET, VB 2005, VB Wifi signal meter
    Projet pour avoir le niveau du signal wifi. On utilise le WMI de Windows et la classe NDIS_80211. Tout est pret dans le zip, mais si vous v...
    Langage : Visual Basic, VB6, VB.NET, VB 2005, VB, publié le 19/05/2013 par lluismas

  • Visual Basic, VB6, VB.NET, VB 2005, VB Ephemeride w8
    Cet Ephéméride fonctionne sous Windows 7 et Windows 8 contrairement a celui-ci qui ne fonctionne que sous XP: http://www.vbfrance.com/codes...
    Langage : Visual Basic, VB6, VB.NET, VB 2005, VB, publié le 18/05/2013 par Le Pivert

Voir la suite...





Logiciels à télécharger...

  • Nego Facturation (1.84) [Gratuit / Freeware]
    Nego Facturation (1.84) [Gratuit / Freeware]
    Nego Facturation est un logiciel complet qui permet de gérer vos factures et devis très simplement. Ce programme est doté d'une ergonomie incomparable déstinée à satisfaire les utilisateurs les plu...
  • Revealer Keylogger Free (2.07) [Gratuit / Freeware]
    Revealer Keylogger Free (2.07) [Gratuit / Freeware]
    Keylogger invisible et gratuit pour Windows 8, 7, Vista ou XP. Revealer Keylogger Free vous permet de surveiller l'activité des utilisateurs de votre ordinateur et d'enregistrer toutes les touches du ...
  • Devis-Factures PHMSD (2.1.0.1)
    Devis-Factures PHMSD (2.1.0.1)
    Configuration minimale Nécessite Windows™ 2000, XP, Windows 7, 8, Vista (Service Pack à jour) - Processeur 500 Mhz (700 Mhz conseillé) - 256 Mo de Ram - 100 Mo d'espace disque disponible po...

Sondage...

Le top des photos

Photo ??Photo ???????????????
Photo ????????Photo ????????
 

Développement réalisé par Nicolas SOREL (Nix) et Emmanuel (EBArtSoft) avec l'aide de Cyril DURAND, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,52 sec