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/MENU.frm

ANNUTEL3.5

ASHSoft_annutel/MENU.frm

Informations sur ce code source

Code Source	ANNUTEL3.5
Auteur	ashco
Fichier	ASHSoft_annutel/MENU.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/MENU.frm

Nombre de lignes : 1283 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 MENU 
   BackColor       =   &H80000002&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "ANNUTEL 3.5 _______ Gestion des contacts"
   ClientHeight    =   9180
   ClientLeft      =   45
   ClientTop       =   375
   ClientWidth     =   14460
   Icon            =   "MENU.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "MENU.frx":0442
   ScaleHeight     =   9180
   ScaleWidth      =   14460
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame6 
      BackColor       =   &H00808080&
      BorderStyle     =   0  'None
      Height          =   75
      Left            =   11970
      TabIndex        =   41
      Top             =   1380
      Width           =   2295
   End
   Begin VB.Frame Frame3 
      BackColor       =   &H00808080&
      BorderStyle     =   0  'None
      Height          =   75
      Left            =   11970
      TabIndex        =   37
      Top             =   4560
      Width           =   2295
   End
   Begin VB.CommandButton cmdfin 
      BackColor       =   &H00E0E0E0&
      Height          =   315
      Left            =   10740
      Picture         =   "MENU.frx":300486
      Style           =   1  'Graphical
      TabIndex        =   25
      ToolTipText     =   "dernier enregistrement"
      Top             =   8100
      UseMaskColor    =   -1  'True
      Width           =   735
   End
   Begin VB.CommandButton cmdsui 
      BackColor       =   &H00E0E0E0&
      Height          =   315
      Left            =   9840
      Picture         =   "MENU.frx":3007C8
      Style           =   1  'Graphical
      TabIndex        =   24
      ToolTipText     =   "suivant"
      Top             =   8100
      UseMaskColor    =   -1  'True
      Width           =   735
   End
   Begin VB.CommandButton cmdpre 
      BackColor       =   &H00E0E0E0&
      Height          =   315
      Left            =   8940
      Picture         =   "MENU.frx":300B0A
      Style           =   1  'Graphical
      TabIndex        =   23
      ToolTipText     =   "precedent"
      Top             =   8100
      UseMaskColor    =   -1  'True
      Width           =   735
   End
   Begin VB.CommandButton cmddeb 
      BackColor       =   &H00E0E0E0&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   8070
      Picture         =   "MENU.frx":300E4C
      Style           =   1  'Graphical
      TabIndex        =   22
      ToolTipText     =   "premier enregistrement"
      Top             =   8100
      UseMaskColor    =   -1  'True
      Width           =   735
   End
   Begin VB.TextBox txt_nom 
      BackColor       =   &H00F6D5A3&
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   405
      Left            =   2160
      Locked          =   -1  'True
      TabIndex        =   17
      Top             =   1710
      Width           =   9555
   End
   Begin VB.TextBox txt_ad 
      BackColor       =   &H00F6D5A3&
      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          =   405
      Left            =   2130
      Locked          =   -1  'True
      TabIndex        =   16
      Top             =   2370
      Width           =   9555
   End
   Begin VB.TextBox txt_tel 
      BackColor       =   &H00F6D5A3&
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   405
      Left            =   2130
      Locked          =   -1  'True
      TabIndex        =   15
      Top             =   3030
      Width           =   9555
   End
   Begin VB.TextBox txt_not 
      BackColor       =   &H00F6D5A3&
      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          =   675
      Left            =   2130
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   14
      Top             =   3720
      Width           =   9555
   End
   Begin VB.Frame Frame4 
      BackColor       =   &H00808080&
      BorderStyle     =   0  'None
      Height          =   75
      Left            =   60
      TabIndex        =   13
      Top             =   1380
      Width           =   11655
   End
   Begin VB.Frame Frame2 
      BackColor       =   &H00800000&
      BorderStyle     =   0  'None
      Caption         =   "Frame1"
      Height          =   675
      Left            =   0
      TabIndex        =   1
      Top             =   8490
      Width           =   14475
      Begin VB.Timer tmr1 
         Interval        =   1000
         Left            =   7020
         Top             =   120
      End
      Begin VB.Shape Shape9 
         BorderColor     =   &H00E0E0E0&
         Height          =   585
         Left            =   11790
         Shape           =   4  'Rounded Rectangle
         Top             =   60
         Width           =   2625
      End
      Begin VB.Line Line5 
         BorderColor     =   &H00FFFFFF&
         BorderStyle     =   2  'Dash
         X1              =   4500
         X2              =   4230
         Y1              =   60
         Y2              =   630
      End
      Begin VB.Shape Shape8 
         BorderColor     =   &H00E0E0E0&
         Height          =   585
         Left            =   30
         Shape           =   4  'Rounded Rectangle
         Top             =   60
         Width           =   6435
      End
      Begin VB.Label lab3 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00E0E0E0&
         Height          =   465
         Left            =   4380
         TabIndex        =   40
         Top             =   150
         Width           =   2055
      End
      Begin VB.Label Label3 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "ASH SOFTWARES (C) 2012"
         BeginProperty Font 
            Name            =   "Rockwell"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C0C0C0&
         Height          =   345
         Left            =   11880
         TabIndex        =   6
         Top             =   180
         Width           =   2445
      End
      Begin VB.Label lab1 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00E0E0E0&
         Height          =   480
         Left            =   60
         TabIndex        =   3
         Top             =   150
         Width           =   4275
      End
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00800000&
      BorderStyle     =   0  'None
      Caption         =   "Frame1"
      Height          =   675
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   14445
      Begin VB.TextBox txt_cod 
         DataField       =   "cod"
         DataSource      =   "adc_tel"
         Height          =   345
         Left            =   4260
         TabIndex        =   18
         Top             =   60
         Visible         =   0   'False
         Width           =   435
      End
      Begin VB.TextBox txt_rec 
         Alignment       =   2  'Center
         BackColor       =   &H00F3F3F3&
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         Height          =   435
         Left            =   10680
         TabIndex        =   7
         Top             =   120
         Width           =   3675
      End
      Begin VB.Label Label15 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Recherche contact"
         BeginProperty Font 
            Name            =   "Arial Narrow"
            Size            =   14.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00E0E0E0&
         Height          =   375
         Left            =   6690
         TabIndex        =   39
         Top             =   180
         Width           =   3795
      End
      Begin VB.Shape Shape4 
         BackStyle       =   1  'Opaque
         BorderColor     =   &H00A88826&
         Height          =   495
         Left            =   10650
         Shape           =   4  'Rounded Rectangle
         Top             =   90
         Width           =   3735
      End
      Begin VB.Shape Shape3 
         BorderColor     =   &H00A88826&
         Height          =   555
         Left            =   6240
         Shape           =   4  'Rounded Rectangle
         Top             =   60
         Width           =   8175
      End
      Begin VB.Label Label2 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "ANNUTEL  3.5"
         BeginProperty Font 
            Name            =   "Bookman Old Style"
            Size            =   15.75
            Charset         =   0
            Weight          =   600
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C0C0C0&
         Height          =   435
         Left            =   -30
         TabIndex        =   5
         Top             =   150
         Width           =   2805
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "ANNUTEL  3.5"
         BeginProperty Font 
            Name            =   "Bookman Old Style"
            Size            =   15.75
            Charset         =   0
            Weight          =   600
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000040C0&
         Height          =   435
         Left            =   0
         TabIndex        =   4
         Top             =   150
         Width           =   2805
      End
      Begin VB.Label lab2 
         Alignment       =   2  'Center
         BackColor       =   &H00D3A565&
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   26.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000040&
         Height          =   600
         Left            =   180
         TabIndex        =   2
         Top             =   750
         Width           =   2970
      End
   End
   Begin MSDataGridLib.DataGrid DataGrid1 
      Bindings        =   "MENU.frx":30118E
      Height          =   3315
      Left            =   60
      TabIndex        =   19
      Top             =   4680
      Width           =   11655
      _ExtentX        =   20558
      _ExtentY        =   5847
      _Version        =   393216
      AllowUpdate     =   0   'False
      Appearance      =   0
      BackColor       =   14737632
      BorderStyle     =   0
      ForeColor       =   4194304
      HeadLines       =   1
      RowHeight       =   19
      RowDividerStyle =   6
      FormatLocked    =   -1  'True
      BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ColumnCount     =   3
      BeginProperty Column00 
         DataField       =   "nom"
         Caption         =   "NOM & PRENOMS"
         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       =   "adresse"
         Caption         =   "ADRESSE"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   1036
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column02 
         DataField       =   "tel"
         Caption         =   "TELEPHONE"
         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 
         ScrollBars      =   3
         BeginProperty Column00 
            ColumnWidth     =   3855,118
         EndProperty
         BeginProperty Column01 
            ColumnWidth     =   4619,906
         EndProperty
         BeginProperty Column02 
            ColumnWidth     =   5190,236
         EndProperty
      EndProperty
   End
   Begin MSDataGridLib.DataGrid DataGrid2 
      Bindings        =   "MENU.frx":3011A4
      Height          =   945
      Left            =   60
      TabIndex        =   32
      Top             =   3540
      Visible         =   0   'False
      Width           =   375
      _ExtentX        =   661
      _ExtentY        =   1667
      _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            =   750
      Top             =   4260
      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 MSAdodcLib.Adodc adc_tel1 
      Height          =   330
      Left            =   210
      Top             =   4140
      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.Frame Frame5 
      BackColor       =   &H00808080&
      BorderStyle     =   0  'None
      Height          =   75
      Left            =   60
      TabIndex        =   20
      Top             =   4560
      Width           =   11685
   End
   Begin VB.Image Image1 
      Height          =   1650
      Left            =   12300
      Picture         =   "MENU.frx":3011BB
      Top             =   5700
      Width           =   1650
   End
   Begin VB.Label lab_imp 
      BackStyle       =   0  'Transparent
      Height          =   435
      Left            =   12060
      MouseIcon       =   "MENU.frx":30CF0F
      MousePointer    =   99  'Custom
      TabIndex        =   34
      ToolTipText     =   "Imprimer état des contacts"
      Top             =   3990
      Width           =   2115
   End
   Begin VB.Label lan_pro 
      BackStyle       =   0  'Transparent
      Height          =   495
      Left            =   12660
      MouseIcon       =   "MENU.frx":30D7D9
      MousePointer    =   99  'Custom
      TabIndex        =   38
      ToolTipText     =   "A PROPOS"
      Top             =   780
      Width           =   825
   End
   Begin VB.Label Label12 
      BackColor       =   &H00A88826&
      Height          =   7785
      Left            =   11760
      TabIndex        =   35
      Top             =   690
      Width           =   195
   End
   Begin VB.Label Label13 
      BackColor       =   &H00A88826&
      Height          =   7785
      Left            =   14280
      TabIndex        =   36
      Top             =   690
      Width           =   195
   End
   Begin VB.Label Label11 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "IMPRIMER"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   315
      Left            =   12210
      TabIndex        =   33
      Top             =   4080
      Width           =   1905
   End
   Begin VB.Image imginsérer 
      Height          =   480
      Left            =   12840
      Picture         =   "MENU.frx":30E0A3
      ToolTipText     =   "A propos"
      Top             =   780
      Width           =   480
   End
   Begin VB.Label lab_sup 
      BackStyle       =   0  'Transparent
      Height          =   435
      Left            =   12060
      MouseIcon       =   "MENU.frx":30E3AD
      MousePointer    =   99  'Custom
      TabIndex        =   30
      ToolTipText     =   "Supprimer contact"
      Top             =   3210
      Width           =   2115
   End
   Begin VB.Label lab_mod 
      BackStyle       =   0  'Transparent
      Height          =   405
      Left            =   12060
      MouseIcon       =   "MENU.frx":30EC77
      MousePointer    =   99  'Custom
      TabIndex        =   29
      ToolTipText     =   "Modifier enregistrement"
      Top             =   2430
      Width           =   2115
   End
   Begin VB.Label Label5 
      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          =   315
      Left            =   12210
      TabIndex        =   28
      Top             =   2520
      Width           =   1905
   End
   Begin VB.Label lab_nou 
      BackStyle       =   0  'Transparent
      Height          =   435
      Left            =   12060
      MouseIcon       =   "MENU.frx":30F541
      MousePointer    =   99  'Custom
      TabIndex        =   26
      ToolTipText     =   "Nouveau contact"
      Top             =   1680
      Width           =   2115
   End
   Begin VB.Label lab_to 
      BackColor       =   &H00C0C0C0&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000C0&
      Height          =   360
      Left            =   120
      TabIndex        =   21
      Top             =   8070
      Width           =   4305
   End
   Begin VB.Label Label8 
      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            =   240
      TabIndex        =   12
      Top             =   2370
      Width           =   885
   End
   Begin VB.Label Label7 
      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            =   240
      TabIndex        =   11
      Top             =   3720
      Width           =   1275
   End
   Begin VB.Label Label6 
      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          =   375
      Left            =   240
      TabIndex        =   10
      Top             =   3030
      Width           =   1665
   End
   Begin VB.Label lab_no 
      Alignment       =   2  'Center
      BackColor       =   &H00A88826&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   20.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   615
      Left            =   90
      TabIndex        =   9
      Top             =   720
      Width           =   11595
   End
   Begin VB.Label Label4 
      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            =   240
      TabIndex        =   8
      Top             =   1740
      Width           =   1725
   End
   Begin VB.Shape Shape5 
      BorderColor     =   &H00E0E0E0&
      Height          =   405
      Left            =   60
      Shape           =   4  'Rounded Rectangle
      Top             =   8040
      Width           =   11685
   End
   Begin VB.Shape Line2 
      BackColor       =   &H000000C0&
      BackStyle       =   1  'Opaque
      BorderStyle     =   0  'Transparent
      FillStyle       =   5  'Downward Diagonal
      Height          =   495
      Left            =   12000
      Shape           =   4  'Rounded Rectangle
      Top             =   2400
      Width           =   2235
   End
   Begin VB.Shape Shape2 
      BackColor       =   &H00400000&
      BackStyle       =   1  'Opaque
      BorderColor     =   &H00008000&
      Height          =   525
      Left            =   12000
      Shape           =   4  'Rounded Rectangle
      Top             =   2400
      Width           =   2235
   End
   Begin VB.Label Label9 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "NOUVEAU"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   315
      Left            =   12180
      TabIndex        =   27
      Top             =   1770
      Width           =   1905
   End
   Begin VB.Shape Line1 
      BackColor       =   &H000000C0&
      BackStyle       =   1  'Opaque
      FillStyle       =   5  'Downward Diagonal
      Height          =   495
      Left            =   12000
      Shape           =   4  'Rounded Rectangle
      Top             =   1650
      Width           =   2235
   End
   Begin VB.Shape Shape1 
      BackColor       =   &H00400000&
      BackStyle       =   1  'Opaque
      BorderColor     =   &H00008000&
      Height          =   525
      Left            =   12000
      Shape           =   4  'Rounded Rectangle
      Top             =   1650
      Width           =   2235
   End
   Begin VB.Shape Line4 
      BackColor       =   &H000000C0&
      BackStyle       =   1  'Opaque
      FillStyle       =   5  'Downward Diagonal
      Height          =   495
      Left            =   12000
      Shape           =   4  'Rounded Rectangle
      Top             =   3960
      Width           =   2235
   End
   Begin VB.Shape Shape6 
      BackColor       =   &H00400000&
      BackStyle       =   1  'Opaque
      BorderColor     =   &H00008000&
      Height          =   525
      Left            =   12000
      Shape           =   4  'Rounded Rectangle
      Top             =   3960
      Width           =   2235
   End
   Begin VB.Label Label10 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "SUPPRIMER"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   315
      Left            =   12180
      TabIndex        =   31
      Top             =   3300
      Width           =   1905
   End
   Begin VB.Shape Line3 
      BackColor       =   &H000000C0&
      BackStyle       =   1  'Opaque
      FillStyle       =   5  'Downward Diagonal
      Height          =   495
      Left            =   12000
      Shape           =   4  'Rounded Rectangle
      Top             =   3180
      Width           =   2235
   End
   Begin VB.Shape Shape7 
      BackColor       =   &H00400000&
      BackStyle       =   1  'Opaque
      BorderColor     =   &H00008000&
      Height          =   525
      Left            =   12000
      Shape           =   4  'Rounded Rectangle
      Top             =   3180
      Width           =   2235
   End
