frminputfilename.frm

关于记事本的编码,对大家有用

VERSION 5.00
Begin VB.Form frmInputFileName 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "文件将存入库中! 请输入文件名 ..."
   ClientHeight    =   3195
   ClientLeft      =   2760
   ClientTop       =   3750
   ClientWidth     =   6030
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3195
   ScaleWidth      =   6030
   ShowInTaskbar   =   0   'False
   Begin VB.ComboBox Combo1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3060
      Left            =   60
      Sorted          =   -1  'True
      Style           =   1  'Simple Combo
      TabIndex        =   2
      Text            =   "Combo1"
      Top             =   60
      Width           =   4455
   End
   Begin VB.CommandButton CancelButton 
      Caption         =   "取消"
      Height          =   375
      Left            =   4680
      TabIndex        =   1
      Top             =   600
      Width           =   1215
   End
   Begin VB.CommandButton OKButton 
      Caption         =   "确定"
      Height          =   375
      Left            =   4680
      TabIndex        =   0
      Top             =   120
      Width           =   1215
   End
End
Attribute VB_Name = "frmInputFileName"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim fo_rs As ADODB.Recordset
Public FileName As String

Private Sub CancelButton_Click()
    FileName = ""
    Me.Hide
End Sub

Private Sub Form_Load()
    Set fo_rs = New ADODB.Recordset
    
    fo_rs.Open "文章表", g_DBCon, adOpenStatic, adLockReadOnly, adCmdTable
    
    Do While Not fo_rs.EOF
        Combo1.AddItem fo_rs.Fields.Item("文章名").Value
        fo_rs.MoveNext
    Loop
    fo_rs.Close
    Set fo_rs = Nothing
    Combo1.Text = FileName
End Sub

Private Sub OKButton_Click()
    FileName = Combo1.Text
    Me.Hide
End Sub