frmdatadiskexport.frm

自来水公司的一个管理系统

VERSION 5.00
Begin VB.Form frmDatadiskExport 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "银行数据交换磁盘导出"
   ClientHeight    =   5640
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5685
   Icon            =   "frmDatadiskExport.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5640
   ScaleWidth      =   5685
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton cmdArray 
      Caption         =   "<<"
      Height          =   375
      Index           =   3
      Left            =   2535
      TabIndex        =   15
      Top             =   3195
      Width           =   600
   End
   Begin VB.CommandButton cmdArray 
      Caption         =   "<"
      Height          =   375
      Index           =   2
      Left            =   2535
      TabIndex        =   14
      Top             =   2655
      Width           =   600
   End
   Begin VB.CommandButton cmdArray 
      Caption         =   ">>"
      Height          =   375
      Index           =   1
      Left            =   2535
      TabIndex        =   13
      Top             =   2145
      Width           =   600
   End
   Begin VB.CommandButton cmdArray 
      Caption         =   ">"
      Height          =   375
      Index           =   0
      Left            =   2535
      TabIndex        =   12
      Top             =   1620
      Width           =   600
   End
   Begin VB.Frame Frame2 
      Caption         =   "水费时段"
      Height          =   765
      Left            =   210
      TabIndex        =   2
      Top             =   90
      Width           =   5250
      Begin VB.TextBox txtYear 
         Height          =   300
         Left            =   330
         TabIndex        =   4
         Text            =   "Text1"
         Top             =   285
         Width           =   1170
      End
      Begin VB.ComboBox cboMonth 
         Height          =   300
         Left            =   1860
         Style           =   2  'Dropdown List
         TabIndex        =   3
         Top             =   285
         Width           =   975
      End
      Begin VB.Label Label5 
         Caption         =   "收费时段："
         Height          =   210
         Left            =   345
         TabIndex        =   7
         Top             =   330
         Width           =   975
      End
      Begin VB.Label Label7 
         Caption         =   "年"
         Height          =   210
         Left            =   1575
         TabIndex        =   6
         Top             =   345
         Width           =   240
      End
      Begin VB.Label Label8 
         Caption         =   "月份银行交换数据"
         Height          =   210
         Left            =   2940
         TabIndex        =   5
         Top             =   360
         Width           =   1515
      End
   End
   Begin VB.CommandButton cmdCB 
      Caption         =   "确定"
      Height          =   420
      Index           =   0
      Left            =   150
      TabIndex        =   1
      Top             =   5085
      Width           =   1065
   End
   Begin VB.Frame Frame1 
      Caption         =   "缴费类型"
      Height          =   3840
      Index           =   0
      Left            =   195
      TabIndex        =   0
      Top             =   945
      Width           =   5265
      Begin VB.ListBox lstSource 
         Height          =   3120
         Left            =   135
         TabIndex        =   9
         Top             =   570
         Width           =   2145
      End
      Begin VB.ListBox lstResult 
         Height          =   3120
         Left            =   2985
         TabIndex        =   8
         Top             =   555
         Width           =   2145
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "已选："
         Height          =   180
         Index           =   1
         Left            =   2985
         TabIndex        =   11
         Top             =   300
         Width           =   1215
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "可选："
         Height          =   180
         Index           =   0
         Left            =   165
         TabIndex        =   10
         Top             =   330
         Width           =   1215
      End
   End
   Begin VB.Line Line1 
      BorderColor     =   &H80000003&
      Index           =   1
      X1              =   105
      X2              =   5460
      Y1              =   4950
      Y2              =   4950
   End
   Begin VB.Line Line1 
      BorderColor     =   &H80000005&
      Index           =   0
      X1              =   105
      X2              =   5475
      Y1              =   4965
      Y2              =   4965
   End
End
Attribute VB_Name = "frmDatadiskExport"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdArray_Click(Index As Integer)
    Dim intIndex As Integer '记录将被删除项目的index
    Dim i As Integer
    
    Select Case Index
        Case 0  '>
                intIndex = lstSource.ListIndex
                If intIndex = -1 Then Exit Sub
                lstResult.AddItem lstSource.List(intIndex)
                lstSource.RemoveItem intIndex
        
        Case 1  '>>
                For i = 0 To lstSource.ListCount - 1
                    lstResult.AddItem lstSource.List(i)
                Next i
                lstSource.Clear
        
        Case 2  '<
                intIndex = lstResult.ListIndex
                If intIndex = -1 Then Exit Sub
                lstSource.AddItem lstResult.List(intIndex)
                lstResult.RemoveItem intIndex
        
        Case 3  '<<
                For i = 0 To lstResult.ListCount - 1
                    lstSource.AddItem lstResult.List(i)
                Next i
                lstResult.Clear
    End Select
    
End Sub

Private Sub cmdCB_Click(Index As Integer)
    Dim Response As String
    If lstResult.ListCount <= 0 Then
        MsgBox "没有选择任何的缴费类型项", vbExclamation + vbOKOnly, "提示信息"
        Exit Sub
    End If
    
    Response = MsgBox("请打开软磁盘的写保护，并放入软驱中...", vbOKCancel + vbInformation, "提示信息")
    If Response = vbOK Then
        frmDatadiskExportWait.Show vbModal
    Else
        Unload Me
    End If
End Sub

Private Sub Form_Load()
    Call InitDate
    Call InitlstSource
End Sub

Private Sub InitDate()
    txtYear.Text = Year(Date)
    cboMonth.AddItem "01"
    cboMonth.AddItem "02"
    cboMonth.AddItem "03"
    cboMonth.AddItem "04"
    cboMonth.AddItem "05"
    cboMonth.AddItem "06"
    cboMonth.AddItem "07"
    cboMonth.AddItem "08"
    cboMonth.AddItem "09"
    cboMonth.AddItem "10"
    cboMonth.AddItem "11"
    cboMonth.AddItem "12"
    
    cboMonth.ListIndex = CInt(Month(Date)) - 1
End Sub

Private Sub InitlstSource()
    lstSource.AddItem ("公家银行托收用户")
    lstSource.AddItem ("公家非银行托收用户")
    lstSource.AddItem ("私人用户")
End Sub


Private Sub lstResult_DblClick()
    cmdArray_Click (2)
End Sub

Private Sub lstSource_DblClick()
    cmdArray_Click (0)
End Sub