End
Attribute VB_Name = "MENU"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False




Private Sub Form_Load()
On Error Resume Next

If adc_tel.Recordset.RecordCount = 0 Then
    cmdpre.Enabled = False
    cmddeb.Enabled = False
    cmdfin.Enabled = False
    cmdsui.Enabled = False
    Else
        cmdpre.Enabled = True
        cmddeb.Enabled = True
        cmdfin.Enabled = True
        cmdsui.Enabled = True
End If

adc_tel.Recordset.Sort = "nom"
End Sub



Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next

Dim X As Long
Dim i As Long
If (MsgBox("Voulez-vous vraiment quitter le programme?", vbYesNo + vbQuestion, "ANNUTEL 3.5") = vbYes) Then
i = 80
For X = Me.Height To 450 Step -i
    DoEvents
    Me.Move Me.Left, Me.Top + (i \ 2), Me.Width, X
Next X
For X = Me.Width To 1000 Step -i
    DoEvents
    Me.Move Me.Left + (i \ 2), Me.Top, X, Me.Height
Next X
End

Else
Cancel = 1
End If
End Sub

Private Sub lan_pro_Click()
frm_ap.Show , Me
End Sub

Private Sub tmr1_Timer()
lab1.Caption = Format(Now, "dddd, dd mmmm yyyy")
lab3.Caption = Format(Now, "hh : nn : ss")
End Sub

