error.log

delphi 源码 小型企业管理软件

[2007-05-13 01:20:41]:
Query:
select value from gt where name='GDecimalAmt'

[2007-05-13 01:20:41]:
Query:
SELECT SERVERPROPERTY('MachineName')

[2007-05-13 01:20:41]:
Query:
SELECT SERVERPROPERTY('MachineName')

[2007-05-13 01:20:41]:
Query:
select value from gt where name='DBLastBack'

[2007-05-13 01:20:50]:
Query:
select ISNULL(max(cast(khid as integer)),0)+1 from kh where isnumeric(khid)=1

[2007-05-13 01:20:50]:
Query:
select space(50),space(50) where 1=2
 union select 'khid','7' from kh where khid='7' and khid<>''
 union select 'khname','五金' from kh where khname='五金' and khname<>''

[2007-05-13 01:20:54]:
Query:
select ISNULL(max(cast(khid as integer)),0)+1 from kh where isnumeric(khid)=1

[2007-05-13 01:20:54]:
Query:
select space(50),space(50) where 1=2
 union select 'khid','8' from kh where khid='8' and khid<>''
 union select 'khname','五金' from kh where khname='五金' and khname<>''

[2007-05-13 01:21:14]:
Query:
select space(50),space(50) where 1=2
 union select 'khid','8' from kh where khid='8' and khid<>''
 union select 'khname','五金' from kh where khname='五金' and khname<>''

[2007-05-13 01:23:29]:
Query:
select ISNULL(max(cast(khid as integer)),0)+1 from kh where isnumeric(khid)=1

[2007-05-13 01:23:29]:
Query:
select space(50),space(50) where 1=2
 union select 'khid','8' from kh where khid='8' and khid<>''
 union select 'khname','' from kh where khname='' and khname<>''

[2007-05-13 01:23:39]:
Query:
select ISNULL(max(cast(khid as integer)),0)+1 from kh where isnumeric(khid)=1

[2007-05-13 01:23:39]:
Query:
select space(50),space(50) where 1=2
 union select 'khid','9' from kh where khid='9' and khid<>''
 union select 'khname','' from kh where khname='' and khname<>''

[2007-05-13 01:23:40]:
Query:
select ISNULL(max(cast(khid as integer)),0)+1 from kh where isnumeric(khid)=1

[2007-05-13 01:23:40]:
Query:
select space(50),space(50) where 1=2
 union select 'khid','10' from kh where khid='10' and khid<>''
 union select 'khname','' from kh where khname='' and khname<>''


[2007-05-13 01:24:56]:
Query:
if object_id('gt')>0 select value from GT where name='DBVer' else select 0

[2007-05-13 01:24:57]:
SQL:

--更新模块表
if not exists(select 1 from GT where name='upModeTable' and value='2007-01-03')
begin
  delete from userPriv
  delete from modeTable

  insert into modeTable(formName,Caption) values('f1','基本资料管理')
  insert into modeTable(formName,Caption) values('f201','采购管理.基本资料.供应商表')
  insert into modeTable(formName,Caption) values('f202','采购管理.基本资料.料件单价表')
  insert into modeTable(formName,Caption) values('f203','采购管理.基本资料.付款条件表')
  insert into modeTable(formName,Caption) values('f221','采购管理.单据资料.采购总表')
  insert into modeTable(formName,Caption) values('f222','采购管理.单据资料.采购单')

  insert into modeTable(formName,Caption) values('f301','业务管理.基本资料.客户表')
  insert into modeTable(formName,Caption) values('f302','业务管理.基本资料.成品单价')
  insert into modeTable(formName,Caption) values('f321','业务管理.单据资料.订购单')
  insert into modeTable(formName,Caption) values('f341','业务管理.统计资料.对帐单')
  insert into modeTable(formName,Caption) values('f342','业务管理.统计资料.订单欠货情况表')

  insert into modeTable(formName,Caption) values('f3','统计查询')
  insert into modeTable(formName,Caption) values('f4','进出仓单管理')

  insert into GT(name,value) values('upModeTable','2007-01-03')
end

--更新供应商类别表
if not exists(select 1 from GT where name='upSupplierType' and value='2007-05-06')
begin
  delete from SupplierType

  insert into SupplierType(typeName) values('五金')
  insert into SupplierType(typeName) values('玻璃')
  insert into SupplierType(typeName) values('塑胶')
  insert into SupplierType(typeName) values('电器')
  insert into SupplierType(typeName) values('包装')

  insert into GT(name,value) values('upSupplierType','2007-05-06')
end

