menu41.frm

给售房作的,但还没有全完成,最好是只看看里面有用的东东就可以了

        Case 4
        a = "化验员"
End Select
Set jcktab = jckk.OpenRecordset("select * from mm where cjydm='" + Combo2.Text + "'")
del = MsgBox("确认删除此" + a + "吗？", vbYesNo + vbQuestion, "土豆称重管理系统")
If del = vbYes Then
   jckk.Execute "delete * from mm where  cjydm='" + Combo2.Text + "'   "
   Set jcktab = jckk.OpenRecordset("select * from mm where cjyqx='" + a + "'")
   If jcktab.EOF Then
      MsgBox "只有这一个" + a + "了，必需再增加！", vbOKOnly + vbExclamation, "土豆称重管理系统"
      cjyappe_Click
   Else
      Combo2.Clear
      Do Until jcktab.EOF
         Combo2.AddItem jcktab("cjydm")
         jcktab.MoveNext
      Loop
      jcktab.MoveFirst
      Combo2.Text = jcktab("cjydm")
      tecjyxm.Text = jcktab("cjyxm")
   End If
End If
End Sub

Private Sub cjyquit_Click()
sbygl.Enabled = True
zjygl.Enabled = True
zggl.Enabled = True
hyygl.Enabled = True
qxquit.Enabled = True
Frame15.Enabled = False
Combo2.Top = 1720
lacjydm.Caption = "操作员代码："
lacjyxm.Caption = "操作员姓名："
lacjymm.Caption = "操作员密码："
lacjyqx.Caption = "操作员权限："
Set jcktab = jckk.OpenRecordset("mm")
Combo2.Clear
Do Until jcktab.EOF
   Combo2.AddItem jcktab("cjydm")
   jcktab.MoveNext
Loop
Combo2.ListIndex = 0
End Sub

Private Sub Form_Load()
winmenu41.Left = 1800
winmenu41.Top = 1000
winmenu41.Width = 6250
winmenu41.Height = 4700
Shape3.Left = 30
Shape3.Top = 30
Shape3.Width = 6080
Shape3.Height = 4250
Combo2.Top = 1720
lacjydm.Caption = "操作员代码："
lacjyxm.Caption = "操作员姓名："
lacjymm.Caption = "操作员密码："
lacjyqx.Caption = "操作员权限："
Combo2.Clear
Set jckk = OpenDatabase(App.Path + "\jck.mdb")
Set jcktab = jckk.OpenRecordset("mm")
Do Until jcktab.EOF
   Combo2.AddItem jcktab("cjydm")
   jcktab.MoveNext
Loop
Combo2.ListIndex = 0
jcktab.MoveFirst
tecjyxm.Text = jcktab("cjyxm")
tecjyqx.Text = jcktab("cjyqx")
tecjyxm.Locked = True
tecjyqx.Locked = True
tecjymm.Locked = True
tecjydm.Visible = False
tecjymm.MaxLength = 11
tecjymm.Text = jcktab("cjymm")
Frame15.Enabled = False
End Sub

Private Sub Combo2_Click()
Set jcktab = jckk.OpenRecordset("select * from mm where cjydm='" + Combo2.Text + "'")
Select Case glbh
       Case 1
           a = "操作员"
        Case 2
           a = "质检员"
        Case 4
           a = "化验员"
        Case 3
           a = "上级主管"
        Case Else
           a = "操作员"
End Select
If jcktab.EOF Then If a = "操作员" Then Set jcktab = jckk.OpenRecordset("mm") Else Set jcktab = jckk.OpenRecordset("select * from mm where cjyqx='" + a + "'")
Combo2.Text = jcktab("cjydm")
tecjyxm = jcktab("cjyxm")
tecjyqx = jcktab("cjyqx")
tecjymm = jcktab("cjymm")
End Sub

Private Sub Combo2_LostFocus()
Set jcktab = jckk.OpenRecordset("select * from mm where cjydm='" + Combo2.Text + "'")
Select Case glbh
       Case 1
           a = "操作员"
        Case 2
           a = "质检员"
        Case 4
           a = "化验员"
        Case 3
           a = "上级主管"
        Case Else
           a = "操作员"
End Select
If jcktab.EOF Then If a = "操作员" Then Set jcktab = jckk.OpenRecordset("mm") Else Set jcktab = jckk.OpenRecordset("select * from mm where cjyqx='" + a + "'")
Combo2.Text = jcktab("cjydm")
tecjyxm = jcktab("cjyxm")
tecjyqx = jcktab("cjyqx")
tecjymm = jcktab("cjymm")
End Sub

