光盘档案.frm

一个以SQL Server 2000为数据库

MsgBox "入库成功", vbOKOnly
Code.Enabled = False
B_num.Enabled = False
Name_.Enabled = False
Role.Enabled = False
Type_.Enabled = False
Dir.Enabled = False
Money.Enabled = False
Address.Enabled = False
Intor.Enabled = False
Admin.Enabled = False
Time.Enabled = False
Insert.Enabled = False
Continue.Enabled = True

Exit Sub
ErrorHandle:
    Select Case (Err.Number)
        Case 32755:
        Case -2147217900:
            MsgBox "输入错误", vbExclamation, "Error"
        Case -2147217913:
            MsgBox "某些数据格式不正确！", vbExclamation, "错误"
        Case -2147217833:
            MsgBox "某些数据长度错误", vbExclamation, "Error"
        Case Else:
            MsgBox Err.Number & vbCrLf & Err.Description, vbExclamation, "Error"
    End Select
    On Error GoTo 0
    Exit Sub


End Sub

Private Sub Continue_Click()
Code.Enabled = True
B_num.Enabled = True
Name_.Enabled = True
Role.Enabled = True
Type_.Enabled = True
Dir.Enabled = True
Intor.Enabled = True
Admin.Enabled = True
Time.Enabled = True
Address.Enabled = True
Money.Enabled = True
Insert.Enabled = True



Code.Text = ""
B_num.Text = ""
Name_.Text = ""
Role.Text = ""
Type_.Text = ""
Dir.Text = ""
Intor.Text = ""
Admin.Text = ""
Address.Text = ""
Money.Text = ""
End Sub

Private Sub change_Click()

Dim sql As String
Dim sql1 As String

sql = "select * from CD_Info where Bar_code = "
If Code2.Text = "" Then
MsgBox "条形码未输入", vbOKOnly
Exit Sub
End If
sql = sql + "'" + Code2.Text + "'"
Set cnRecordSet = Form1.cnTest.Execute(sql)
If cnRecordSet.EOF = True Then
MsgBox "没有该条记录", vbOKOnly
Exit Sub
End If



