frmm_usemdb.frm

利用VB+ACCESS开发的专用布料管理系统

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form FrmM_UseMdb 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "打开文件..."
   ClientHeight    =   2640
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6750
   Icon            =   "FrmM_UseMdb.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2640
   ScaleWidth      =   6750
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command2 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   6180
      Picture         =   "FrmM_UseMdb.frx":030A
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   630
      Width           =   345
   End
   Begin VB.TextBox Text1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   1080
      TabIndex        =   2
      Text            =   "Text2"
      Top             =   630
      Width           =   5085
   End
   Begin VB.CommandButton Command1 
      Caption         =   "打开文件(&S)"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   915
      Index           =   0
      Left            =   1290
      Picture         =   "FrmM_UseMdb.frx":0454
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   1380
      Width           =   1665
   End
   Begin VB.CommandButton Command1 
      Caption         =   "退出窗口(&X)"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   915
      Index           =   1
      Left            =   3765
      Picture         =   "FrmM_UseMdb.frx":0896
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   1380
      Width           =   1665
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   0
      Top             =   0
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "要打开的传送文件路径及文件名："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Index           =   1
      Left            =   1080
      TabIndex        =   4
      Top             =   330
      Width           =   3150
   End
   Begin VB.Image Image1 
      Height          =   480
      Left            =   255
      Picture         =   "FrmM_UseMdb.frx":0CE0
      Top             =   405
      Width           =   480
   End
End
Attribute VB_Name = "FrmM_UseMdb"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim MdbFileName As String
Dim MdbPathName As String
Dim Fs As New Scripting.FileSystemObject
Dim i As Integer

Private Sub Command1_Click(Index As Integer)
    Select Case Index
        Case 0
'            On Error Resume Next
            If Trim(Text1.Text) = "" Then
                MsgBox "没有输入的文件名！", vbOKOnly + vbExclamation, "文件出错..."
                Text1.SetFocus
                Exit Sub
            End If
            If Fs.FileExists(Trim(Text1.Text)) = False Then
                MsgBox "输入的文件：" & Trim(Text1.Text) & " 不存在，请重新输入已有的文件。", _
                    vbCritical + vbOKOnly, "文件出错..."
                Text1.SetFocus
                Exit Sub
            End If
            DbConnectSql = "provider=microsoft.jet.oledb.4.0;data source=" & _
                Trim(Text1.Text) & ";jet oledb:database password=;"
            
            FrmMain.m_Menu(2).SubMenu(1).Enabled = False
            FrmMain.m_Menu(2).SubMenu(2).Enabled = False
            
            FrmMain.m_Menu(5).SubMenu(1).Enabled = False
            FrmMain.m_Menu(5).SubMenu(2).Enabled = False
            FrmMain.m_Menu(5).SubMenu(4).Enabled = False
            FrmMain.m_Menu(5).SubMenu(5).Enabled = True
            FrmMain.m_Menu(5).SubMenu(6).Enabled = False
            
            FrmMain.Toolbar1.Buttons("TbrOut").Enabled = False
            FrmMain.Toolbar1.Buttons("TbrHuanYuan").Enabled = False
            FrmMain.Toolbar1.Buttons("TbrBeiFen").Enabled = False
            
            Unload Me
        Case 1
            Unload Me
    End Select
End Sub

Private Sub Command2_Click()
    On Error Resume Next
    With CommonDialog1
        .DialogTitle = "请选择要保存到的文件夹..."
        .CancelError = True
        .FileName = MdbPathName & MdbFileName
        .Filter = "*.mdb|*.mdb"
        .ShowOpen
    End With
    If Len(CommonDialog1.FileName) = 0 Then Exit Sub
    If Fs.FileExists(CommonDialog1.FileName) = False Then
        MsgBox "输入的文件：" & CommonDialog1.FileName & " 不存在，请重新输入已有的文件。", _
            vbCritical + vbOKOnly, "文件出错..."
        Exit Sub
    End If
    MdbFileName = Trim(CommonDialog1.FileName)
    Text1.Text = MdbFileName
    For i = Len(MdbFileName) To 0 Step -1
        If Mid(MdbFileName, i, 1) = "\" Then
            MdbPathName = Left(MdbFileName, i)
            MdbFileName = Right(MdbFileName, Len(MdbFileName) - i)
            GoTo ExitSub
        End If
    Next i
ExitSub:
End Sub

Private Sub Form_Load()
    Text1.Text = ""
End Sub

Private Sub Text1_GotFocus()
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)
End Sub