arkftotal.dsr

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

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} ARkftotal 
   Caption         =   "通用进销存 - ARkftotal (ActiveReport)"
   ClientHeight    =   8295
   ClientLeft      =   -1950
   ClientTop       =   360
   ClientWidth     =   12000
   Icon            =   "ARkftotal.dsx":0000
   WindowState     =   2  'Maximized
   _ExtentX        =   21167
   _ExtentY        =   14631
   SectionData     =   "ARkftotal.dsx":0442
End
Attribute VB_Name = "ARkftotal"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ActiveReport_Initialize()
    Call printini(DAO, ARkftotal)
    
    If frmkftotal.cmbfang <> "全部" Then
      lbl1.Visible = True
      lblbuss.Visible = True
      
      
     Dim optb As Recordset
     Set optb = New Recordset
     optb.Open "select * from client where fangxiang=" & "'" & frmkftotal.cmbfang.Text & "'", db, adOpenStatic, adLockOptimistic
     If optb.RecordCount <> 0 Then
        If IsNull(optb!opertion) = False Then lblbuss.Caption = optb!opertion
     End If
    End If
    
     Me.lblop.Caption = frmkftotal.cmbop.Text
     
    If frmkftotal.cmbop.Text = "不限定" Then
    
        Field50.Visible = True
        Line4.Visible = True
        Line7.Visible = True
        Label28.Visible = True
        
    Else
        Field50.Visible = False
        Line4.Visible = False
        Line7.Visible = False
        Label28.Visible = False
    End If
End Sub

Private Sub Detail_Format()
On Error Resume Next
If Len(DAO.Recordset!start_month) <> 0 Then
      lbltime.Text = DAO.Recordset!start_month & "-" & _
                   DAO.Recordset!start_day & Space(1) & DAO.Recordset!start_hour & "至:" & _
                       DAO.Recordset!end_month & "-" & _
                       DAO.Recordset!end_day & Space(1) & DAO.Recordset!end_hour
End If

End Sub