本人自学VB1周时间了，根据教材和论坛上高手的指点，制作出了一个辅助车间管理的东西，希望能够在以下几个方面得到提升：
1：建立数据库（密码）并比对登陆人员的帐号密码
2：系统界面中的菜单项和按钮均指向绝对路径，希望能够改称程序安装路径。
本人热爱编程，热爱论坛，喜欢交友，希望得到各位高手的指点，在此谢过。

为什么我不能上传我写的东西呢

版主可以把QQ告诉我么？ 我把我写的东西给你发过去，麻烦你指点一下。

731k的东西能一下上传么？

传不上来，好郁闷，把QQ告诉我，请给与指点

一定要注册才能给你发东西么？

现在的登陆界面是这样的，我想怎样才能通过数据库来管理帐号密码呢？
[CODE]

Private Sub cmdcancel_click()
End
End Sub
Private Sub cmdok_click()
If Txt1.Text = "ABC" And Txt2.Text = "123" Then
Unload 登陆界面
沈阳化工研究院试验厂三车间管理系统.Show
ElseIf Txt1.Text = "" Or Txt2.Text = "" Then
MsgBox "用户名或密码不能为空", , "登陆失败"
Else
MsgBox "用户名或密码错误,请重新输入", , "登陆失败"
End If

End Sub

[/CODE]

现在的引用路径是绝对路径，我想是不是可以变一下，这样不管放在哪都能找到呢？
[CODE]

Private Sub gzbb_Click()
Shell "explorer.exe D:\三车间管理系统\工作流程\纠正和预防\工作报表", vbNormalFocus

End Sub

[/CODE]

怎么样才能把这里的绝对路径改一下？让它适应各种情况呢？

[CODE]

Private Sub Command2_Click()
Dim hc3 As Double
hc3 = Shell("C:\Program Files\AutoCAD 2004\acad.exe" + " " + """d:\新厂区管理系统\资料\合成车间3\合成车间3.dwg """, 1)

End Sub

[/CODE]

我只是在把问题集中起来，整理一下