main_fzgj_addresslist.frm

餐饮企业的管理系统主要包括前台管理、后台管理、财务管理、报表打印等功能

  cmdSave.Enabled = True
  cmdCancel.Enabled = True
  txtName.SetFocus
  Adodc1.Recordset.AddNew
End Sub

Private Sub cmdCancel_Click()

  Adodc1.Recordset.CancelBatch
  txtName.text = ""
  txtSex.text = ""
  txtEmail.text = ""
  txtPhone.text = ""
  txtMobile.text = ""
  txtPersonNet.text = ""
  txtOperation.text = ""
  txtFax.text = ""
  txtDuty.text = ""
  txtDept.text = ""
  txtOffice.text = ""
  txtCompanyName.text = ""
  txtCompanyNet.text = ""
  
  cmdSave.Enabled = False
  cmdCancel.Enabled = False
  cmdUpdata.Enabled = False
  cmdDel.Enabled = False
  cmdAdd.Enabled = True
  Call txtLock
End Sub

Private Sub cmdDel_Click()
  If MsgBox("确定要删除当前记录吗？", vbOKCancel + vbQuestion, "提示") = vbOK Then
     Adodc1.Recordset.Delete        '删除当前记录
  End If
End Sub

Private Sub cmdEnd_Click()
  Unload Me
End Sub

Private Sub cmdFind_Click()
 Sql = "select * from 通讯录 where 姓名 like '" & txtFind.text & "%'"
  Call FunAdo(Adodc1, Sql)
  Adodc1.Refresh
End Sub

Private Sub cmdsave_Click()
  If txtName = "" Then
     MsgBox "姓名不能为空！", vbOKOnly + vbInformation, "提示"
     txtName.SetFocus
     Exit Sub
  End If
  Adodc1.Recordset.Fields(1).Value = txtName.text
  Adodc1.Recordset.Fields(2).Value = txtSex.text
  Adodc1.Recordset.Fields(3).Value = txtEmail.text
  Adodc1.Recordset.Fields(4).Value = txtPhone.text
  Adodc1.Recordset.Fields(5).Value = txtMobile.text
  Adodc1.Recordset.Fields(6).Value = txtPersonNet.text
  Adodc1.Recordset.Fields(7).Value = txtOperation.text
  Adodc1.Recordset.Fields(8).Value = txtFax.text
  Adodc1.Recordset.Fields(9).Value = txtDuty.text
  Adodc1.Recordset.Fields(10).Value = txtDept.text
  Adodc1.Recordset.Fields(11).Value = txtOffice.text
  Adodc1.Recordset.Fields(12).Value = txtCompanyName.text
  Adodc1.Recordset.Fields(13).Value = txtCompanyNet.text
  Adodc1.Recordset.Update
  Adodc1.Refresh
  Sql = "select * from 通讯录"
  Call FunAdo(Adodc1, Sql)
  Adodc1.Refresh
  
  cmdSave.Enabled = False
  cmdCancel.Enabled = False
  cmdUpdata.Enabled = False
  cmdDel.Enabled = False
  cmdAdd.Enabled = True
  cmdAdd.SetFocus
  Call txtLock
End Sub

Private Sub cmdUpdata_Click()
  cmdAdd.Enabled = False
  cmdDel.Enabled = False
  cmdSave.Enabled = True
  cmdCancel.Enabled = True
  Call txtUnLock
End Sub

Private Sub cmdURL_Click()
  If txtPersonNet <> "" Then
     ShellExecute Me.hWnd, "open", txtPersonNet.text, 1, 1, 5   '使用API函数，来登陆到Internet 浏览相关网页
  End If
End Sub

Private Sub cmdURL2_Click()
  If txtCompanyNet.text <> "" Then
     ShellExecute Me.hWnd, "open", txtCompanyNet.text, 1, 1, 5  '使用API函数，来登陆到Internet 浏览相关网页
  End If
End Sub

Private Sub DataGrid1_MouseUp(Button As Integer, Shift As Integer, X As Single, y As Single)
  If Button = 2 Then
     PopupMenu OP
  ElseIf Button = 1 Then
     cmdDel.Enabled = True
     cmdUpdata.Enabled = True
  End If
End Sub

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
  txtName.text = DataGrid1.Columns.Item(1).text
  txtSex.text = DataGrid1.Columns.Item(2).text
  txtEmail.text = DataGrid1.Columns.Item(3).text
  txtPhone.text = DataGrid1.Columns.Item(4).text
  txtMobile.text = DataGrid1.Columns.Item(5).text
  txtPersonNet.text = DataGrid1.Columns.Item(6).text
  txtOperation.text = DataGrid1.Columns.Item(7).text
  txtFax.text = DataGrid1.Columns.Item(8).text
  txtDuty.text = DataGrid1.Columns.Item(9).text
  txtDept.text = DataGrid1.Columns.Item(10).text
  txtOffice.text = DataGrid1.Columns.Item(11).text
  txtCompanyName.text = DataGrid1.Columns.Item(12).text
  txtCompanyNet.text = DataGrid1.Columns.Item(13).text
  If txtName = "" Then
     txtCompanyNet.text = "http://"
     txtPersonNet.text = "http://"
  End If
End Sub

Private Sub Del_Click()
  cmdDel.Enabled = True
  cmdUpdata.Enabled = False
  cmdAdd.Enabled = False
  cmdCancel.Enabled = True
  cmdSave.Enabled = True
End Sub

Private Sub Form_Load()
  
  Sql = "select * from 通讯录"
  Call FunAdo(Adodc1, Sql)
  Adodc1.Refresh
  cmdSave.Enabled = False
  cmdCancel.Enabled = False
  cmdUpdata.Enabled = False
  cmdDel.Enabled = False
  cmdAdd.Enabled = True
  Call txtLock
End Sub

Private Sub txtCompanyName_GotFocus()
  txtCompanyName.BackColor = &HFFC0FF
End Sub

Private Sub txtCompanyName_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then SendKeys "{TAB}", True
End Sub

Private Sub txtCompanyName_LostFocus()
  txtCompanyName.BackColor = &H80000018
End Sub

Private Sub txtCompanyNet_GotFocus()
  txtCompanyNet.BackColor = &HFFC0FF
End Sub

Private Sub txtCompanyNet_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then SendKeys "{TAB}", True
End Sub

Private Sub txtCompanyNet_LostFocus()
  txtCompanyNet.BackColor = &H80000018
End Sub

Private Sub txtDept_GotFocus()
  txtDept.BackColor = &HFFC0FF
End Sub

Private Sub txtDept_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then SendKeys "{TAB}", True
End Sub

Private Sub txtDept_LostFocus()
  txtDept.BackColor = &H80000018
End Sub

Private Sub txtDuty_GotFocus()
  txtDuty.BackColor = &HFFC0FF
End Sub

Private Sub txtDuty_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then SendKeys "{TAB}", True
End Sub

Private Sub txtDuty_LostFocus()
  txtDuty.BackColor = &H80000018
End Sub

Private Sub txtEmail_GotFocus()
  txtEmail.BackColor = &HFFC0FF
End Sub

Private Sub txtEmail_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then SendKeys "{TAB}", True
End Sub

Private Sub txtEmail_LostFocus()
  txtEmail.BackColor = &H80000018
End Sub

Private Sub txtFax_GotFocus()
  txtFax.BackColor = &HFFC0FF
End Sub

Private Sub txtFax_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then SendKeys "{TAB}", True
End Sub

Private Sub txtFax_LostFocus()
  txtFax.BackColor = &H80000018
End Sub

Private Sub txtMobile_GotFocus()
  txtMobile.BackColor = &HFFC0FF
End Sub

Private Sub txtMobile_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then SendKeys "{TAB}", True
End Sub

Private Sub txtMobile_LostFocus()
  txtMobile.BackColor = &H80000018
End Sub

Private Sub txtName_GotFocus()
  txtName.BackColor = &HFFC0FF
End Sub

Private Sub txtName_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then SendKeys "{TAB}", True
End Sub

Private Sub txtName_LostFocus()
  txtName.BackColor = &H80000018
End Sub

Private Sub txtOffice_GotFocus()
  txtOffice.BackColor = &HFFC0FF
End Sub

Private Sub txtOffice_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then SendKeys "{TAB}", True
End Sub

Private Sub txtOffice_LostFocus()
  txtOffice.BackColor = &H80000018
End Sub

Private Sub txtOperation_GotFocus()
  txtOperation.BackColor = &HFFC0FF
End Sub

Private Sub txtOperation_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then SendKeys "{TAB}", True
End Sub

Private Sub txtOperation_LostFocus()
  txtOperation.BackColor = &H80000018
End Sub

Private Sub txtPersonNet_GotFocus()
  txtPersonNet.BackColor = &HFFC0FF
End Sub

Private Sub txtPersonNet_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then SendKeys "{TAB}", True
End Sub

Private Sub txtPersonNet_LostFocus()
  txtPersonNet.BackColor = &H80000018
End Sub

Private Sub txtPhone_GotFocus()
  txtPhone.BackColor = &HFFC0FF
End Sub

Private Sub txtPhone_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then SendKeys "{TAB}", True
End Sub

Private Sub txtPhone_LostFocus()
  txtPhone.BackColor = &H80000018
End Sub

Private Sub txtSex_GotFocus()
  txtSex.BackColor = &HFFC0FF
End Sub

Private Sub txtSex_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then SendKeys "{TAB}", True
End Sub

Private Sub txtSex_LostFocus()
 txtSex.BackColor = &H80000018
End Sub

Private Sub Updata_Click()
  cmdUpdata.Enabled = True
  cmdDel.Enabled = False
  cmdAdd.Enabled = False
  cmdCancel.Enabled = True
  cmdSave.Enabled = True
End Sub

Sub txtLock()            '锁定文本控件
  txtName.Enabled = False
  txtSex.Enabled = False
  txtEmail.Enabled = False
  txtPhone.Enabled = False
  txtMobile.Enabled = False
  txtPersonNet.Enabled = False
  txtOperation.Enabled = False
  txtFax.Enabled = False
  txtDuty.Enabled = False
  txtDept.Enabled = False
  txtOffice.Enabled = False
  txtCompanyName.Enabled = False
  txtCompanyNet.Enabled = False
End Sub

Sub txtUnLock()           '解除锁定文本控件
  
  txtName.Enabled = True
  txtSex.Enabled = True
  txtEmail.Enabled = True
  txtPhone.Enabled = True
  txtMobile.Enabled = True
  txtPersonNet.Enabled = True
  txtOperation.Enabled = True
  txtFax.Enabled = True
  txtDuty.Enabled = True
  txtDept.Enabled = True
  txtOffice.Enabled = True
  txtCompanyName.Enabled = True
  txtCompanyNet.Enabled = True
  
End Sub