frmblmxz.frm

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

VERSION 5.00
Begin VB.Form frmblmxz 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "项目设置"
   ClientHeight    =   2850
   ClientLeft      =   45
   ClientTop       =   300
   ClientWidth     =   4725
   Icon            =   "Frmblmxz.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2850
   ScaleWidth      =   4725
   Begin VB.CommandButton Command1 
      Height          =   255
      Index           =   3
      Left            =   1605
      Style           =   1  'Graphical
      TabIndex        =   9
      Top             =   2145
      Width           =   270
   End
   Begin VB.CommandButton Command1 
      Height          =   255
      Index           =   2
      Left            =   1605
      Style           =   1  'Graphical
      TabIndex        =   8
      Top             =   1600
      Width           =   270
   End
   Begin VB.CommandButton Command1 
      Height          =   255
      Index           =   1
      Left            =   1605
      Style           =   1  'Graphical
      TabIndex        =   7
      Top             =   1060
      Width           =   270
   End
   Begin VB.CommandButton Command1 
      Height          =   255
      Index           =   0
      Left            =   1605
      Style           =   1  'Graphical
      TabIndex        =   6
      Top             =   525
      Width           =   270
   End
   Begin VB.CommandButton cmdcancel 
      Cancel          =   -1  'True
      Height          =   365
      Left            =   3495
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   960
      Width           =   1080
   End
   Begin VB.CommandButton cmdok 
      Default         =   -1  'True
      Height          =   365
      Left            =   3495
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   405
      Width           =   1080
   End
   Begin VB.ListBox List1 
      Height          =   2040
      Index           =   0
      ItemData        =   "Frmblmxz.frx":000C
      Left            =   90
      List            =   "Frmblmxz.frx":000E
      Sorted          =   -1  'True
      TabIndex        =   1
      Top             =   405
      Width           =   1340
   End
   Begin VB.ListBox List1 
      Height          =   2040
      Index           =   1
      ItemData        =   "Frmblmxz.frx":0010
      Left            =   2055
      List            =   "Frmblmxz.frx":0012
      Sorted          =   -1  'True
      TabIndex        =   0
      Top             =   400
      Width           =   1340
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   " "
      Height          =   180
      Left            =   2010
      TabIndex        =   5
      Top             =   105
      Width           =   90
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   " "
      Height          =   180
      Left            =   105
      TabIndex        =   4
      Top             =   105
      Width           =   90
   End
End
Attribute VB_Name = "frmblmxz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明: 栏目设置
'作者: 魏小黎
Option Explicit
'Public ufg1 As UfGridADO 'cuidong 2001.06.08
Public ufg1 As Control    'cuidong 2001.06.08
Public lms As Integer
Public fsk As Boolean
Private i As Integer

Public Sub cmdcancel_Click()
    Unload Me
End Sub