'''取出光碟信息，显示到页面的控件中

Code1.Enabled = True
Code1.Text = cnRecordSet.Fields.item(0).Value
B_num1.Enabled = True
B_num1.Text = cnRecordSet.Fields.item(1).Value
Name_1.Enabled = True
Name_1.Text = cnRecordSet.Fields.item(2).Value
Role1.Enabled = True
Role1.Text = cnRecordSet.Fields.item(3).Value
Type_1.Enabled = True
Type_1.Text = cnRecordSet.Fields.item(4).Value
Dir1.Enabled = True
Dir1.Text = cnRecordSet.Fields.item(5).Value
Intor1.Enabled = True
Intor1.Text = cnRecordSet.Fields.item(6).Value
State1.Enabled = True
State1.Text = cnRecordSet.Fields.item(7).Value
Address1.Enabled = True
Address1.Text = cnRecordSet.Fields.item(8).Value
Borrow1.Enabled = True
Borrow1.Text = cnRecordSet.Fields.item(9).Value



sql1 = "select * from CD_inInfo where Bar_code = "
sql1 = sql1 + "'" + Code2.Text + "'"
Set cnRecordSet = Form1.cnTest.Execute(sql1)

Admin1.Enabled = True
Admin1.Text = cnRecordSet.Fields.item(2).Value
Time1.Enabled = True
Time1.Text = cnRecordSet.Fields.item(3).Value
Money1.Enabled = True
Money1.Text = cnRecordSet.Fields.item(4).Value


Confirm.Enabled = True
Cancel.Enabled = True


End Sub

Private Sub Dele_Click(Index As Integer)
If MsgBox("确定删除?", vbOKCancel) = vbOK Then

Dim sql1 As String
'Dim sql2 As String
Dim sql3 As String
Dim sql4 As String



sql1 = "select * from CD_Info where Bar_code = "
'sql2 = "delete from CD_Info where Bar_code = "
sql3 = "delete from CD_inInfo where Bar_code = "
sql4 = "select Return_bool from Borrow_Info where Bar_code = "
If Code2.Text = "" Then
MsgBox "条形码未输入", vbOKOnly
Exit Sub
End If
sql1 = sql1 + "'" + Code2.Text + "'"
'sql2 = sql2 + "'" + Code2.Text + "'"
sql3 = sql3 + "'" + Code2.Text + "'"
sql4 = sql4 + "'" + Code2.Text + "'"

Set cnRecordSet = Form1.cnTest.Execute(sql1)
If cnRecordSet.EOF = True Then
MsgBox "没有该条记录", vbOKOnly
Else

Set cnRecordSet = Form1.cnTest.Execute(sql4)
If cnRecordSet.EOF = False Then
    If cnRecordSet.Fields(0).Value = "未还" Then
        MsgBox "光盘未还，无法删除", vbOKOnly
        Exit Sub
    End If
End If

Set cnRecordSet = Form1.cnTest.Execute(sql3)
'Set cnRecordSet = Form1.cnTest.Execute(sql2)
MsgBox "删除成功", vbOKOnly

Code1.Text = ""
B_num1.Text = ""
Name_1.Text = ""
Role1.Text = ""
Type_1.Text = ""
'Property1.Text = ""
Dir1.Text = ""
Address1.Text = ""
Money1.Text = ""
Intor1.Text = ""
State1.Text = ""
Admin1.Text = ""
Time1.Text = ""

Code1.Enabled = False
B_num1.Enabled = False
Name_1.Enabled = False
Role1.Enabled = False
Type_1.Enabled = False
Dir1.Enabled = False
Address1.Enabled = False
Money1.Enabled = False
Intor1.Enabled = False
State1.Enabled = False
Admin1.Enabled = False
Time1.Enabled = False
Borrow1.Enabled = False




Code2.Text = ""
Exit Sub
End If
End If
End Sub



Private Sub Confirm_Click()
If MsgBox("确定修改?", vbOKCancel) = vbOK Then



If Code1.Text = "" Then
MsgBox "条形码不能为空", vbOKOnly
Exit Sub
End If

If Name_1.Text = "" Then
MsgBox "碟名不能为空", vbOKOnly
Exit Sub
End If


If B_num1.Text = "" Then
MsgBox "编号不能为空", vbOKOnly
Exit Sub
End If

Dim sql_admin As String
Dim sql_code As String
Dim sql_de As String
Dim sql1_de As String


sql1_de = "delete from CD_inInfo where Bar_code = "
sql1_de = sql1_de + "'" + Code2.Text + "'"
sql_de = "delete from CD_Info where Bar_code = "
sql_de = sql_de + "'" + Code2.Text + "'"

Set cnRecordSet = Form1.cnTest.Execute(sql1_de)
Set cnRecordSet = Form1.cnTest.Execute(sql_de)






sql_code = "select Bar_code from CD_Info where Bar_code = "
sql_code = sql_code + "'" + Code1.Text + "'"
Set cnRecordSet = Form1.cnTest.Execute(sql_code)
    If cnRecordSet.EOF = False Then
       MsgBox "该条形码已存在", vbOKOnly
       Exit Sub
    End If




If Admin1.Text = "" Then
MsgBox "入库人不能为空", vbOKOnly
Exit Sub
End If

sql_admin = "select AdminID from Admin_Info where AdminID = "
sql_admin = sql_admin + "'" + Admin1.Text + "'"
Set cnRecordSet = Form1.cnTest.Execute(sql_admin)
    If cnRecordSet.EOF = True Then
        MsgBox "不存在该管理员", vbOKOnly
    Exit Sub
    End If


On Error GoTo ErrorHandle:


Dim sql As String

Dim sql1 As String



''光碟入库，插入新光碟的信息
sql = "insert into  CD_Info(Bar_code,CD_b_num,CD_name,lead_role,CD_type,director,CD_intor,CD_state,CD_address,Borrow_num)values("

sql = sql + "'" + Code1.Text + "'" + ","
sql = sql + "'" + B_num1.Text + "'" + ","
sql = sql + "'" + Name_1.Text + "'" + ","
sql = sql + "'" + Role1.Text + "'" + ","
sql = sql + "'" + Type_1.Text + "'" + ","
sql = sql + "'" + Dir1.Text + "'" + ","
sql = sql + "'" + Intor1.Text + "'" + ","
sql = sql + "'" + State1.Text + "'" + ","
sql = sql + "'" + Address1.Text + "'" + ","
sql = sql + "'" + Borrow1.Text + "'" + ")"




sql1 = "insert into CD_inInfo(Bar_code,CD_name,AdminID,CD_intime,CD_money)values("
sql1 = sql1 + "'" + Code1.Text + "'" + ","
sql1 = sql1 + "'" + Name_1.Text + "'" + ","
sql1 = sql1 + "'" + Admin1.Text + "'" + ","
sql1 = sql1 + "'" + Time1.Text + "'" + ","
sql1 = sql1 + "'" + Money1.Text + "'" + ")"


Set cnRecordSet = Form1.cnTest.Execute(sql)
Set cnRecordSet = Form1.cnTest.Execute(sql1)
MsgBox "修改成功", vbOKOnly
Code1.Enabled = False
B_num1.Enabled = False
Name_1.Enabled = False
Role1.Enabled = False
Type_1.Enabled = False
Dir1.Enabled = False
Address1.Enabled = False
Money1.Enabled = False
Intor1.Enabled = False
State1.Enabled = False
Admin1.Enabled = False
Time1.Enabled = False
Confirm.Enabled = False


End If

Exit Sub

ErrorHandle:
    Select Case (Err.Number)
        Case 32755:
        Case -2147217900:
            MsgBox "输入错误", vbExclamation, "Error"
        Case -2147217833:
            MsgBox "某些数据长度错误", vbExclamation, "Error"
        Case Else:
            MsgBox Err.Number & vbCrLf & Err.Description, vbExclamation, "Error"
    End Select
    On Error GoTo 0
    Exit Sub
End Sub
Private Sub Cancel_Click()
Code1.Text = ""
B_num1.Text = ""
Name_1.Text = ""
Role1.Text = ""
Type_1.Text = ""
Dir1.Text = ""
Address1.Text = ""
Money1.Text = ""
Intor1.Text = ""
State1.Text = ""
Admin1.Text = ""
Time1.Text = ""
Borrow1.Text = ""
End Sub









Private Sub Intor12_Change()

End Sub

Private Sub View_Click()
Dim sql As String
sql = " select CD_Info.Bar_code,CD_b_num,CD_Info.CD_name,lead_role,"
sql = sql + " CD_type,director, CD_intor, CD_state,CD_address,Borrow_num, AdminID,"
sql = sql + " CD_intime, CD_money from CD_Info ,CD_inInfo "
sql = sql + " where CD_Info.Bar_code=CD_inInfo.Bar_code"
Set cnRecordSet = Form1.cnTest.Execute(sql)
Dim item As ListItem
ListView1.ListItems.Clear
Do While cnRecordSet.EOF = False
    Set item = ListView1.ListItems.Add
    item.Text = cnRecordSet.Fields.item(0).Value
    item.SubItems(1) = cnRecordSet.Fields.item(1).Value
    item.SubItems(2) = cnRecordSet.Fields.item(2).Value
    item.SubItems(3) = cnRecordSet.Fields.item(3).Value
    item.SubItems(4) = cnRecordSet.Fields.item(4).Value
    item.SubItems(5) = cnRecordSet.Fields.item(5).Value
    item.SubItems(6) = cnRecordSet.Fields.item(6).Value
    item.SubItems(7) = cnRecordSet.Fields.item(7).Value
    item.SubItems(8) = cnRecordSet.Fields.item(8).Value
    item.SubItems(9) = cnRecordSet.Fields.item(9).Value
    item.SubItems(10) = cnRecordSet.Fields.item(10).Value
    item.SubItems(11) = cnRecordSet.Fields.item(11).Value
    item.SubItems(12) = cnRecordSet.Fields.item(12).Value
    cnRecordSet.MoveNext
    Loop
    
End Sub
Private Sub Command1_Click()
ListView1.ListItems.Clear
End Sub