Private Sub txt_cod_Change()
On Error Resume Next
If txt_cod.Text <> "" Then
    With adc_tel.Recordset
        txt_nom.Text = .Fields("nom").Value
        txt_ad.Text = .Fields("adresse").Value
        txt_tel.Text = .Fields("tel").Value
        txt_not.Text = .Fields("info").Value
        lab_to.Caption = "CONTACTS ENREGISTRES  = " & adc_tel.Recordset.RecordCount
    
    End With
    Else
        txt_nom.Text = ""
        txt_ad.Text = ""
        txt_tel.Text = ""
        txt_not.Text = ""
End If
End Sub



Private Sub cmddeb_Click()
On Error Resume Next
        adc_tel.Recordset.MoveFirst
        cmddeb.Enabled = False
        cmdfin.Enabled = True
        cmdpre.Enabled = True
        cmdsui.Enabled = True
If adc_tel.Recordset.BOF Then
    adc_tel.Recordset.MoveFirst
    cmddeb.Enabled = False
    cmdpre.Enabled = False
End If
End Sub

Private Sub cmdfin_Click()
On Error Resume Next
        adc_tel.Recordset.MoveLast
        cmddeb.Enabled = True
        cmdfin.Enabled = False
        cmdpre.Enabled = True
        cmdsui.Enabled = True
