📄 error.log

📁 delphi 源码小型企业管理软件
💻 LOG
📖 第 1 页 / 共 5 页
字号:
上一页 1 2 3 45
  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:38:34]:
Query:
IF not EXISTS (SELECT name FROM sysobjects WHERE name = 'trig_updateInv' AND type = 'TR') select 1 else select 0

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

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

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

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

[2007-05-13 01:38:35]:
Query:
SELECT SERVERPROPERTY('MachineName')

[2007-05-13 01:38:35]:
Query:
SELECT SERVERPROPERTY('MachineName')

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

[2007-05-13 01:38:36]:
Query:
SELECT SERVERPROPERTY('MachineName')

[2007-05-13 01:38:39]:
Query:
select db_name(db_id())

[2007-05-13 01:38:40]:
SQL:
backup database minimis0  to disk='E:\mywork\WHL2\bin\DataBackup\DB2007-05-13_01-38-36.bak'

[2007-05-13 01:38:40]:
SQL:
delete from gt where name='DBLastBack'
insert into gt(name,value) values('DBLastBack','2007-05-13')

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


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

[2007-05-13 01:42:26]:
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:42:26]:
Query:
IF not EXISTS (SELECT name FROM sysobjects WHERE name = 'trig_updateInv' AND type = 'TR') select 1 else select 0

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

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

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

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

[2007-05-13 01:42:27]:
Query:
SELECT SERVERPROPERTY('MachineName')

[2007-05-13 01:42:27]:
Query:
SELECT SERVERPROPERTY('MachineName')

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

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


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

[2007-05-13 01:43:18]:
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:43:18]:
Query:
IF not EXISTS (SELECT name FROM sysobjects WHERE name = 'trig_updateInv' AND type = 'TR') select 1 else select 0

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

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

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

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

[2007-05-13 01:43:19]:
Query:
SELECT SERVERPROPERTY('MachineName')

[2007-05-13 01:43:19]:
Query:
SELECT SERVERPROPERTY('MachineName')

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

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

[2007-05-13 01:43:31]:
SQL:
delete from bom where spno='1'

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

[2007-05-13 01:43:46]:
Query:
select space(
上一页 1 2 3 45
💿 文件大小 1979 K
👤 上传用户 lixuecheng
📂 所属分类企业管理
🏷️ 相关标签

#delphi #源码 #企业管理 #软件
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -