falm_payin.frm

音像制品管理系统共分为四个功能模块

      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   720
      TabIndex        =   17
      Top             =   1440
      Width           =   615
   End
   Begin VB.Label Label4 
      Caption         =   "电影名"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   480
      TabIndex        =   16
      Top             =   840
      Width           =   855
   End
   Begin VB.Label Label2 
      Caption         =   "影 碟 入 库 数 据"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   18
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   4560
      TabIndex        =   15
      Top             =   -600
      Width           =   3615
   End
   Begin VB.Label Label1 
      Caption         =   "内容简介:"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   480
      TabIndex        =   11
      Top             =   4920
      Width           =   1215
   End
End
Attribute VB_Name = "falmpayin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Dim bool1 As Boolean
Private Sub Combo1_Click()
Adodc1.Recordset("类型") = Combo1.Text
End Sub

Private Sub Combo1_LostFocus()
Adodc1.Recordset("类型") = Combo1.Text
End Sub

Private Sub Combo2_Click()
Adodc1.Recordset("语种") = Combo2.Text
End Sub

Private Sub Combo2_LostFocus()
Adodc1.Recordset("语种") = Combo2.Text
End Sub

Private Sub Command1_Click()
Dim i As Long
MDIForm1.StatusBar1.Panels(1) = "增加一张影碟"
If bool1 = True Then
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 影碟入库 order by 盘号"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount <> 0 Then
Adodc1.Recordset.MoveLast
i = Adodc1.Recordset("盘号")
i = i + 1
Else
i = 1001
End If
bool1 = False
Adodc1.Recordset.AddNew
Adodc1.Recordset("盘号") = i
Adodc1.Recordset("入库时间") = DTPicker2.Value
End If
Text3.SetFocus
End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar1.Panels(1) = "增加一张影碟"
End Sub

Private Sub Command2_Click()
bool1 = True
MDIForm1.StatusBar1.Panels(1) = "删除一条记录"
On Error GoTo errmsg
Dim str As Integer
str = MsgBox("确定是否删除", 33, "删除一个记录")
If str = 1 Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast
Else
Adodc1.Recordset.CancelUpdate
End If
Exit Sub
errmsg:
    MsgBox Err.Description, vbExclamation, "影碟入库"
End Sub

Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar1.Panels(1) = "删除一条记录"
End Sub

Private Sub Command3_Click()
On Error GoTo errmsg
Adodc1.Recordset.Update
bool1 = True
Exit Sub
errmsg:
    MsgBox Err.Description, vbExclamation, "影碟入库-update"
 
End Sub

Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar1.Panels(1) = "更新影碟入库数据"
End Sub

Private Sub Command4_Click()
On Error GoTo errmsg
Adodc1.Recordset.CancelUpdate
bool1 = True
Exit Sub
errmsg:
     MsgBox Err.Description, vbExclamation, "影碟入库-cancelupdate"
    
End Sub

Private Sub Command4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar1.Panels(1) = "澈消当前操作"
End Sub

Private Sub Command5_Click()
MDIForm1.StatusBar1.Panels(1) = "清空库中所有记录"
On Error GoTo errmsg
Dim str As Integer
str = MsgBox("真的要清空所有记录吗", 33, "清空记录")
If str = 1 Then
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
Wend
Else
Adodc1.Recordset.CancelUpdate
Adodc1.Recordset.MoveLast
End If
Exit Sub
errmsg: MsgBox Err.Description, vbExclamation, "入库错误"

End Sub

Private Sub Command5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar1.Panels(1) = "清空库中所有记录"
End Sub

Private Sub Command6_Click()
MDIForm1.StatusBar1.Panels(1) = "影碟入库打印"
falmpayinprint.Show
End Sub

Private Sub Command6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar1.Panels(1) = "影碟入库打印"
End Sub

Private Sub DataGrid1_Error(ByVal DataError As Integer, Response As Integer)
Response = 0
End Sub

Private Sub DataGrid1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar1.Panels(1) = "影碟入库数据"
End Sub

Private Sub DTPicker2_LostFocus()
Adodc1.Recordset("入库时间") = DTPicker2.Value
End Sub

Private Sub DTPicker2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar1.Panels(1) = "输入影碟入库时间"
End Sub

