arsp2.dsr

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

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} ARsp2 
   Caption         =   "生产单"
   ClientHeight    =   8595
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11880
   Icon            =   "ARsp2.dsx":0000
   StartUpPosition =   3  '窗口缺省
   _ExtentX        =   20955
   _ExtentY        =   15161
   SectionData     =   "ARsp2.dsx":030A
End
Attribute VB_Name = "ARsp2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ActiveReport_Initialize()
    ARsp2.TOCEnabled = False
    ARsp2.Toolbar.Tools(2).Caption = "打印"
    ARsp2.Toolbar.Tools(12).Caption = "前一页.."
    ARsp2.Toolbar.Tools(13).Caption = "下一页.."
    ARsp2.Printer.Orientation = ddOLandscape
    lbldin1.Caption = Year(frmsproduce2.txtfields(5).Text)
    lblfin1.Caption = Year(frmsproduce2.txtfields(6).Text)
    
    If Month(frmsproduce2.txtfields(5).Text) < 10 Then
        lbldin2.Caption = "0" & Month(frmsproduce2.txtfields(5).Text)
    Else
        lbldin2.Caption = Month(frmsproduce2.txtfields(5).Text)
    End If
    
    If Day(frmsproduce2.txtfields(5).Text) < 10 Then
        lbldin3.Caption = "0" & Day(frmsproduce2.txtfields(5).Text)
    Else
        lbldin3.Caption = Day(frmsproduce2.txtfields(5).Text)
    End If
    
    lblfin1.Caption = Year(frmsproduce2.txtfields(6).Text)
    
    If Month(frmsproduce2.txtfields(6).Text) < 10 Then
        lblfin2.Caption = "0" & Month(frmsproduce2.txtfields(6).Text)
    Else
        lblfin2.Caption = Month(frmsproduce2.txtfields(6).Text)
    End If
    
    If Day(frmsproduce2.txtfields(6).Text) < 10 Then
        lblfin3.Caption = "0" & Day(frmsproduce2.txtfields(6).Text)
    Else
        lblfin3.Caption = Day(frmsproduce2.txtfields(6).Text)
    End If
    
    Dim optb As Recordset
    Set optb = New Recordset
    optb.Open "select * from op where op=" & "'" & frmsproduce2.txtfields(113).Text & "'", db, adOpenStatic, adLockOptimistic
    If optb.RecordCount <> 0 Then
        If IsNull(optb!name) = False Then lblop.Text = optb!name
    End If

    Set optb = New Recordset
    optb.Open "select * from client where clino=" & "'" & frmsproduce2.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 = frmsproduce2.txtfields(8).Text & Trim(frmsproduce2.txtfields(109).Text)
    Field88.Text = frmsproduce2.txtfields(0).Text
    lbllevelfan.Caption = frmsproduce2.txtfields(96).Text
    lbldemo.Caption = frmsproduce2.txtfields(101).Text
    
End Sub

Private Sub Detail_Format()
If Len(frmsproduce2.txtfields(88).Text) = 0 Then
        client1.Text = 0
    End If
    If Len(frmsproduce2.txtfields(89).Text) = 0 Then
        client2.Text = 0
    End If
    If Len(frmsproduce2.txtfields(90).Text) = 0 Then
        client3.Text = 0
    End If
    
    If Len(frmsproduce2.txtfields(91).Text) = 0 Then
        fan1.Text = 0
    End If
    If Len(frmsproduce2.txtfields(92).Text) = 0 Then
        fan2.Text = 0
    End If
    If Len(frmsproduce2.txtfields(93).Text) = 0 Then
        fan3.Text = 0
    End If
    
    If Len(frmsproduce2.txtfields(102).Text) = 0 Then
        mu1.Text = 0
    End If
    If Len(frmsproduce2.txtfields(103).Text) = 0 Then
        mu2.Text = 0
    End If
    If Len(frmsproduce2.txtfields(104).Text) = 0 Then
        mu3.Text = 0
    End If
    If Len(frmsproduce2.txtfields(105).Text) = 0 Then
        mu4.Text = 0
    End If
    If Len(frmsproduce2.txtfields(106).Text) = 0 Then
        owner.Text = 0
    End If
    
    If Len(frmsproduce2.txtfields(110).Text) = 0 Then
       mu5.Text = 0
    Else
       mu5.Text = frmsproduce2.txtfields(110).Text
    End If
    
    If Len(frmsproduce2.txtfields(111).Text) = 0 Then
        mu6.Text = 0
    Else
        mu6.Text = frmsproduce2.txtfields(111).Text
    End If
    
    If Len(Trim(frmsproduce2.txtfields(112).Text)) = 0 Then
        mu7.Text = 0
    Else
       mu7.Text = frmsproduce2.txtfields(112).Text
    End If
    
    If Len(Trim(frmsproduce2.txtfields(78).Text)) = 0 Then
        'xian5.Text = 0
    Else
        xian5.Text = frmsproduce2.txtfields(78).Text
    End If

End Sub