解决方案 »
- 关于Xtreme SuitePro ActiveX 2009 (13.2.1)
- 如何运行Microsoft Forms 2.0 Object library时不安装 office软件
- 控件的快捷键问题
- 求助,螺旋数字排列
- 关于窗体显示问题
- 表的结构转换,不知道交叉表能否实现,如果不能应该如何使实现,谢谢大哥大姐
- 怎么编写才能在启动的时候,自动运行自己的程序 在线等待 各位高手请进( 满分哟!
- 有谁能帮我呀
- 数据库的选择问题
- 请教:如何设置MSHFLEXGRID控件数字列的显示格式.谢谢!
- win2000中如何獲取當前用戶登陸的帳號權限等級
- 想在datagrid中显示数据,但数据很多,想知道vb能不能实现像网页中翻页一样的功能?
www.google.com
Public rs As ADODB.Recordset
Sub main()
On Error Resume Next
Set Cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
'Cnn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=SATO-ACCP08"
'Cnn.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB;Persist Security Info=False"
Cnn.Open
If Cnn.State = adStateOpen Then
MsgBox "DB成功!"
Form1.Show
rs.Open "Customers", Cnn, adOpenDynamic, adLockOptimistic, adCmdTable
Else
MsgBox "error!"
End
End If
IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name = N'大华塑业备件数据库')
DROP DATABASE [大华塑业备件数据库]
GO
CREATE DATABASE [大华塑业备件库] ON (NAME = N'大华塑业备件数据库', FILENAME = N'C:\毕业论文\大华塑业备件数据库.MDF' , SIZE = 2, FILEGROWTH = 10%) LOG ON (NAME = N'大华塑业备件库日志', FILENAME = N'C:\毕业论文\大华塑业备件数据库日志.LDF' , SIZE = 1, FILEGROWTH = 10%)
COLLATE Chinese_PRC_CI_AS
GO
/****** Object: 执行用户定义更改数据库选项 日期: 2005-3-28 8:30:30 ******/
exec sp_dboption N'大华塑业备件库', N'autoclose', N'true'
GO
exec sp_dboption N'大华塑业备件库', N'bulkcopy', N'false'
GO
exec sp_dboption N'大华塑业备件库', N'trunc. log', N'true'
GO
exec sp_dboption N'大华塑业备件库', N'torn page detection', N'true'
GO
exec sp_dboption N'大华塑业备件库', N'read only', N'false'
GO
exec sp_dboption N'大华塑业备件库', N'dbo use', N'false'
GO
exec sp_dboption N'大华塑业备件库', N'single', N'false'
GO
exec sp_dboption N'大华塑业备件库', N'autoshrink', N'true'
GO
exec sp_dboption N'大华塑业备件库', N'ANSI null default', N'false'
GO
exec sp_dboption N'大华塑业备件库', N'recursive triggers', N'false'
GO
exec sp_dboption N'大华塑业备件数据库', N'ANSI nulls', N'false'
GO
exec sp_dboption N'大华塑业备件库', N'concat null yields null', N'false'
GO
exec sp_dboption N'大华塑业备件库', N'cursor close on commit', N'false'
GO
exec sp_dboption N'大华塑业备件库', N'default to local cursor', N'false'
GO
exec sp_dboption N'大华塑业备件库', N'quoted identifier', N'false'
GO
exec sp_dboption N'大华塑业备件库', N'ANSI warnings', N'false'
GO
exec sp_dboption N'大华塑业备件库', N'auto create statistics', N'true'
GO
exec sp_dboption N'大华塑业备件库', N'auto update statistics', N'true'
GO
use [大华塑业备件库]
GO
/****** Object: 指定一个子查询库存信息表存储过程 日期: 2005-3-28 8:30:30 ******/
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[库存信息表_setup]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[库存信息表_setup]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[库存信息表]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[库存信息表]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[入库信息表_setup]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[入库信息表_ setup]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[入库信息表]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[入库信息表]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[备件领用信息表_setup]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[备件领用信息表_setup]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[备件领用信息表]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[备件领用信息表]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[用户信息表]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[用户信息表]
GO
/****** Object: 建立库存信息表 日期: 2005-3-28 8:30:30 ******/
CREATE TABLE [dbo].[库存信息表] (
[物资编号] [char] (6) NOT NULL primary key,
[名称] [char] (20) COLLATE Chinese_PRC_CI_AS NULL,
[型号] [char] (10) COLLATE Chinese_PRC_CI_AS NULL,
[规格] [char] (20) null,
[计量单位] [char] (4)COLLATE Chinese_PRC_CI_AS NOT NULL,
[库存量] [numeric] (5,0) null,
[存放位置] [char] (20) NOT NULL,
[备注] [char] (255) null
) ON [PRIMARY]
GO
/****** Object: 建立入库信息表 日期: 2005-3-28 8:30:30 ******/
CREATE TABLE [dbo].[入库信息表] (
[入库单编号] [char] (6) NOT NULL primary key,
[物资编号] [char] (6) NOT NULL,
[名称] [char] (20) COLLATE Chinese_PRC_CI_AS NULL,
[型号] [char] (10) COLLATE Chinese_PRC_CI_AS NULL,
[规格] [char] (20) null,
[计量单位] [char] (4)COLLATE Chinese_PRC_CI_AS NOT NULL,
[单价] [char] (30) not NULL ,
[入库数量] [numeric](5,1) not NULL ,
[入库日期] [datetime] not NULL ,
[经办人] [char] (8) COLLATE Chinese_PRC_CI_AS not null,
[生产厂家] [char] (50) COLLATE Chinese_PRC_CI_AS NULL,
[备注] [char] (255) null
) ON [PRIMARY]
GO
/****** Object: 建立备件领用信息表 日期: 2005-3-28 8:30:30 ******/
CREATE TABLE [dbo].[备件领用信息表] (
[领料单编号] [char] (6) NOT NULL primary key,
[物资编号] [char] (6) NOT NULL,
[名称] [char] (20) COLLATE Chinese_PRC_CI_AS NULL,
[型号] [char] (10) COLLATE Chinese_PRC_CI_AS NULL,
[规格] [char] (20) null,
[计量单位] [char] (4)COLLATE Chinese_PRC_CI_AS NOT NULL,
[领用数量] [numeric](5,1) not NULL ,
[领用日期] [datetime] not NULL ,
[领用人] [char] (8) COLLATE Chinese_PRC_CI_AS not null,
[备注] [char] (255) null
) ON [PRIMARY]
GO
/****** Object: 建立用户信息表 日期: 2005-3-28 8:30:30 ******/
CREATE TABLE [dbo].[用户信息表] (
[用户名] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[用户密码] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,
[确认密码] [char] (10) COLLATE Chinese_PRC_CI_AS NULL
) ON [PRIMARY]
GO
/****** Object: 建立库存信息表存储过程 日期: 2005-3-28 8:30:30 ******/
CREATE PROCEDURE 库存信息表_setup
(
@物资编号 char (6),
@名称 char (20),
@型号 char (10),
@规格 char (20),
@计量单位 char (4),
@库存量 numeric (5,0),
@存放位置 char (20),
@备注 char (255)
)
AS
insert 库存信息表
(
物资编号,名称,型号,规格,计量单位,库存量,存放位置,备注
)
values
(
@物资编号,@名称,@型号,@规格,@计量单位,@库存量,@存放位置,@备注
)
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
/****** Object: 建立入库信息表存储过程 日期: 2005-3-28 8:30:30 ******/
CREATE PROCEDURE 入库信息表_setup
(
@入库单编号 char (6),
@物资编号 char (6),
@名称 char (20),
@型号 char (10),
@规格 char (20),
@计量单位 char (4),
@单价 char(30),
@入库数量 numeric (5,1),
@入库日期 datetime,
@经办人 char (8),
@生产厂家 char (50),
@备注 char (255)
)
AS
insert 入库信息表
(
入库单编号,物资编号,名称,型号,规格,计量单位,单价,入库数量,入库日期,经办人,生产厂家,备注
)
values
(
@入库单编号,
@物资编号,
@名称,
@型号,
@规格,
@计量单位,
@单价,
@入库数量,
@入库日期,
@经办人,
@生产厂家,
@备注
)
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
/****** Object: 建立备件领用信息表存储过程 日期: 2005-3-28 8:30:30 ******/
CREATE PROCEDURE 备件领用信息表_setup
(
@领料单编号 char (6),
@物资编号 char (6),
@名称 char (20),
@型号 char (10),
@规格 char (20),
@计量单位 char (4),
@领用数量 numeric (5,1),
@领用日期 datetime,
@领用人 char (8),
@备注 char (255)
)
AS
insert 备件领用信息表
(
领料单编号,物资编号,名称,型号,规格,计量单位,领用数量,领用日期,领用人,备注
)
values
(
@领料单编号,@物资编号,@名称,@型号,@规格,@计量单位,@领用数量,@领用日期,@领用人,@备注
)
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
insert 用户信息表 values ('test','test','test')