📄
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<!-- saved from url=(0051)http://www.th7.cn/Article/bc/de/200801/87084_6.html -->
<HTML xml:lang="zh-cn" xmlns="http://www.w3.org/1999/xhtml"><HEAD><TITLE>商场管理系统的设计与实现</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META
content="商场,场管,管理,理系,系统,统的,的设,设计,计与,与实,第七城市,下载,论坛,网站,教程,软件,Q Q,Q Q 技巧,学玩 Q Q,QQ 素 材,Q Q 动态,游戏,魔兽,编程开发,平面设计,网页制作,"
name=keywords>
<META
content="第七城市,下载,论坛,网站,教程,软件,PHOTOSHOP,网页制作,CSS 学习,设计理念,Dreamweaver,Flash,平面设计,作品赏析,Fireworks,CorelDraw,编程开发,Java,.NET,ASP,PHP,Visual C,Visual B,Delphi,Illustraotr,Windows,操作系统,Linux,Vista,Mac OS,操作系统,数据库,MySQL,MS SQL,Q Q,qq,竞技,游戏,魔兽,"
name=description>
<META content=www.th7.cn|第七城市 name=copyright>
<META content=Sanda name=author><LINK href="商场管理系统的设计与实现5.files/dede.css"
type=text/css rel=stylesheet><LINK href="商场管理系统的设计与实现5.files/article.css"
type=text/css rel=stylesheet>
<STYLE>.diggArea {
PADDING-RIGHT: 0px; PADDING-LEFT: 0px; FLOAT: left; BACKGROUND-IMAGE: url(http://www.th7.cn/skin/7cn/css/images/diggbg2.gif); PADDING-BOTTOM: 0px; MARGIN: 0px 12px 0px 0px; WIDTH: 60px; PADDING-TOP: 0px; HEIGHT: 58px
}
.diggNum {
PADDING-RIGHT: 0px; PADDING-LEFT: 0px; FONT-WEIGHT: bold; FONT-SIZE: 26px; PADDING-BOTTOM: 0px; MARGIN: 0px; COLOR: #cc0000; PADDING-TOP: 0px; TEXT-ALIGN: center
}
.diggtext {
PADDING-RIGHT: 0px; PADDING-LEFT: 0px; FONT-SIZE: 12px; PADDING-BOTTOM: 0px; MARGIN: 0px; PADDING-TOP: 0px; TEXT-ALIGN: center
}
</STYLE>
<SCRIPT language=JavaScript>
<!--
//改变图片大小
function resizepic(thispic)
{
if(thispic.width>700) thispic.width=700;
}
//无级缩放图片大小
function bbimg(o)
{
var zoom=parseInt(o.style.zoom, 10)||100;
zoom+=event.wheelDelta/12;
if (zoom>0) o.style.zoom=zoom+'%';
return false;
}
-->
</SCRIPT>
<META content="MSHTML 6.00.2900.3199" name=GENERATOR></HEAD>
<BODY><!--头部开始-->
<DIV class="top cbody">
<DIV class=toplogo><A href="http://www.th7.cn/"><IMG height=60 alt=第七城市
src="商场管理系统的设计与实现5.files/toplogo.gif" width=200></A></DIV>
<DIV class=topbanner>
<SCRIPT language=javascript src="商场管理系统的设计与实现5.files/1.js"></SCRIPT>
</DIV>
<DIV class=toplink>
<UL>
<LI><A href="http://www.th7.cn/sitemap_index.xml">Google地图</A> </LI>
<LI><A
onclick="javascript:window.external.AddFavorite('http://www.th7.cn','第七城市');"
href="http://www.th7.cn/Article/bc/de/200801/87084_6.html#">收藏本站</A> </LI>
<LI><A href="http://www.th7.cn/SiteMap/Article1.htm">网站地图</A> </LI>
<LI><A
href="http://www.th7.cn/baidumap_article_1.xml">百度地图</A></LI></UL></DIV></DIV><!--导航栏-->
<DIV class="topmenu cbody">
<UL>
<LI><A class=thisclass href="http://www.th7.cn/">首页</A> </LI>
<LI><A href="http://www.th7.cn/Article/wy">网页制作</A> </LI>
<LI><A href="http://www.th7.cn/Article/pm/">平面设计</A> </LI>
<LI><A href="http://www.th7.cn/Article/bc/">编程开发</A> </LI>
<LI><A href="http://www.th7.cn/Article/cz/">操作系统</A> </LI>
<LI><A href="http://www.th7.cn/Article/sj/">数据库区</A> </LI>
<LI><A href="http://www.th7.cn/Article/zq/">Q Q 专区</A> </LI>
<LI><A href="http://www.th7.cn/Article/jj/">游戏教程</A> </LI>
<LI><A href="http://www.th7.cn/Article/">教程中心</A> </LI>
<LI><A href="http://www.th7.cn/Soft/">下载中心</A> </LI>
<LI><A href="http://www.th7.cn/photo/">视觉</A> </LI>
<LI><A href="http://bbs.th7.cn/">论坛</A> </LI></UL>
<DIV class=rssbut><A href="http://www.th7.cn/rss.asp"><IMG alt=RSS
src="商场管理系统的设计与实现5.files/rss_button.gif"></A> </DIV></DIV><!--搜索条--><B>
<DIV class="topsearch cbody">
<DIV class=title></DIV>
<DIV class=inpbox>
<FORM name=search action=http://www.th7.cn/Article/search.asp method=post><INPUT
id=Keyword onfocus="this.value='';" maxLength=50 size=16 value=请输入关键词
name=Keyword> <SELECT onchange="return ChangeChannel(this.value);" name=Channel>
<OPTION value=1 selected>站内文章</OPTION><OPTION value=2>软件中心</OPTION></SELECT>
<INPUT id=Submit type=image src="商场管理系统的设计与实现5.files/topsearch_submit.gif">
<INPUT id=Field type=hidden value=Title name=Field>
<SCRIPT language=JavaScript>
function ChangeChannel(ChannelID){
if(ChannelID==1){
document.search.action='Article/search.asp';
document.search.Field.value='Title';
}
else if(ChannelID==2){
document.search.action='Soft/search.asp';
document.search.Field.value='SoftName';
}
return false;
}
</SCRIPT>
</FORM></DIV>
<DIV>
<SCRIPT language=javascript src="商场管理系统的设计与实现5.files/4.js"></SCRIPT>
</DIV></DIV>
<DIV align=center>
<SCRIPT language=javascript src="商场管理系统的设计与实现5.files/10.js"></SCRIPT>
<SCRIPT language=javascript src="商场管理系统的设计与实现5.files/11.js"></SCRIPT>
</DIV></B><!--内容-->
<DIV class="main cbody margintop"><!--左侧-->
<DIV class=pleft><!--位置导航-->
<DIV class=thisplace>
<DIV class=title></DIV>
<DIV class=placenav><SPAN></SPAN>您现在的位置: <A class=LinkPath
href="http://www.th7.cn/">第七城市</A> >> <A class=LinkPath
href="http://www.th7.cn/Article/Index.html">教程频道</A> >> <A
class=LinkPath
href="http://www.th7.cn/Article/bc/Index.html">编程开发</A> >> <A
class=LinkPath
href="http://www.th7.cn/Article/bc/de/Index.html">Delphi</A> >> 正文
</DIV></DIV><!--资讯内容-->
<DIV class=newsview><!--资讯标题-->
<DIV class=title>
<H1>商场管理系统的设计与实现</H1></DIV><!--相关信息-->
<DIV class=info><STRONG>作者:佚名 文章来源:<A
href="http://www.th7.cn/ShowCopyFrom.asp?ChannelID=1&SourceName=不详">不详</A> 点击数:
<SCRIPT language=javascript src="商场管理系统的设计与实现5.files/GetHits.htm"></SCRIPT>
更新时间:2008-1-22</STRONG> </DIV><!--资讯正文-->
<DIV class=content>
<DIV>
<CENTER>
<SCRIPT language=javascript src="商场管理系统的设计与实现5.files/8.js"></SCRIPT>
</CENTER></DIV>
<DIV style="FLOAT: left; MARGIN: 10px 10px 10px 0px">
<SCRIPT language=javascript src="商场管理系统的设计与实现5.files/6.js"></SCRIPT>
<BR><IFRAME id=baiduframe marginWidth=0 frameSpacing=0 marginHeight=0
src="商场管理系统的设计与实现5.files/CA0969O7.htm" frameBorder=0 width=250 scrolling=no
height=60></IFRAME></DIV>Box1.Text) = "" Or Trim(TextBox2.Text) = "" Or
Trim(TextBox3.Text) = "" Then<BR>MsgBox("有记录为空")<BR>Exit Sub<BR>End If<BR>If Not
checksum(TextBox3.Text) Then<BR>TextBox3.Text = ""<BR>Exit Sub<BR>End
If<BR>SqlCommand1.CommandText = "delete from goods where sn='" &
Trim(TextBox1.Text) &
"'"<BR>SqlCommand1.ExecuteNonQuery()<BR>SqlCommand1.CommandText = "insert into
goods values('" & Trim(TextBox1.Text) & "','" & Trim(TextBox2.Text)
& "'," & _<BR>(ComboBox1.SelectedValue) & "," &
Val(TextBox3.Text) * 100 & "," & "NULL" & ",'" & TextBox4.Text
& "')"<BR>SqlCommand1.ExecuteNonQuery()
<P></P>
<P>DataSet11.GOOD.Clear()<BR>SqlDataAdapter2.Fill(DataSet11)<BR>DataGrid1.Refresh()<BR>End
Sub</P>
<P>Private Sub DataGrid1_MouseDown(ByVal sender As Object, ByVal e As System.<A
class=channel_keylink
href="http://www.th7.cn/Article/cz/wi/Index.html">Windows</A>.Forms.MouseEventArgs)
Handles DataGrid1.MouseDown<BR>TextBox1.Text = DataGrid1.CurrentRowIndex<BR>End
Sub<BR>End Class<BR>5.3.3商品类型信息模块的代码如下:<BR>Public Class TYPE<BR>Inherits
System.<A class=channel_keylink
href="http://www.th7.cn/Article/cz/wi/Index.html">Windows</A>.Forms.Form<BR>Dim
reader1 As SqlClient.SqlDataReader<BR>Private Sub TYPE_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load<BR>SqlDataAdapter1.Fill(DataSet11)</P>
<P>End Sub</P>
<P>Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click<BR>Me.Close()<BR>End Sub</P>
<P>Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.<A
class=channel_keylink
href="http://www.th7.cn/Article/cz/wi/Index.html">Windows</A>.Forms.KeyPressEventArgs)
Handles TextBox1.KeyPress<BR>If e.KeyChar = Chr(13)
Then<BR>ListBox1.SelectedIndex = Val(TextBox1.Text)<BR>End If<BR>End Sub</P>
<P>Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click<BR>If Trim(TextBox1.Text) <> ""
Then<BR>Dim i As Integer = 0<BR>Dim string1 As
String<BR>SqlConnection1.Close()<BR>SqlConnection1.Open()<BR>SqlCommand1.CommandText
= "select * from type"<BR>reader1 =
SqlCommand1.ExecuteReader(CommandBehavior.CloseConnection)<BR>While
reader1.Read<BR>i = reader1.GetInt16(0)<BR>If Trim(reader1.GetString(1)) =
Trim(TextBox1.Text) Then<BR>MsgBox("该品种已存在")<BR>Exit Sub<BR>End If<BR>End
While<BR>i +=
1<BR>SqlConnection1.Close()<BR>SqlConnection1.Open()<BR>SqlCommand1.CommandText
= "insert into type values(" & i & ",'" & Trim(TextBox1.Text) &
"')"<BR>SqlCommand1.ExecuteNonQuery()<BR></P>
<P align=center><B><A
href="http://www.th7.cn/Article/bc/de/200801/87084_5.html">上一页</A> <A
href="http://www.th7.cn/Article/bc/de/200801/87084.html">[1]</A> <A
href="http://www.th7.cn/Article/bc/de/200801/87084_2.html">[2]</A> <A
href="http://www.th7.cn/Article/bc/de/200801/87084_3.html">[3]</A> <A
href="http://www.th7.cn/Article/bc/de/200801/87084_4.html">[4]</A> <A
href="http://www.th7.cn/Article/bc/de/200801/87084_5.html">[5]</A> <FONT
color=red>[6]</FONT> <A
href="http://www.th7.cn/Article/bc/de/200801/87084_7.html">[7]</A> <A
href="http://www.th7.cn/Article/bc/de/200801/87084_8.html">[8]</A> <A
href="http://www.th7.cn/Article/bc/de/200801/87084_9.html">[9]</A> <A
href="http://www.th7.cn/Article/bc/de/200801/87084_10.html">[10]</A> ...
<A href="http://www.th7.cn/Article/bc/de/200801/87084_7.html">下一页</A> <A
href="http://www.th7.cn/Article/bc/de/200801/87084_11.html"> >> </A></B></P></DIV>
<DIV class=cupage>责任编辑:sanda</DIV><!--操作-->
<DIV class=actbar>
<SCRIPT language=javascript src="商场管理系统的设计与实现5.files/17.js"></SCRIPT>
</DIV>
<DIV class=context>
<DIV class=diggArea id=digg204>
<DIV class=diggtext>点击数</DIV>
<DIV class=diggNum>
<SCRIPT language=javascript src="商场管理系统的设计与实现5.files/GetHits.htm"></SCRIPT>
</DIV></DIV>
<DIV>
<DIV style="FLOAT: left">
<LI>上一篇文章: <A class=LinkPrevArticle
title="文章标题:delphi还能用多久 作 者:佚名 更新时间:2008-1-22 0:09:51"
href="http://www.th7.cn/Article/bc/de/200801/87083.html">delphi还能用多久</A> <BR>
<LI>下一篇文章: <A class=LinkNextArticle
title="文章标题:再谈Delphi 7控制Word 2000 作 者:佚名 更新时间:2008-1-22 0:09:51"
href="http://www.th7.cn/Article/bc/de/200801/87085.html">再谈Delphi 7控制Word 2000</A>
</LI></DIV></DIV>
<DIV class=floatclear><!--清除浮动--></DIV></DIV></DIV></DIV><!--右侧-->
<DIV class=pright>
<DIV class="rlist margintop">
<DIV class=rbox>
<UL>
<SCRIPT language=javascript src="商场管理系统的设计与实现5.files/2.js"></SCRIPT>
</UL>
<DIV class=title>栏目导航</DIV>
<DIV class=rbox>
<UL>
<DIV>
<TABLE width="100%" border=0>
<TBODY>
<TR>
<TD
style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid">
<SCRIPT language=JavaScript src="商场管理系统的设计与实现5.files/anv.js"
type=text/JavaScript></SCRIPT>
</TD>
<TD style="BORDER-LEFT: 1px solid">
<SCRIPT language=javascript src="商场管理系统的设计与实现5.files/7.js"></SCRIPT>
</TD></TR></TBODY></TABLE></DIV></UL></DIV>
<DIV class=rbox>
<UL>
<SCRIPT language=javascript src="商场管理系统的设计与实现5.files/3.js"></SCRIPT>
</UL></DIV></DIV></DIV>
<DIV class=floatclear><!--清除浮动--></DIV></DIV>
<DIV>
<CENTER>
<SCRIPT language=javascript src="商场管理系统的设计与实现5.files/5.js"></SCRIPT>
</CENTER></DIV>
<DIV class="footer cbody margintop">
<DIV class=copyright>
<DIV>
<P>广告业务QQ:56296102 技术服务QQ:57037 QQ群一:9177885 QQ群二:3756278</P>
<P>信息产业部备案号:浙ICP备05011664号 <A
href="tencent://message/?uin=56296102&Site=www.th7.cn&Menu=yes"
target=blank><IMG alt=有事,请联系 src="商场管理系统的设计与实现5.files/5_offline.gif"
border=0></A> <A
href="tencent://message/?uin=57037&Site=www.th7.cn&Menu=yes"
target=blank><IMG alt=有事,请联系 src="G:\my\商场管理系统的设计与实现5.files\5_offline(1).gif"
border=0></A> </P>
<P>©CopyRight 2003-2008 <A href="http://www.hp2008.net/">七城工作室</A>Inc. All
Rights Reserved</P>
<P><A title="" href="http://www.netpolice.gov.cn/wj/wlbj_info.asp"
target=_blank><IMG height=32 alt="" src="商场管理系统的设计与实现5.files/netpolice.gif"
width=71 border=0></A></P></DIV></DIV>
<DIV class=slogo>
<SCRIPT src="商场管理系统的设计与实现5.files/ystat.js" type=text/javascript></SCRIPT>
<NOSCRIPT><A href="http://js.tongji.yahoo.com.cn/"><IMG src=""></A></NOSCRIPT>
<DIV style="DISPLAY: none" align=center>
<SCRIPT language=javascript src="商场管理系统的设计与实现5.files/1273053.js"
type=text/javascript></SCRIPT>
</DIV></DIV>
<DIV class=floatclear></DIV></DIV>
<SCRIPT language=javascript src="商场管理系统的设计与实现5.files/18.js"></SCRIPT>
</DIV></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -