pwlist.dsr

来自「一个酒厂派车单管理系统,很方便的系统」· DSR 代码 · 共 33 行

VERSION 5.00
Begin {9EB8768B-CDFA-44DF-8F3E-857A8405E1DB} pwlist 
   Caption         =   "ActiveReport1"
   ClientHeight    =   11055
   ClientLeft      =   60
   ClientTop       =   405
   ClientWidth     =   15240
   StartUpPosition =   3  '窗口缺省
   _ExtentX        =   26882
   _ExtentY        =   19500
   SectionData     =   "Pwlist.dsx":0000
End
Attribute VB_Name = "pwlist"
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 plist where pdcode='" & Trim(Hcode) & "'"
End Sub

Private Sub Detail_Format()
On Error Resume Next
If CLng(Field3.Text) = 0 Then Field3.Text = ""
End Sub