Private Sub Form_GotFocus()
MDIForm1.StatusBar1.Panels(1) = "影碟购入信息"
MDIForm1.Combo1.Text = "[影碟购入信息]"
End Sub

Private Sub Form_Load()
MDIForm1.StatusBar1.Panels(1) = "影碟入库信息"
bool1 = True
MDIForm1.Combo1.Text = "[影碟购入信息]"
DTPicker2.Value = Date
'Adodc1.Recordset.AddNew

Combo1.AddItem "喜剧片"
Combo1.AddItem "武打片"
Combo1.AddItem "枪战片"
Combo1.AddItem "言情片"
Combo1.AddItem "恐怖片"
Combo1.AddItem "记实片"
Combo1.AddItem "纪录片"
Combo1.AddItem "科幻片"
Combo2.AddItem "英语"
Combo2.AddItem "法语"
Combo2.AddItem "国语"
Combo2.AddItem "日语"
Combo2.AddItem "台语"
Combo2.AddItem "闽南语"
Combo2.AddItem "俄语"
Combo2.AddItem "德语"
End Sub

Private Sub List1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command3.Value = True
End If
End Sub

Private Sub Form_LostFocus()
falmpayin.Hide
Unload Me
Set falmpayin = Nothing
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar1.Panels(1) = ""
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim str As Integer
If Text9.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text7 = "" Or Text6.Text = "" Or Text8.Text = "" Then
MDIForm1.StatusBar1.Panels(1) = "输入有误"
str = MsgBox("输入不完整数据是否继续输入?", 36, "请输入完整数据")
If str = 7 Then
Adodc2.Recordset.Delete
Else
Cancel = 1
End If
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text7.SetFocus
End If
End Sub

Private Sub Text1_LostFocus()
Adodc1.Recordset("产地") = Text1.Text
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar1.Panels(1) = "输入影碟产地"
End Sub


Private Sub Text2_LostFocus()
Adodc1.Recordset("内容") = Text2.Text
End Sub

Private Sub Text2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar1.Panels(1) = "影碟入库内容简介"
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.SetFocus
End If
End Sub

Private Sub Text3_LostFocus()
Adodc1.Recordset("电影名") = Text3.Text
End Sub

Private Sub Text3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar1.Panels(1) = "输入影碟电影名"
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text5.SetFocus
End If
End Sub

Private Sub Text4_LostFocus()
Adodc1.Recordset("主演") = Text4.Text
End Sub

Private Sub Text4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar1.Panels(1) = "输入影碟主演"
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text1.SetFocus
End If
End Sub

Private Sub Text5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar1.Panels(1) = "输入影碟导演"
End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text8.SetFocus
bool1 = True
End If
End Sub

Private Sub Text5_LostFocus()
Adodc1.Recordset("导演") = Text5.Text
End Sub

Private Sub Text6_LostFocus()
If Text6.Text <> "" Then
Adodc1.Recordset("价格") = Val(Text6.Text)
End If
End Sub

Private Sub Text6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar1.Panels(1) = "输入影碟价格"
End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Text7.Text <> "" Then
If Text7.Text > 0 Then
Text6.SetFocus
Else
MDIForm1.StatusBar1.Panels(1) = "数量不能为0,输入有误"
MsgBox "数量不为0", 64, "输入有误"
End If
End If
End If
End Sub

Private Sub Text7_LostFocus()
If Text7.Text <> "" Then
Adodc1.Recordset("数量") = Val(Text7.Text)
Adodc1.Recordset("原始数量") = Text7.Text
End If
End Sub

Private Sub Text7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar1.Panels(1) = "输入影碟数量"
End Sub

Private Sub Text8_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command3.SetFocus
End If
End Sub

Private Sub Text8_LostFocus()
If Text8.Text <> "" Then
Adodc1.Recordset("发行时间") = Text8.Text
End If
End Sub

Private Sub Text8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar1.Panels(1) = "输入影碟发行时间"
End Sub

Private Sub Text9_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub

Private Sub Text9_LostFocus()
If Text9.Text <> "" Then
Adodc2.Recordset("盘号") = Text9.Text
End If
End Sub

Private Sub Text9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar1.Panels(1) = "输入影碟盘号"
End Sub