Private Sub hyygl_Click()
glbh = 4
sbygl.Enabled = False
zjygl.Enabled = False
zggl.Enabled = False
hyygl.Enabled = False
Frame15.Enabled = True
qxquit.Enabled = False
lacjydm.Caption = "化验员代码："
lacjyxm.Caption = "化验员姓名："
lacjymm.Caption = "化验员密码："
Combo2.Clear
Set jcktab = jckk.OpenRecordset("select * from mm where cjyqx='化验员'")
Do Until jcktab.EOF
   Combo2.AddItem jcktab("cjydm")
   jcktab.MoveNext
Loop
jcktab.MoveFirst
Combo2.ListIndex = 0
Combo2.Text = jcktab("cjydm")
tecjyxm.Text = jcktab("cjyxm")
tecjyqx.Text = jcktab("cjyqx")
tecjyxm.Locked = True
tecjyqx.Locked = True
tecjymm.Locked = True
tecjydm.Visible = False
End Sub

Private Sub qxquit_Click()
menuboot.menunum = "nothing"
Unload Me
End Sub

Private Sub tecjymm_KeyPress(KeyAscii As Integer)
If KeyAscii < 0 Then KeyAscii = 0
End Sub

Private Sub zjygl_Click()
glbh = 2
sbygl.Enabled = False
zjygl.Enabled = False
zggl.Enabled = False
hyygl.Enabled = False
Frame15.Enabled = True
qxquit.Enabled = False
lacjydm.Caption = "质检员代码："
lacjyxm.Caption = "质检员姓名："
lacjymm.Caption = "质检员密码："
Combo2.Clear
Set jcktab = jckk.OpenRecordset("select * from mm where cjyqx='质检员'")
Do Until jcktab.EOF
   Combo2.AddItem jcktab("cjydm")
   jcktab.MoveNext
Loop
jcktab.MoveFirst
Combo2.ListIndex = 0
Combo2.Text = jcktab("cjydm")
tecjyxm.Text = jcktab("cjyxm")
tecjyqx.Text = jcktab("cjyqx")
tecjyxm.Locked = True
tecjyqx.Locked = True
tecjymm.Locked = True
tecjydm.Visible = False
End Sub
Private Sub zggl_Click()
glbh = 3
sbygl.Enabled = False
zjygl.Enabled = False
zggl.Enabled = False
hyygl.Enabled = False
Frame15.Enabled = True
qxquit.Enabled = False
lacjydm.Caption = "上级主管代码："
lacjyxm.Caption = "上级主管姓名："
lacjymm.Caption = "上级主管密码："
Combo2.Clear
Set jcktab = jckk.OpenRecordset("select * from mm where cjyqx='上级主管'")
Do Until jcktab.EOF
   Combo2.AddItem jcktab("cjydm")
   jcktab.MoveNext
Loop
jcktab.MoveFirst
Combo2.ListIndex = 0
Combo2.Text = jcktab("cjydm")
tecjyxm.Text = jcktab("cjyxm")
tecjyqx.Text = jcktab("cjyqx")
tecjyxm.Locked = True
tecjyqx.Locked = True
tecjymm.Locked = True
tecjydm.Visible = False
End Sub

Private Sub tecjydm_KeyPress(KeyAscii As Integer)
If KeyAscii < 0 Then KeyAscii = 0
If KeyAscii = 13 Then tecjyxm.SetFocus
End Sub

Private Sub tecjyxm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
   tecjymm.SetFocus
   tecjymm.SelStart = 0
   tecjymm.SelLength = 11
End If
End Sub
Private Sub cjyok_Click()
tecjyxm.Text = LeftB(tecjyxm.Text, 10)
If LTrim$(tecjydm.Text) = "" Then
   MsgBox "操作员代码不能为空，必须重新输入！", vbOKOnly + vbExclamation, "土豆称重管理系统“"
   tecjydm.SetFocus
   Exit Sub
End If
If LTrim$(tecjyxm.Text) = "" Then
   MsgBox "操作员姓名不能为空，必须重新输入！", vbOKOnly + vbExclamation, "土豆称重管理系统“"
   tecjyxm.SetFocus
   Exit Sub
