最小的系统也可以要求有SQL脚本(可导入)和说明,
急,我的MAIL:[email protected]
请注明mSSQL

解决方案 »

  1.   

    网上大把资料
    www.google.com
      

  2.   

    Public Cnn As ADODB.Connection
    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
      

  3.   

    /****** Object:  建立大华塑业备件库及日志文件    日期: 2005-3-28 8:30:30 ******/
    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')