form1.frm

原创VB+SQL影音租赁系统 醮简单 具体看里边的文本文档

         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)"