网站课程设计个人的网页求个哥哥帮忙做下谢谢

赵鸿涛 2019-11-06 14:45:00

推荐回答

经验之谈,直接去网站搜索一个网站的制作的源文件,你搜索的时候关键词直接是:Dreamweaver个人网页html就ok了。
堵新心2019-11-06 14:57:49

提示您:回答为网友贡献,仅供参考。

其他回答

  • 课程设计?全静态页的行吗?已发到你邮箱,能用就用~~。
    窦运荣2019-11-06 15:06:00
  • 现在怎么那么多人课程设计自己不做也,五天后没人帮忙找我!ok。
    连伯煌2019-11-06 15:02:19

相关问答

图书馆管理系统软件工程课程设计说明书一份《图书管理系统》系统设计报告一、引言1.摘要:中学图书馆管理系统目的:方便图书馆对书籍借阅的管理主要功能:—学生基本信息查询—书籍借阅管理—书籍管理2.背景:第十小组承担开发任务3.工作条件与限制:windows操作平台,VisualBasic6.0和SQLSserver2000等软件为开发工具,利用上课时间和课外时间做成。由于现在图书管理系统已经比叫完善,所以我们暂时没有能做出比以前有先进技术的管理系统。4.参考和引用资料:《数据库系统概论》,VB应用5.专门术语定义:二、系统总体技术方案1.计算机系统配置:windows平台,VB/SqlServer2000,WINNTSERVER操作系统,SQLserver2000关系数据库管理系统,VB操作软件,局域网。2.模块设计:主要分为三个模块:即学生基本信息模块,书籍借阅模块,书籍管理模块代码设计:读者信息查询PublicconnStrAsADODB.ConnectionPrivateSubCommand1_ClickEndSubPrivateSubcmdAdd_ClickIfTrimList1.Text<>""ThenList2.AddItemList1.TextEndIfEndSubPrivateSubcmdMove_ClickIfTrimList2.Text<>""ThenList2.RemoveItemList2.ListIndexEndIfEndSubPrivateSubcmdSearch_ClickDimcmdstrAsStringIfList2.ListCount=0ThenMsgBox"请选择输出列!",vbOKOnly,"提示"ExitSubEndIfcmdstr="select"Fori=0ToList2.ListCount-1IfTrimList2.Listi="图书证号"Thencmdstr=cmdstr+"READER_DATA."+TrimList2.Listi+","ElseIfTrimList2.Listi="书号"Thencmdstr=cmdstr+"MARC_DATA."+TrimList2.Listi+","Elsecmdstr=cmdstr+TrimList2.Listi+","EndIfEndIfNextcmdstr=Leftcmdstr,Lencmdstr-1IfOpbook.Value=TrueThencmdstr=cmdstr+"fromMARC_DATAwhere"EndIfIfOpreader.Value=TrueThencmdstr=cmdstr+"fromREADER_DATAwhere"EndIfIfOplend.Value=TrueThencmdstr=cmdstr+"fromMARC_DATA,READER_DATA,LEND_DATA"&"whereMARC_DATA.书号=LEND_DATA.书号and"&"READER_DATA.图书证号=LEND_DATA.图书证号and"EndIfIfTrimcomKey.Text=""ThenMsgBox"请选择查询关键字!",vbOKOnly,"提示"ExitSubEndIfIfTrimtxtKey.Text=""ThenMsgBox"请设置查询关键字的值!",vbOKOnly,"提示"ExitSubEndIfIfComType.Text="精确匹配"Thencmdstr=cmdstr+TrimcomKey.Text+"=''"+TrimtxtKey.Text+"''"Elsecmdstr=cmdstr+TrimcomKey.Text+"like''"+TrimtxtKey.Text+"%''"EndIfAdodc1.RecordSource=cmdstrAdodc1.RefreshDataGrid1.RefreshEndSubPrivateSubForm_LoadSetconnStr=NewADODB.ConnectionconnStr.Open"driver={SQLServer};Server=SYSLAB000;UID=jj138;PWD=;database=计教1班38号"Adodc1.ConnectionString=connStrComType.AddItem"精确匹配"ComType.AddItem"前方一致匹配"EndSubPrivateSubLabel3_ClickEndSubPrivateSubList2_ClickEndSubPrivateSubOpbook_ClickDimrsAsADODB.RecordsetSetrs=NewADODB.Recordsetrs.Open"MARC_DATA",connStr,adOpenKeyset,adLockReadOnly,adCmdTablecomKey.ClearList1.ClearFori=0Tors.Fields.Count-1comKey.AddItemrs.Fieldsi.NameList1.AddItemrs.Fieldsi.NameNextrs.CloseList2.CleartxtKey.Text=""EndSubPrivateSubOplend_ClickcomKey.ClearList1.ClearcomKey.AddItem"图书证号"comKey.AddItem"姓名"comKey.AddItem"书号"comKey.AddItem"书名"comKey.AddItem"出版社"comKey.AddItem"借出日期"comKey.AddItem"还书日期"List1.AddItem"图书证号"List1.AddItem"姓名"List1.AddItem"书号"List1.AddItem"书名"List1.AddItem"出版社"List1.AddItem"借出日期"List1.AddItem"还书日期"List2.CleartxtKey.Text=""EndSubPrivateSubOpreader_ClickDimrsAsADODB.RecordsetSetrs=NewADODB.Recordsetrs.Open"READER_DATA",connStr,adOpenKeyset,adLockReadOnly,adCmdTablecomKey.ClearList1.ClearFori=0Tors.Fields.Count-1comKey.AddItemrs.Fieldsi.NameList1.AddItemrs.Fieldsi.NameNextrs.CloseList2.CleartxtKey.Text=""EndSub借还书处理PrivateSubcmdLend_ClickDimrsAsADODB.RecordsetSetrs=NewADODB.RecordsetIfTrimtxtBid.Text=""OrTrimtxtRid_1.Text=""ThenMsgBox"请输入图书证号和书号!",vbOKOnly,"提示信息"Elsers.Open"LEND_DATA",connStr,adOpenKeyset,adLockOptimistic,adCmdTablers.AddNewrs"书号"=txtBid.Textrs"借出日期"=Daters"图书证号"=txtRid.Textrs.UpdateAdodc1.RefreshEndIfEndSubPrivateSubcmdReturn_ClickDimrsAsADODB.RecordsetSetrs=NewADODB.RecordsetIfTrimtxtBid.Text=""OrTrimtxtRid_1.Text=""ThenMsgBox"请输入图书证号和书号!",vbOKOnly,"提示信息"Elsecmdstr="updateLEND_DATAset还书日期=''"_&Date&"''where书号=''"&TrimtxtBid.Text&"''"rs.Opencmdstr,connStr,adOpenKeyset,adLockOptimistic,adCmdTextAdodc1.RefreshEndIfEndSubPrivateSubcmds_ClickDimrsAsADODB.RecordsetSetrs=NewADODB.Recordsetcmdstr="select*fromREADER_DATAWHERE图书证号=''"&TrimtxtRid_1.Text&"''"rs.Opencmdstr,connStr,adOpenForwardOnly,adLockReadOnly,adCmdTextIfNotrs.EOFThentxtRid.Text=rs"图书证号"txtName.Text=rs"姓名"IfNotIsNullrs"性别"ThentxtXb.Text=rs"性别"EndIfIfNotIsNullrs"系名"ThentxtXm.Text=rs"系名"EndIfElseMsgBox"未找到该读者信息!",vbOKOnly,"提示信息"EndIfcmdstr="select借出日期,还书日期,LEND_DATA.书号,书名,作者,出版社"&"fromLEND_DATA,MARC_DATA"&"whereLEND_DATA.书号=MARC_DATA.书号and"&"还书日期isnulland图书证号=''"&TrimtxtRid_1.Text&"''"Adodc1.RecordSource=cmdstrAdodc1.RefreshEndSubPrivateSubcmdSearch_Clickcmdstr="select借出日期,还书日期,LEND_DATA.书号,书名,作者,出版社"&"fromLEND_DATA,MARC_DATA"&"whereLEND_DATA.书号=MARC_DATA.书号and图书证号=''"&TrimtxtRid_1.Text&"''"Adodc1.RecordSource=cmdstrAdodc1.RefreshEndSubPrivateSubDataGrid1_ClickIfNotAdodc1.Recordset.BOFAndNotAdodc1.Recordset.BOFThentxtBid.Text=Adodc1.Recordset"书号"EndIfEndSubPrivateSubForm_LoadSetconnStr=NewADODB.ConnectionconnStr.Open"driver={SQLServer};Server=SYSLAB000;UID=jj138;PWD=;database=计教1班38号"Adodc1.ConnectionString=connStrEndSub图书馆详细信息PrivateSubtxt_refreshIfNotAdodc1.Recordset.EOFAndNotAdodc1.Recordset.BOFThentxtBid.Text=Adodc1.Recordset"书号"txtBname.Text=Adodc1.Recordset"书名"txtWrite.Text=Adodc1.Recordset"作者"txtPublisher.Text=Adodc1.Recordset"出版社"txtYear.Text=Adodc1.Recordset"出版时间"txtGb.Text=Adodc1.Recordset"国别代码"txtDate.Text=Adodc1.Recordset"进馆时间"txtCallno.Text=Adodc1.Recordset"分类号"EndIfEndSubPrivateSubcmdDele_ClickDimdeletxtAsStringdeletxt="是否删除图书《"&Adodc1.Recordset"书名"&"》的记录?"IfNotAdodc1.Recordset.EOFAndNotAdodc1.Recordset.BOFThenIfMsgBoxdeletxt,vbOKCancel,"提示信息"=vbOKThenAdodc1.Recordset.DeleteAdodc1.RefreshEndIfEndIfEndSubPrivateSubcmdNew_ClickIfcmdNew.Caption="新增"Thentxt_enable2cmdNew.Caption="保存"txtBid.Text=""txtBname.Text=""txtWrite.Text=""txtPublisher.Text=""txtYear.Text=""txtGb.Text=""txtDate.Text=""txtCallno.Text=""ElseAdodc1.Recordset.AddNewAdodc1.Recordset"书号"=TrimtxtBid.TextAdodc1.Recordset"书名"=TrimtxtBname.TextAdodc1.Recordset"作者"=TrimtxtWrite.TextAdodc1.Recordset"出版社"=TrimtxtPublisher.TextAdodc1.Recordset"出版时间"=TrimtxtYear.TextAdodc1.Recordset"国别代码"=TrimtxtGb.Text4Adodc1.Recordset"进馆时间"=TrimtxtDate.TextAdodc1.Recordset"分类号"=TrimtxtCallno.TextAdodc1.Recordset.UpdateBatchAdodc1.Refreshtxt_enable1cmdNew.Caption="新增"Adodc1.Recordset.MoveFirsttxt_refreshEndIfPrivateSubcmdNext_ClickIfNotAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveNexttxt_refreshEndIfEndSubPrivateSubcmdPre_ClickIfNotAdodc1.Recordset.BOFThenAdodc1.Recordset.MovePrevioustxt_refresh2EndIfEndSubPrivateSubcmdUpdate_ClickIfcmdUpdate.Caption="修改"Thentxt_enable2cmdUpdate.Caption="保存"ElseAdodc1.Recordset"书号"=TrimtxtBid.TextAdodc1.Recordset"书名"=TrimtxtBname.TextAdodc1.Recordset"作者"=TrimtxtWrite.TextAdodc1.Recordset"出版社"=TrimtxtPublisher.TextAdodc1.Recordset"出版时间"=TrimtxtYear.TextAdodc1.Recordset"国别代码"=TrimtxtGb.TextAdodc1.Recordset"进馆时间"=TrimtxtDate.TextAdodc1.Recordset"分类号"=TrimtxtCallno.TextAdodc1.Recordset.UpdateBatchAdodc1.Refreshtxt_enable1cmdUpdate.Caption="修改"EndIfEndSubPrivateSubForm_Loadtxt_refreshEndSubPrivateSubText1_ChangeEndSubPrivateSubText8_ChangeEndSubPrivateSubtxtBname_ChangeEndSub。
金丝楠木,金丝楠木素有“皇帝木、木皇帝”之称,自秦汉以来一直为皇家用,但自明朝开始,即被视为皇权的象征,是皇室专用的“贡材”,即便王公大臣也不得染指。据记载,明朝设有专门为皇室置办金丝楠的部门,当时各地官员将进贡金丝楠木当成头等大事,朝廷将此列为对地方官员业绩考核和晋升的标准之一,平民进献一根金丝楠木即可获得封官赏赐的机会。至清朝,其实已无多少金丝楠木可用,康熙、乾隆均曾派官员深入川贵搜寻,所获甚微,被臣工指为“劳民伤财,无裨国事”。加之蜀道艰险,书中就有“一根楠木一条命”的说法。明清两代均严格禁止臣民使用金丝楠木,和绅因为私用,被称为“僭越逾制”,结果被嘉庆帝列为二十条当死的大罪之一。正因为金丝楠与皇室的特殊“血缘”,使其要么千年孤独的长在深山,要么百年寂寞的锁在深宫,民间,包括达官显贵,焉有把弄于怀的鸿福!因为禁用也就无市,因为无市也就无价可考,只知道清乾隆年间,甘肃巡抚王亶望就曾为三根金丝楠耗白银九十万两……现在虽然没了禁忌,却因为早已绝迹而空留许多传奇与故事让人魂牵梦萦的遐想。福布斯公布的位列前十的刘氏兄弟等川藉大佬,也包括前期屯积爆炒海黄的大亨,还有上海浙江的一些收藏大家,他们正在做的同一件事就是不惜重金收藏金丝楠,收一件藏一件,既不加工也不转让,在他们心中,海黄纵有千万身价,也只能当金丝楠的配角。金丝楠的神话一直在延续,也许能让世人信服和躁动的只有价格,我相信用不着刻意炒作,金丝楠的价格将是一组难以置信的数字。其时,那些抱憾十年前错过了和田玉的朋友,将因为与金丝楠失之交臂,而徒增新痛,并真切地感受到什么叫“悔恨”。现在所发现的金丝楠都是几千年前深埋江河谷底的乌木,我称之为“乌金”,因地方官吏的贪得无厌,对“花黎木”的征采毫无节制,使黎族人不堪重负,从而印证了明代地方官吏对海南岛黄花梨木的征采数额较大这样一个事实。