⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 uconststring.dfm

📁 delphi 源码 小型企业管理软件
💻 DFM
📖 第 1 页 / 共 3 页
字号:
object frmConstString: TfrmConstString
  Left = 184
  Top = 128
  Width = 696
  Height = 480
  Caption = 'frmConstString'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 688
    Height = 446
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'TabSheet1'
      object memoDefault: TMemo
        Left = 16
        Top = 24
        Width = 649
        Height = 369
        Lines.Strings = (
          '--BEGIN--CreateIndex.SQL'
          
            '  IF not EXISTS (SELECT name FROM sysindexes WHERE name = '#39'poBod' +
            'y_idx'#39')'
          '  create clustered index poBody_idx on poBody(poid)'
          ''
          
            '  IF not EXISTS (SELECT name FROM sysindexes WHERE name = '#39'invBo' +
            'dy_idx'#39')'
          '  create clustered index invBody_idx on invBody(invid)'
          ''
          
            '  IF not EXISTS (SELECT name FROM sysindexes WHERE name = '#39'invHe' +
            'ad_idx'#39')'
          '  create clustered index invHead_idx on invHead(invid)'
          ''
          
            '  IF not EXISTS (SELECT name FROM sysindexes WHERE name = '#39'sp_id' +
            'x'#39')'
          '  create clustered index sp_idx on sp(spno)'
          '--END--CreateIndex.SQL'
          ''
          '--BEGIN--DBCheck.SQL'
          '--'#26356#26032#27169#22359#34920
          
            'if not exists(select 1 from GT where name='#39'upModeTable'#39' and valu' +
            'e='#39'2007-01-03'#39')'
          'begin'
          '  delete from userPriv'
          '  delete from modeTable'
          ''
          '  insert into modeTable(formName,Caption) values('#39'f1'#39','#39#22522#26412#36164#26009#31649#29702#39')'
          
            '  insert into modeTable(formName,Caption) values('#39'f201'#39','#39#37319#36141#31649#29702'.'#22522#26412 +
            #36164#26009'.'#20379#24212#21830#34920#39')'
          
            '  insert into modeTable(formName,Caption) values('#39'f202'#39','#39#37319#36141#31649#29702'.'#22522#26412 +
            #36164#26009'.'#26009#20214#21333#20215#34920#39')'
          
            '  insert into modeTable(formName,Caption) values('#39'f203'#39','#39#37319#36141#31649#29702'.'#22522#26412 +
            #36164#26009'.'#20184#27454#26465#20214#34920#39')'
          
            '  insert into modeTable(formName,Caption) values('#39'f221'#39','#39#37319#36141#31649#29702'.'#21333#25454 +
            #36164#26009'.'#37319#36141#24635#34920#39')'
          
            '  insert into modeTable(formName,Caption) values('#39'f222'#39','#39#37319#36141#31649#29702'.'#21333#25454 +
            #36164#26009'.'#37319#36141#21333#39')'
          ''
          
            '  insert into modeTable(formName,Caption) values('#39'f301'#39','#39#19994#21153#31649#29702'.'#22522#26412 +
            #36164#26009'.'#23458#25143#34920#39')'
          
            '  insert into modeTable(formName,Caption) values('#39'f302'#39','#39#19994#21153#31649#29702'.'#22522#26412 +
            #36164#26009'.'#25104#21697#21333#20215#39')'
          
            '  insert into modeTable(formName,Caption) values('#39'f321'#39','#39#19994#21153#31649#29702'.'#21333#25454 +
            #36164#26009'.'#35746#36141#21333#39')'
          
            '  insert into modeTable(formName,Caption) values('#39'f341'#39','#39#19994#21153#31649#29702'.'#32479#35745 +
            #36164#26009'.'#23545#24080#21333#39')'
          
            '  insert into modeTable(formName,Caption) values('#39'f342'#39','#39#19994#21153#31649#29702'.'#32479#35745 +
            #36164#26009'.'#35746#21333#27424#36135#24773#20917#34920#39')'
          ''
          '  insert into modeTable(formName,Caption) values('#39'f3'#39','#39#32479#35745#26597#35810#39')'
          '  insert into modeTable(formName,Caption) values('#39'f4'#39','#39#36827#20986#20179#21333#31649#29702#39')'
          ''
          '  insert into GT(name,value) values('#39'upModeTable'#39','#39'2007-01-03'#39')'
          'end'
          ''
          '--'#26356#26032#20379#24212#21830#31867#21035#34920
          
            'if not exists(select 1 from GT where name='#39'upSupplierType'#39' and v' +
            'alue='#39'2007-05-06'#39')'
          'begin'
          '  delete from SupplierType'
          ''
          '  insert into SupplierType(typeName) values('#39#20116#37329#39')'
          '  insert into SupplierType(typeName) values('#39#29627#29827#39')'
          '  insert into SupplierType(typeName) values('#39#22609#33014#39')'
          '  insert into SupplierType(typeName) values('#39#30005#22120#39')'
          '  insert into SupplierType(typeName) values('#39#21253#35013#39')'
          ''
          
            '  insert into GT(name,value) values('#39'upSupplierType'#39','#39'2007-05-06' +
            #39')'
          'end'
          ''
          '--'#26356#26032#36135#24065#34920
          
            'if not exists(select 1 from GT where name='#39'upHuobi'#39' and value='#39'2' +
            '007-05-08'#39')'
          'begin'
          '  delete from HD_HuoBi'
          ''
          
            '  insert into HD_HuoBi (HBCode,HB01,HB02,HB03,HB04)values ('#39'110'#39 +
            ','#39#28207#24065#39','#39'HKD'#39','#39#39',1);'
          
            '  insert into HD_HuoBi (HBCode,HB01,HB02,HB03,HB04)values ('#39'142'#39 +
            ','#39#20154#27665#24065#39','#39'CNY'#39','#39#39',1);'
          
            '  insert into HD_HuoBi (HBCode,HB01,HB02,HB03,HB04)values ('#39'502'#39 +
            ','#39#32654#20803#39','#39'USD'#39','#39#39',7.83);'
          ''
          '  insert into GT(name,value) values('#39'upHuobi'#39','#39'2007-05-08'#39')'
          'end'
          ''
          '--'#26356#26032#20184#27454#26465#20214#34920
          
            'if not exists(select 1 from GT where name='#39'upPayTerm'#39' and value=' +
            #39'2007-05-06'#39')'
          'begin'
          '  delete from payTerm'
          ''
          '  insert into payTerm (ptName,ptDelayDays)values ('#39#29616#37329#39',0);'
          '  insert into payTerm (ptName,ptDelayDays)values ('#39#26376#32467'30'#22825#39',30);'
          '  insert into payTerm (ptName,ptDelayDays)values ('#39#26376#32467'60'#22825#39',60);'
          ''
          '  insert into GT(name,value) values('#39'upPayTerm'#39','#39'2007-05-06'#39')'
          'end'
          ''
          
            'if not exists(select 1 from GT where name='#39'updateData'#39' and value' +
            '='#39'2007-05-07'#39')'
          'begin'
          '  delete from kh where khType<>0 and khType<>1'
          ''
          '  delete from GT where name='#39'sys_curr'#39
          '  insert into GT(name,value) values('#39'sys_curr'#39','#39#20154#27665#24065#39')'
          ''
          '  insert into GT(name,value) values('#39'updateData'#39','#39'2007-05-07'#39')'
          'end'
          ''
          '--'#26356#26032#35302#21457#22120
          
            'if not exists(select 1 from GT where name='#39'upInvTrigger'#39' and val' +
            'ue='#39'2007-05-14'#39')'
          'begin'
          '  IF EXISTS (SELECT name FROM sysobjects'
          '      WHERE name = '#39'trig_updateInv'#39' AND type = '#39'TR'#39')'
          '  drop trigger trig_updateInv'
          ''
          '  IF EXISTS (SELECT name FROM sysobjects'
          '      WHERE name = '#39'trig_updateKHPrice'#39' AND type = '#39'TR'#39')'
          '  drop trigger trig_updateKHPrice'
          ''
          '  insert into GT(name,value) values('#39'upInvTrigger'#39','#39'2007-05-14'#39')'
          'end'
          '--END--DBCheck.SQL'
          ''
          '--BEGIN--GetTableInternalID.SQL'
          'declare @id integer'
          ''
          'select id0=%1:s into #t1 from %0:s where %2:s order by %1:s'
          ''
          'select id0,id=identity(int,1,1) into #t2 from #t1 order by 1'
          ''
          'select @id=min(id) from #t2 where id0<>id'
          'if @id is NULL select @id=ISNULL(max(id0),0)+1 from #t1'
          'select @id'
          ''
          'drop table #t1'
          'drop table #t2'
          '--END--GetTableInternalID.SQL'
          ''
          '--BEGIN--CheckTableGT.SQL'
          'IF not EXISTS (SELECT name FROM sysobjects WHERE name = '#39'gt'#39')'
          'CREATE TABLE [gt] ('
          #9'[name] [varchar] (100)  NULL ,'
          #9'[value] [varchar] (255)  NULL'
          ')'
          '--END--CheckTableGT.SQL'
          ''
          '--BEGIN--InitUser.SQL'
          '--'#22686#21152#21021#22987#29992#25143
          'if not exists(select 1 from users )'
          '  insert into users(uid,uname,csum)'
          '  values('#39'admin'#39','#39#31995#32479#31649#29702#21592#39',Binary_CheckSum('#39'managernba'#39'))'
          '--END--InitUser.SQL'
          ''
          '--BEGIN--DBTabVer'
          'gt=20070101'
          'kh=20070103'
          'modeTable=20070101'
          'userPriv=20070101'
          'users=20070101'
          'LookupTab=20070101'
          'sp=20070514'
          'bom=20070101'
          'unit=20070101'
          'poBody=20070101'
          'poHead=20070101'
          'mrpHead=20070108'
          'mrp=20070112'
          'boBody=20070102'
          'boHead=20070103'
          'moBody=20070104'
          'moHead=20070101'
          'invBody=20070520'
          'invHead=20070516'
          'SupplierType=20070101'
          'HD_HuoBi=20070101'
          'payTerm=20070101'
          'InvAudit=20070105'
          'khPrice=20070515'
          'khPriceHist=20070514'
          '--END--DBTabVer'
          ''
          '--BEGIN--CreateDB.SQL'
          ''
          'CREATE TABLE [khPrice] ('
          '        [rid] [varchar] (20)  NULL,'
          #9'[khid] [varchar] (20)  not NULL,'
          '        [spno] [varchar] (30)  not NULL ,'
          '        [price] [numeric](18, 4) NULL ,'
          '        [curr] [varchar] (10) NULL ,'
          '        [Price0] [numeric](18, 4) NULL ,  --'#26412#24065#21333#20215
          '        [moq] [decimal](18, 4) NULL , --minimal order qty, '#26368#23567#23450#36141#37327
          '        [modiDate] [datetime] NULL DEFAULT (getdate()),'
          '        [modifier] [varchar] (30)  NULL ,'
          '        [remark] [varchar] (50)  NULL'
          ')'
          ''
          'CREATE TABLE [khPriceHist] ('
          #9'[khid] [varchar] (20)  NULL,'
          '        [spno] [varchar] (30)  NULL ,'
          '        [price] [numeric](18, 4) NULL ,'
          '        [curr] [varchar] (10) NULL ,'
          '        [Price0] [numeric](18, 4) NULL ,  --'#26412#24065#21333#20215
          
            '        [moq] [decimal](18, 4) NULL , --minimal order qty, '#26368#23567#23450#36141#37327 +
            '        '
          '        [modiDate] [datetime] NULL DEFAULT (getdate()),'
          '        [modifier] [varchar] (30)  NULL ,'
          '        [remark] [varchar] (50)  NULL ,'
          '        [expiryDate] [datetime] NULL DEFAULT (getdate()),'
          '        [expiryID] [int] NULL  --'#21830#21697#21333#20215#30340#22833#25928#27425#25968
          ')'
          ''
          'CREATE TABLE [InvAudit] ('
          #9'[opName] [varchar] (20)  NULL ,'
          #9'[opDate] [datetime] NULL DEFAULT (getdate()),'
          #9'[spno] [varchar] (30)  NULL ,'
          '        [invid] [varchar] (20)  NULL ,'
          '        [ioType] [smallint] NULL ,'
          #9'[Qty] [numeric](18, 4) NULL'
          ')'
          ''
          'CREATE TABLE [payTerm] ('
          #9'[ptName] [varchar] (20)  NULL,'
          '        [ptDelayDays] [smallint] NULL,'
          '        [remark] [varchar] (50)  NULL'
          ')'
          ''
          'CREATE TABLE [HD_HuoBi] ('
          #9'[HBCode] [varchar] (20)  NULL,'
          '        [HB01] [varchar] (20)  NULL,'
          '        [HB02] [varchar] (20)  NULL,'
          '        [HB03] [varchar] (20)  NULL,'
          '        [HB04] [numeric](18, 4) NULL'
          ')'
          ''
          'CREATE TABLE [SupplierType] ('
          #9'[typeName] [varchar] (20)  NULL'
          ')'
          ''
          'CREATE TABLE [invBody] ('
          #9'[invid] [varchar] (20)  NULL ,'
          #9'[spno] [varchar] (30)  NULL ,'
          #9'[qty] [numeric](18, 4) NULL ,'
          #9'[price] [numeric](18, 4) NULL ,'
          #9'[amt] [numeric](18, 4) NULL ,'
          '        [qty2] [numeric](18, 4) NULL ,  --IQC'#26816#39564#21512#26684#25968#37327
          #9'[rem] [varchar] (30)  NULL'
          ')'
          ''
          ''
          'CREATE TABLE [invHead] ('
          #9'[invid] [varchar] (20)  NULL ,'
          '        [poid] [varchar] (20)  NULL ,'
          #9'[khid] [varchar] (20)  NULL ,'
          #9'[invDate] [datetime] NULL ,'
          #9'[invType] [varchar] (20)  NULL ,'
          #9'[ioType] [smallint] NULL ,     --1: in, -1: out, 0'#65306#20837#24211#24453#26816
          '        [spType] [smallint] NULL ,     --1: '#25104#21697', 0: '#26009#20214
          #9'[ifok] [varchar] (10)  NULL    -- '#26816#39564#23436#27605#65292#24453#26816
          ')'
          ''
          'CREATE TABLE [moBody] ('
          #9'[moid] [varchar] (20)  NULL ,'
          #9'[spno] [varchar] (30)  NULL ,'
          #9'[qty] [numeric](18, 4) NULL ,'
          '        [dept] [varchar] (20)  NULL'
          ')'
          ''
          ''
          'CREATE TABLE [moHead] ('
          #9'[moid] [varchar] (20)  NULL ,'
          #9'[khid] [varchar] (20)  NULL ,'
          #9'[needdate] [datetime] NULL ,'
          #9'[moDate] [datetime] NULL ,'
          #9'[poid] [varchar] (20)  NULL ,'
          #9'[ifok] [char] (2)  NULL'
          ')'
          ''
          'CREATE TABLE [boBody] ('
          #9'[boid] [varchar] (20)  NULL ,'
          #9'[ljno] [varchar] (30)  NULL ,'
          #9'[qty] [numeric](18, 4) NULL ,'
          #9'[price] [numeric](18, 4) NULL ,'
          #9'[amt] [numeric](18, 4) NULL'
          ')'
          ''
          ''
          'CREATE TABLE [boHead] ('
          #9'[boid] [varchar] (20)  NULL ,'
          '        [poid] [varchar] (20)  NULL ,'
          #9'[khid] [varchar] (20)  NULL ,'
          #9'[bodate] [datetime] NULL ,'
          #9'[needDate] [datetime] NULL ,'
          #9'[ifok] [char] (2)  NULL'
          ')'
          ''
          'CREATE TABLE [mrpHead] ('
          #9'[poid] [varchar] (20)  NULL ,'
          '        [needDate] [datetime] NULL ,'
          '        [status] [varchar] (10)  NULL ,      --'#29366#24577#65306#24453#25209#65292#25209#20934
          '        [boid] [varchar] (20)  NULL'

⌨️ 快捷键说明

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