frmmain.frm

gestion commerciale sous vb

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"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Begin VB.Form frmMain 
   Caption         =   "Gestion Commerciale"
   ClientHeight    =   8595
   ClientLeft      =   1500
   ClientTop       =   1785
   ClientWidth     =   12240
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   8595
   ScaleWidth      =   12240
   Begin TabDlg.SSTab SSTab1 
      Height          =   8655
      Left            =   0
      TabIndex        =   12
      Top             =   0
      Width           =   12135
      _ExtentX        =   21405
      _ExtentY        =   15266
      _Version        =   393216
      Tab             =   2
      TabHeight       =   520
      TabCaption(0)   =   "Clients"
      TabPicture(0)   =   "frmMain.frx":0CCA
      Tab(0).ControlEnabled=   0   'False
      Tab(0).Control(0)=   "fraClient"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).Control(1)=   "fraCritere"
      Tab(0).Control(1).Enabled=   0   'False
      Tab(0).Control(2)=   "fraListe"
      Tab(0).Control(2).Enabled=   0   'False
      Tab(0).Control(3)=   "fraControlle"
      Tab(0).Control(3).Enabled=   0   'False
      Tab(0).ControlCount=   4
      TabCaption(1)   =   "Produits"
      TabPicture(1)   =   "frmMain.frx":0CE6
      Tab(1).ControlEnabled=   0   'False
      Tab(1).Control(0)=   "Frame1"
      Tab(1).Control(0).Enabled=   0   'False
      Tab(1).Control(1)=   "Frame2"
      Tab(1).Control(1).Enabled=   0   'False
      Tab(1).Control(2)=   "Frame3"
      Tab(1).Control(2).Enabled=   0   'False
      Tab(1).Control(3)=   "Frame4"
      Tab(1).Control(3).Enabled=   0   'False
      Tab(1).ControlCount=   4
      TabCaption(2)   =   "Commandes"
      TabPicture(2)   =   "frmMain.frx":0D02
      Tab(2).ControlEnabled=   -1  'True
      Tab(2).Control(0)=   "Frame5"
      Tab(2).Control(0).Enabled=   0   'False
      Tab(2).Control(1)=   "Frame6"
      Tab(2).Control(1).Enabled=   0   'False
      Tab(2).Control(2)=   "Frame7"
      Tab(2).Control(2).Enabled=   0   'False
      Tab(2).Control(3)=   "Frame8"
      Tab(2).Control(3).Enabled=   0   'False
      Tab(2).ControlCount=   4
      Begin VB.Frame Frame8 
         Caption         =   "Controlle commande"
         Height          =   1095
         Left            =   120
         TabIndex        =   68
         Top             =   1560
         Width           =   6135
         Begin VB.CommandButton cmdLivre 
            Caption         =   "&Livrer"
            Height          =   495
            Left            =   3480
            TabIndex        =   8
            Top             =   360
            Width           =   975
         End
         Begin VB.CommandButton cmdPurger 
            Caption         =   "&Purger"
            Height          =   495
            Left            =   2040
            TabIndex        =   7
            Top             =   360
            Width           =   975
         End
      End
      Begin VB.Frame Frame7 
         Caption         =   "Liste des commandes"
         Height          =   5175
         Left            =   6360
         TabIndex        =   67
         Top             =   480
         Width           =   5655
         Begin MSDataGridLib.DataGrid DataGrid1 
            Bindings        =   "frmMain.frx":0D1E
            Height          =   4815
            Left            =   120
            TabIndex        =   73
            Top             =   240
            Width           =   5415
            _ExtentX        =   9551
            _ExtentY        =   8493
            _Version        =   393216
            AllowUpdate     =   0   'False
            AllowArrows     =   -1  'True
            Enabled         =   -1  'True
            HeadLines       =   1
            RowHeight       =   15
            FormatLocked    =   -1  'True
            BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ColumnCount     =   7
            BeginProperty Column00 
               DataField       =   "idComm"
               Caption         =   "N