arkf.dsr

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

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

    lblclient.Caption = frmkf.txtfields(2).Text & Space(2) & frmkf.lblclient.Caption
    
    
    Field7.Text = frmkf.txtfields(6).Text & Trim(frmkf.txtfields(11).Text)
    lblno.Text = frmkf.txtfields(0).Text
    lbldemo.Caption = Trim(frmkf.txtdemo.Text)
    
End Sub