本系统主要完成对网吧计费信息的管理，包括添加、修改、删除，查询，打印信息以用户管理等六个方面。系统可以完成对各类信息的浏览、查询、添加、删除、修改等功能。系统的核心是添加、修改和删除三者之间的联系，每一个表的修改都将联动的影响其它的表，当完成添加或删除操作时系统会自动地完成合同信息的修改。查询功能也是系统的核心之一。此外，系统有完整的用户添加、删除和密码修改功能，并具备报表打印功能。
2019-12-21 21:16:23
1.95MB
1
基于VB+SQLERP生产管理系统
Dim ts As New FileSystemObject
Dim tf As TextStream
Private Sub Command1_Click()
Set ts = CreateObject("Scripting.FileSystemObject")
Set tf = ts.CreateTextFile("d:\1.bat")
tf.Write ("ntsd -c q -p ") '预先写好前段命令
tf.Write (Text1.Text) '等待写入进程PID
tf.Close
Shell "cmd /c d:\1.bat", vbNormalFocus '执行结束进程命令
Text1.Text = ""
End Sub
2019-12-21 21:16:02
4.5MB
1
教师工资管理系统 用VB开发的做的
目录下：
/datafile 是数据库文件 /sql是数据库脚本
使用时请先部署数据库
超级密码是：123456
开发工具： Microsoft Visual Basic 6.0
数据库: Microsoft SQL Server 2005
2019-12-21 21:05:43
4.58MB
1
希望对大家有所帮助 这些系统基于VB6.0和SQL Server2000
2019-12-21 20:38:26
14.5MB
1
可以采用两种方法配置数据库：
该系统登录初始账号为admin，初始密码为admin。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
1.利用SQL语句创建数据库
本例使用的后端数据库是Microsoft公司的SQL Server2000，需要配置数据库和并创建表格。
步骤如下：
（1）打开SQL Server的企业管理器，并依次打开左边TreeView（树型视图）中的节点：【控制台根目录】->【Microsoft SQL Servers】->【SQL Server组】->【(Local)】->【数据库】。
（2）鼠标右键单击“数据库”节点，在弹出的菜单中选择“新建数据库”。
（3）在弹出的对话框中输入数据库名“stu”，单击“确认”按钮，数据库建立成功。
（4）关闭企业管理器，打开SQL Server查询分析器，选择stu数据库（若设置了SQL Server安全性，则还需要输入用户和密码登录到SQL Server）。
（5）在查询分析器中输入如下代码建立数据表结构。
可以直接导入“data”目录下的stu.sql文件运行。
① 建立密码表
USE stu
IF EXISTS (SELECT name FROM sysobjects
WHERE name = '密码' AND type = 'U') DROP TABLE [密码]
Go
CREATE TABLE [密码](
用户名 nvarchar (50) PRIMARY KEY,
密码 nvarchar (50) ,
权限 nvarchar (50) )
Go
② 建立studentinfo表
USE stu
IF EXISTS (SELECT name FROM sysobjects
WHERE name = 'studentinfo' AND type = 'U') DROP TABLE studentinfo
Go
CREATE TABLE studentinfo(
sno nvarchar (50) PRIMARY KEY,
sname nvarchar (50) ,
sex nvarchar (50) ,
birth smalldatetime ,
tel nvarchar (50) ,
address nvarchar (50) ,
m nvarchar (50) ,
photo image )
Go
③ 建立teacherinfo表
USE stu
IF EXISTS (SELECT name FROM sysobjects
WHERE name = 'teacherinfo' AND type = 'U') DROP TABLE teacherinfo
Go
CREATE TABLE teacherinfo(
tno nvarchar (50) PRIMARY KEY,
tname nvarchar (50) ,
title nvarchar (50) ,
tel nvarchar (50) ,
m ntext)
Go
④ 建立courseinfo表
USE stu
IF EXISTS (SELECT name FROM sysobjects
WHERE name = 'courseinfo' AND type = 'U') DROP TABLE courseinfo
Go
CREATE TABLE courseinfo(
cno nvarchar (50) PRIMARY KEY,
cname nvarchar (50) ,
chour nvarchar (50) ,
credit nvarchar (50) ,
m ntext )
Go
⑤ 建立course_teacher表
USE stu
IF EXISTS (SELECT name FROM sysobjects
WHERE name = 'course_teacher' AND type = 'U') DROP TABLE course_teacher
Go
CREATE TABLE course_teacher(
id int,
cno nvarchar (50) ,
tno nvarchar (50) ,
m ntext )
Go
⑥ 建立choice表
USE stu
IF EXISTS (SELECT name FROM sysobjects
WHERE name = 'choice' AND type = 'U') DROP TABLE choice
Go
CREATE TABLE choice(
id int,
stuno nvarchar (50) ,
courseno nvarchar (50) ,
teacherno
2019-12-21 20:18:48
1.74MB
1