企业进存销系统源码（VB源码,可二次开发)

IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name = N'My_Factory') DROP DATABASE [My_Factory] GO CREATE DATABASE [My_Factory] ON (NAME = N'My_Factory_Data', FILENAME = N'C:\Program Files\Microsoft SQL Server\MSSQL\data\My_Factory_Data.MDF' , SIZE = 2, FILEGROWTH = 10%) LOG ON (NAME = N'My_Factory_Log', FILENAME = N'C:\Program Files\Microsoft SQL Server\MSSQL\data\My_Factory_Log.LDF' , SIZE = 1, FILEGROWTH = 10%) COLLATE Chinese_PRC_CI_AS GO exec sp_dboption N'My_Factory', N'autoclose', N'true' GO exec sp_dboption N'My_Factory', N'bulkcopy', N'false' GO exec sp_dboption N'My_Factory', N'trunc. log', N'true' GO exec sp_dboption N'My_Factory', N'torn page detection', N'true' GO exec sp_dboption N'My_Factory', N'read only', N'false' GO exec sp_dboption N'My_Factory', N'dbo use', N'false' GO exec sp_dboption N'My_Factory', N'single', N'false' GO exec sp_dboption N'My_Factory', N'autoshrink', N'true' GO exec sp_dboption N'My_Factory', N'ANSI null default', N'false' GO exec sp_dboption N'My_Factory', N'recursive triggers', N'false' GO exec sp_dboption N'My_Factory', N'ANSI nulls', N'false' GO exec sp_dboption N'My_Factory', N'concat null yields null', N'false' GO exec sp_dboption N'My_Factory', N'cursor close on commit', N'false' GO exec sp_dboption N'My_Factory', N'default to local cursor', N'false' GO exec sp_dboption N'My_Factory', N'quoted identifier', N'false' GO exec sp_dboption N'My_Factory', N'ANSI warnings', N'false' GO exec sp_dboption N'My_Factory', N'auto create statistics', N'true' GO exec sp_dboption N'My_Factory', N'auto update statistics', N'true' GO use [My_Factory] GO if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[ck_setup]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) drop procedure [dbo].[ck_setup] GO if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[dh_setup]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) drop procedure [dbo].[dh_setup] GO if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[gf_setup]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) drop procedure [dbo].[gf_setup] GO if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[inh_inquire_ywy]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) drop procedure [dbo].[inh_inquire_ywy] GO if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[inh_setup]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) drop procedure [dbo].[inh_setup] GO if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[kh_setup]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) drop procedure [dbo].[kh_setup] GO if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[kucun_setup]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) drop procedure [dbo].[kucun_setup] GO if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[outh_setup]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) drop procedure [dbo].[outh_setup] GO if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[wz_setup]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) drop procedure [dbo].[wz_setup] GO if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[xsdh_setup]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) drop procedure [dbo].[xsdh_setup] GO if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[ywy_setup]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) drop procedure [dbo].[ywy_setup] GO if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[dh]') and OBJECTPROPERTY(id, N'IsUserTable') = 1) drop table [dbo].[dh] GO if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[dm_ck]') and OBJECTPROPERTY(id, N'IsUserTable') = 1) drop table [dbo].[dm_ck] GO if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[dm_gf]') and OBJECTPROPERTY(id, N'IsUserTable') = 1) dro