CodeS-SourceS Files, Base de données des Zip de CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

Trouver un fichier de code source :

Version Française -

English Version

Accueil >

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

Fichier	Taille
ASHSoft_annutel/2.frm	19,59 Ko
ASHSoft_annutel/2.frx	3,05 Mo
ASHSoft_annutel/2.log	210 o
ASHSoft_annutel/ARRPL.bmp	3 Mo
ASHSoft_annutel/BASE.mdb	304 Ko
ASHSoft_annutel/de.DCA	3,78 Ko
ASHSoft_annutel/de.Dsr	2,97 Ko
ASHSoft_annutel/enr.frm	10,39 Ko
ASHSoft_annutel/enr.log	420 o
ASHSoft_annutel/FAC.PDM	4,63 Ko
ASHSoft_annutel/FAC.TXT	469 o
ASHSoft_annutel/FAC.vbp	1,66 Ko
ASHSoft_annutel/FAC.vbw	365 o
ASHSoft_annutel/frm_ap.frm	9,41 Ko
ASHSoft_annutel/frm_ap.frx	44,71 Ko
ASHSoft_annutel/frmSplash.frm	5,96 Ko
ASHSoft_annutel/frmSplash.frx	41,46 Ko
ASHSoft_annutel/MENU.frm	40,71 Ko
ASHSoft_annutel/MENU.frx	3,06 Mo
ASHSoft_annutel/MENU.log	421 o
ASHSoft_annutel/mod.frm	19,26 Ko
ASHSoft_annutel/mod.frx	3,05 Mo
ASHSoft_annutel/mod.log	210 o
ASHSoft_annutel/rpt_cli.DCA	148,99 Ko
ASHSoft_annutel/rpt_cli.Dsr	16,54 Ko
ASHSoft_annutel/rpt_cli.dsx	50,72 Ko
ASHSoft_annutel/TEL.bmp	47,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

Extraire images et sons d'une présentation powerpoint par clic droit
Extraire les images et le son d'une présentation par clic droit sur les fichiers PPS et PPT. Un dossier est crée sous le nom de la présentat...
Langage : Visual Basic, VB6, VB.NET, VB 2005, VB, publié le 15/06/2013 par Le Pivert
Transformer un nombre avec virgule en fraction
Ce petit code convertit les nombres avec vigules en fraction exemple: 0,025 = 1/40 mais pas le contraire c'est amusant et sans prétentio...
Langage : Visual Basic, VB6, VB.NET, VB 2005, VB, publié le 15/06/2013 par alpha5
Xtcr retire les sauts de ligne multiple
Petit utilitaire qui permet de retirer les sauts de ligne multiple d'un source en tout langage. La ou il y avait 2,3 ou 100 saut de ligne ...
Langage : Visual Basic, VB6, VB.NET, VB 2005, VB, publié le 31/05/2013 par ccgousset
Encore un source sur les base de donnée au format dao et accdb
Ce soft a été fait pour un ami, j'y ai donc mis tout mon savoir ... je sais, sa va pas loin ! On fait ce qu'on peut. Sont reconnu par le p...
Langage : Visual Basic, VB6, VB.NET, VB 2005, VB, publié le 30/05/2013 par Galactus13
Récupére les données d'une cellule de plusieurs fichier.
Bonjour, http://vbacool.jimdo.com/excel/vba/ Ce code vous permettra de récupérer le contenu d'une cellule de plusieurs fichier excel.
Langage : Visual Basic, VB6, VB.NET, VB 2005, VB, publié le 30/05/2013 par beaubeau21

Voir la suite...

Derniers codes sources...

Jouer l'animation flash par CodeSource911
Supprimer ou ajouter dans un array avec facilité par ucfoutu
Envoyer un fichier sous wcf par okosa
Php info shoutcast + pochettes + actualisation par Rataleone
Extraire images et sons d'une présentation powe... par Le Pivert
Transformer un nombre avec virgule en fraction par alpha5
Wordpress : afficher le début d'un article mais... par eakle

Guide achat

Kingston Mémoires génériques DDR3 SDRAM
Non ECC Unbuffered DDR3 SDRAM, 600 MHz, DIMM 240 broches, 4 modules
Kingston Mémoires génériques DDR3 SDRAM
Non ECC Unbuffered DDR3 SDRAM, 600 MHz, DIMM 240 broches, 4 modules
American Dj Supply American DJ Matrix Beam LED

Logiciels à télécharger...

Nego Facturation (1.85) [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...
Devis-Factures PHMSD (2.2.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...
WDmemoCode (2.0.0.1)
WDmemoCode a été conçu pour aider les développeurs Windev à créer/compléter et conserver une base de données des principaux codes et autres procédures locales ou globales utilisés fréquemment dans les...

Sondage...

voter aux sondages de ce site, cliquez ici

Le top des photos

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 : 1,28 sec

Visual Basic

ANNUTEL3.5

ASHSoft_annutel/mod.frm

ANNUTEL3.5

ASHSoft_annutel/mod.frm

Informations sur ce code source

Fichier : ASHSoft_annutel/mod.frm

Liste des fichiers du ZIP

Sources du même langage comportant un zip

Derniers codes sources...

Guide achat

Logiciels à télécharger...

Sondage...

Le top des photos