doctor.bas

一个医药进存销程序

Attribute VB_Name = "StartMdl"
Public DSNname As String
Public MM As Integer
Public YuanGong As String
Public QuanXian As String
Public LingShouhao As String
Public PiFahao As String
Public kucunID As String
Public jinhuoID As String
Public pifaID As String
Public lingshouID As String
Public yaopinID As String
Public renyuanID As String
Public wanglaidanweiID As String
Public SGWConnection As New ADODB.Connection
Sub Main()
    DSNname = "doctor"

    'open the DSN
    With SGWConnection
         .Provider = "MSDASQL"
         .CursorLocation = adUseServer
         .Mode = adModeReadWrite
         .Open "DSN=" & DSNname
    End With
    Load denglu
    denglu.Show
End Sub