光盘档案.frm
来自「一个以SQL Server 2000为数据库」· FRM 代码 · 共 1,195 行 · 第 1/3 页
FRM
1,195 行
Enabled = 0 'False
Height = 300
ItemData = "光盘档案.frx":0121
Left = 5880
List = "光盘档案.frx":012E
TabIndex = 68
Top = 360
Width = 1575
End
Begin VB.ComboBox Type_
Height = 300
ItemData = "光盘档案.frx":014A
Left = 1920
List = "光盘档案.frx":0163
TabIndex = 67
Top = 2760
Width = 1695
End
Begin VB.TextBox Borrow
Enabled = 0 'False
Height = 285
Left = 5880
TabIndex = 63
Text = "0"
Top = 2760
Width = 1575
End
Begin VB.TextBox Money
Height = 285
Left = 5880
TabIndex = 51
Text = "55"
Top = 1320
Width = 1575
End
Begin VB.CommandButton Continue
Caption = "继续"
Enabled = 0 'False
Height = 375
Left = 5160
TabIndex = 20
Top = 4440
Width = 975
End
Begin VB.CommandButton Insert
Caption = "录入"
Height = 375
Left = 3840
TabIndex = 19
Top = 4440
Width = 975
End
Begin VB.TextBox Intor
Height = 735
Left = 1920
TabIndex = 18
Text = "贺岁碟"
Top = 3360
Width = 5535
End
Begin VB.TextBox Admin
Height = 285
Left = 5880
TabIndex = 14
Text = "043070"
Top = 1800
Width = 1575
End
Begin VB.TextBox Time
Height = 285
Left = 5880
TabIndex = 13
Top = 2280
Width = 1575
End
Begin VB.TextBox Dir
Height = 285
Left = 1920
TabIndex = 12
Text = "百慕大"
Top = 2280
Width = 1695
End
Begin VB.TextBox Role
Height = 285
Left = 1920
TabIndex = 5
Text = "达格斯坦"
Top = 1800
Width = 1695
End
Begin VB.TextBox B_num
Height = 285
Left = 1920
TabIndex = 4
Text = "12"
Top = 1320
Width = 1695
End
Begin VB.TextBox Code
Height = 285
Left = 1920
TabIndex = 3
Text = "0001"
Top = 840
Width = 1695
End
Begin VB.TextBox Name_
Height = 285
Left = 1920
TabIndex = 2
Text = "世界大战"
Top = 360
Width = 1695
End
Begin VB.Label Label5
Caption = "租借次数"
Height = 255
Left = 4440
TabIndex = 62
Top = 2760
Width = 1095
End
Begin VB.Label Label35
Caption = "入库人"
Height = 255
Left = 4440
TabIndex = 53
Top = 1800
Width = 975
End
Begin VB.Label zzzz
Caption = "类型"
Height = 255
Left = 600
TabIndex = 52
Top = 2760
Width = 1095
End
Begin VB.Label Label33
Caption = "进价"
Height = 255
Left = 4440
TabIndex = 50
Top = 1320
Width = 1215
End
Begin VB.Label Label10
Caption = "状态"
Height = 255
Left = 4440
TabIndex = 17
Top = 360
Width = 1215
End
Begin VB.Label Label9
Caption = "简介"
Height = 255
Left = 600
TabIndex = 16
Top = 3240
Width = 1095
End
Begin VB.Label Label8
Caption = "产地"
Height = 255
Left = 4440
TabIndex = 15
Top = 840
Width = 1335
End
Begin VB.Label Label7
Caption = "编号"
Height = 255
Left = 600
TabIndex = 11
Top = 1320
Width = 1095
End
Begin VB.Label Label6
Caption = "碟名"
Height = 255
Left = 600
TabIndex = 10
Top = 360
Width = 1215
End
Begin VB.Label Label4
Caption = "入库时间"
Height = 255
Left = 4440
TabIndex = 9
Top = 2280
Width = 1335
End
Begin VB.Label Label3
Caption = "导演"
Height = 255
Left = 600
TabIndex = 8
Top = 2280
Width = 1215
End
Begin VB.Label Label2
Caption = "主演"
Height = 255
Left = 600
TabIndex = 7
Top = 1800
Width = 1095
End
Begin VB.Label Label1
Caption = "条形码"
Height = 255
Left = 600
TabIndex = 6
Top = 840
Width = 1095
End
End
Begin VB.Label Label28
Caption = " 确认删除后资料不复存在，请慎重"
Height = 495
Left = -74640
TabIndex = 77
Top = 2280
Width = 2415
End
Begin VB.Label Label26
Caption = " 请在下框中输入碟片正确的条形码并进行修改删除"
Height = 495
Left = -74520
TabIndex = 76
Top = 1440
Width = 2175
End
Begin VB.Label Label13
Caption = "（2）"
Height = 255
Left = -74520
TabIndex = 23
Top = 1920
Width = 495
End
Begin VB.Label Label12
Caption = "（1） "
Height = 255
Left = -74520
TabIndex = 22
Top = 1200
Width = 495
End
Begin VB.Label Label11
Caption = "修改说明"
Height = 255
Left = -74520
TabIndex = 21
Top = 840
Width = 735
End
End
Begin VB.Label Label19
Caption = "Label19"
Height = 495
Left = 5040
TabIndex = 33
Top = 4320
Width = 1215
End
Begin VB.Label Label18
Caption = "Label18"
Height = 495
Left = 5040
TabIndex = 32
Top = 4320
Width = 1215
End
End
Attribute VB_Name = "光盘档案"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private cnRecordSet As ADODB.Recordset
Private Sub Command2_Click()
Unload 光盘档案
End Sub
Private Sub Command3_Click()
Unload 光盘档案
End Sub
Private Sub Command4_Click()
Unload 光盘档案
End Sub
Private Sub Form_Load()
ListView1.ColumnHeaders.Add , , "条形码", 1000
ListView1.ColumnHeaders.Add , , "编号", 1000
ListView1.ColumnHeaders.Add , , "碟名", 1000
ListView1.ColumnHeaders.Add , , "主演", 1000
ListView1.ColumnHeaders.Add , , "类型", 1000
ListView1.ColumnHeaders.Add , , "导演", 1000
ListView1.ColumnHeaders.Add , , "简介", 2000
ListView1.ColumnHeaders.Add , , "状态", 1000
ListView1.ColumnHeaders.Add , , "产地 ", 1000
ListView1.ColumnHeaders.Add , , "租借次数", 1000
ListView1.ColumnHeaders.Add , , "入库人", 1000
ListView1.ColumnHeaders.Add , , "入库时间", 2000
ListView1.ColumnHeaders.Add , , "进价", 1000
End Sub
Private Sub Insert_Click()
Dim sql_admin As String
Dim sql_code As String
If Code.Text = "" Then
MsgBox "条形码不能为空", vbOKOnly
Exit Sub
End If
If Name_.Text = "" Then
MsgBox "碟名不能为空", vbOKOnly
Exit Sub
End If
If B_num.Text = "" Then
MsgBox "编号不能为空", vbOKOnly
Exit Sub
End If
sql_code = "select Bar_code from CD_Info where Bar_code = "
sql_code = sql_code + "'" + Code.Text + "'"
Set cnRecordSet = Form1.cnTest.Execute(sql_code)
If cnRecordSet.EOF = False Then
MsgBox "该条形码已存在", vbOKOnly
Exit Sub
End If
If Admin.Text = "" Then
MsgBox "入库人不能为空", vbOKOnly
Exit Sub
Else
sql_admin = "select AdminID from Admin_Info where AdminID = "
sql_admin = sql_admin + "'" + Admin.Text + "'"
Set cnRecordSet = Form1.cnTest.Execute(sql_admin)
If cnRecordSet.EOF = True Then
MsgBox "不存在该管理员", vbOKOnly
Exit Sub
End If
End If
Time.Text = Date
On Error GoTo ErrorHandle:
Dim sql As String
Dim sql1 As String
''光碟入库，插入新光碟的信息
sql1 = "insert into CD_inInfo(Bar_code,CD_name,AdminID,CD_intime,CD_money)values("
sql1 = sql1 + "'" + Code.Text + "'" + ","
sql1 = sql1 + "'" + Name_.Text + "'" + ","
sql1 = sql1 + "'" + Admin.Text + "'" + ","
sql1 = sql1 + "'" + Time.Text + "'" + ","
sql1 = sql1 + "'" + Money.Text + "'" + ")"
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 + "'" + Code.Text + "'" + ","
sql = sql + "'" + B_num.Text + "'" + ","
sql = sql + "'" + Name_.Text + "'" + ","
sql = sql + "'" + Role.Text + "'" + ","
sql = sql + "'" + Type_.Text + "'" + ","
'sql = sql + "'" + Property.Text + "'" + ","
sql = sql + "'" + Dir.Text + "'" + ","
'sql = sql + "'" + Num.Text + "'" + ","
sql = sql + "'" + Intor.Text + "'" + ","
sql = sql + "'" + "在库" + "'" + ","
sql = sql + "'" + Address.Text + "'" + ","
sql = sql + "'" + "0" + "'" + ")"
Set cnRecordSet = Form1.cnTest.Execute(sql1)
Set cnRecordSet = Form1.cnTest.Execute(sql)
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?