Private Sub cmdOK_Click()
    On Error Resume Next
    Dim bk(13) As Boolean
    For i = 0 To List1(1).ListCount - 1
        bk(CInt(Trim(Left(List1(1).List(i), 2)))) = True
    Next i
    For i = 1 To lms
        If lms = 10 And fsk Then
            If bk(i) Then
                If ufg1.ColWidth(i + 5) = 0 Then
                    If i = 1 Or i = 4 Or i = 6 Or i = 8 Or i = 9 Or i = 10 Then
                        ufg1.ColWidth(i + 5) = 830
                    ElseIf i = 2 Then
                        ufg1.ColWidth(7) = 1000
                    ElseIf i = 3 Then
                        ufg1.ColWidth(8) = 1800
                    ElseIf i = 5 Then
                        ufg1.ColWidth(10) = 500
                    Else
                        ufg1.ColWidth(12) = 1900
                    End If
                End If
            Else
                ufg1.ColWidth(i + 5) = 0
            End If
        ElseIf lms = 12 Then
            If bk(i) Then
                If ufg1.ColWidth(i + 8) = 0 Then
                    If i = 1 Or i = 8 Or i = 9 Or i = 10 Or i = 11 Or i = 12 Then
                        ufg1.ColWidth(i + 8) = 830
                    ElseIf i = 2 Then
                        ufg1.ColWidth(10) = 1000
                    ElseIf i = 3 Or i = 5 Or i = 6 Or i = 7 Then
                        ufg1.ColWidth(i + 8) = 1800
                    Else
                        ufg1.ColWidth(12) = 1800
                    End If
                End If
            Else
                ufg1.ColWidth(i + 8) = 0
            End If
        ElseIf lms = 9 Then
            If bk(i) Then
                If ufg1.ColWidth(i + 2) = 0 Then
                    If i = 1 Or i = 3 Or i = 4 Or i = 5 Then
                        ufg1.ColWidth(i + 2) = 1600
                    ElseIf i = 2 Then
                        ufg1.ColWidth(4) = 1000
                    Else
                        ufg1.ColWidth(8) = 1800
                    End If
                End If
            Else
                ufg1.ColWidth(i + 2) = 0
            End If
        
        Else
            If bk(i) Then
                If ufg1.ColWidth(i + 6) = 0 Then
                    If i = 2 Then
                        ufg1.ColWidth(8) = 1000
                    ElseIf i = 4 Then
                        ufg1.ColWidth(10) = 1900
                    ElseIf i = 3 Then
                        ufg1.ColWidth(9) = 1800
                    Else
                        ufg1.ColWidth(i + 6) = 830
                    End If
                End If
            Else
                ufg1.ColWidth(i + 6) = 0
            End If
        End If
    Next i
    Unload Me
End Sub

Private Sub Command1_Click(Index As Integer)
    Select Case Index
        Case Is = 0
            If List1(0).ListCount = 0 Then
                Exit Sub
            End If
            For i = 0 To List1(0).ListCount - 1
                List1(1).AddItem List1(0).List(i)
            Next i
            List1(0).Clear
            List1(1).ListIndex = 0
        Case Is = 1
            i = List1(0).ListIndex
            If i = -1 Then
                Exit Sub
            End If
            List1(1).AddItem List1(0).List(i)
            List1(0).RemoveItem i
            If List1(0).ListCount > 0 Then
                If i = List1(0).ListCount Then
                    List1(0).ListIndex = i - 1
                Else
                    List1(0).ListIndex = i
                End If
            End If
        Case Is = 2
            If List1(1).ListCount = 0 Then
                Exit Sub
            End If
            For i = 0 To List1(1).ListCount - 1
                List1(0).AddItem List1(1).List(i)
            Next i
            List1(1).Clear
            List1(0).ListIndex = 0
        Case Is = 3
            i = List1(1).ListIndex
            If i = -1 Then
                Exit Sub
            End If
            List1(0).AddItem List1(1).List(i)
            List1(1).RemoveItem i
            If List1(1).ListCount > 0 Then
                If i = List1(1).ListCount Then
                    List1(1).ListIndex = i - 1
                Else
                    List1(1).ListIndex = i
                End If
            End If
        End Select
        cmdsz
End Sub

