guest.frm

来自「一套VB完整的灯具销售管理系统设计」· FRM 代码 · 共 937 行 · 第 1/2 页

FRM
937 行
字号
12
   Text3.Enabled = False
   Text4.Enabled = False
   Text5.Enabled = False
   Text6.Enabled = False
   Text7.Enabled = False
   Text1.Enabled = False
     Search.Enabled = True
   View.Enabled = True
   Add.Enabled = True
   Delete.Enabled = True
   First.Enabled = True
   Previous.Enabled = True
   Nextbutton.Enabled = True
   Last.Enabled = True
   Exit Sub
   End If
Unload Me
End Sub

Private Sub Data1_Reposition()
dq.Caption = Data1.Recordset.AbsolutePosition + 1
End Sub

Private Sub delete_Click()

 '按钮为(放弃)时用代码
 If Delete.Caption = "放弃" Then
     
     Add.Enabled = True
     Text1.Enabled = False
     Text2.Enabled = False
     Text3.Enabled = False
     Text4.Enabled = False
     Text5.Enabled = False
     Text6.Enabled = False
     Text7.Enabled = False
       Search.Enabled = True
     View.Enabled = True
     Edit.Enabled = True
     
    '移动按钮，全解
     First.Enabled = True
     Previous.Enabled = True
     Nextbutton.Enabled = True
     Last.Enabled = True
     
    Add.Caption = "添加"
    Delete.Caption = "删除"
    CloseForm.Enabled = True
    Data1.Recordset.CancelUpdate
    '判断库是否为空
Dim db As Database, ef As Recordset, CountNum As Integer, xy As Integer
  Set db = OpenDatabase(appData)
  Set ef = db.OpenRecordset("guestk", dbOpenTable)
  CountNum = ef.RecordCount
  zs.Caption = CountNum
  If CountNum = 0 Then
     Add.Enabled = True
     Delete.Enabled = False
     First.Enabled = False
     Previous.Enabled = False
     Nextbutton.Enabled = False
     Last.Enabled = False
     Edit.Enabled = False
     View.Enabled = False
     Search.Enabled = False
     Else
      Add.Enabled = True
      Delete.Enabled = True
      First.Enabled = True
      Previous.Enabled = True
      Nextbutton.Enabled = True
      Last.Enabled = True
      End If
      db.Close
    Exit Sub
    End If
    '以下为删除代码
    
  Set db = OpenDatabase(appData)
  Set ef = db.OpenRecordset("guestk", dbOpenTable)
  CountNum = ef.RecordCount
  zs.Caption = CountNum
  If CountNum = 0 Then
     MsgBox "已经没有客户了，拒绝删除！", vbOKOnly + 48, "下次再来吧！"
     Add.Enabled = True
     Delete.Enabled = False
     Edit.Enabled = False
     View.Enabled = False
     Search.Enabled = False
     First.Enabled = False
     Previous.Enabled = False
     Nextbutton.Enabled = False
     Last.Enabled = False
     db.Close
     Exit Sub
     End If
     
     '删除记录
     
     xy = MsgBox("同意删除当前客户吗?( " & Trim(Text1.Text) & " )", 4 + 16, "确认删除")
      If xy = 6 Then
         Data1.Recordset.Delete
         Data1.Recordset.MoveNext
         If Data1.Recordset.EOF Then
            Data1.Recordset.MovePrevious
           End If
           '检测是否为空
             Set db = OpenDatabase(appData)
              Set ef = db.OpenRecordset("guestk", dbOpenTable)
            CountNum = ef.RecordCount
            zs.Caption = CountNum
             If CountNum = 0 Then
               MsgBox "已经没有客户了，拒绝删除！", vbOKOnly + 48, "下次再来吧！"
                Add.Enabled = True
                Delete.Enabled = False
                First.Enabled = False
                Previous.Enabled = False
                Nextbutton.Enabled = False
                Last.Enabled = False
                Edit.Enabled = False
                View.Enabled = False
                Search.Enabled = False
                db.Close
                Exit Sub
                End If
                Else
                Exit Sub
       End If
End Sub

Private Sub Edit_Click()
'保存记录
If Edit.Caption = "保存" Then
   Edit.Caption = "修改"
   CloseForm.Caption = "退出"
   Data1.Recordset.Update
   Text2.Enabled = False
   Text3.Enabled = False
   Text4.Enabled = False
   Text5.Enabled = False
   Text6.Enabled = False
   Text7.Enabled = False
   Text1.Enabled = False
   Search.Enabled = True
   View.Enabled = True
   Add.Enabled = True
   Delete.Enabled = True
   First.Enabled = True
   Previous.Enabled = True
   Nextbutton.Enabled = True
   Last.Enabled = True
   Exit Sub
   End If
'修改记录
Edit.Caption = "保存"
CloseForm.Caption = "取消"
Data1.Recordset.Edit
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Text1.Enabled = True
Search.Enabled = False
Nextfind.Enabled = False
View.Enabled = False
Add.Enabled = False
Delete.Enabled = False
First.Enabled = False
Previous.Enabled = False
Nextbutton.Enabled = False
Last.Enabled = False

End Sub

Private Sub First_Click()

Data1.Recordset.MoveFirst
First.Enabled = False
Previous.Enabled = False

'如果为一条记录时，下翻和到尾为不能用
Dim db As Database, ef As Recordset, CountNum As Integer, xy As Integer
  Set db = OpenDatabase(appData)
  Set ef = db.OpenRecordset("guestk", dbOpenTable)
  CountNum = ef.RecordCount
  If CountNum = 1 Then
    Last.Enabled = False
    Nextbutton.Enabled = False
    Else
    Last.Enabled = True
    Nextbutton.Enabled = True
    End If
    db.Close
End Sub

Private Sub Form_Load()