If adc_tel.Recordset.BOF Then
    adc_tel.Recordset.MoveFirst
    cmdfin.Enabled = False
    cmdsui.Enabled = False
End If
End Sub

Private Sub cmdpre_Click()
On Error Resume Next
        adc_tel.Recordset.MovePrevious
        cmddeb.Enabled = True
        cmdfin.Enabled = True
        cmdpre.Enabled = True
        cmdsui.Enabled = True
If adc_tel.Recordset.BOF Then
    adc_tel.Recordset.MoveFirst
    cmdpre.Enabled = False
    cmddeb.Enabled = False
End If
End Sub

Private Sub cmdsui_Click()
On Error Resume Next
        adc_tel.Recordset.MoveNext
        cmdsui.Enabled = True
        cmddeb.Enabled = True
        cmdfin.Enabled = True
        cmdpre.Enabled = True
If adc_tel.Recordset.EOF Then
    adc_tel.Recordset.MoveLast
    cmdsui.Enabled = False
    cmdfin.Enabled = False
End If
End Sub

Private Sub txt_rec_Change()
On Error Resume Next
If Me.txt_rec.Text <> "" Then
        'Filtre sur le contenu du textbox + * (donc filtre sur les noms commencant par le contenu du textbox)
        adc_tel.Recordset.Filter = " [nom] LIKE '" & Me.txt_rec.Text & "*' "
        adc_tel.Recordset.Requery
        lab_no.Caption = txt_nom.Text
        
    Else
       adc_tel.Recordset.Filter = ""
       adc_tel.Recordset.Requery
       cbo_ann = Format(Now, "yyyy")
       lab_no.Caption = ""
      
    End If
