www.pudn.com > VBproject VCD.rar > Form1.frm, change:2004-03-29,size:31219b


VERSION 5.00 
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx" 
Object = "{8ED8CCC1-8472-46D0-93E7-F66929B98442}#2.0#0"; "XPCMD.OCX" 
Begin VB.Form LoginSet  
   BackColor       =   &H00FFC0FF& 
   Caption         =   "登陆设置" 
   ClientHeight    =   5775 
   ClientLeft      =   5760 
   ClientTop       =   3390 
   ClientWidth     =   4695 
   FillColor       =   &H00FF8080& 
   LinkTopic       =   "Form1" 
   ScaleHeight     =   5775 
   ScaleWidth      =   4695 
   Begin MSComctlLib.ProgressBar PsBar2  
      Height          =   375 
      Left            =   480 
      TabIndex        =   9 
      Top             =   5160 
      Width           =   3735 
      _ExtentX        =   6588 
      _ExtentY        =   661 
      _Version        =   393216 
      Appearance      =   1 
   End 
   Begin MSComctlLib.ProgressBar PsBar  
      Height          =   375 
      Left            =   480 
      TabIndex        =   8 
      Top             =   5160 
      Width           =   3735 
      _ExtentX        =   6588 
      _ExtentY        =   661 
      _Version        =   393216 
      Appearance      =   1 
      Scrolling       =   1 
   End 
   Begin XPCmd.xpcmdbutton NewTableBT  
      Height          =   495 
      Left            =   1320 
      TabIndex        =   7 
      Top             =   4320 
      Width           =   2055 
      _ExtentX        =   3625 
      _ExtentY        =   873 
      Caption         =   "   初 始 化 数 据 表" 
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}  
         Name            =   "宋体" 
         Size            =   9 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
   End 
   Begin XPCmd.xpcmdbutton TestBt  
      Height          =   495 
      Left            =   3360 
      TabIndex        =   6 
      Top             =   3600 
      Width           =   855 
      _ExtentX        =   1508 
      _ExtentY        =   873 
      Caption         =   "  测 试" 
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}  
         Name            =   "宋体" 
         Size            =   9 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
   End 
   Begin XPCmd.xpcmdbutton CannelBt  
      Height          =   495 
      Left            =   1920 
      TabIndex        =   5 
      Top             =   3600 
      Width           =   855 
      _ExtentX        =   1508 
      _ExtentY        =   873 
      Caption         =   "  取 消" 
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}  
         Name            =   "宋体" 
         Size            =   9 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
   End 
   Begin XPCmd.xpcmdbutton OkBt  
      Height          =   495 
      Left            =   480 
      TabIndex        =   4 
      Top             =   3600 
      Width           =   855 
      _ExtentX        =   1508 
      _ExtentY        =   873 
      Caption         =   "  确 定" 
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}  
         Name            =   "宋体" 
         Size            =   9 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
   End 
   Begin VB.TextBox Text4  
      BeginProperty Font  
         Name            =   "Times New Roman" 
         Size            =   15 
         Charset         =   0 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   495 
      Left            =   1800 
      TabIndex        =   3 
      Top             =   2520 
      Width           =   2055 
   End 
   Begin VB.TextBox Text3  
      BeginProperty Font  
         Name            =   "Times New Roman" 
         Size            =   15 
         Charset         =   0 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   495 
      Left            =   1800 
      TabIndex        =   2 
      Top             =   1800 
      Width           =   2055 
   End 
   Begin VB.TextBox Text2  
      BeginProperty Font  
         Name            =   "Times New Roman" 
         Size            =   15 
         Charset         =   0 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   495 
      Left            =   1800 
      TabIndex        =   1 
      Top             =   1080 
      Width           =   2055 
   End 
   Begin VB.TextBox Text1  
      BeginProperty Font  
         Name            =   "Times New Roman" 
         Size            =   15 
         Charset         =   0 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   495 
      Left            =   1800 
      TabIndex        =   0 
      Top             =   360 
      Width           =   2055 
   End 
   Begin VB.Frame Frame1  
      BackColor       =   &H00FFC0FF& 
      Height          =   3135 
      Left            =   480 
      TabIndex        =   10 
      Top             =   120 
      Width           =   3735 
      Begin VB.Label Label1  
         AutoSize        =   -1  'True 
         BackColor       =   &H00FFC0FF& 
         Caption         =   "服务器" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   15 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00FF8080& 
         Height          =   315 
         Left            =   360 
         TabIndex        =   14 
         Top             =   360 
         Width           =   900 
      End 
      Begin VB.Label Label2  
         AutoSize        =   -1  'True 
         BackColor       =   &H00FFC0FF& 
         Caption         =   "用户名" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   15 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00FF8080& 
         Height          =   315 
         Left            =   360 
         TabIndex        =   13 
         Top             =   1080 
         Width           =   900 
      End 
      Begin VB.Label Label3  
         AutoSize        =   -1  'True 
         BackColor       =   &H00FFC0FF& 
         Caption         =   "密码" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   15 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00FF8080& 
         Height          =   315 
         Left            =   600 
         TabIndex        =   12 
         Top             =   1800 
         Width           =   600 
      End 
      Begin VB.Label Label4  
         AutoSize        =   -1  'True 
         BackColor       =   &H00FFC0FF& 
         Caption         =   "数据库" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   15 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00FF8080& 
         Height          =   315 
         Left            =   360 
         TabIndex        =   11 
         Top             =   2520 
         Width           =   900 
      End 
   End 
   Begin VB.Frame Frame2  
      BackColor       =   &H00FFC0FF& 
      Height          =   1575 
      Left            =   360 
      TabIndex        =   15 
      Top             =   3360 
      Width           =   3975 
   End 
