4).txt

一个不完整的语言编码

VERSION 5.00 
Begin VB.Form fco  
   BorderStyle     =   1  'Fixed Single 
   Caption         =   "Form1" 
   ClientHeight    =   1260 
   ClientLeft      =   45 
   ClientTop       =   330 
   ClientWidth     =   3720 
   Icon            =   "worldfco.frx":0000 
   LinkTopic       =   "Form1" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   ScaleHeight     =   1260 
   ScaleWidth      =   3720 
   StartUpPosition =   2  '屏幕中心 
   Begin VB.CommandButton Command1  
      Caption         =   "Command1" 
      Height          =   375 
      Left            =   2400 
      TabIndex        =   2 
      Top             =   600 
      Width           =   1095 
   End 
   Begin VB.ComboBox Combo1  
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   12 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   360 
      Left            =   240 
      Style           =   2  'Dropdown List 
      TabIndex        =   1 
      Top             =   600 
      Width           =   1935 
   End 
   Begin VB.Label Label1  
      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 
      Left            =   240 
      TabIndex        =   0 
      Top             =   240 
      Width           =   1680 
   End 
End 
Attribute VB_Name = "fco" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Sub Command1_Click() 
wmdb = pa + Combo1.Text + ".mdb" 
If Command1.Caption = "新建" Then 
  If Dir(omdb) = "" Then 
    MsgBox Chr(13) + "找不到数据库文件：  " + Chr(13) + Chr(13) + omdb + "  ", vbCritical 
    Exit Sub 
  End If 
  If Dir(wmdb) <> "" Then 
    MsgBox Chr(13) + "已经存在数据库文件：  " + Chr(13) + Chr(13) + wmdb + "  ", vbCritical 
    Exit Sub 
  End If 
  FileCopy omdb, wmdb 
  MsgBox Chr(13) + Combo1.Text + "年度世界杯档案库建立成功！  ", vbInformation 
  Me.Hide 
  fmain.Show 
End If 
 
If Command1.Caption = "打开" Then 
  If Dir(wmdb) = "" Then 
    MsgBox Chr(13) + "找不到数据库文件：  " + Chr(13) + Chr(13) + wmdb + "  ", vbCritical 
    Exit Sub 
  End If 
  Me.Hide 
  fcon.Show 
  fcon.Timer1.Enabled = True 
End If 
 
End Sub 
 
Private Sub Form_Load() 
For i = 2002 To 2002 + 100 * 4 Step 4 
  Combo1.AddItem CStr(i) 
Next i 
Combo1.ListIndex = 0 
End Sub 
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) 
fmain.Show 
 
End Sub