求用<em>excel</em>制作的超市<em>收银</em>系统表格

我已将表格发往您的邮箱，请查收。（樱桃小丸子）

我有电脑版和手机版的。电脑版300,手机版200。qq:398961587
会员卡都是有卡号的
1 拿个读卡器来读会员卡的卡号
2 你的系统和读卡器通讯拿到卡号
3 拿到的卡号和数据库对比有无记录 没记录 就录入记录 有记录就显示你的先前录入的记录

第一步 设计软件界面
　　一共5个窗体
　　1 登录界面
　　2 主界面
　　3 会员存款
　　4 收银报表
　　5 进度条
　　第二步 写代码及功能界面微调
　　VB代码和VBA有些区别。我按学习VBA的思路来进行编辑的。中间走了很多弯路。查询也只能单条件进行。导致软件运行速度慢。
　　1 登录窗体
　　新建窗体，画2个标签和2个文字框 2个按钮
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long
Private Sub CMD_CANCEL_Click()
End
'Unload Me
End Sub
Private Sub CMD_YES_Click()
Unload Me
MsgBox "登录成636f70797a686964616f336功!", vbInformation
Dialog.Show
Form2.Show
End Sub
Private Sub Form_Load()
Dim sBuffer As String
Dim lSize As Long
sBuffer = Space$(255)
lSize = Len(sBuffer)
Call GetUserName(sBuffer, lSize)
If lSize > 0 Then
Me.Text1.Text = Left$(sBuffer, lSize)
Else
Me.Text1.Text = vbNullString
End If
End Sub
　　效果：运行后在文字框1自动列入计算机当前用户名，点击确定卸载登录框显示登录进度条和主界面；点击退出退出系统。