End 
Attribute VB_Name = "LoginSet" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Dim com As Command 
Dim rst As Recordset 
Dim tablestring As String 
 
Private Sub Form_Unload(Cancel As Integer) 
Close All 
End Sub 
 
 
Private Sub NewTableBT_Click() 
Dim intstatus As Integer 
intstatus = 1 
If Text1.Text = "" Then 
         MsgBox "请输入服务器名!" 
         Text1.SetFocus 
         intstatus = 0 
     ElseIf Text2.Text = "" Then 
            MsgBox "请输入用户名!" 
            Text2.SetFocus 
            intstatus = 0 
        ElseIf Text4.Text = "" Then 
               MsgBox "请输入数据表名!" 
               Text4.SetFocus 
               intstatus = 0 
          ElseIf Text3.Text = "" Then 
                Dim b As String 
                b = MsgBox("您还没有输入密码!确定空密码吗?", vbYesNo, 系统提示) 
                If b = 6 Then 
                   intstatus = 1 
                Else 
                   Text3.SetFocus 
                   intstatus = 0 
                End If 
End If 
PsBar.Visible = True 
If intstatus = 1 Then 
Dim con As Connection 
Dim rst As Recordset 
Set con = New Connection 
Set rst = New Recordset 
'On Error GoTo err 
With con 
    .ConnectionString = "user id =" & Text2.Text & ";password=" & Text3.Text & ";data source=" & _ 
    Text1.Text & ";initial catalog =" & Text4.Text 
    .Provider = "sqloledb" 
    .Open 
End With 
PsBar.Value = 5 
tablestring = "create table Love ( cID char (20),cName char (20),cLanguage char (15),iLenth int, " & _ 
                                   "dPublishDate datetime,mPrice money, cParts char (100),cDirector char (100)," & _ 
                                   "cStory char (2000),cPicpath char (200),cLevel char (10),iStock int)" 
rst.Open tablestring, con, adOpenDynamic, adLockOptimistic 
 
PsBar.Value = 10 
tablestring = "create table Comedy ( cID char (20),cName char (20),cLanguage char (15),iLenth int," & _ 
                                     "dPublishDate datetime,mPrice money,cParts char (100),cDirector char (100)," & _ 
                                     "cStory char (2000),cPicpath char (200),cLevel char (10),iStock int)" 
rst.Open tablestring, con, adOpenDynamic, adLockOptimistic 
 
PsBar.Value = 15 
tablestring = "create table Cartoon ( cID char (20),cName char (20),cLanguage char (15),iLenth int," & _ 
                                     "dPublishDate datetime,mPrice money,cParts char (100),cDirector char (100)," & _ 
                                     "cStory char (2000),cPicpath char (200),cLevel char (10),iStock int)" 
rst.Open tablestring, con, adOpenDynamic, adLockOptimistic 
 
