Delphi住房公积金管理系统源代码

IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name = N'ZFGJJ') DROP DATABASE [ZFGJJ] GO CREATE DATABASE [ZFGJJ] ON (NAME = N'ZFGJJ_Data', FILENAME = N'D:\Program Files\Microsoft SQL Server\MSSQL\data\ZFGJJ_Data.MDF' , SIZE = 2, FILEGROWTH = 10%) LOG ON (NAME = N'ZFGJJ_Log', FILENAME = N'D:\Program Files\Microsoft SQL Server\MSSQL\data\ZFGJJ_Log.LDF' , SIZE = 1, FILEGROWTH = 10%) COLLATE Chinese_PRC_CI_AS GO exec sp_dboption N'ZFGJJ', N'autoclose', N'true' GO exec sp_dboption N'ZFGJJ', N'bulkcopy', N'false' GO exec sp_dboption N'ZFGJJ', N'trunc. log', N'true' GO exec sp_dboption N'ZFGJJ', N'torn page detection', N'true' GO exec sp_dboption N'ZFGJJ', N'read only', N'false' GO exec sp_dboption N'ZFGJJ', N'dbo use', N'false' GO exec sp_dboption N'ZFGJJ', N'single', N'false' GO exec sp_dboption N'ZFGJJ', N'autoshrink', N'true' GO exec sp_dboption N'ZFGJJ', N'ANSI null default', N'false' GO exec sp_dboption N'ZFGJJ', N'recursive triggers', N'false' GO exec sp_dboption N'ZFGJJ', N'ANSI nulls', N'false' GO exec sp_dboption N'ZFGJJ', N'concat null yields null', N'false' GO exec sp_dboption N'ZFGJJ', N'cursor close on commit', N'false' GO exec sp_dboption N'ZFGJJ', N'default to local cursor', N'false' GO exec sp_dboption N'ZFGJJ', N'quoted identifier', N'false' GO exec sp_dboption N'ZFGJJ', N'ANSI warnings', N'false' GO exec sp_dboption N'ZFGJJ', N'auto create statistics', N'true' GO exec sp_dboption N'ZFGJJ', N'auto update statistics', N'true' GO use [ZFGJJ] GO if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[FK_利息结算_职工]') and OBJECTPROPERTY(id, N'IsForeignKey') = 1) ALTER TABLE [dbo].[利息结算] DROP CONSTRAINT FK_利息结算_职工 GO if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[FK_明细表_职工]') and OBJECTPROPERTY(id, N'IsForeignKey') = 1) ALTER TABLE [dbo].[明细表] DROP CONSTRAINT FK_明细表_职工 GO if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[FK_期初余额_职工]') and OBJECTPROPERTY(id, N'IsForeignKey') = 1) ALTER TABLE [dbo].[期初余额] DROP CONSTRAINT FK_期初余额_职工 GO if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[FK_系数表_职工]') and OBJECTPROPERTY(id, N'IsForeignKey') = 1) ALTER TABLE [dbo].[系数表] DROP CONSTRAINT FK_系数表_职工 GO if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[FK_余额表_职工]') and OBJECTPROPERTY(id, N'IsForeignKey') = 1) ALTER TABLE [dbo].[余额表] DROP CONSTRAINT FK_余额表_职工 GO if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[mytr1]') and OBJECTPROPERTY(id, N'IsTrigger') = 1) drop trigger [dbo].[mytr1] GO if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[insert_base]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) drop procedure [dbo].[insert_base] 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 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 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 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 OBJEC