End Sub

Private Sub lab_imp_Click()
On Error Resume Next

de.rsCONTACTS.Sort = "nom"
rpt_cli.Show , Me
End Sub

Private Sub lab_imp_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Line4.Visible = True
End Sub

Private Sub lab_mod_Click()
On Error Resume Next
If txt_cod.Text = "" Then
    MsgBox "Aucun enregistrement à modifier.", vbInformation + vbOKOnly, "ANNUTEL 3.5"
    Exit Sub
End If
frm_mod.adc_tel.Recordset.Filter = "cod='" & Replace(MENU.txt_cod.Text, "'", "''") & "'"
With frm_mod
    .txt_cod.Text = frm_mod.adc_tel.Recordset.Fields("cod").Value
    .txt_nom.Text = frm_mod.adc_tel.Recordset.Fields("nom").Value
    .txt_ad.Text = frm_mod.adc_tel.Recordset.Fields("adresse").Value
    .txt_tel.Text = frm_mod.adc_tel.Recordset.Fields("tel").Value
    .txt_not.Text = frm_mod.adc_tel.Recordset.Fields("info").Value
End With
frm_mod.Show , Me

End Sub

Private Sub lab_mod_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Line2.Visible = True
End Sub

Private Sub lab_nou_Click()
enr.Show , Me
End Sub

Private Sub lab_nou_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Line1.Visible = True
End Sub

Private Sub lab_sup_Click()
On Error Resume Next
If txt_cod = "" Then
    MsgBox "Aucun contact à supprimer.", vbInformation + vbOKOnly, "Erreur de suppression"
    Exit Sub
End If
If MsgBox("Voulez-vous vraiment supprimer le contact " & vbCr & txt_nom.Text & " ?", vbQuestion + vbYesNo, "Supprimer " & txt_nom_cmpt) = vbNo Then
    Exit Sub
End If

adc_tel1.Recordset.Filter = "cod='" & txt_cod.Text & "'"
adc_tel1.Recordset.Delete
adc_tel1.Refresh
adc_tel.Refresh
an_actu = Format(Now, "yyyy")
lab_to.Caption = "CONTACTS ENREGISTRES   =     " & adc_tel.Recordset.RecordCount
adc_tel.Recordset.Sort = "nom"
MsgBox "Suppresiion effectuée avec succès.", vbInformation + vbOKOnly, "Enregistrement supprimé"
End Sub

Private Sub lab_sup_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Line3.Visible = True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Line1.Visible = False
Line2.Visible = False
Line3.Visible = False
Line4.Visible = False
End Sub



Private Sub Label1_Click()
pro.Show , Me
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

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
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
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
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
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...

Last codes sources (FR)...

Formulaire html + fichier jsp et le bean par amatoLahIbtissam
Calcul de déflexion entre arc et corde par Averell
Excel impression par lot par beaubeau21
Excel suppression par lot d'une feuille par beaubeau21
Personnalisation du ruban sous excel 2007 - 2 e... par warlok2008
Générateur de mot de passe par democrite41
Wifi signal meter par lluismas

Guide achat

Vin sur vin pour Windows - 3589682804306
PC Games, plate-forme : Windows
My Baby Boy pour DS - 3760137144530
DS
Héry Laboratories Hery - Anti Puce Pour Chiot et Chaton - 3387101124185

Logiciels à télécharger...

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]
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)
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...

voter aux sondages de ce site, cliquez ici

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,70 sec

Visual Basic

ANNUTEL3.5

ASHSoft_annutel/MENU.frm

ANNUTEL3.5

ASHSoft_annutel/MENU.frm

Informations sur ce code source

Fichier : ASHSoft_annutel/MENU.frm

Liste des fichiers du ZIP

Sources du même langage comportant un zip

Last codes sources (FR)...

Guide achat

Logiciels à télécharger...

Sondage...