📄 uu1.pas.~2~
字号:
sql :='if not exists (select [name] from sysobjects where [name] = ''版本表'')'
+'CREATE TABLE [版本表] ('
+'[Val_ID] [varchar] (50) NOT NULL ,'
+'[ValStr] [varchar] (50) NOT NULL ,'
+'PRIMARY KEY([Val_ID]) )';
adoQury.SQL.Add(sql);
sql :='if not exists (select [name] from sysobjects where [name] = ''传感器'')'
+'CREATE TABLE [传感器] ('
+'[传感器号] [tinyint] NOT NULL ,'
+'[传类型号] [tinyint] DEFAULT 1 NOT NULL ,'
+'[传类型名] [nvarchar] (3) DEFAULT ''传类型'' NOT NULL ,'
+'[传感器名] [nvarchar] (4) DEFAULT ''传感器'' NOT NULL ,'
+'[名标识] [tinyint] DEFAULT 0 NOT NULL ,'
+'[量程下限] [real] DEFAULT 0 NOT NULL ,'
+'[量程上限] [real] DEFAULT 1 NOT NULL ,'
+'[报警下限] [real] DEFAULT 0 NOT NULL ,'
+'[报警上限] [real] DEFAULT 0 NOT NULL ,'
+'[断电值] [real] DEFAULT 0 NOT NULL ,'
+'[复电值] [real] DEFAULT 0 NOT NULL ,'
+'[单位] [nvarchar] (8) NULL ,'
+'[状态1] [nvarchar] (4) NULL ,'
+'[状态2] [nvarchar] (4) NULL ,'
+'[映射号] [nvarchar] (4) NULL ,'
+'PRIMARY KEY([传感器号]) )';
adoQury.SQL.Add(sql);
sql :='if not exists (select [name] from sysobjects where [name] = ''配置测点'')'
+'CREATE TABLE [配置测点] ('
+'[测点号] [int] NOT NULL ,' //实际中不允许为0
+'[iTime] [int] NOT NULL ,'
+'[测点类型] [tinyint] DEFAULT 1 NOT NULL ,'
+'[传感器号] [tinyint] DEFAULT 0 NOT NULL ,'
+'[分站号] [tinyint] DEFAULT 0 NOT NULL ,' //实际中不允许为0
+'[测点位置] [nvarchar](20) NULL ,'
+'[量程下限] [real] DEFAULT 0 NOT NULL ,'
+'[量程上限] [real] DEFAULT 0 NOT NULL ,'
+'[报警下限] [real] DEFAULT 0 NOT NULL ,'
+'[报警上限] [real] DEFAULT 0 NOT NULL ,'
+'[断电值] [real] DEFAULT 0 NOT NULL ,'
+'[复电值] [real] DEFAULT 0 NOT NULL ,'
+'[控制字] [tinyint] NULL ,'
+'[传感器名] [nvarchar] (4) DEFAULT ''传感器'' NOT NULL ,'
+'[名标识] [tinyint] DEFAULT 1 NOT NULL ,'
+'[单位] [nvarchar] (8) NOT NULL ,'
+'[状态1] [nvarchar] (5) NULL ,'
+'[状态2] [nvarchar] (5) NULL ,'
+'[继电器] [tinyint] NULL ,'
+'[采区] [tinyint] NULL ,'
+'[断电区域] [varchar](100) NULL ,'
+'[关联1] [int] NULL ,'
+'[关联2] [int] NULL ,'
+'[显示顺序] [smallint] DEFAULT 0 Not NULL ,'
+'PRIMARY KEY([测点号],[iTime]) )';
adoQury.SQL.Add(sql);
sql :='if not exists (select [name] from sysobjects where [name] = ''自动控制表'')'
+'CREATE TABLE [自动控制表] ('
+'[_id] [int] NOT NULL ,'
+'[控制类型] [tinyint] NOT NULL ,' //1:异地断电; 2:风电闭锁; 3:双风门报警;
+'[测点1] [int] NULL ,'
+'[测点2] [int] NULL ,'
+'[条件1] [tinyint] DEFAULT 1 NOT NULL ,' //> < = >= =< <>
+'[条件2] [tinyint] DEFAULT 1 NOT NULL ,'
+'[值1] [real] DEFAULT 0 NOT NULL ,'
+'[值2] [real] DEFAULT 0 NOT NULL ,'
+'[组合] [tinyint] DEFAULT 1 NOT NULL ,' //1:And; 0:Or;
+'[被控分站] [tinyint] DEFAULT 255 NOT NULL ,'
+'[继电器] [tinyint] DEFAULT 0 NOT NULL ,'
+'[关联号] [int] NULL ,'
+'[备注] [nvarchar] (20) NULL )' ;
//+'PRIMARY KEY([_id]) )';
adoQury.SQL.Add(sql);
sql :='if not exists (select [name] from sysobjects where [name] = ''瓦斯报警表'')'
+'CREATE TABLE [瓦斯报警表] ('
+'[_id] [bigint] IDENTITY(-2000000000, 1) NOT NULL ,'
+'[cd] [int] NOT NULL ,' //测点号
+'[lx] [tinyint] NOT NULL ,' //测点类型
+'[mbs] [tinyint] NOT NULL ,' //名标识
+'[miV] [real] NULL ,' //最小值
+'[agV] [real] NULL ,' //平均值
+'[maV] [real] NULL ,' //最大值
+'[Alx] [tinyint] NULL ,' //报警类型 $02代表超限 $08代表负漂 $0a代表超限负漂
+'[T0] [datetime] NULL ,' //开始时间
+'[Tn] [datetime] NULL ,' //结束时间
+'[有效] [int] NULL ,' //有效 当达到两个循环周期后才有效
+'[ddT] [varchar] (50) NULL ,' //断电Time
+'[ljT] [int] NULL ,' //累计时间
+'[maT] [datetime] NULL ,' //措施
+'[cs] [nvarchar] (80) NULL )' ;
//+'PRIMARY KEY([_id]) )';
adoQury.SQL.Add(sql);
sql :='if not exists (select [name] from sysobjects where [name] = ''瓦斯断电表'')'
+'CREATE TABLE [瓦斯断电表] ('
+'[_id] [bigint] IDENTITY(-2000000000, 1) NOT NULL ,'
+'[cd] [int] NOT NULL ,' //测点号
+'[lx] [tinyint] NOT NULL ,' //测点类型
+'[mbs] [tinyint] NOT NULL ,' //名标识
+'[miV] [real] NULL ,' //最小值
+'[agV] [real] NULL ,' //平均值
+'[maV] [real] NULL ,' //最大值
+'[Dlx] [tinyint] NULL ,' //断电类型 $10代表断电 $20代表复电 $30代表断电复电
+'[T0] [datetime] NULL ,' //开始时间
+'[Tn] [datetime] NULL ,' //结束时间
+'[有效] [int] NULL ,' //当达到两个循环周期后才有效
+'[altT] [varchar] (50) NULL ,'//报警Time 此次关联的报警开始时间
+'[ddq] [nvarchar] (80) NULL ,'//断电区域
+'[fdT] [datetime] NULL ,' //复电时间
+'[kdT] [datetime] NULL ,' //馈电时间 馈电无电的时间,若原就无电,即为断电时间,若一直有电(异常),为因默认时间
+'[ljT] [int] NULL ,' //累计时间
+'[maT] [datetime] NULL ,' //大值时刻
+'[cs] [nvarchar] (80) NULL )' ; //措施
//+'PRIMARY KEY([_id]) )';
adoQury.SQL.Add(sql);
sql :='if not exists (select [name] from sysobjects where [name] = ''瓦斯馈电表'')'
+'CREATE TABLE [瓦斯馈电表] ('
+'[_id] [bigint] IDENTITY(-2000000000, 1) NOT NULL ,'
+'[cd] [int] NOT NULL ,' //测点号
+'[lx] [tinyint] NOT NULL ,' //测点类型
+'[mbs] [tinyint] NOT NULL ,' //名标识
+'[_cd] [int] NOT NULL ,' //_测点号
+'[_lx] [tinyint] NOT NULL ,' //_测点类型
+'[_mbs] [tinyint] NOT NULL ,' //_名标识
+'[ddq] [nvarchar] (80) NULL ,' //断电区域
+'[T0] [datetime] NULL ,' //开始时间
+'[Tn] [datetime] NULL ,' //结束时间
+'[ljT] [int] NULL ,' //累计时间
+'[altT] [varchar] (50) NULL ,' //报警Time
+'[ddT] [varchar] (50) NULL ,' //断电Time
+'[cs] [nvarchar] (80) NULL )' ;
//+'PRIMARY KEY([_id]) )';
adoQury.SQL.Add(sql);
if flag then begin //seei库
sql :='if not exists (select [name] from sysobjects where [name] = ''系统运行'')'
+'CREATE TABLE [系统运行] ('
+'[iTime] [int] NOT NULL ,'
+'[t1] [datetime] NOT NULL ,'
+'[t2] [datetime] NOT NULL ,'
+'[str] [nvarchar] (50) NULL ,'
+'PRIMARY KEY([iTime]) )';
adoQury.SQL.Add(sql);
sql :='if not exists (select [name] from sysobjects where [name] = ''路径表'')'
+'CREATE TABLE [路径表] ('
+'[iTime] [int] NOT NULL ,'
+'[基站1] [tinyint] NOT NULL ,'
+'[基站2] [tinyint] NOT NULL ,'
+'[标志] [tinyint] DEFAULT 1 NOT NULL ,' //识加十字口的多条路径
+'[辅助站1] [tinyint] NULL ,'
+'[辅助站2] [tinyint] NULL ,'
+'[XYs] [varchar] (100) NULL , ' //由十六进制组成(1,2;A,18;)
+'PRIMARY KEY([iTime], [基站1], [基站2], [标志]) )';
adoQury.SQL.Add(sql);
sql :='if not exists (select [name] from sysobjects where [name] = ''实时表'')'
+'CREATE TABLE [实时表] ('
+'[卡ID] [smallint] NOT NULL ,'
+'[iTime] [int] NOT NULL ,'
+'[所在基站] [tinyint] NULL ,' //有可能在无信号区
+'[Vol] [tinyint] DEFAULT 0 NULL ,' //当前卡的电压
+'[wd] [tinyint] DEFAULT 0 NULL ,' //当前卡的温度
+'[信号强度] [tinyint] NULL ,'
+'[bData] [tinyint] NULL ,'
+'[状态] [int] NULL ,'
+'[接收时间] [datetime] NULL ,'
+'PRIMARY KEY([卡ID]) )';
adoQury.SQL.Add(sql);
sql :='if not exists (select [name] from sysobjects where [name] = ''卡标识表'')'
+'CREATE TABLE [卡标识表] ('
+'[卡ID] [smallint] NOT NULL ,'
+'[批次] [tinyint] NOT NULL ,'
+'[状态] [tinyint] NOT NULL ,'
+'PRIMARY KEY([卡ID]) )';
adoQury.SQL.Add(sql);
sql :='if not exists (select [name] from sysobjects where [name] = ''图形添加'')'
+'CREATE TABLE [图形添加] ('
+'[图形ID] [tinyint] NOT NULL Check (图形ID>=1 and 图形ID<=30),'
+'[图形名] [varchar](16) NOT NULL Constraint Picture Unique,'
+'[分辨率] [tinyint] DEFAULT 2 NOT NULL ,' //0 800*600 1 1010*710 2 1024*768 3 1028*1024 4 2000*1500
+'[字号] [tinyint] DEFAULT 8 NOT NULL ,'
+'[显示值] [tinyint] DEFAULT 0 NOT NULL ,' //2、甲烷 0.4 3、甲烷 0.4% 4、0.4% 其他、0.4
+'[前景色] [tinyint] DEFAULT 1 NOT NULL ,' //0无(仅背景) 1黑 2白 3红 4黄 5蓝
+'[背景色] [tinyint] DEFAULT 0 NOT NULL ,'
+'[使用] [tinyint] DEFAULT 1 NOT NULL ,' //高8位为1表示图形适应, 低1位为1表示要显示此图
+'[默认] [tinyint] DEFAULT 0 NOT NULL ,' //是否为默认图形
+'[TXLX] [tinyint] DEFAULT 3 NOT NULL Check (TXLX>=1 and TXLX<=3),' //属于哪个系统 1表示人员定位 2表示瓦斯监控 3为两者
+'PRIMARY KEY([图形ID]) )';
adoQury.SQL.Add(sql);
sql :='if not exists (select [name] from sysobjects where [name] = ''配置图形'')'
+'CREATE TABLE [配置图形] ('
+'[图形号] [tinyint] NOT NULL Check (图形号>=1 and 图形号<=30),'
+'[控件号] [char](7) NOT NULL,'
+'[测点号] [char](5) NOT NULL ,'
+'[路径] [nvarchar](50) NULL ,'
+'[控件X] [smallint] DEFAULT 40 NOT NULL ,'
+'[控件Y] [smallint] DEFAULT 40 NOT NULL ,'
+'[控件H] [smallint] DEFAULT 16 NOT NULL ,'
+'[控件W] [smallint] DEFAULT 16 NOT NULL ,'
+'[使为标签] [bit] NOT NULL ,'
+'[使为图形] [bit] NOT NULL ,'
+'[显示] [bit] NOT NULL ,'
+'PRIMARY KEY([图形号],[控件号]) )';
adoQury.SQL.Add(sql);
sql :='if not exists (select [name] from sysobjects where [name] = ''瓦斯实时表'')'
+'CREATE TABLE [瓦斯实时表] ('
+'[分站] [tinyint] NOT NULL ,'
+'[测点号] [int] NOT NULL,'
+'[测点类型] [tinyint] NOT NULL ,'
+'[监测值] [float] NULL ,'
+'[状态] [smallint] NULL ,'
+'[时间] [datetime] NULL ,'
+'[最大值] [float] NULL ,'
+'[大值时间] [datetime] NULL ,'
+'PRIMARY KEY([分站],[测点号]) )';
adoQury.SQL.Add(sql);
end else begin //当前库
sql :='if not exists (select [name] from sysobjects where [name] = ''系统运行'')'
+'CREATE TABLE [系统运行] ('
+'[id] [bigint] IDENTITY(-2000000000, 1) NOT NULL ,'
+'[iTime] [int] NOT NULL ,'
+'[t1] [datetime] NOT NULL ,'
+'[t2] [datetime] NOT NULL ,'
+'[str] [nvarchar] (50) NULL )';
adoQury.SQL.Add(sql);
sql :='if not exists (select [name] from sysobjects where [name] = ''路径表'')'
+'CREATE TABLE [路径表] ('
+'[id] [int] IDENTITY(1, 1) NOT NULL ,'
+'[iTime] [int] NOT NULL ,'
+'[基站1] [tinyint] NOT NULL ,'
+'[基站2] [tinyint] NOT NULL ,'
+'[标志] [tinyint] DEFAULT 1 NOT NULL ,'
+'[辅助站1] [tinyint] NULL ,'
+'[辅助站2] [tinyint] NULL ,'
+'[XYs] [varchar] (100) NULL ,'
+'PRIMARY KEY([iTime], [基站1], [基站2], [标志]) )';
adoQury.SQL.Add(sql);
for i:=1 to 12 do begin
sql :='if not exists (select [name] from sysobjects where [name] = ''_历史卡数据表'+toInt_xs(i,2)+''')'
+'CREATE TABLE [_历史卡数据表'+toInt_xs(i,2)+'] ('
+'[id] [bigint] IDENTITY(-2000000000, 1) NOT NULL ,'
+'[员工ID] [smallint] NOT NULL ,'
+'[卡ID] [smallint] NOT NULL ,'
+'[JZ1] [tinyint] DEFAULT 255 NULL ,' //基站ID1 255对应为-1
+'[XH1] [tinyint] DEFAULT 255 NULL ,' //信号强度1
+'[JZ2] [tinyint] DEFAULT 255 NULL ,' //基站ID2
+'[XH2] [tinyint] DEFAULT 255 NULL ,'
+'[JZ3] [tinyint] DEFAULT 255 NULL ,' //基站ID3
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -