drep.dsr

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

VERSION 5.00
Begin {9EB8768B-CDFA-44DF-8F3E-857A8405E1DB} Drep 
   Caption         =   "派单打印"
   ClientHeight    =   11055
   ClientLeft      =   60
   ClientTop       =   405
   ClientWidth     =   15240
   Icon            =   "Drep.dsx":0000
   MDIChild        =   -1  'True
   WindowState     =   2  'Maximized
   _ExtentX        =   26882
   _ExtentY        =   19500
   SectionData     =   "Drep.dsx":058A
End
Attribute VB_Name = "Drep"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Conn As New ADODB.Connection
Private aRs As New ADODB.Recordset
Private bRs As New ADODB.Recordset
Private cRs As New ADODB.Recordset
Private Sub ActiveReport_Initialize()
Creport Drep
'Label1.Angle = 0
Label1.Caption = "宣城酒业销售公司派车单"
Label2.Caption = Car.Text1.Text
DBname = App.Path & "\xjdb.dll"
DBpass = "www.ahxc.net"
DBconn
Ado1.ConnectionString = Connstr
Ado1.Source = "select * from pd " & Sqlrep & "order by id desc"
End Sub


Private Sub Detail_Format()
Hcode = Field1.Text
Set SubReport1.object = New hwlist
Set SubReport2.object = New pwlist
End Sub