2 zjbonrace zjbonrace 于 2015.07.04 23:43 提问

link环境下制作一款《订餐软件》,请问如何实现会员的办卡管理子系统?都怎么实现?

link环境下制作一款《订餐软件》,请问如何实现会员的办卡管理子系统?都怎么实现?

1个回答

caozhy
caozhy   Ds   Rxr 2015.07.05 18:49
已采纳

需要ic卡读卡器,你的服务器存卡号或者磁条号以及余额就可以了。

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!
其他相关推荐
我做的会员卡管理系统
Imports System.Data.SqlClient Imports System.DateTime Partial Class member Inherits System.Web.UI.UserControl Dim sys As New SySDB '新增 Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click If Me.txt_num.Text = "" Then Response.Write("<script>alert('請輸入卡號!')</script>") : Exit Sub If Me.txt_name.Text = "" Then Response.Write("<script>alert('請輸入姓名!')</script>") : Exit Sub If Me.txt_email.Text = "" Then RegularExpressionValidator3.Enabled = False If Me.txt_passport.Text = "" Then RegularExpressionValidator1.Enabled = False addmember() End Sub Private Sub addmember() sys.InsertCommand = "insert into member(CardId,name,age,birthday,sex,address,mail,phone,passport,addtime) values (@CardId,@name,@age,@birthday,@sex,@address,@mail,@phone,@passport,@addtime)" sys.InsertParameters.Add("CardId", Me.txt_num.Text.Trim) sys.InsertParameters.Add("name", Me.txt_name.Text.Trim) sys.InsertParameters.Add("age", Me.txt_age.Text.Trim) sys.InsertParameters.Add("birthday", Me.year.Text.Trim.ToString) sys.InsertParameters.Add("sex", Me.sex.SelectedValue.Trim) sys.InsertParameters.Add("address", Me.txt_address.Text.Trim) sys.InsertParameters.Add("mail", Me.txt_email.Text.Trim) sys.InsertParameters.Add("phone", Me.txt_phone.Text.Trim) sys.InsertParameters.Add("passport", Me.txt_passport.Text.Trim) sys.InsertParameters.Add("addtime", Format(Now, "yyyy/MM/dd")) '加入操作時間 Me.Button1.Attributes.Add("onclick", "return confirm('請先確定資料是否正確?')") Try If sys.Insert > 0 Then Response.Write("<script>alert('恭喜!你已經成功新增一個會員!')</script>") Else Response.Write("<script>alert('新增會員失敗')</script>") End If Catch ex As Exception MsgBox(ex.Message.ToString) End Try cleardata() Me.btn_delete.Enabled = False Me.btn_edit.Enabled = False Me.txt_num.ReadOnly = False Me.txt_num.BackColor = Drawing.Color.Yellow End Sub Private Sub cleardata() Me.txt_num.Text = "" Me.txt_name.Text = "" Me.txt_age.Text = "" Me.year.Text = "" Me.sex.SelectedValue = "女" Me.txt_address.Text = "" Me.txt_email.Text = "" Me.txt_phone.Text = "" Me.txt_passport.Text = "" End Sub ' Private Sub loadmonth() ' Dim i As Integer = 1 ' For i = 1 To 12 Step 1 ' month.Items.Add(i) 'Next ' End Sub ' Private Sub loadday() ' 'Dim i As Integer ' Dim j As Integer = 1 ' For j = 1 To 31 Step 1 ' day.Items.Add(j) ' 'j = j + 1 ' Next ' End Sub Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Me.Page.IsPostBack = False Then load_total() End If End Sub Sub load_total() sys.SelectCommand = "SELECT count(*) as a1 FROM [member]" sys.DataSourceMode = SqlDataSourceMode.DataReader Dim dr As SqlDataReader = sys.Select() While dr.Read Me.total.Text = "現有會員:" & dr("a1") & "位" End While End Sub '查找 Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click sys.SelectCommand = "select * from member where CardId like @CardId" sys.SelectParameters.Add(New ControlParameter("CardId", Me.txt_num.ID)) Me.Controls.Add(sys) Dim dv As Data.DataView = sys.Select(New DataSourceSelectArguments) Dim i As Integer '讀入資料,使用for循环来绑定资料  For i = 0 To dv.Table.Rows.Count - 1 Me.txt_num.Text = dv.Table.Rows(i)("CardId").ToString Me.txt_name.Text = dv.Table.Rows(i)("name").ToString Me.txt_age.Text = dv.Table.Rows(i)("age").ToString Me.year.Text = dv.Table.Rows(i)("birthday").ToString Me.sex.SelectedValue = dv.Table.Rows(i)("sex").ToString Me.txt_address.Text = dv.Table.Rows(i)("address").ToString Me.txt_email.Text = dv.Table.Rows(i)("mail").ToString Me.txt_passport.Text = dv.Table.Rows(i)("passport").ToString Me.txt_phone.Text = dv.Table.Rows(i)("phone").ToString Next If Me.txt_num.Text <> "" Then Me.btn_delete.Enabled = True Me.btn_edit.Enabled = True Me.txt_num.ReadOnly = True Me.txt_num.BackColor = Drawing.Color.Red End If End Sub Protected Sub btn_clear_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_clear.Click cleardata() Me.btn_delete.Enabled = False Me.btn_edit.Enabled = False Me.txt_num.ReadOnly = False Me.txt_num.BackColor = Drawing.Color.Yellow End Sub '編輯 Protected Sub btn_edit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_edit.Click Try sys.UpdateCommand = "update member set name = @name, age=@age,birthday=@birthday,sex=@sex,address=@address,mail=@mail,phone=@phone,passport=@passport where CardId=@CardId" sys.UpdateParameters.Add("name", Me.txt_name.Text.Trim.ToString) sys.UpdateParameters.Add("age", Me.txt_age.Text.Trim) sys.UpdateParameters.Add("birthday", Me.year.Text.Trim.ToString) sys.UpdateParameters.Add("sex", Me.sex.SelectedValue.ToString) sys.UpdateParameters.Add("address", Me.txt_address.Text.Trim.ToString) sys.UpdateParameters.Add("mail", Me.txt_email.Text.Trim.ToString) sys.UpdateParameters.Add("phone", Me.txt_phone.Text.Trim.ToString) sys.UpdateParameters.Add("passport", Me.txt_passport.Text.Trim.ToString) sys.UpdateParameters.Add("CardId", Me.txt_num.Text.Trim) sys.Update() Me.btn_edit.Attributes.Add("onclick", "return confirm('請先確定會員資料是否正確?')") '彈出提示窗口 If sys.Update > 0 Then Response.Write("<script>alert('會員資料更新成功!')</script>") Else Response.Write("<script>alert('會員資料更新失敗!')</script>") End If Catch ex As Exception MsgBox(ex.Message.ToString) End Try cleardata() Me.btn_delete.Enabled = False Me.btn_edit.Enabled = False Me.txt_num.ReadOnly = False Me.txt_num.BackColor = Drawing.Color.Yellow End Sub '刪除操作 Protected Sub btn_delete_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_delete.Click Try sys.DeleteCommand = "delete from member where CardId =@CardId" sys.DeleteParameters.Add("CardId", Me.txt_num.Text.Trim) sys.Delete() Me.btn_delete.Attributes.Add("onclick", "return confirm('是否要刪除此會員?')") If sys.Delete > 0 Then Response.Write("<script>alert('已經成功刪除此會員!')</script>") End If Catch ex As Exception MsgBox(ex.Message.ToString) End Try cleardata() Me.btn_delete.Enabled = False Me.btn_edit.Enabled = False Me.txt_num.ReadOnly = False Me.txt_num.BackColor = Drawing.Color.Yellow End Sub End Class
网上订餐系统在C#中的设计与实现+餐饮管理系统源代码(C#+SQL)
本资源包含2套独立完整的程序代码 网上订餐系统在C#的设计与实现是一个用C#编写的网上订餐平台,试验环境是Windows XP+ IIS + SQL Server 2000.制作软件是Visual Studio 2003。相关的数据库表的结构以及创建命令,在文档中都有介绍。 餐饮管理系统是使用C#+SQL开发的经典源代码,适合大专院校学生参考。本套解压密码是codesky.net
如何做一款聊天机器人
如何做一款对话机器人 目录 前言什么是我认为的对话机器人语音助手如何去做一个像上述提到的那样的东西解释一下上述架构图如何将上述理论和实际结合呢?结论参考文献(帖子)  前言 以此开题,并不是一定要做一款对话机器人,只是做事一定要以目标为驱动,目前所要研究的语义方向是一个太大的方向,是一个让人完全摸不到头脑的方向。因此,选取其中一个分支作为切入点,开始我的
Android 外卖订餐APP开发
APP展示页面:                           本产品适用范围:          购买便利店系统任何版本,如需进行二次开发,需要单独联系我们队APP进行修改和调试,免收服务费用。本司接收任何定制功能,具体定制费用根据需求另付费。 2016全新生鲜外卖系统 
会员卡管理系统技术解析(二)Java Web SSH 框架的搭建
会员卡管理系统技术解析(二)Java Web SSH 框架的搭建 第一步:java Web的搭建 第二步:添加struts2框架 第三步:添加Spring框架 第四步:添加MyEclipse Database 第五步:添加hibernate框架 源代码下载:http://yunpan.cn/cwmdsTdSw8RGM
手把手教你如何破解软件注册码
手把手教你如何破解软件注册码
vue2.x 做一个外卖app
简介 截屏演示 移动端演示 构建 为什么写这个项目 获取教程简介本项目是基于 vue2.4 最新的实战项目,vue-cli2.8 + vue2.4 + vue-resource + vue-router2.7 + es6 + mock + webpack 的一个移动端外卖 app。现在最流行的开发方式就是前后分离了; vue 也是现在最流行的前端框架之一。截屏演示移动端演示扫二维码在手机上查看效果
一个制作java小应用程序的全过程
一个制作java小应用程序的全过程         一、安装java软件:     从网上下载jdk-7u25-windows-i586.exe,安装到C:\Program Files\Java\jdk1.7.0_25。     二、设置环境变量:     1、右键点击“我的电脑”,左键双击“属性”,选“高级”,打开“环境变量”,在下面的“系统变量(S)”一栏里首先查看有没有 “JA
网上订餐系统的设计与实现
网上订餐设计主要采用采用MYSQL数据库进行数据表的设计,利用JSP的动态生成页面编程技术, 实现了用网络展示餐饮信息、浏览餐饮页面、注册客户、更改客户信息;同时,完成管理人员对餐饮信息的添加、餐饮价格的更改、订单的管理以及用户信息的管理等功能。基于系统开发的软件工程规范的需要,本人严格执行需求分析,概要设计,详细设计与编码以及系统设计等设计步骤来完成该系统,并且在系统开发过程中结合理论知识与开发技术,完成了网上订餐系统平台的构建,实现预期的网上订餐的基本功能。
halcon 标定完整流程
halcon 软件如何制作标定板 怎么实现标定