'声明数据库路径
Data1.DatabaseName = appData
Data1.RecordSource = "guestk"

'判断库是否为空
Dim db As Database, ef As Recordset, CountNum As Integer, xy As Integer
  Set db = OpenDatabase(appData)
  Set ef = db.OpenRecordset("guestk", dbOpenTable)
  CountNum = ef.RecordCount
  zs.Caption = CountNum
  If CountNum = 0 Then
     Add.Enabled = True
     Delete.Enabled = False
     First.Enabled = False
     Previous.Enabled = False
     Nextbutton.Enabled = False
     Last.Enabled = False
     Edit.Enabled = False
     View.Enabled = False
     Search.Enabled = False
     Else
      Add.Enabled = True
      Delete.Enabled = True
      First.Enabled = True
      Previous.Enabled = True
      Nextbutton.Enabled = True
      Last.Enabled = True
      End If
     db.Close
     
    '设定到首及上翻按钮为无效
    First.Enabled = False
    Previous.Enabled = False
    
End Sub

Private Sub Last_Click()

Data1.Recordset.MoveLast
Last.Enabled = False
Nextbutton.Enabled = False

'如果为一条记录时，上翻和到首为不能用
Dim db As Database, ef As Recordset, CountNum As Integer, xy As Integer
  Set db = OpenDatabase(appData)
  Set ef = db.OpenRecordset("guestk", dbOpenTable)
  CountNum = ef.RecordCount
  If CountNum = 1 Then
    First.Enabled = False
    Previous.Enabled = False
    Else
    First.Enabled = True
    Previous.Enabled = True
    End If

End Sub

Private Sub Nextbutton_Click()

'判断是否到记录尾
If Data1.Recordset.EOF Then
   Last.Enabled = False
   Nextbutton.Enabled = False
   Else
   Last.Enabled = True
   Nextbutton.Enabled = True
   End If
   
'判断是否到记录头
If Data1.Recordset.BOF Then
   First.Enabled = False
   Previous.Enabled = False
   Else
   First.Enabled = True
   Previous.Enabled = True
   End If
   
'执行下翻操作
   Data1.Recordset.MoveNext
   
   '判断是否到记录尾
If Data1.Recordset.EOF Then
   Last.Enabled = False
   Nextbutton.Enabled = False
   Else
   Last.Enabled = True
   Nextbutton.Enabled = True
   End If
   
'判断是否到记录头
If Data1.Recordset.BOF Then
   First.Enabled = False
   Previous.Enabled = False
   Else
   First.Enabled = True
   Previous.Enabled = True
   End If
   
   '继续下翻
   On Error GoTo lastrecord
   Data1.Recordset.MoveNext
   '判断是否到记录尾
   
If Data1.Recordset.EOF Then
   Last.Enabled = False
   Nextbutton.Enabled = False
   Data1.Recordset.MoveLast
   Else
   Last.Enabled = True
   Nextbutton.Enabled = True
   Data1.Recordset.MovePrevious
   End If
   Exit Sub
   
lastrecord:
   Call Last_Click
   
End Sub


Private Sub Nextfind_Click()
Data1.Recordset.FindNext PublicFindstr
If Data1.Recordset.NoMatch Then
     MsgBox "没有查找到该客户", vbOKOnly + 48, "查找客户"
     '查找下一个为假
     Nextfind.Enabled = False
        Exit Sub
        End If
End Sub

Private Sub Previous_Click()

'判断是否到记录尾
If Data1.Recordset.EOF Then
   Last.Enabled = False
   Nextbutton.Enabled = False
   Else
   Last.Enabled = True
   Nextbutton.Enabled = True
   End If
   
'判断是否到记录头
If Data1.Recordset.BOF Then
   First.Enabled = False
   Previous.Enabled = False
   Else
   First.Enabled = True
   Previous.Enabled = True
   End If
   
'执行操作

Data1.Recordset.MovePrevious

'判断是否到记录尾
If Data1.Recordset.EOF Then
   Last.Enabled = False
   Nextbutton.Enabled = False
   Else
   Last.Enabled = True
   Nextbutton.Enabled = True
   End If
   
'判断是否到记录头
If Data1.Recordset.BOF Then
   First.Enabled = False
   Previous.Enabled = False
     Else
    First.Enabled = True
    Previous.Enabled = True
    End If
    
    '继续上翻
    On Error GoTo firstrecord
    Data1.Recordset.MovePrevious
    
   If Data1.Recordset.BOF Then
          First.Enabled = False
          Previous.Enabled = False
          Data1.Recordset.MoveFirst
            Else
          First.Enabled = True
          Previous.Enabled = True
          Data1.Recordset.MoveNext
               End If
               Exit Sub
firstrecord:
               Call First_Click
   
End Sub

Private Sub Search_Click()
guest.MousePointer = 11
Load GuestFind
guest.MousePointer = 0
GuestFind.Show 1
End Sub

Private Sub Text1_Change()
If Edit.Caption = "修改" Then
   If Trim(Text1.Text) = "" Then
       Add.Enabled = False
     Else
       Add.Enabled = True
      End If
   Else
     If Trim(Text1.Text) = "" Then
        Edit.Enabled = False
          Else
            Edit.Enabled = True
           End If
  End If
End Sub

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


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

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

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

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

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

Private Sub Text7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
  If Add.Enabled = True Then
    Add.SetFocus
    Else
    Edit.SetFocus
    End If
  End If
End Sub

Private Sub View_Click()
guest.MousePointer = 11
Load gridView
guest.MousePointer = 0
gridView.Show 1
End Sub
12

guest.frm - 源码说明

本页面展示了「一套VB完整的灯具销售管理系统设计」中的 guest.frm 源码文件，采用 FRM 编程语言编写，共 937 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与VB相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?