订单系统 (已经解决)

totalwolf

有其他朋友帮我做了一份订单系统。能帮我看看能按下面要求再改一下？
一，设置权限。
1，开单员 。可以点击“新增”，填写SHEET1的E3和F2单元格，点击“录入订单”完成录入工作。
2，信息维护员。  只能修改Sheet3的信息。
3， 管理员。所有权限，
3个用户设置密码，密码不一样或可修改。
二，SHEET1的黄色部分设置为不能修改(或者设置为管理员才能修改)。。sheet1 只有E3和F2单元格。

cathylu1983

看看能不能合你的要求

cathylu1983

密码是12345

totalwolf

Private Sub CommandButton1_Click()
    [d2] = ""
    [f2] = ""
    [b3] = ""
    [e3] = ""
    [f3] = ""
CommandButton2.Enabled = True
    If [b2] <> "" Then
        Else
        [b2] = VBA.Date
    End If
   
    orderno = "'" & Format([b2], "yyMM") & Format(GetOrderNo([b2]), "00000")
    [d2] = orderno
   
End Sub

Function GetOrderNo(dte As Date) As Integer
   
    Dim cnn As New Connection
    Dim rs As New Recordset
   
    Dim sqlstr As String
   
    With cnn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel 8.0"
        .CursorLocation = adUseClient
        .Open
    End With
   
    sqlstr = "select max(right([订单编号],5)) from [sheet2$a:f] where [订单日期]=#" & dte & "#"
    rs.Open sqlstr, cnn
    If Not rs.EOF And IsNull(rs.Fields(0)) = False Then
        i = rs.Fields(0)
        Else
        i = 0
    End If
    GetOrderNo = i + 1
End Function

Private Sub CommandButton2_Click()
    i = Sheet3.Range("a65536").End(xlUp).Row + 1
    'MsgBox i
    Sheet3.Range("a" & i) = [b2]
    Sheet3.Range("b" & i) = [d2]
    Sheet3.Range("c" & i) = [f2]
    Sheet3.Range("d" & i) = [b3]
    Sheet3.Range("e" & i) = [e3]
    Sheet3.Range("f" & i) = [f3]



    CommandButton2.Enabled = False
End Sub

Private Sub Worksheet_Activate()



End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 3 And Target.Column = 5 Then
        'MsgBox Target.Address
        [b3] = Sheet2.Range("c:c").Find(Target.Value).Offset(0, -2).Value
        '[e3] = Sheet2.Range("c:c").Find(Target.Value).Offset(0, -1).Value
        
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

totalwolf

测试显示一下内容


运行时错误“1004”
应用程序定义或对象定义错误

还有两个小要求
1，
设置权限。
1，开单员增加可以查看SHEET2的权限。
2，3个用户设置密码，密码不一样或可修改。

[ 本帖最后由 totalwolf 于 2009-9-9 19:02 编辑 ]

cathylu1983

我想不出来为什么了，能不能有高手指点下

totalwolf

高手们快进来帮帮忙啊

totalwolf

sheet2的b列被隐藏了。看看是不是这个原因导致代码错误。

totalwolf

有为大哥说了下面的意见，麻烦看一下。


[b3] = ""  ‘这个单元格被保护起来了，所以会出错，重新设置保护，不要把这个单元格包括进去
    [e3] = ""  '这个和下面的单元格[f3] 是被 合并了,所以清空 [e3] 后同时会清空 [F3] 的,下面是多此一举了
    [f3] = ""




还有两个小要求
1，
设置权限。
1，开单员增加可以查看SHEET2的权限。
2，3个用户设置密码，密码不一样或可修改。

slattn

如果有多人，权限查看，还喜欢EXCEL，可以加我QQ：747837156 进行交流。