Commentçamarche.net
CodeS-SourceS
Rechercher un code, un tuto, une réponse

Logiciel gestion restaurant/bar

4/5 (25 avis)

Vue 34 572 fois - Téléchargée 8 757 fois

Description

logiciel de gestion de restaurant/bar, avec facturation, gestion personnels, clients, inventaire journalier et mensuel ...

Source / Exemple :


Dans le zip..

Conclusion :


Pour toutes infos, contactez moi. mon mail est dans le zip aussi :)
Mot de passe base de donnée: lovzan
Authentification
login: admin
pass : 123

Codes Sources

  • ..
  • Modules
  • Rapport
  • Apropos.frm
  • Apropos.frx
  • Capture.JPG
  • Dbase.mdb
  • InitStocke.frm
    VERSION 5.00
    Begin VB.Form InitStocke 
       BackColor       =   &H00FFFFFF&
       BorderStyle     =   3  'Fixed Dialog
       Caption         =   "Initialisation Stocke/Bar"
       ClientHeight    =   3615
       ClientLeft      =   45
       ClientTop       =   330
       ClientWidth     =   5055
       ControlBox      =   0   'False
       LinkTopic       =   "Form1"
       MaxButton       =   0   'False
       MinButton       =   0   'False
       ScaleHeight     =   3615
       ScaleWidth      =   5055
       ShowInTaskbar   =   0   'False
       StartUpPosition =   2  'CenterScreen
       Begin VB.CommandButton Annuler 
          Caption         =   "Annuler"
          Height          =   255
          Left            =   120
          TabIndex        =   33
          Top             =   3240
          Width           =   2295
       End
       Begin VB.TextBox TextQteB 
          Alignment       =   1  'Right Justify
          BeginProperty Font 
             Name            =   "Fixedsys"
             Size            =   9
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   285
          Index           =   10
          Left            =   3720
          MaxLength       =   6
          TabIndex        =   19
          Text            =   "0"
          Top             =   2880
          Width           =   1215
       End
       Begin VB.TextBox TextQteB 
          Alignment       =   1  'Right Justify
          BeginProperty Font 
             Name            =   "Fixedsys"
             Size            =   9
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   285
          Index           =   9
          Left            =   3720
          MaxLength       =   6
          TabIndex        =   18
          Text            =   "0"
          Top             =   2640
          Width           =   1215
       End
       Begin VB.TextBox TextQteB 
          Alignment       =   1  'Right Justify
          BeginProperty Font 
             Name            =   "Fixedsys"
             Size            =   9
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   285
          Index           =   8
          Left            =   3720
          MaxLength       =   6
          TabIndex        =   17
          Text            =   "0"
          Top             =   2400
          Width           =   1215
       End
       Begin VB.TextBox TextQteB 
          Alignment       =   1  'Right Justify
          BeginProperty Font 
             Name            =   "Fixedsys"
             Size            =   9
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   285
          Index           =   7
          Left            =   3720
          MaxLength       =   6
          TabIndex        =   16
          Text            =   "0"
          Top             =   2160
          Width           =   1215
       End
       Begin VB.TextBox TextQteB 
          Alignment       =   1  'Right Justify
          BeginProperty Font 
             Name            =   "Fixedsys"
             Size            =   9
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   285
          Index           =   6
          Left            =   3720
          MaxLength       =   6
          TabIndex        =   15
          Text            =   "0"
          Top             =   1920
          Width           =   1215
       End
       Begin VB.TextBox TextQteB 
          Alignment       =   1  'Right Justify
          BeginProperty Font 
             Name            =   "Fixedsys"
             Size            =   9
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   285
          Index           =   5
          Left            =   3720
          MaxLength       =   6
          TabIndex        =   14
          Text            =   "0"
          Top             =   1680
          Width           =   1215
       End
       Begin VB.TextBox TextQteB 
          Alignment       =   1  'Right Justify
          BeginProperty Font 
             Name            =   "Fixedsys"
             Size            =   9
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   285
          Index           =   4
          Left            =   3720
          MaxLength       =   6
          TabIndex        =   13
          Text            =   "0"
          Top             =   1440
          Width           =   1215
       End
       Begin VB.TextBox TextQteB 
          Alignment       =   1  'Right Justify
          BeginProperty Font 
             Name            =   "Fixedsys"
             Size            =   9
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   285
          Index           =   3
          Left            =   3720
          MaxLength       =   6
          TabIndex        =   12
          Text            =   "0"
          Top             =   1200
          Width           =   1215
       End
       Begin VB.TextBox TextQteB 
          Alignment       =   1  'Right Justify
          BeginProperty Font 
             Name            =   "Fixedsys"
             Size            =   9
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   285
          Index           =   2
          Left            =   3720
          MaxLength       =   6
          TabIndex        =   11
          Text            =   "0"
          Top             =   960
          Width           =   1215
       End
       Begin VB.TextBox TextQteB 
          Alignment       =   1  'Right Justify
          BeginProperty Font 
             Name            =   "Fixedsys"
             Size            =   9
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   285
          Index           =   1
          Left            =   3720
          MaxLength       =   6
          TabIndex        =   10
          Text            =   "0"
          Top             =   720
          Width           =   1215
       End
       Begin VB.CommandButton valider 
          Caption         =   "Valider"
          Height          =   255
          Left            =   2520
          TabIndex        =   20
          Top             =   3240
          Width           =   2415
       End
       Begin VB.TextBox TextQte 
          Alignment       =   1  'Right Justify
          BeginProperty Font 
             Name            =   "Fixedsys"
             Size            =   9
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   285
          Index           =   1
          Left            =   2520
          MaxLength       =   6
          TabIndex        =   0
          Text            =   "0"
          Top             =   720
          Width           =   1215
       End
       Begin VB.TextBox TextQte 
          Alignment       =   1  'Right Justify
          BeginProperty Font 
             Name            =   "Fixedsys"
             Size            =   9
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   285
          Index           =   2
          Left            =   2520
          MaxLength       =   6
          TabIndex        =   1
          Text            =   "0"
          Top             =   960
          Width           =   1215
       End
       Begin VB.TextBox TextQte 
          Alignment       =   1  'Right Justify
          BeginProperty Font 
             Name            =   "Fixedsys"
             Size            =   9
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   285
          Index           =   3
          Left            =   2520
          MaxLength       =   6
          TabIndex        =   2
          Text            =   "0"
          Top             =   1200
          Width           =   1215
       End
       Begin VB.TextBox TextQte 
          Alignment       =   1  'Right Justify
          BeginProperty Font 
             Name            =   "Fixedsys"
             Size            =   9
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   285
          Index           =   4
          Left            =   2520
          MaxLength       =   6
          TabIndex        =   3
          Text            =   "0"
          Top             =   1440
          Width           =   1215
       End
       Begin VB.TextBox TextQte 
          Alignment       =   1  'Right Justify
          BeginProperty Font 
             Name            =   "Fixedsys"
             Size            =   9
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   285
          Index           =   5
          Left            =   2520
          MaxLength       =   6
          TabIndex        =   4
          Text            =   "0"
          Top             =   1680
          Width           =   1215
       End
       Begin VB.TextBox TextQte 
          Alignment       =   1  'Right Justify
          BeginProperty Font 
             Name            =   "Fixedsys"
             Size            =   9
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   285
          Index           =   6
          Left            =   2520
          MaxLength       =   6
          TabIndex        =   5
          Text            =   "0"
          Top             =   1920
          Width           =   1215
       End
       Begin VB.TextBox TextQte 
          Alignment       =   1  'Right Justify
          BeginProperty Font 
             Name            =   "Fixedsys"
             Size            =   9
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   285
          Index           =   7
          Left            =   2520
          MaxLength       =   6
          TabIndex        =   6
          Text            =   "0"
          Top             =   2160
          Width           =   1215
       End
       Begin VB.TextBox TextQte 
          Alignment       =   1  'Right Justify
          BeginProperty Font 
             Name            =   "Fixedsys"
             Size            =   9
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   285
          Index           =   8
          Left            =   2520
          MaxLength       =   6
          TabIndex        =   7
          Text            =   "0"
          Top             =   2400
          Width           =   1215
       End
       Begin VB.TextBox TextQte 
          Alignment       =   1  'Right Justify
          BeginProperty Font 
             Name            =   "Fixedsys"
             Size            =   9
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   285
          Index           =   9
          Left            =   2520
          MaxLength       =   6
          TabIndex        =   8
          Text            =   "0"
          Top             =   2640
          Width           =   1215
       End
       Begin VB.TextBox TextQte 
          Alignment       =   1  'Right Justify
          BeginProperty Font 
             Name            =   "Fixedsys"
             Size            =   9
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   285
          Index           =   10
          Left            =   2520
          MaxLength       =   6
          TabIndex        =   9
          Text            =   "0"
          Top             =   2880
          Width           =   1215
       End
       Begin VB.Label Label1 
          Alignment       =   2  'Center
          BackStyle       =   0  'Transparent
          Caption         =   "Bar"
          BeginProperty Font 
             Name            =   "Verdana"
             Size            =   8.25
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   255
          Left            =   3720
          TabIndex        =   32
          Top             =   480
          Width           =   1215
       End
       Begin VB.Label Cave 
          Alignment       =   2  'Center
          BackStyle       =   0  'Transparent
          Caption         =   "Cave"
          BeginProperty Font 
             Name            =   "Verdana"
             Size            =   8.25
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   255
          Left            =   2520
          TabIndex        =   31
          Top             =   480
          Width           =   1215
       End
       Begin VB.Shape Shape4 
          BorderColor     =   &H00808080&
          Height          =   3615
          Left            =   -120
          Top             =   0
          Width           =   5175
       End
       Begin VB.Label LabelProduit 
          BackStyle       =   0  'Transparent
          Caption         =   "Bierre"
          BeginProperty Font 
             Name            =   "Verdana"
             Size            =   8.25
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   255
          Index           =   0
          Left            =   120
          TabIndex        =   30
          Top             =   720
          Width           =   2295
       End
       Begin VB.Label LabelProduit 
          BackStyle       =   0  'Transparent
          Caption         =   "Bierre Getable"
          BeginProperty Font 
             Name            =   "Verdana"
             Size            =   8.25
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   255
          Index           =   1
          Left            =   120
          TabIndex        =   29
          Top             =   960
          Width           =   2295
       End
       Begin VB.Label LabelProduit 
          BackStyle       =   0  'Transparent
          Caption         =   "H Mornag"
          BeginProperty Font 
             Name            =   "Verdana"
             Size            =   8.25
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   255
          Index           =   2
          Left            =   120
          TabIndex        =   28
          Top             =   1200
          Width           =   2295
       End
       Begin VB.Label LabelProduit 
          BackStyle       =   0  'Transparent
          Caption         =   "Château"
          BeginProperty Font 
             Name            =   "Verdana"
             Size            =   8.25
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   255
          Index           =   3
          Left            =   120
          TabIndex        =   27
          Top             =   1440
          Width           =   2295
       End
       Begin VB.Label LabelProduit 
          BackStyle       =   0  'Transparent
          Caption         =   "Blanc"
          BeginProperty Font 
             Name            =   "Verdana"
             Size            =   8.25
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   255
          Index           =   4
          Left            =   120
          TabIndex        =   26
          Top             =   1680
          Width           =   2295
       End
       Begin VB.Label LabelProduit 
          BackStyle       =   0  'Transparent
          Caption         =   "Gris"
          BeginProperty Font 
             Name            =   "Verdana"
             Size            =   8.25
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   255
          Index           =   5
          Left            =   120
          TabIndex        =   25
          Top             =   1920
          Width           =   2295
       End
       Begin VB.Label LabelProduit 
          BackStyle       =   0  'Transparent
          Caption         =   "Magon"
          BeginProperty Font 
             Name            =   "Verdana"
             Size            =   8.25
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   255
          Index           =   6
          Left            =   120
          TabIndex        =   24
          Top             =   2160
          Width           =   2295
       End
       Begin VB.Label LabelProduit 
          BackStyle       =   0  'Transparent
          Caption         =   "V.Magon"
          BeginProperty Font 
             Name            =   "Verdana"
             Size            =   8.25
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   255
          Index           =   7
          Left            =   120
          TabIndex        =   23
          Top             =   2400
          Width           =   2295
       End
       Begin VB.Label LabelProduit 
          BackStyle       =   0  'Transparent
          Caption         =   "Coca"
          BeginProperty Font 
             Name            =   "Verdana"
             Size            =   8.25
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   255
          Index           =   8
          Left            =   120
          TabIndex        =   22
          Top             =   2640
          Width           =   2295
       End
       Begin VB.Label LabelProduit 
          BackStyle       =   0  'Transparent
          Caption         =   "Safia"
          BeginProperty Font 
             Name            =   "Verdana"
             Size            =   8.25
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   255
          Index           =   9
          Left            =   120
          TabIndex        =   21
          Top             =   2880
          Width           =   2295
       End
       Begin VB.Image Image6 
          Height          =   585
          Left            =   0
          Picture         =   "InitStocke.frx":0000
          Stretch         =   -1  'True
          Top             =   0
          Width           =   5055
       End
    End
    Attribute VB_Name = "InitStocke"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    
    Private Sub Annuler_Click()
    Unload Me
    End
    End Sub
    
    Private Sub valider_Click()
    Call Connect
    Dim RsV As New ADODB.Recordset
        Rs.Open "[CAVE]", Db, adOpenStatic, adLockPessimistic
        RsV.Open "[VENTE]", Db, adOpenStatic, adLockPessimistic
    
        For I = 1 To 10
        'Stocke
            Rs.AddNew
            Rs.Fields("CDate") = FormatDateTime(Now, vbShortDate)
            Rs.Fields("IDP") = I
            Rs.Fields("QTE") = CLng(TextQte(I).Text)
            Rs.Update
        'Bar
            RsV.AddNew
            RsV.Fields("VDate") = FormatDateTime(Now, vbShortDate)
            RsV.Fields("IDP") = I
            RsV.Fields("QTERESHIER") = CLng(TextQteB(I).Text)
            RsV.Fields("QTEAJOUTER") = 0
            RsV.Fields("QTERESTANTE") = 0
            RsV.Update
     
        Next I
        
    Call Deconnect
    
        'Cuisine
        Call Connect
            Rs.Open "[CUISINE]", Db, adOpenStatic, adLockPessimistic
            Rs.AddNew
            Rs.Fields("CUDate") = FormatDateTime(Now, vbShortDate)
            Rs.Fields("CUMontant") = 0
            Rs.Update
        Call Deconnect
        
        MsgBox "Stocke/Bar initialisé!", vbInformation, "inistialisation du Stocke"
        Unload Me
    End Sub
    
  • InitStocke.frx
  • Login_frm.frm
  • Login_frm.frx
  • Main_frm.frm
  • Main_frm.frx
  • MSSCCPRJ.SCC
  • Restaurant.vbp
  • Restaurant.vbw

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.