--更新货币表
if not exists(select 1 from GT where name='upHuobi' and value='2007-05-08')
begin
  delete from HD_HuoBi

  insert into HD_HuoBi (HBCode,HB01,HB02,HB03,HB04)values ('110','港币','HKD','',1);
  insert into HD_HuoBi (HBCode,HB01,HB02,HB03,HB04)values ('142','人民币','CNY','',1);
  insert into HD_HuoBi (HBCode,HB01,HB02,HB03,HB04)values ('502','美元','USD','',7.83);

  insert into GT(name,value) values('upHuobi','2007-05-08')
end

--更新付款条件表
if not exists(select 1 from GT where name='upPayTerm' and value='2007-05-06')
begin
  delete from payTerm

  insert into payTerm (ptName,ptDelayDays)values ('现金',0);
  insert into payTerm (ptName,ptDelayDays)values ('月结30天',30);
  insert into payTerm (ptName,ptDelayDays)values ('月结60天',60);

  insert into GT(name,value) values('upPayTerm','2007-05-06')
end

if not exists(select 1 from GT where name='updateData' and value='2007-05-07')
begin
  delete from kh where khType<>0 and khType<>1

  delete from GT where name='sys_curr'
  insert into GT(name,value) values('sys_curr','人民币')

  insert into GT(name,value) values('updateData','2007-05-07')
end

--更新触发器
if not exists(select 1 from GT where name='upInvTrigger' and value='2007-05-10')
begin
  IF EXISTS (SELECT name FROM sysobjects
      WHERE name = 'trig_updateInv' AND type = 'TR')
  drop trigger trig_updateInv

  insert into GT(name,value) values('upInvTrigger','2007-05-10')
end

[2007-05-13 01:24:57]:
Query:
IF not EXISTS (SELECT name FROM sysobjects WHERE name = 'trig_updateInv' AND type = 'TR') select 1 else select 0

[2007-05-13 01:24:58]:
Query:
select 1 from users where uid='admin' and csum=Binary_Checksum('managernba')

[2007-05-13 01:24:58]:
Query:
select value from gt where name='GDecimalQty'

[2007-05-13 01:24:58]:
Query:
select value from gt where name='GDecimalPrice'

[2007-05-13 01:24:58]:
Query:
select value from gt where name='GDecimalAmt'

[2007-05-13 01:24:58]:
Query:
SELECT SERVERPROPERTY('MachineName')

[2007-05-13 01:24:58]:
Query:
SELECT SERVERPROPERTY('MachineName')

[2007-05-13 01:24:58]:
Query:
select value from gt where name='DBLastBack'

[2007-05-13 01:25:06]:
Query:
select ISNULL(max(cast(khid as integer)),0)+1 from kh where isnumeric(khid)=1

[2007-05-13 01:25:06]:
Query:
select space(50),space(50) where 1=2
 union select 'khid','7' from kh where khid='7' and khid<>''
 union select 'khname','菲利普' from kh where khname='菲利普' and khname<>''

[2007-05-13 01:25:39]:
Query:
select space(50),space(50) where 1=2
 union select 'khid','7' from kh where khid='7' and khid<>''
 union select 'khname','菲利普001' from kh where khname='菲利普001' and khname<>''

[2007-05-13 01:25:47]:
Query:
select spunit from unit order by 1


[2007-05-13 01:37:26]:
Query:
if object_id('gt')>0 select value from GT where name='DBVer' else select 0

[2007-05-13 01:37:27]:
SQL:

--更新模块表
if not exists(select 1 from GT where name='upModeTable' and value='2007-01-03')
begin
  delete from userPriv
  delete from modeTable

  insert into modeTable(formName,Caption) values('f1','基本资料管理')
  insert into modeTable(formName,Caption) values('f201','采购管理.基本资料.供应商表')
  insert into modeTable(formName,Caption) values('f202','采购管理.基本资料.料件单价表')
  insert into modeTable(formName,Caption) values('f203','采购管理.基本资料.付款条件表')
  insert into modeTable(formName,Caption) values('f221','采购管理.单据资料.采购总表')
  insert into modeTable(formName,Caption) values('f222','采购管理.单据资料.采购单')

  insert into modeTable(formName,Caption) values('f301','业务管理.基本资料.客户表')
  insert into modeTable(formName,Caption) values('f302','业务管理.基本资料.成品单价')
  insert into modeTable(formName,Caption) values('f321','业务管理.单据资料.订购单')
  insert into modeTable(formName,Caption) values('f341','业务管理.统计资料.对帐单')
  insert into modeTable(formName,Caption) values('f342','业务管理.统计资料.订单欠货情况表')

  insert into modeTable(formName,Caption) values('f3','统计查询')
  insert into modeTable(formName,Caption) values('f4','进出仓单管理')

  insert into GT(name,value) values('upModeTable','2007-01-03')
end

