企业管理

开发平台：
Visual Basic

：源码内容
							VERSION 5.00
Begin VB.Form Start_BillChalkitupCond 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "单据记帐条件"
   ClientHeight    =   4200
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4515
   HelpContextID   =   130203
   Icon            =   "期初_单据记帐条件.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4200
   ScaleWidth      =   4515
   StartUpPosition =   2  'CenterScreen
   Begin VB.CheckBox UnloadCheck 
      Caption         =   "卸载窗体"
      Height          =   615
      Left            =   5250
      TabIndex        =   10
      Top             =   930
      Width           =   825
   End
   Begin VB.Frame Frame2 
      Caption         =   "记帐状态"
      Height          =   585
      Left            =   120
      TabIndex        =   7
      Top             =   3060
      Width           =   4275
      Begin VB.OptionButton Opt_Yjz 
         Caption         =   "已记帐"
         Height          =   315
         Left            =   2430
         TabIndex        =   9
         Top             =   210
         Width           =   975
      End
      Begin VB.OptionButton Opt_Wjz 
         Caption         =   "未记帐"
         Height          =   315
         Left            =   840
         TabIndex        =   8
         Top             =   210
         Value           =   -1  'True
         Width           =   945
      End
   End
   Begin VB.CheckBox Chk_Sum 
      Caption         =   "每张单据输出合计"
      Height          =   315
      Left            =   150
      TabIndex        =   6
      Top             =   3780
      Value           =   1  'Checked
      Width           =   1785
   End
   Begin VB.CommandButton QxCommand 
      Caption         =   "取消(&C)"
      Height          =   300
      Left            =   3270
      TabIndex        =   5
      Top             =   3780
      Width           =   1120
   End
   Begin VB.CommandButton QdCommand 
      Caption         =   "确定(&O)"
      Height          =   300
      Left            =   2040
      TabIndex        =   4
      Top             =   3780
      Width           =   1120
   End
   Begin VB.Frame Frame1 
      Caption         =   "仓库"
      Height          =   2865
      Left            =   120
      TabIndex        =   0
      Top             =   90
      Width           =   4275
      Begin VB.CommandButton QxuCommand 
         Caption         =   "全选"
         Height          =   300
         Left            =   3000
         TabIndex        =   3
         Top             =   2460
         Width           =   1120
      End
      Begin VB.CommandButton QcCommand 
         Caption         =   "全消"
         Height          =   300
         Left            =   1770
         TabIndex        =   2
         Top             =   2460
         Width           =   1120
      End
      Begin VB.ListBox Lst_WareHouse 
         Height          =   2085
         Left            =   150
         Style           =   1  'Checkbox
         TabIndex        =   1
         Top             =   270
         Width           =   3975
      End
   End
End
Attribute VB_Name = "Start_BillChalkitupCond"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mWhcode() As String              '仓库编码
Dim mWhcodeStr As String             '选中仓库编码
Dim Tsxx As String
Dim Jsqte As Long
Private Sub Form_Load()
    Dim Rectemp As Recordset
    
    '仓库列表
    Set Rectemp = Cw_DataEnvi.DataConnect.Execute("SELECT  Gy_Warehouse.* FROM Gy_Warehouse " & _
           " LEFT OUTER JOIN  Gy_Whlimit ON Gy_Warehouse.WhCode = Gy_Whlimit.WhCode " & _
           " WHERE Gy_Whlimit.Czybm = '" & Xtczybm & "' and Gy_Warehouse.chhsuseflag=1 " & _
           " and enddealflagchhs=0 order by Gy_Warehouse.Whcode")
    
    If Not Rectemp.EOF Then
        
        ReDim mWhcode(Rectemp.RecordCount)
        
        For Jsqte = 0 To Rectemp.RecordCount - 1
            If Not Rectemp.Fields("enddealflagchhs") Then
                Lst_WareHouse.AddItem Trim(Rectemp.Fields("whname")) + "（" + Trim(Rectemp.Fields("whcode")) + "）--- " + Trim(Rectemp.Fields("pricemode"))
                Lst_WareHouse.Selected(Lst_WareHouse.NewIndex) = True
                mWhcode(Lst_WareHouse.NewIndex) = Trim(Rectemp.Fields("whcode"))
            End If
            Rectemp.MoveNext
        Next
    End If
    
End Sub
Private Sub QcCommand_Click()           '全消
    For Jsqte = 0 To Lst_WareHouse.ListCount - 1
        Lst_WareHouse.Selected(Jsqte) = False
    Next
End Sub
Private Sub QdCommand_Click()           '确定
Dim WareHouseCode As String
    If Lst_WareHouse.SelCount = 0 Then
       Tsxx = "至少选择一个仓库!"
       Call Xtxxts(Tsxx, 0, 1)
       Exit Sub
    End If
    
    '选中计价方式
    WareHouseCode = ""
    For Jsqte = 0 To Lst_WareHouse.ListCount - 1
        If Lst_WareHouse.Selected(Jsqte) Then
            If WareHouseCode = "" Then
                WareHouseCode = "'" & mWhcode(Jsqte) & "'"
            Else
                WareHouseCode = WareHouseCode + ",'" & mWhcode(Jsqte) & "'"
            End If
        End If
    Next
    
    Me.WhCode = "a.whcode in(" + WareHouseCode + ")"
    Me.Hide
    
    Start_BillChalkitup.Timer1.Enabled = True
    Start_BillChalkitup.CxbbGrid.SetFocus
  
End Sub
Private Sub QxCommand_Click()           '取消
    Me.Hide
    
    '调整工具条
    With Start_BillChalkitup.SzToolbar
        If Start_BillChalkitup.CxbbGrid.Rows = Start_BillChalkitup.CxbbGrid.FixedRows Then
            .Buttons("Bill").Enabled = False
            .Buttons("mx").Enabled = False
            .Buttons("hz").Enabled = False
            .Buttons("jz").Enabled = False
            .Buttons("hf").Enabled = False
       End If
    End With
End Sub
Private Sub QxuCommand_Click()          '全选
    For Jsqte = 0 To Lst_WareHouse.ListCount - 1
        Lst_WareHouse.Selected(Jsqte) = True
    Next
End Sub
Public Property Get WhCode() As Variant
    WhCode = mWhcodeStr
End Property
Public Property Let WhCode(ByVal vNewValue As Variant)
    mWhcodeStr = vNewValue
End Property

						