Public Sub Form_Load()
    On Error Resume Next
    i = 0                             'cuidong 2001.04.10
    Screen.MousePointer = vbHourglass
    CenterForm Me
    Me.Icon = LoadResPicture(109, vbResIcon)
    Label1.Caption = "不显示项目"
    Label2.Caption = "显示项目"
    cmdok.Picture = LoadResPicture(103, vbResBitmap)
    cmdcancel.Picture = LoadResPicture(104, vbResBitmap)
    Command1(0).Picture = LoadResPicture(1214, vbResBitmap)
    Command1(1).Picture = LoadResPicture(1220, vbResBitmap)
    Command1(2).Picture = LoadResPicture(1216, vbResBitmap)
    Command1(3).Picture = LoadResPicture(1218, vbResBitmap)
    List1(0).Clear
    List1(1).Clear
    If lms = 10 And fsk Then
        lmxs 6
        List1(i).AddItem " 1 币别"
        lmxs 7
        List1(i).AddItem " 2 汇率"
        lmxs 8
        List1(i).AddItem " 3 本位币金额"
        lmxs 9
        List1(i).AddItem " 4 利率代码"
        lmxs 10
        List1(i).AddItem " 5 存期"
        lmxs 11
        List1(i).AddItem " 6 经办人"
        lmxs 12
        List1(i).AddItem " 7 摘要"
        lmxs 13
        List1(i).AddItem " 8 复核"
        lmxs 14
        List1(i).AddItem " 9 记账"
        lmxs 15
        List1(i).AddItem "10 制单"
    ElseIf lms = 12 Then
        lmxs 9
        List1(i).AddItem " 1 币别"
        lmxs 10
        List1(i).AddItem " 2 汇率"
        lmxs 11
        List1(i).AddItem " 3 本位币金额"
        lmxs 12
        List1(i).AddItem " 4 摘要"
        lmxs 13
        List1(i).AddItem " 5 往来单位"
        lmxs 14
        List1(i).AddItem " 6 往来银行"
        lmxs 15
        List1(i).AddItem " 7 往来账号"
        lmxs 16
        List1(i).AddItem " 8 内部经办"
        lmxs 17
        List1(i).AddItem " 9 中心经办"
        lmxs 18
        List1(i).AddItem "10 复核"
        lmxs 19
        List1(i).AddItem "11 记账"
        lmxs 20
        List1(i).AddItem "12 制单"
    ElseIf lms = 9 Then
        lmxs 3
        List1(i).AddItem " 1 合同号"
        lmxs 4
        List1(i).AddItem " 2 币别"
        lmxs 5
        List1(i).AddItem " 3 本金余额"
        lmxs 6
        List1(i).AddItem " 4 利息合计"
        lmxs 7
        List1(i).AddItem " 5 本息合计"
        lmxs 8
        List1(i).AddItem " 6 备注"
    Else
        lmxs 7
        List1(i).AddItem " 1 币别"
        lmxs 8
        List1(i).AddItem " 2 汇率"
        lmxs 9
        List1(i).AddItem " 3 本位币金额"
        lmxs 10
        List1(i).AddItem " 4 摘要"
        lmxs 11
        List1(i).AddItem " 5 收款经办"
        lmxs 12
        List1(i).AddItem " 6 付款经办"
        lmxs 13
        List1(i).AddItem " 7 中心经办"
        lmxs 14
        List1(i).AddItem " 8 复核"
        lmxs 15
        List1(i).AddItem " 9 记账"
        lmxs 16
        List1(i).AddItem "10 制单"
    End If
    cmdsz
    Screen.MousePointer = vbDefault
End Sub

Private Sub List1_dblClick(Index As Integer)
    i = List1(Index).ListIndex
    If i = -1 Then
        Exit Sub
    End If
    List1(1 - Index).AddItem List1(Index).List(i)
    List1(Index).RemoveItem i
    If List1(Index).ListCount > 0 Then
        If i = List1(Index).ListCount Then
            List1(Index).ListIndex = i - 1
        Else
            List1(Index).ListIndex = i
        End If
    End If
    cmdsz
End Sub

Private Sub cmdsz()
    If List1(1).ListCount > 0 Then
        If List1(1).ListIndex = -1 Then
            List1(1).ListIndex = 0
        End If
    End If
    If List1(0).ListCount > 0 Then
        If List1(0).ListIndex = -1 Then
            List1(0).ListIndex = 0
        End If
    End If
    Command1(0).Enabled = List1(0).ListCount
    Command1(1).Enabled = List1(0).ListCount
    Command1(2).Enabled = List1(1).ListCount
    Command1(3).Enabled = List1(1).ListCount
End Sub

Private Sub lmxs(wz As Integer)
    If ufg1.ColWidth(wz) = 0 Then
        i = 0
    Else
        i = 1
    End If
End Sub