tjbb.dsr

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

VERSION 5.00
Begin {9EB8768B-CDFA-44DF-8F3E-857A8405E1DB} tjbb 
   Caption         =   "统计报表"
   ClientHeight    =   11055
   ClientLeft      =   60
   ClientTop       =   405
   ClientWidth     =   15240
   MDIChild        =   -1  'True
   WindowState     =   2  'Maximized
   _ExtentX        =   26882
   _ExtentY        =   19500
   SectionData     =   "tjbb.dsx":0000
End
Attribute VB_Name = "tjbb"
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_ReportStart()
DBname = App.Path & "\xjdb.dll"
DBpass = "www.ahxc.net"
DBconn
If Conn.State = 1 Then Conn.Close
Conn.Open Connstr
Data1.ConnectionString = Connstr
If TJSql <> "" Then
Data1.Source = TJSql
Else
Data1.Source = "select * from pd"
End If
End Sub

Private Sub Detail_Format()
Field5.Text = CStr(tjrep.ys1(0).Value) + "～" + CStr(tjrep.ys1(1).Value)
End Sub