Delphi控件源码

开发平台：
Delphi

档案.txt：源码内容
							create table sz_qz 
( --全宗表
 qz_dm varchar(10)  not null primary key,--全宗表_代码
 qz_mc varchar(100) not null,--全宗表_名称
 qz_qzlb varchar(100),--全宗表_全宗类别
 qz_ssnd varchar(60) ,/*全宗表_所属年代*/
 qz_jgsj varchar(60), --全宗表_进馆时间
 qz_jgmlh varchar(60),--全宗表_进馆目录号
 qz_jgsxh varchar(60) --全宗表_进馆顺序号
)--TABLE1
CREATE TABLE sz_qzlb
( --全宗类别表
 qzlb_dm int,--全宗类别代码
 qzlb_mc varchar(60)--全宗类别名称
)--TABLE2
create table sz_xtajlb
( --系统案卷类别表
 xt_dm varchar(10) not null primary key,--系统_代码
 xt_mc varchar(60) not null,--系统案卷类别表_名称
 xt_kfbj varchar(10) not null,--系统案卷类别表_可否编辑
 xt_sm varchar(100)--系统案卷类别表_说明
)--TABLE3
create table sz_ajlb
(--案卷类别4
 ajlb_dm varchar(30) not null primary key,--
 ajlb_mc varchar(60) not null,--
 ajlb_sm varchar(100) not null,--
 ajlb_js int not null,--
 ajlb_sjlbdm varchar(30),--
 qz_dm varchar(10) not null,--
 xt_dm varchar(10) not null--
)--Talbe4 
create table sz_wjlb
( --文件类别代码
 wjlb_dm varchar(30) not null primary key,--文件类别代码_代码
 wjlb_mc varchar(60) not null,--文件类别代码_名称
 wjlb_sm varchar(100),--文件类别代码_说明
 wjlb_js int not null,--文件类别代码_级数
 wjlb_sjlbdm varchar(30)--文件类别代码_上级类别代码
)--TABLE5
create table sz_bgqx
( --保管期限表
 bgqx_dm varchar(10) not null primary key,--保管期限表_代码
 bgqx_mc varchar(60) not null,--保管期限表_名称
 bgqx_sm varchar(100)--保管期限表_说明
)--table6
create table sz_mj
(--密级表
 mj_dm varchar(10) not null primary key,--密级表-代码
 mj_mc varchar(60) not null,--密级表-名称
 mj_sm varchar(100)--密级表-说明
)--Table7
create table sz_jyfs
(--借阅方式
 jyfs_dm varchar(10) not null primary key,--借阅方式-代码
 jyfs_mc varchar(60) not null,--借阅方式-名称
 jyfs_sm varchar(100)--借阅方式-说明
)--Table8
create table sz_jymd
( --借阅说明-
 jymd_dm varchar(10) not null primary key, --借阅说明-代码
 jymd_mc varchar(60) not null, --借阅说明-名称
 jymd_sm varchar(100) --借阅说明-说明
)--Table9
create table sz_ztlb
(--载体类别表-
 ztlb_dm varchar(10) not null primary key,--载体类别表-代码
 ztlb_mc varchar(60) not null,--载体类别表-名称
 ztlb_sm varchar(100)--载体类别表-说明
)--Table10
create table sz_zjlb
(--证件类别表-
 zjlb_dm varchar(10) not null primary key,--证件类别表-代码
 zjlb_mc varchar(60) not null,--证件类别表-名称
 zjlb_sm varchar(100)--证件类别表-说明
)--Table11
create table sz_bm
(--部门表-
 bm_dm varchar(30) not null primary key,--部门表-代码
 bm_mc varchar(60) not null,--部门表-名称
 bm_js int not null,--部门表-级数
 bm_sm varchar(100) not null,--部门表-说明
 bm_sjbmdm varchar(30)--部门表-上级部门代码
)--Table12
create table sz_yg
(--员工表
  yg_dm varchar(30) not null primary key,--员工代码
  Yg_xm varchar(40) not null,--员工姓名
  bm_dm varchar(30) not null--部门代码
)--table13
create table sz_kw
(--库位表
  kw_dm varchar(30) not null primary key,--库位代码
  kw_mc varchar(60) not null,--库位名称
  kw_js int not null,--库位级数
  kw_sm varchar(100) not null,--库位说明-
  kw_sjkwdm varchar(30)--库位上级库位代码
)--table14
create table xt_rz
(--系统日志
 rz_xh int not null primary key,--日志序号
 User_name varchar(30) not null,--用户名
 rz_czsj datetime not null,--日志操作时间
 rz_nr varchar(200), --日子内容
 rz_computer varchar(40)--日志计算机名
)--table15
create  table xt_lbjs
(--表16类别级数
 lb_dm varchar(30) not null primary key,--类别代码
 lb_mc varchar(60) ,--类别名称
 lbjs_sm varchar(10),--类别级数说明
 lb_dmcd int,--类别代码长度
 lb_dmlx varchar(1)--代码类型
)--16
create table xt_ajcs
(--表17案卷参数表
 ajcs_dm varchar(10) not null primary key,--案卷参数代码
 ajcs_mc varchar(60),--名称
 ajcs_gz varchar(60)--规则
)--17
create table xt_UserGroup
(--用户组
 yhz_dm varchar(10) not null primary key,--用户组代码
 yhz_mc varchar(60),--用户组名称
 yhz_sm varchar(100)--用户组说明
 js_dm varchar(10) not null--角色
)--18
create table xt_user
(--用户表
 user_dm varchar(10) not null primary key,--用户代码
 user_name varchar(30) not null,--用户名称
 user_sm varchar(60),--用户说明
 user_ygdm varchar(30),--员工代码
 user_password varchar(20) not null--用户密码
)--19
create table xt_UandG
(--用户组分配表
 ug_xh  int not null primary key,--序号
 yhz_dm varchar(10) not null,--用户组代码
 user_dm varchar(10) not null--用户代码
)--20
create table xt_cdqx
(--菜单权限
 cdqx_cdmc varchar(30) not null,--菜单名称
 yhz_dm varchar(10) not null--用户组代码
)--21
create table xt_lbqx
(--类别代码
 ajlb_dm varchar(30) not null,--案卷类别代码
 yhz_dm varchar(10)  not null--用户组代码
)--22
create table xt_mjqx
(--密级权限
 mj_dm varchar(10) not null,--密级代码
 yhz_dm varchar(10) not null--用户组代码
)--23
create table sz_ajzt
(--案卷状态
 ajzt_dm varchar(10) not null,--案卷状态代码
 ajzt_mc varchar(60) not null,--案卷状态名称
 ajzt_sm varchar(100)--案卷状态说明
)--24
CREATE TABLE [dbo].[Am_ajgl] (
--表案卷管理
 [aj_ndh] [varchar] (10) NOT NULL,
 [aj_xh] [int] IDENTITY (1, 1) NOT NULL ,
 [ajlb_dm] [varchar] (20) NULL ,
 [aj_dh] [varchar] (20) NULL ,
 [aj_ys] [int] NULL ,
 [aj_tm] [varchar] (100) NULL ,
 [aj_bzqsrq] [datetime] NULL ,
 [aj_bzjsrq] [datetime] NULL ,
 [aj_gdqsrq] [datetime] NULL ,
 [aj_gdjsrq] [datetime] NULL ,
 [bgqx_dm] [varchar] (10) NOT NULL ,
 [mj_dm] [varchar] (10) NOT NULL ,
 [aj_ljr] [varchar] (20) NULL ,
 [aj_zrz] [varchar] (50) NULL ,
 [aj_jcr] [varchar] (20) NULL ,
 [kw_dm] [varchar] (20) NULL ,
 [aj_ztc] [varchar] (50) NULL ,
 [aj_ty] [varchar] (100) NULL ,
 [aj_sfrk] [varchar] (1) NULL ,
 [aj_fz] [varchar] (100) NULL ,
 [User_name] [varchar] (20) NOT NULL ,
 [aj_wsh] [varchar] (20) NULL ,
 [aj_dm] [varchar] (10) NULL ,
 [ajzt_dm] [varchar] (2) NULL 
) --25
CREATE TABLE [dbo].[dagl_wjgl] (
 --文件类别
 [wjlb_dm] [varchar] (20) NULL ,
 [wj_ndh] [varchar] (10) NULL ,
 [wj_xh] [int] IDENTITY (1, 1) NOT NULL primary key,
 [ajlb_dm] [varchar] (20) NULL ,
 [aj_xh] [int] NULL ,
 [wj_ys] [int] NULL ,
 [wj_jnxh] [int] NULL ,
 [wj_hh] [varchar] (10) NULL ,
 [wj_dh] [varchar] (50) NULL ,
 [wj_tm] [varchar] (100) NULL ,
 [wj_zrz] [varchar] (50) NULL ,
 [wj_rq] [datetime] NULL ,
 [wj_gdrq] [datetime] NULL ,
 [bgqx_dm] [varchar] (10) NULL ,
 [mj_dm] [varchar] (10) NULL ,
 [ztlb_dm] [varchar] (10) NULL ,
 [wj_ty] [varchar] (100) NULL ,
 [wj_ztc] [varchar] (50) NULL ,
 [wj_fz] [varchar] (100) NULL ,
 [user_name] [varchar] (20) NOT NULL ,
 [wj_wsh] [varchar] (20) NULL ,
 [wj_dm] [varchar] (10) NULL ,
 [wj_yc] [int] NULL 
)--Table26
create table Am_wjfj
(--文件附件表
 wj_xh int not null,--文件附件序号
 wjfj_xh int identity(1,1) not null primary key,--文件附件序号
 wjfj_tm varchar(100)--文件附件题名
)--table27
create table AM_yjml
(--表28移交目录
 ajyj_xh int not null,--移交目录序号
 aj_xh int not null--移交序号
)--Table28
create table Am_ajyj
(--案卷移交表
 ajyj_xh int identity(1,1) not null primary key,--序号
 ajyj_yjr varchar(30)  not null,--移交人
 ajyj_yjdw varchar(60) not null,--移交单位
 ajyj_jsdw varchar(60) not null,--接收单位
 ajyj_yjrq datetime not null,--移交日期
 ajyj_fz varchar(200) ,--附注
 User_name varchar(30)--用户名
)--table29
create table AM_ajxh
(--销毁鉴定表
 aj_xh  int not null,--案卷序号
 aj_ajxh int identity(1,1) not null primary key,--案卷销毁序号
 ajxh_jdrq datetime,--鉴定序号
 ajxh_jdyy varchar(200),--鉴定原因/销毁原因
 ajxh_jdyj varchar(200),--鉴定意见/鉴定意见
 ajxh_jdr  varchar(30),--鉴定人
 ajxh_xhrq datetime,--销毁日期
 ajxh_xhr varchar(30) 
)--table30
create table Am_kwzk
(--库位状况表
 kwzk_xh int identity(1,1) not null primary key,--序号
 kwzk_rq datetime not null,--日期
 kw_dm varchar(30)not null,--代码
 kwzk_wd varchar(30),--温度
 kwzk_sd varchar(30),--湿度
 kwzk_bz varchar(200)--备注
)--table31
create table Am_dz
(--读者表
 dz_dm varchar(10) not null primary key,--读者代码
 dz_xm varchar(30) not null,--读者姓名
 dz_dw varchar(60),--读者单位
 dz_lxdh varchar(30),--电话
 dz_lxdz varchar(60),--联系地址
 dz_dzyj varchar(60),--电子邮件
 zjlb_dm varchar(10),--证件类别代码
 dz_zjh varchar(30),--证件号
 dz_djsj datetime,--登记时间
 jygz_xh int--借阅规则序号
)--Table32
create table Am_jygz
(--借阅规则
 jygz_xjsl int,--限借数量
 jygz_xjts int,--限借天数
 jygz_xjtj varchar(1),--续借条件（逾期未还可否续借）
 jygz_jyjb  varchar(60) not null,--借阅级别
 jygz_xh int identity not null primary key--借阅规则序号
)--Table33
create table Am_jygl
(--借阅管理
 dz_dm varchar(10) ,--读者代码
 aj_xh int,--案卷序号
 jy_xh int identity(1,1) not null primary key,--借阅序号
 jyfs_dm varchar(10),--借阅方式代码
 jy_jyrq datetime,--借阅日期
 jy_yhrq datetime,--应还日期
 jy_ghrq datetime,--归还日期
 jymd_dm varchar(10),--借阅目的代码
 jy_jsr varchar(30),--经手人
 jy_bz varchar(200),--备注
 jy_ghzt varchar(1),--归还状态
 jy_xjcs int --许借次数
)--Table34
create table Am_cx
(--查询
 cx_xh int identity(1,1)not null primary key, --查询序号
 cx_mc varchar(60) not null,--查询名称
 user_dm varchar(10) not null,--用户代码
 cx_sql text not null,--查询语句
 cx_lb varchar(10) not null--查询类别（文件，案卷）
)--Table35
create table Sz_ztcl
(--主题词类
 ztcl_dm varchar(30) not null primary key, --主题词代码
 ztcL_mc varchar(60) not null,--主题词名称
 ztcl_sjdm varchar(30),--主题词上级代码
 ztcl_js int not null--主题词级数
)--Table36
create table sz_ztck
(--主题词库
 ztck_dm varchar(30) not null ,--主题词库代码
 ztck_ztcdm varchar(30) not null primary key,--主题词库代码
 ztck_ztc varchar(60) not null--主题词库主题词
)--Table37
create table xt_js
(--角色表38
 js_mc varchar(20) not null,--角色名称
 js_dm varchar(10) not null,--角色代码
 js_sm varchar(50),--角色说明
)
create procedure P_Ajgl 
@str varchar(40)
as 
select * from V_ajgl where ajlb_dm=@str
--创建存储过程P_Ajgl,str为字符串变量
create Procedure P_Wjgl
as select * from v_wjgl2
--创建存储过程P_wjgl(案卷管理)

						