PsBar.Value = 20 
tablestring = "create table science ( cID char (20),cName char (20),cLanguage char (15),iLenth int," & _ 
                                     "dPublishDate datetime,mPrice money,cParts char (100),cDirector char (100)," & _ 
                                     "cStory char (2000),cPicpath char (200),cLevel char (10),iStock int)" 
rst.Open tablestring, con, adOpenDynamic, adLockOptimistic 
 
PsBar.Value = 25 
tablestring = "create table venture ( cID char (20),cName char (20),cLanguage char (15),iLenth int," & _ 
                                     "dPublishDate datetime,mPrice money,cParts char (100),cDirector char (100)," & _ 
                                     "cStory char (2000),cPicpath char (200),cLevel char (10),iStock int)" 
rst.Open tablestring, con, adOpenDynamic, adLockOptimistic 
 
PsBar.Value = 30 
tablestring = "create table Action ( cID char (20),cName char (20),cLanguage char (15),iLenth int," & _ 
                                     "dPublishDate datetime,mPrice money,cParts char (100),cDirector char (100)," & _ 
                                     "cStory char (2000),cPicpath char (200),cLevel char (10),iStock int)" 
rst.Open tablestring, con, adOpenDynamic, adLockOptimistic 
 
PsBar.Value = 35 
tablestring = "create table art ( cID char (20),cName char (20),cLanguage char (15),iLenth int," & _ 
                                     "dPublishDate datetime,mPrice money,cParts char (100),cDirector char (100)," & _ 
                                     "cStory char (2000),cPicpath char (200),cLevel char (10),iStock int)" 
rst.Open tablestring, con, adOpenDynamic, adLockOptimistic 
 
PsBar.Value = 40 
tablestring = "create table war ( cID char (20),cName char (20),cLanguage char (15),iLenth int," & _ 
                                     "dPublishDate datetime,mPrice money,cParts char (100),cDirector char (100)," & _ 
                                     "cStory char (2000),cPicpath char (200),cLevel char (10),iStock int)" 
rst.Open tablestring, con, adOpenDynamic, adLockOptimistic 
 
PsBar.Value = 45 
tablestring = "create table advertisement ( cID char (20),cName char (20),cLanguage char (15),iLenth int," & _ 
                                     "dPublishDate datetime,mPrice money,cParts char (100),cDirector char (100)," & _ 
                                     "cStory char (2000),cPicpath char (200),cLevel char (10),iStock int)" 
rst.Open tablestring, con, adOpenDynamic, adLockOptimistic 
 
PsBar.Value = 50 
tablestring = "create table terror ( cID char (20),cName char (20),cLanguage char (15),iLenth int," & _ 
                                     "dPublishDate datetime,mPrice money,cParts char (100),cDirector char (100)," & _ 
                                     "cStory char (2000),cPicpath char (200),cLevel char (10),iStock int)" 
rst.Open tablestring, con, adOpenDynamic, adLockOptimistic 
 
