module2.bas

一套比较简单的POS,只要认真修改收银台的话绝对专业

Attribute VB_Name = "Module2"
'// ===============================================================================//
'// Program: OpenPOS(Point of Sales)                                               //
'// Developed by: Sofwathullah Mohamed                                             //
'// [e-mail]                                                            //
'// You are free to use and modify this program as long as you give credit to the  //
'// original developer. Any comments or bugs report to [e-mail]         //
'// Ver: 0.1                                                                       //
'// This Program is Still Under Development and Some of the Modules are Missing    //
'// ===============================================================================//

Global Const DEFSOURCE = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="
Public db As ADODB.Connection
Public Sub OpenDB()
        DataEnvironment1.Connection1 = DEFSOURCE & App.Path & "\setDB.mdb;"
End Sub