arsp1.dsr

此为我2001年为东莞建发楦头开发的企业管理软件他们使用至今,望斑竹指教! 其他会员最好不要随意下载,需经斑竹同意或我本人同意,谢谢!

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} ARsp1 
   Caption         =   "通用进销存 - ARsp1 (ActiveReport)"
   ClientHeight    =   8295
   ClientLeft      =   0
   ClientTop       =   285
   ClientWidth     =   12000
   Icon            =   "ARsp1.dsx":0000
   _ExtentX        =   21167
   _ExtentY        =   14631
   SectionData     =   "ARsp1.dsx":030A
End
Attribute VB_Name = "ARsp1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ActiveReport_Initialize()
   ' ARsp1.Printer.PaperSize = 256
   ' ARsp1.Printer.PaperHeight = 5 * 1550
   ' ARsp1.Printer.PaperWidth = 5 * 2400

    ARsp1.TOCEnabled = False
    ARsp1.Toolbar.Tools(2).Caption = "打印"
    ARsp1.Toolbar.Tools(12).Caption = "前一页.."
    ARsp1.Toolbar.Tools(13).Caption = "下一页.."
    lblrequest.Caption = frmsproduce1.txtFields(23).Text
    lbldemo.Caption = frmsproduce1.txtFields(24).Text
    lbldin1.Caption = Year(frmsproduce1.txtFields(3).Text)
    
    If Month(frmsproduce1.txtFields(3).Text) < 10 Then
        lbldin2.Caption = "0" & Month(frmsproduce1.txtFields(3).Text)
    Else
        lbldin2.Caption = Month(frmsproduce1.txtFields(3).Text)
    End If
    
    If Day(frmsproduce1.txtFields(3).Text) < 10 Then
        lbldin3.Caption = "0" & Day(frmsproduce1.txtFields(3).Text)
    Else
        lbldin3.Caption = Day(frmsproduce1.txtFields(3).Text)
    End If
    
    lblfin1.Caption = Year(frmsproduce1.txtFields(4).Text)
    
    If Month(frmsproduce1.txtFields(4).Text) < 10 Then
        lblfin2.Caption = "0" & Month(frmsproduce1.txtFields(4).Text)
    Else
        lblfin2.Caption = Month(frmsproduce1.txtFields(4).Text)
    End If
    
    If Day(frmsproduce1.txtFields(4).Text) < 10 Then
        lblfin3.Caption = "0" & Day(frmsproduce1.txtFields(4).Text)
    Else
        lblfin3.Caption = Day(frmsproduce1.txtFields(4).Text)
    End If
    
    
    Dim optb As Recordset
    Set optb = New Recordset
    optb.Open "select * from op where op=" & "'" & frmsproduce1.txtFields(26).Text & "'", db, adOpenStatic, adLockOptimistic
    If optb.RecordCount <> 0 Then
      If IsNull(optb!name) = False Then lblop.Caption = optb!name
    End If
    
    Set optb = New Recordset
    optb.Open "select * from client where clino=" & "'" & frmsproduce1.txtFields(2).Text & "'", db, adOpenStatic, adLockOptimistic
    If optb.RecordCount <> 0 Then
      If IsNull(optb!s_name) = False Then lblclient.Caption = optb!s_name
    End If
    
    Field7.Text = frmsproduce1.txtFields(6).Text & Trim(frmsproduce1.txtFields(25).Text)
    Field9.Text = frmsproduce1.txtFields(8).Text
    LBLNO.Text = frmsproduce1.txtFields(0).Text
    
End Sub