人人文库网 > 毕业设计 > JSJ06-369@计算机图书管理系统

worker.txt

JSJ06-369@计算机图书管理系统

资源目录

JSJ06-369@计算机图书管理系统.zip

JSJ06-369@计算机图书管理系统

用户密码.txt---(点击预览)

CodePub.Com说明.txt---(点击预览)

code

xp_canvas.txt---(点击预览)

database.txt---(点击预览)

borrow.txt---(点击预览)

data

ComputerBookmanage.mdb

Forms

Form1.frm

Form1.frx

Form2.frm

Form2.frx

Form3.frm

Form3.frx

Form4.frm

Form4.frx

Form5.frm

Form5.frx

Form6.frm

Form6.frx

Form7.frm

frmAbout.frm

frmAbout.frx

frmLogin.frm

frmLogin.frx

frmMsg.frm

frmMsg.frx

Frmprint.frm

Frmprint.frx

frmSplash.frm

frmSplash.frx

Frm_sys_set.frm

Frm_sys_set.frx

images

10.bmp

11.bmp

2.bmp

25s.bmp

3.bmp

4.bmp

5.bmp

555.bmp

6.bmp

7.bmp

8.bmp

9.bmp

99.bmp

data1.bmp

data2.bmp

data3.bmp

data4.bmp

data5.bmp

date6.JPG

dl.bmp

ic04.bmp

ico.ico

ico1.bmp

ico2.bmp

ico3.bmp.bmp

mdb6.bmp

SETUP1.bmp

SETUP2.bmp

SETUP3.bmp

SETUP4.bmp

SETUP5.bmp

SETUP6.bmp

SETUP7.bmp

SETUP8.bmp

Thumbs.db

top.bmp

xt1.bmp

xt10.bmp

xt11.bmp

xt12.bmp

xt13.bmp

xt2.bmp

xt24.bmp

xt25.bmp

xt26.bmp

xt27.bmp

xt3.bmp

xt31.bmp

xt32.bmp

xt4.bmp

xt40.bmp

xt5.bmp

xt6.bmp

xt7.bmp

xt8.bmp

xt88.bmp

xt9.bmp

xt90.bmp

xt92.jpg

xt93.bmp

xt94.bmp

xttop.bmp

电大ico.ico

Modules

Database.bas

database_operate.bas

mod_gardient.bas

trans_colour.bas

xptextbox.bas

Resources

Black Glass Folders Icon 18.ico

Black Glass Folders Icon 19.ico

Black Glass Folders Icon 20.ico

Thumbs.db

windows_masthead_ltr.gif

User Controls

xpcheckbox.ctl

xpcheckbox.ctx

xpcmdbutton.ctl

xpcmdbutton.ctx

xpgroupbox.ctl

xpgroupbox.ctx

xphelp.ctl

XPHELP.CTX

xpradiobutton.ctl

xpradiobutton.ctx

xptopbuttons.ctl

xptopbuttons.ctx

xp_canvas.ctl

xp_canvas.ctx

视频

视频说明.txt---(点击预览)

演示.exe

论文

计算机图书管理系统毕业论文.doc---(点击预览)

~$机图书管理系统毕业论文.doc---(点击预览)

.oca

ico.ico

MSSCCPRJ.SCC

vb修复工具.exe

工程.vbp

工程.vbw

衡阳电大教育.url

计算机图书管理系统.exe

压缩包内文档预览：

编号：507499 类型：共享资源大小：9.49MB 格式：ZIP 上传时间：2015-11-11 上传人：QQ28****1120 IP属地：辽宁

12
积分

版权申诉 word格式文档无特别注明外均可编辑修改；预览文档经过压缩，下载后原文更清晰！ 立即下载

关键词：: 毕业设计论文

资源描述：: JSJ06-369@计算机图书管理系统,毕业设计论文

内容简介：: Option ExplicitPrivate Sub Command1_Click() 添加记录Dim sql As StringDim param As ADODB.ParameterDim cmd As ADODB.CommandSet cmd = New ADODB.CommandSet param = New ADODB.Parametersql = select * from worker where 工号= ? If Command1.Caption = 添加记录 ThenCommand1.Caption = 确定Command2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = Falserst.AddNewElseIf Text1.Text = ThenfrmMsg.ShowfrmMsg.notice.Visible = TruefrmMsg.Text1.Text = 职工编号不能为空!Command2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueCommand1.Caption = 添加记录Exit SubEnd IfWith param.Direction = adParamInput.Type = adBSTR.Size = 8.Value = Text1.TextEnd Withcmd.Parameters.Append paramcmd.CommandText = sqlcmd.CommandType = adCmdTextSet cmd.ActiveConnection = conSet rst1 = cmd.Execute检测职工编号是否存在防止主键冲突If rst1.RecordCount 0 ThenfrmMsg.ShowfrmMsg.notice.Visible = TruefrmMsg.Text1.Text = 此职工编号已经存在!rst.CancelCommand2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueCommand1.Caption = 添加记录Exit SubEnd Ifrst.UpdateCommand2.Enabled = TrueCommand3.Enabled = Truents Command4.Enabled = TrueCommand1.Caption = 添加记录End IfEnd SubPrivate Sub Command2_Click() 删除纪录Dim ans As Stringans = Msgbox(确定要删除此记录吗？, vbYesNo, 提示)If ans = vbYes Thenrst.Deleterst.RequeryElseExit SubEnd IfEnd SubPrivate Sub Command3_Click() 上一记录If rst.BOF ThenfrmMsg.ShowfrmM.Visible = TruefrmMsg.Text1.Text = 已经到达记录顶端!Exit SubElserst.MovePreviousEnd IfEnd SubPrivate Sub Command4_Click() 下一记录If rst.EOF ThenfrmMsg.ShowfrmM.Visible = TruefrmMsg.Text1.Text = 已经到达记录底端! Exit SubElserst.MoveNextEnd IfEnd SubPrivate Sub Command5_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim sql1 As StringSet rst = New ADODB.Recordsetsql1 = select * from worker打开数据库并对窗体控件赋值Call connect_dbrst.Open sql1, con, adOpenDynamic, adLockOptimisticSet Text1.DataSource = rstSet Text2.DataSource = rstSet Text3.DataSource = rstSet Text4.DataSource = rstSet Text5.DataSource = rstText1.DataField = 工号Text2.DataField = 姓名Text3.DataField = 性别ntsText4.DataField = 电话Text5.DataField = 住址End SubPrivate Sub xptopbuttons1_Click()Unload MeEnd SubPrivate Sub xptopbuttons2_Click

温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。