End If
Select Case glbh
       Case 1
            a = "操作员"
       Case 2
            a = "质检员"
       Case 3
            a = "上级主管"
      Case 4
            a = "化验员"
End Select
If whatdo = 1 Then  '当为增加时
   Set jcktab = jckk.OpenRecordset("select * from mm where cjydm='" + tecjydm.Text + "'")
   If Not jcktab.EOF Then
      MsgBox "此操作员已经存在，必须重新输入", vbOKOnly + vbExclamation, "土豆管理系统"
      tecjydm.SetFocus
      tecjydm.SelStart = 0
      tecjydm.SelLength = 3
      Exit Sub
   Else
      jckk.Execute "insert into mm  (cjydm,cjymm,cjyxm,cjyqx) values ('" + tecjydm.Text + "','" + tecjymm.Text + "','" + tecjyxm.Text + "','" + a + "')"
   End If
ElseIf whatdo = 2 Then
   cjydma = jcktab("cjydm")
   Set jcktab = jckk.OpenRecordset("select * from mm where cjydm='" + tecjydm.Text + "'")
   If Not jcktab.EOF Then
      If tecjydm.Text <> cjydma Then
         MsgBox "此操作员已经存在，必须重新输入", vbOKOnly + vbExclamation, "土豆管理系统"
         tecjydm.SetFocus
         tecjydm.SelStart = 0
         tecjydm.SelLength = 3
         Exit Sub
      End If
   End If
   jckk.Execute "update mm set cjyxm='" + tecjyxm.Text + "',cjymm='" + tecjymm.Text + "',cjydm='" + tecjydm.Text + "' where cjydm='" + cjydma + "' "
End If
Set jcktab = jckk.OpenRecordset("select * from mm where cjyqx='" + a + "'")
cjydma = tecjydm.Text
tecjydm.Visible = False
Combo2.Visible = True
Combo2.Clear
Do Until jcktab.EOF
   Combo2.AddItem jcktab("cjydm")
   jcktab.MoveNext
Loop
Combo2.Text = cjydma
cjyappe.Enabled = True
cjymodi.Enabled = True
cjydel.Enabled = True
cjyok.Enabled = False
cjycancel.Enabled = False
cjyquit.Enabled = True
Combo2.SetFocus
End Sub
Private Sub cjyappe_Click()
whatdo = 1
cjyappe.Enabled = False
cjymodi.Enabled = False
cjydel.Enabled = False
cjyquit.Enabled = False
cjyok.Enabled = True
cjycancel.Enabled = True
tecjydm.Visible = True
tecjydm.Text = ""
tecjydm.MaxLength = 3
tecjydm.Locked = False
tecjyxm.Text = ""
tecjyxm.MaxLength = 10
tecjyxm.Locked = False
tecjymm.Text = ""
tecjymm.Locked = False
tecjymm.MaxLength = 11
tecjydm.SetFocus
End Sub
Private Sub sbygl_Click()
glbh = 1
sbygl.Enabled = False
zjygl.Enabled = False
zggl.Enabled = False
hyygl.Enabled = False
Frame15.Enabled = True
qxquit.Enabled = False
lacjydm.Caption = "操作员代码："
lacjyxm.Caption = "操作员姓名："
lacjymm.Caption = "操作员密码："
Combo2.Clear
Set jcktab = jckk.OpenRecordset("select * from mm where cjyqx='操作员'")
Do Until jcktab.EOF
   Combo2.AddItem jcktab("cjydm")
   jcktab.MoveNext
Loop
jcktab.MoveFirst
Combo2.ListIndex = 0
Combo2.Text = jcktab("cjydm")
tecjyxm.Text = jcktab("cjyxm")
tecjyqx.Text = jcktab("cjyqx")
tecjyxm.Locked = True
tecjyqx.Locked = True
tecjymm.Locked = True
tecjydm.Visible = False
End Sub
Private Sub cjymodi_Click()
whatdo = 2
Set jcktab = jckk.OpenRecordset("select * from mm where cjydm='" + Combo2.Text + "'")
tecjydm.Visible = True
cjyappe.Enabled = False
cjydel.Enabled = False
cjyquit.Enabled = False
cjyok.Enabled = True
cjycancel.Enabled = True
cjymodi.Enabled = False
tecjydm.SetFocus
tecjydm.Text = jcktab("cjydm")
tecjymm.Locked = False
tecjyxm.Locked = False
End Sub