frmjscz.frm

财务信息管理系统,适合做毕业论文的人使用

VERSION 5.00
Begin VB.Form frmjscz 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "参照"
   ClientHeight    =   1170
   ClientLeft      =   45
   ClientTop       =   300
   ClientWidth     =   2835
   Icon            =   "frmjscz.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1170
   ScaleWidth      =   2835
   Begin VB.CommandButton cmdfind 
      Default         =   -1  'True
      Height          =   365
      Left            =   1620
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   105
      Width           =   1080
   End
   Begin VB.CommandButton cmdcancel 
      Cancel          =   -1  'True
      Height          =   365
      Left            =   1620
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   540
      Width           =   1080
   End
   Begin VB.ListBox List1 
      Height          =   960
      ItemData        =   "frmjscz.frx":000C
      Left            =   120
      List            =   "frmjscz.frx":000E
      TabIndex        =   0
      Top             =   105
      Width           =   1380
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Height          =   180
      Left            =   120
      TabIndex        =   3
      Top             =   60
      Width           =   90
   End
End
Attribute VB_Name = "frmjscz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明: 结算方式参照
'作者: 魏小黎
Option Explicit
Public mJsfs As String
Public mTop As Integer, mLeft As Integer

Private Sub cmdcancel_Click()
    View_Bref = False
    Unload Me
End Sub

Private Sub cmdfind_Click()
    Dim i As Integer
    For i = 0 To List1.ListCount - 1
        If List1.Selected(i) Then
            View_Tref = List1.List(i)
            View_Bref = True
            Unload Me
            Exit Sub
        End If
    Next
End Sub

Private Sub Form_Load()
    Screen.MousePointer = vbHourglass
    Me.Icon = LoadResPicture(109, vbResIcon)
    Dim wSzx As Boolean
    wSzx = True
    Me.Top = mTop
    Me.Left = mLeft
    Dim rsTemp As New UfRecordset
    cmdfind.Picture = LoadResPicture(103, vbResBitmap)
    cmdcancel.Picture = LoadResPicture(104, vbResBitmap)
    Label1.Caption = "结算方式"
    Set rsTemp = dbsZJ.OpenRecordset("Select * from SettleStyle order by [cSScode]", dbOpenSnapshot)
    List1.Clear
    With rsTemp
        If Not rsTemp.EOF Then
            .MoveFirst
            Do While Not .EOF
                List1.AddItem ![cSSName]
                If mJsfs = ![cSSName] Then
                    List1.Selected(List1.NewIndex) = True
                    wSzx = False
                End If
                .MoveNext
            Loop
        End If
        .oClose
    End With
    cmdfind.Enabled = IIf(List1.ListCount > 0, True, False)
    If wSzx And List1.ListCount > 0 Then List1.Selected(0) = True
    Screen.MousePointer = vbDefault
End Sub

Private Sub List1_dblClick()
    Dim i As Integer
    For i = 0 To List1.ListCount - 1
        If List1.Selected(i) Then
            View_Bref = True
            View_Tref = List1.List(i)
        End If
    Next
    Unload Me
End Sub