ardinbig.dsr

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

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} ARDinbig 
   Caption         =   "订单指令"
   ClientHeight    =   8595
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11880
   Icon            =   "ARDinbig.dsx":0000
   StartUpPosition =   3  '窗口缺省
   _ExtentX        =   20955
   _ExtentY        =   15161
   SectionData     =   "ARDinbig.dsx":030A
End
Attribute VB_Name = "ARDinbig"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ActiveReport_Initialize()

    ARDinbig.TOCEnabled = False
    ARDinbig.Toolbar.Tools(2).Caption = "打印"
    ARDinbig.Toolbar.Tools(12).Caption = "前一页.."
    ARDinbig.Toolbar.Tools(13).Caption = "下一页.."
    lblrequest.Caption = frmdin.txtfields(46).Text
    lbldemo.Caption = frmdin.txtfields(47).Text
    lbldin1.Caption = Year(frmdin.txtfields(3).Text)
    
    If Month(frmdin.txtfields(3).Text) < 10 Then
        lbldin2.Caption = "0" & Month(frmdin.txtfields(3).Text)
    Else
        lbldin2.Caption = Month(frmdin.txtfields(3).Text)
    End If
    
    If Day(frmdin.txtfields(3).Text) < 10 Then
        lbldin3.Caption = "0" & Day(frmdin.txtfields(3).Text)
    Else
        lbldin3.Caption = Day(frmdin.txtfields(3).Text)
    End If
    
    lblfin1.Caption = Year(frmdin.txtfields(4).Text)
    
    If Month(frmdin.txtfields(4).Text) < 10 Then
        lblfin2.Caption = "0" & Month(frmdin.txtfields(4).Text)
    Else
        lblfin2.Caption = Month(frmdin.txtfields(4).Text)
    End If
    
    If Day(frmdin.txtfields(4).Text) < 10 Then
        lblfin3.Caption = "0" & Day(frmdin.txtfields(4).Text)
    Else
        lblfin3.Caption = Day(frmdin.txtfields(4).Text)
    End If
    
    
    Dim optb As Recordset
    Set optb = New Recordset
    optb.Open "select * from op where op=" & "'" & frmdin.txtfields(49).Text & "'", db, adOpenStatic, adLockOptimistic
    If optb.RecordCount <> 0 Then
      If IsNull(optb!name) = False Then lblop.Caption = optb!name
    End If
    
    lblclient.Caption = frmdin.lblclient.Caption
    
    
    Field7.Text = frmdin.txtfields(6).Text & Trim(frmdin.txtfields(7).Text)
    
End Sub