--更新供应商类别表
if not exists(select 1 from GT where name='upSupplierType' and value='2007-05-06')
begin
  delete from SupplierType

  insert into SupplierType(typeName) values('五金')
  insert into SupplierType(typeName) values('玻璃')
  insert into SupplierType(typeName) values('塑胶')
  insert into SupplierType(typeName) values('电器')
  insert into SupplierType(typeName) values('包装')

  insert into GT(name,value) values('upSupplierType','2007-05-06')
end

--更新货币表
if not exists(select 1 from GT where name='upHuobi' and value='2007-05-08')
begin
  delete from HD_HuoBi

  insert into HD_HuoBi (HBCode,HB01,HB02,HB03,HB04)values ('110','港币','HKD','',1);
  insert into HD_HuoBi (HBCode,HB01,HB02,HB03,HB04)values ('142','人民币','CNY','',1);
  insert into HD_HuoBi (HBCode,HB01,HB02,HB03,HB04)values ('502','美元','USD','',7.83);

  insert into GT(name,value) values('upHuobi','2007-05-08')
end

--更新付款条件表
if not exists(select 1 from GT where name='upPayTerm' and value='2007-05-06')
begin
  delete from payTerm

  insert into payTerm (ptName,ptDelayDays)values ('现金',0);
  insert into payTerm (ptName,ptDelayDays)values ('月结30天',30);
  insert into payTerm (ptName,ptDelayDays)values ('月结60天',60);

  insert into GT(name,value) values('upPayTerm','2007-05-06')
end

if not exists(select 1 from GT where name='updateData' and value='2007-05-07')
begin
  delete from kh where khType<>0 and khType<>1

  delete from GT where name='sys_curr'
  insert into GT(name,value) values('sys_curr','人民币')

  insert into GT(name,value) values('updateData','2007-05-07')
end

--更新触发器
if not exists(select 1 from GT where name='upInvTrigger' and value='2007-05-10')
begin
  IF EXISTS (SELECT name FROM sysobjects
      WHERE name = 'trig_updateInv' AND type = 'TR')
  drop trigger trig_updateInv

  insert into GT(name,value) values('upInvTrigger','2007-05-10')
end

[2007-05-13 01:37:27]:
Query:
IF not EXISTS (SELECT name FROM sysobjects WHERE name = 'trig_updateInv' AND type = 'TR') select 1 else select 0

[2007-05-13 01:37:28]:
Query:
select 1 from users where uid='admin' and csum=Binary_Checksum('managernba')

[2007-05-13 01:37:28]:
Query:
select value from gt where name='GDecimalQty'

[2007-05-13 01:37:28]:
Query:
select value from gt where name='GDecimalPrice'

[2007-05-13 01:37:28]:
Query:
select value from gt where name='GDecimalAmt'

[2007-05-13 01:37:28]:
Query:
SELECT SERVERPROPERTY('MachineName')

[2007-05-13 01:37:28]:
Query:
SELECT SERVERPROPERTY('MachineName')

[2007-05-13 01:37:28]:
Query:
select value from gt where name='DBLastBack'

[2007-05-13 01:37:32]:
Query:
select spunit from unit order by 1

[2007-05-13 01:37:44]:
Query:
select ISNULL(max(cast(spno as integer)),0)+1 from sp where isnumeric(spno)=1

[2007-05-13 01:37:44]:
Query:
select space(50),space(50) where 1=2
 union select 'spno','1' from sp where spno='1' and spno<>''

[2007-05-13 01:37:44]:
SQL:
if object_id('tempdb..#temp1')>0 drop table #temp1
if object_id('tempdb..#temp2')>0 drop table #temp2
if object_id('tempdb..#temp3')>0 drop table #temp3

[2007-05-13 01:37:44]:
Query:

  select cpprice0=sum(a.Qty*b.Price0)
  into #temp1
  from bom a, sp b
  where a.spno='1' and a.ljno=b.spno

  select cpprice0, curr=(select curr from sp where spno='1')
  into #temp2
  from #temp1

  select cpprice0, cpprice=cpprice0/b.HB04
  from #temp2 a, hd_huobi b
  where a.curr=b.HB01

[2007-05-13 01:37:44]:
Query:
select space(50),space(50) where 1=2
 union select 'spno','1' from sp where spno='1' and spno<>'1'


[2007-05-13 01:38:34]:
Query:
if object_id('gt')>0 select value from GT where name='DBVer' else select 0

[2007-05-13 01:38:34]:
SQL:

--更新模块表
if not exists(select 1 from GT where name='upModeTable' and value='2007-01-03')
begin
  delete from userPriv
  delete from modeTable

  insert into modeTable(formName,Caption) values('f1','基本资料管理')
  insert into modeTable(formName,Caption) values('f201','采购管理.基本资料.供应商表')
  insert into modeTable(formName,Caption) values('f202','采购管理.基本资料.料件单价表')