PsBar.Value = 55 
Dim a As Integer 
a = MsgBox("数据表建立成功!:) & _是否要向数据表中添加初始数据!", vbYesNo, 提示信息!) 
If a = 6 Then 
With rst 
    .Open "insert love values ('001','百年好合','中文 ',1.2 ,'2002-05-06',3 ,'郑秀文 古天乐 李冰冰 ','林雪 韩君婷 ', '在今年冯小刚没有贺岁片推出的情况之下,期望能在新年假期里看看合家欢电影的内地观众恐怕会若有所“失”。贺岁档是内地电影市场上最为有特点也最为火爆的档期,精明的电影商当然不会错过这样一个赚钱机会。','d:\pictures\百年好合.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic 
    .Open "insert love values ('002','我的失忆男友','中文 ',3,'2003-04-05',5,'古天乐 应采儿 ','马楚成 ', '从美国归来的丁叮(应采儿饰)在北京戏剧学院就读表演系,她有着天使般的清纯外貌、活泼可人的性格,和一颗骄傲而坚毅的心灵。一次,她在帮助同学追赶男友时,意外地碰上了“花心”大帅哥阿当(古天乐饰)。阿当正要甩掉一群死缠烂打的美少女,混乱之中,二人相遇,阿当怦然心动,一见倾情。于是相约第二天在天坛放风筝。约会之时,阿当从美女丛中迈向丁叮,并表白爱意。从此,阿当用尽万般“时尚、新奇”攻势展开追求,丁叮也陶醉其中不可自拔,共同坠入爱河。','d:\pictures\我的失忆男友.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic 
    'MsgBox "Love表的初始记录添加成功! :)" 
    PsBar.Value = 60 
    .Open "insert comedy values ('001','运财智多星','中文 ',1.2,'2002-02-02',3 ,'陈百祥 袁咏仪 钟丽缇 ','钟丽缇 ', '九天玄女(钟丽缇)因与鬼佬天使Michael (王敏德)幽会而被贬落凡间,而一直暗恋她的横财神阿另(陈百祥)决意跟随她一起下凡。及后另遇上贪钱的骨妹靓(袁咏仪),令到她逢赌必赢,但另仍然钟情九天玄女已投胎成为美国赌声公关经理Christy,在香港主持赌王大赛以搏取她的芳心。','d:\pictures\运财智多星.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic 
    .Open "insert comedy values ('002','笔林小子Ⅱ新乌龙院','中文 ',1.5,'2002-05-18',3,'释小龙 郝邵文 吴孟达','郑少秋 李名炀', '女魔头天魔再现江湖,并收买糊涂杀手黄柠檬(张卫健)及红柠檬(叶全真)前往一座名不见经转的老寺乌龙院,企图夺得放于面璧大师右手掌的洗髓经秘笈。怎料,他俩却遇上寺内三名行踪怪诞的弟子,分别是体重与胆色同重的大师兄(吴孟达)、鬼主意通天的小文(郝邵文)及武学奇才小龙(释小龙)。此三名弟子不时与其师父(李明炀)斗法,但在黄、红柠檬眼中,却以为另有文章。其间,大师兄趁化缘机会,带同小文与小龙偷拍广告赚钱,因而结识了广告明星郑大侠(郑少秋)。天魔突然出现,并言明当日与面壁结下情缘,但他去忘恩负义,因此天魔怀恨在心,定要致面壁于死地。','d:\pictures\笔林小子Ⅱ新乌龙院.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic 
    'MsgBox "Comedy表的初始记录添加成功! :)" 
    PsBar.Value = 65 
    .Open "insert cartoon values ('001','骇客帝国动画版','英文',3,'2003-03-28',6 ,'Matrix','沃卓斯基兄弟 ', '骇客帝国动画版》(The Animatrix)是一系列基于Matrix这一相同主题但又各自独立的动画短篇集,共有9部。其制作汇集了来自日本、韩国、美国三国的7位顶尖动画制作人,影片在“Matrix”——电影《骇客帝国》中的虚拟世界的基础之上,对“Matrix”的诞生、人类与机器之间的战争等等细节充分展开想象,勾画出Matrix世界里一幅幅不同侧面、精彩纷呈的景象。','d:\pictures\骇客帝国动画版.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic 
    .Open "insert cartoon values ('002','橙路剧场版','日文 ',1.2,'2002-09-18',3 ,'橙路','松本泉', 'ORANGE ROAD》的剧场版可说是电视系列的完结篇,全篇的悲伤气氛完全不同於TV版的喜闹。故事的结局描述:一次在电话中,恭介和丸子彼此表示了互相爱慕之意,恭介了解後,便毅然决定和阿光分手。为了唤回恭介的爱,阿光不断的找机会亲近恭介,但恭介全然不接受。在考试的前一天,阿光心碎到了极点,抓着恭介的衣服不放,希望恭介不要离开她,但恭介仍然推开了她,留下阿光一个人独自蹲在路灯下哭泣。不久下起大雨,恭介想到可能仍在路灯下淋雨,想拿伞给她但又怕她难以割舍,於是悲伤的说着:「再见!」三角关系也因而结束。之後,以丸子和恭介同时考上大学而结尾。','d:\pictures\橙路剧场版.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic 
    'MsgBox "Cartoon表的初始记录添加成功! :)" 
    PsBar.Value = 70 
    .Open "insert science values ('001','黑客帝国2','英文 ',2,'2003-04-01',6 ,'基努·里夫斯 劳伦斯·菲什伯恩 凯莉·安·摩丝 莫妮卡·贝鲁奇','安迪·沃卓斯基(andy wachowski) 拉里·沃卓斯基(larry wachowski) ', '黑客帝国2》讲述的是电脑母体(matrix)遭到病毒攻击,尼奥、孟斐斯和trinity等一众战士要拯救被困在母体中的人类。而越来越多的人从被困的虚拟世界里醒悟过来,他们都努力要生活在真实的世界里。随着这些人数量的增加,人类与病毒之间的战争转移到人类聚居的地球核心城市zion(zion成为人类最后的真实世界),人类在这里作最后抵抗,它也成为人类的作战中心。奇诺饰演的neo与同伴反击杀人网络matrix,matrix也同样大力反击,并制造出杀人病毒virii突袭neo等人。neo不幸中招后失去了自由和穿梭虚拟人类世界与matrix世界neo唯一可以做的,就是找出病毒根源,将制造病毒的机械人cpu毁掉,在故事的结尾neo会突出重围并解开matrix之谜……', 'd:\pictures\黑客帝国2.jpg ','限制',3)", con, adOpenDynamic, adLockOptimistic 
    .Open "insert science values ('002','X战警2','英文 ',1.5,'2003-01-28',5 ,'休·杰克曼 帕特里克·斯图尔特 伊恩·迈克兰 法姆克·詹森 哈莉·贝瑞 布莱恩·考克斯 ','安娜·帕奎因 胡凯莉 阿兰·卡明 ', '虽然金刚狼等正义的X战警为人类做了许多事情,维护了社会的安定,但是人类还是害怕他们说不定会在某个时刻爆发出来的强大力量,他们的生活依然困难重重,只能住在X战警的基地——黑暗之脑。但是,他们简单的安定也无法得到人类的宽容:不久前发生了一起美国总统遭到神秘刺杀的案件,许多反对变种人的人们一致认为是变种的X战警们所为,于是人类派出了史提克(布莱恩·考克斯 饰)将军对X教授的训练学校突击,并逮捕了数名学生 ','d:\pictures\X战警2.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic 
    'MsgBox "Science表的初始记录添加成功! :)" 
    PsBar.Value = 75 
    .Open "insert venture values ('001','飞向太空2002','英文 ',1.2,'2002-11-07',3 ,'治·克鲁尼 娜塔莎·麦克艾霍恩 ','维奥拉·戴维斯 乌尔里希·图科', '未来某年,在外太空的空间站“普罗米修斯”上驻扎的一个科学家小组切断了空间站和地球的所有联系。心理学家克里斯·凯尔文博士(乔治·克鲁尼饰演)受命去调查这些科学家的神秘行为。‘普罗米修斯’绕着一个液体星球Solaris旋转进行勘察,这个星球蕴藏了神秘的能量。在空间站执行任务的科学家小组组长是凯尔文博士的好朋友吉巴里安,正是他要求凯尔文前往“普罗米修斯”帮助他们。到达空间站以后,凯尔文震惊的发现吉巴里安已经神秘的自杀了,而小组的另外两位科学家则情绪极度不稳定,经常出现妄想的症状。他的意见现在对“普罗米修斯”的前景至关重要。','d:\pictures\飞向太空2002.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic 
    .Open "insert venture values ('002','星际之门','英文 ',1.2,'2002-04-12',4,'特·卢塞尔 詹姆斯·斯帕德',' 麦克艾霍恩', '现代人关于谁建造了古埃及金字塔的问题争论不休。为了寻找有力的证据,考古学者丹尼尔·杰克逊博士和政府派遣的以杰克·欧尼尔上校为首的军方威猛小分队通过两个世界的互通之门进入星际之门的另一边。他们来到法老传说中的神话世界,一个被太阳神统治的国家。小分队成员与那里的人们进行思想和语言的交流,使被奴役的人民觉醒,和他们一起抗争太阳神……最终,小分队胜利完成任务,返回地球。而丹尼尔在星际之门找到了幸福并留在那里 ','d:\pictures\星际之门.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic 
    'MsgBox "Venture表的初始记录添加成功! :)" 
    PsBar.Value = 80 
    .Open "insert action values ('001','武者回归','中文 ',1.2,'2002-11-14',3 ,'金城武 铃木杏 岸谷五朗','树木希林', '2002年10月19日在横滨的海岸,宫本正要潜入另一个地下世界,在这里他遇上了黑市的操控人——沟口(岸谷五朗),而这人亦正是当年杀死他好友的凶手。宫本按捺不住激动的情绪,与宫本展开一场死斗。就在这场枪林弹雨的死斗当中,宫本错手枪伤了一名无辜少女美里(铃木杏)。美里大难不死,还聘请宫本替她完成一项特别任务。','d:\pictures\武者回归.jpg ','限制',3)", con, adOpenDynamic, adLockOptimistic 
    .Open "insert action values ('002','防弹武僧','中文 ',1.5,'2003-02-24',5,'周润发','保罗·亨特', '在本片中,发哥饰演一位没有名字的神秘僧侣,他来自中国西藏,60年来,一直担负着重任——保护一卷神秘的古经卷轴,那是以中国古代经文刻写而成的武功秘籍,蕴藏无比强大的奇异力量,只要得到这种力量,就可以无敌于天下,无数心怀叵测的人都曾经或正在觊觎着它。为了不让卷轴落入奸恶之徒的手里,为祸人间,无名武僧避而出走,足迹遍及大江南北。 ','d:\pictures\防弹武僧.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic 
     'MsgBox "Action表的初始记录添加成功! :)" 
     PsBar.Value = 85 
    .Open "insert art values ('001','25个孩子一个爹','中文 ',1.2,'2003-02-24',5 ,'黄宏 李琳 雷恪生 斯琴高娃 于蓝','黄宏', '改革开放以来,人民的生活有了极大的改善,尤其是党的富民政策使一部分人首先脱贫致富,赵光就是其中的一个。鸡大户赵光,出身孤儿,是下沟村的乡亲把他拉扯大的。小时候没有衣服穿,人们叫他赵光腚,到了岁数娶不上媳妇,人们叫他赵光棍,如今靠劳动致富,人们又叫他赵光荣了。通过一段时间的朝夕相处赵光和孩子们产生了深厚的感情,同时也找到了自身的人生价值。最后在各级组织和乡亲们的协助下,孩子们终于有了自己的归属。该片以独特的角度讲述了一段真实、感人的故事,表现了人们在当今商品社会中对于真情的渴望。','d:\pictures\25个孩子一个爹.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic 
    .Open "insert art values ('002','美丽人生','英文 ',1.5,'2002-08-05',5 ,'罗贝尔托贝尼尼 ','妮可丽塔布拉斯契', '基多是一个乐观向上的犹太男子(贝贝尼饰演),从外地来到小镇追求新生活,他最大的梦想就是开一家书店。在小镇上,基多遇到了他的心上人――小学教师朵拉,两人共坠爱河,建立了幸福的家庭。几年后,他们有了一个小男孩,还开了自己梦寐以求的书店。谁知好景不长,第二次世界大战爆发了,一家人都被关进了集中营。爱家的爸爸为了不让儿子幼小的心灵中蒙上战争的阴影,告诉他,所有发生的这一切,不过是一个简单的游戏…… ','d:\pictures\美丽人生.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic 
    'MsgBox "Art表的初始记录添加成功! :)" 
    PsBar.Value = 90 
    .Open "insert war values ('001','大地英豪','英文 ',1.5,'2000-05-09',3 ,'丹尼尔·戴·刘易斯 曼德莱尼·斯多夫','摩根', '1757年,英法两国为争夺美洲殖民地而不停交战。在哈德逊河以西地区的诸多土著中,有一支叫摩根族的,战争使之仅剩了老战士千家谷父子和他的白人养子豪克依三个人。一次,英军少校德勤在护送上校之女歌娜姐妹去威廉亨利堡途中,被实是奸细的休伦族向导马瓜诱骗,遭到法军民团的伏击。危急之中,三个摩根人解救了他们,并护送他们去威谦亨利堡上校蒙路的营中。 途中,他们看到了被法军屠戮的民宅, 从豪克依口中,歌娜也理解了她们与土著在文化习惯上的诸多差异,并为他们对自由的维护精神而感动。当他们来到威廉亨利堡时,却发现法军正在围攻英军。原来蒙路上校早已向韦将军发出求援信,不想落入马瓜手中而战况告急','d:\pictures\大地英豪.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic 
    .Open "insert war values ('002','黑鹰计划','中文 ',1.2,'2002-12-05',5 ,'乔什·哈奈特 伊万·麦奎格','黑鹰 ', '由美国陆军三角洲部队和游骑兵部队的120名特种精英组成的特别行动小组受命深入摩加迪沙完成双重使命:为当地群众提供人道主义援助,同时捉拿索马里军事政府的两名高级将领。意外发生了,由于准备不足和情报错误,美军陷入了包围。更遭的是,两架运送美军的黑鹰直升机被索马里军队击落,其中一架黑鹰上的全部官兵当场死亡,另一架黑鹰的驾驶员陷入索马里军队控制区。被隔绝在摩加迪沙街头的美军一方面焦急地等待救援部队,一方面又要想办法解救黑鹰上的队友。','d:\pictures\黑鹰计划.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic 
    'MsgBox "War表的初始记录添加成功! :)" 
    PsBar.Value = 95 
    .Open "insert advertisement values ('001','威驰新风','中文 ',0.15,'2003-01-15',3 ,'吴彦祖','张艺谋 ', '著名导演张艺谋于汽车公司TOYOTA合作打造了中国首部超长广告片--VIOS威驰,5分钟广告片《威驰新风》,男主角有香港明星吴彦祖出任,内地模特徐筠从4000多为参赛这种脱颖而出成为女主角,朴树创作演唱的《Colorful Days》成为广告主题曲','d:\pictures\车.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic 
    .Open "insert advertisement values ('002','手机','中文 ',0.2,'2002-12-03',3 ,'铃木亚桂 ','帖叶 ', '未来的手机 ','d:\pictures\手机.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic 
    'MsgBox "Advertisement表的初始记录添加成功! :)" 
    PsBar.Value = 98 
    .Open "insert terror values ('001','十三鬼叫门','英文 ',1.5,'2002-05-07',3,'莎侬·伊丽莎白 马修·里兰德 ','亚瑟 ', '生活平静的亚瑟一家意外地被告知,他们一位疏离已久的远方叔父过世了,这位生性古怪孤僻的老人在临死前把一幢大屋子留给了他们。生活得并不宽余的亚瑟一家人得到这笔天降之财自然是喜出望外,于是一家人浩浩荡荡开赴那座古老的宅子。等他们看到这座宏伟的宅院时简直不敢相信自己的好运气,虽说位置有点荒僻,但这哪里是屋子,简直就是一座城堡,巨大的庭院,葱郁的灌木,高大的建筑,还有屋子里面迷宫般数不清的房间回廊。最初的惊喜过后,亚瑟的大女儿、天生敏感的凯西隐隐约约开始觉得这个大宅子似乎有一些不对劲,但是却又说不出哪里不对劲,但是没过多久,在家庭成员们身边发生的一系列怪事就验证了凯西的预感,这座大房子果然蕴藏着某种诡异的力量,它在试图用这种灵异的威力驱赶走亚瑟一家,冥冥中,是谁在操控着一切? ','d:\pictures\十三鬼叫门.jpg ','限制',3)", con, adOpenDynamic, adLockOptimistic 
    .Open "insert terror values ('002','吸血鬼女王','英文 ',1.5,'2002-10-08',3 ,'阿丽雅 斯图尔特·汤森德 玛格丽特·莫罗 ','文森·佩雷兹', '传说中的吸血鬼里斯特从几十年的长眠中苏醒,他决定不再屈尊于阴暗之中,而要像人一样生活在阳光照耀之下。于是他凭借着吸血鬼特有的迷人魅力与孑孓的气质,成为了一个偶像级的摇滚明星,并用他的音乐唤醒了在北极冰窖中已经沉睡近6000年的吸血鬼女王--来自埃及的阿卡沙。阿卡沙女王是吸血鬼的祖先,已经在地下蛰伏了数十个世纪,一直伺机统治世界。苏醒后的吸血鬼女王不仅立刻展开了一场向旧日仇人报复的计划,而且更一心想与身边的里斯特一道主宰地球,将人间变为地狱。可是另一方面,吸血鬼猎人杰西·瑞薇丝却鬼使神差地爱上了风度翩翩的里斯特,展开了一段孽缘。里斯特会作出什么样的选择?冷酷无情的吸血鬼女王阿卡沙又会有什么样的反应? ','d:\pictures\吸血鬼女王.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic 
    'MsgBox "Terror表的初始记录添加成功! :)" 
    PsBar.Value = 100 
    MsgBox "所有记录添加成功!数据表初始化成功!:))" 
    '.Close 
    VCDView.Show 
     
    PsBar.Visible = False 
