hwlist.dsr

一个酒厂派车单管理系统,很方便的系统

VERSION 5.00
Begin {9EB8768B-CDFA-44DF-8F3E-857A8405E1DB} hwlist 
   Caption         =   "ActiveReport1"
   ClientHeight    =   11055
   ClientLeft      =   60
   ClientTop       =   405
   ClientWidth     =   15240
   StartUpPosition =   3  '窗口缺省
   _ExtentX        =   26882
   _ExtentY        =   19500
   SectionData     =   "hwlist.dsx":0000
End
Attribute VB_Name = "hwlist"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Conn As New ADODB.Connection
Private Rs As New ADODB.Recordset

Private Sub ActiveReport_Initialize()
DBname = App.Path & "\xjdb.dll"
DBpass = "www.ahxc.net"
DBconn
Ado1.ConnectionString = Connstr
Ado1.Source = "select top 6 * from hlist where pdcode='" & Trim(Hcode) & "'"
End Sub