frmimportresult.frm

金算盘软件代码

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmImportResult 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "数据引入结果"
   ClientHeight    =   4875
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4875
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdOK 
      Height          =   350
      Index           =   1
      Left            =   3360
      Style           =   1  'Graphical
      TabIndex        =   2
      Tag             =   "1002"
      Top             =   4500
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.CommandButton cmdOK 
      Height          =   350
      Index           =   0
      Left            =   3360
      Style           =   1  'Graphical
      TabIndex        =   1
      Tag             =   "1001"
      Top             =   4500
      Width           =   1215
   End
   Begin MSFlexGridLib.MSFlexGrid msgImport 
      Height          =   4335
      Left            =   120
      TabIndex        =   0
      Top             =   90
      Width           =   4455
      _ExtentX        =   7858
      _ExtentY        =   7646
      _Version        =   393216
      Cols            =   3
      FixedCols       =   0
      RowHeightMin    =   250
      BackColorBkg    =   16777215
      FocusRect       =   0
      FillStyle       =   1
      SelectionMode   =   1
      AllowUserResizing=   3
      FormatString    =   "成功|          |           "
   End
End
Attribute VB_Name = "frmImportResult"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private mblnIsOK As Boolean
Private mstrCaption As String
Private mstrFormat As String

Public Property Let CaptionStr(ByVal strCaption As String)
    mstrCaption = strCaption
End Property

Public Property Let FormatStr(ByVal strFormat As String)
    mstrFormat = strFormat
End Property

Public Function ShowResult(strArr() As String) As Boolean
    InitGrid strArr
    Me.Show vbModal
    ShowResult = mblnIsOK
End Function

Private Sub cmdOK_Click(Index As Integer)
    mblnIsOK = (Index = 0)
    Unload Me
End Sub

Private Sub Form_Activate()
    SetHelpID Me.HelpContextID
End Sub

Private Sub Form_Load()
    msgImport.Clear
    msgImport.RowHeight(1) = 0
    If mstrCaption <> "" Then Caption = mstrCaption
    If mstrFormat <> "" Then msgImport.FormatString = mstrFormat
    Utility.LoadFormResPicture Me
    mblnIsOK = False
End Sub

Private Sub InitGrid(strArr() As String)
    Dim l As Long
    
    On Error Resume Next
    For l = 0 To UBound(strArr)
        If strArr(l) <> "" Then msgImport.AddItem strArr(l)
    Next l
    msgImport.ColWidth(0) = 450
    msgImport.ColWidth(1) = (msgImport.width - 450) / 2 - 180
    msgImport.ColWidth(2) = (msgImport.width - 450) / 2 - 180
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Dim l As Long
    Utility.UnLoadFormResPicture Me
    Me.Height = 0
'    l = UpdateWindow(frmInorOut.hwnd)
End Sub