End With 
    'rst.Close 
    LoginSet.Visible = False 
Else 
   rst.Close 
   LoginSet.Visible = False 
End If 
 
End If 
'rst.Close 
Exit Sub 
err: 
MsgBox err.Description 
'rst.Close 
con.Close 
End Sub 
 
Private Sub Form_Load() 
Close All 
Text1.Text = GetSetting("ServerInfo", "Sql server", "ServerName") 
Text2.Text = GetSetting("ServerInfo", "Sql server", "ServerUser") 
Text3.Text = GetSetting("ServerInfo", "Sql server", "ServerPassWord") 
Text4.Text = GetSetting("ServerInfo", "Sql server", "ServerBase") 
PsBar.Visible = False 
PsBar2.Visible = False 
End Sub 
 
Private Sub OKBT_Click() 
Dim intstatus As Integer 
intstatus = 1 
If Text1.Text = "" Then 
         MsgBox "请输入服务器名!" 
         intstatus = 0 
         Text1.SetFocus 
     ElseIf Text2.Text = "" Then 
            MsgBox "请输入用户名!" 
            intstatus = 0 
            Text2.SetFocus 
        ElseIf Text4.Text = "" Then 
               MsgBox "请输入数据表名!" 
               intstatus = 0 
               Text4.SetFocus 
          ElseIf Text3.Text = "" Then 
                Dim b As String 
                b = MsgBox("您还没有输入密码!确定空密码吗?", vbYesNo, 系统提示) 
                If b = 6 Then 
                   intstatus = 1 
                Else 
                   intstatus = 0 
                   Text3.SetFocus 
                End If 
End If 
MsgBox "请确定数据表是否建立!" 
   LoginSet.SetFocus 
If intstatus = 0 Then 
   LoginSet.SetFocus 
Else 
    SaveSetting "ServerInfo", "Sql server", "ServerName", Text1.Text 
    SaveSetting "ServerInfo", "Sql server", "ServerUser", Text2.Text 
    SaveSetting "ServerInfo", "Sql server", "ServerPassWord", Text3.Text 
    SaveSetting "ServerInfo", "Sql server", "ServerBase", Text4.Text 
    LoginSet.Visible = False 
    VCDView.Show 
End If 
 
End Sub 
 
Private Sub CannelBt_Click() 
'rst.Close 
Unload Me 
End Sub 
 
Private Sub TestBt_Click() 
Dim intstatus As Integer 
intstatus = 1 
If Text1.Text = "" Then 
         MsgBox "请输入服务器名!" 
         Text1.SetFocus 
         intstatus = 0 
     ElseIf Text2.Text = "" Then 
            MsgBox "请输入用户名!" 
            Text2.SetFocus 
            intstatus = 0 
        ElseIf Text4.Text = "" Then 
               MsgBox "请输入数据表名!" 
               Text4.SetFocus 
               intstatus = 0 
          ElseIf Text3.Text = "" Then 
                Dim b As String 
                b = MsgBox("您还没有输入密码!确定空密码吗?", vbYesNo, 系统提示) 
                If b = 6 Then 
                   intstatus = 1 
                Else 
                   Text3.SetFocus 
                   intstatus = 0 
                End If 
End If 
If intstatus = 1 Then 
Dim con As Connection 
Dim rst As Recordset 
Set con = New Connection 
Set rst = New Recordset 
On Error GoTo err 
With con 
    .ConnectionString = "user id =" & Text2.Text & ";password=" & Text3.Text & ";data source=" & _ 
    Text1.Text & ";initial catalog =" & Text4.Text 
    .Provider = "sqloledb" 
    .Open 
End With 
rst.Open "select * from syscolumns", con, adOpenDynamic, adLockOptimistic 
rst.Close 
con.Close 
MsgBox "测试成功" 
End If 
Exit Sub 
err: 
MsgBox "还没有" & Text4.Text & "数据库,请建立!或是数据库连接有问题!请检查!" 
End Sub