dm.dfm

简单的电力计息系统（针对用友财务系统）

object FDM: TFDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 274
  Top = 201
  Height = 297
  Width = 334
  object aqTemp: TADOQuery
    Connection = DBConn
    Parameters = <>
    Left = 32
    Top = 88
  end
  object aqExec: TADOQuery
    Connection = DBConn
    Parameters = <>
    Left = 80
    Top = 88
  end
  object ADOCommand: TADOCommand
    Connection = DBConn
    Parameters = <>
    Left = 104
    Top = 16
  end
  object OpenDlg: TRzOpenDialog
    Options = [osoHideReadOnly, osoOverwritePrompt, osoAllowTree, osoShowHints, osoOleDrag, osoOleDrop, osoShowHidden]
    Filter = 'pic|*.jpg'
    DefaultExt = '*.exe'
    Left = 184
    Top = 88
  end
  object SaveDlg: TRzSaveDialog
    Options = [osoHideReadOnly, osoOverwritePrompt, osoShareAware, osoShowHints, osoOleDrag, osoOleDrop, osoShowHidden]
    Filter = #20840#37096#25991#20214#65288'*.*'#65289'|*.*|execl(*.xls)|*.xls'
    Left = 240
    Top = 88
  end
  object aqTmp: TADOQuery
    Connection = DBConn
    Parameters = <>
    Left = 136
    Top = 88
  end
  object aqShare: TADOQuery
    Connection = DBConn
    Parameters = <>
    Left = 96
    Top = 144
  end
  object aqAcc_sum: TADOQuery
    Connection = DBConn
    LockType = ltReadOnly
    Parameters = <>
    Left = 32
    Top = 144
  end
  object aqAcc_Voucher: TADOQuery
    Connection = DBConn
    LockType = ltReadOnly
    Parameters = <>
    Left = 40
    Top = 200
  end
  object atKM: TADOTable
    Connection = DBConn
    Left = 152
    Top = 144
  end
  object DBConn: TADOConnection
    LoginPrompt = False
    Left = 24
    Top = 16
  end
  object aqUser: TADOQuery
    Connection = DBConn
    LockType = ltReadOnly
    Parameters = <>
    Left = 112
    Top = 200
  end
  object aqKm: TADOQuery
    Connection = DBConn
    LockType = ltReadOnly
    Parameters = <>
    Left = 168
    Top = 200
  end
  object aqCreateAccRate: TADOQuery
    Connection = DBConn
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      'use pubs'
      ''
      
        'if exists (select * from dbo.sysobjects where id = object_id(N'#39'[' +
        'dbo].[Acc_Rate]'#39') and OBJECTPROPERTY(id, N'#39'IsUserTable'#39') = 1)  d' +
        'rop table [dbo].[Acc_Rate]'
      ''
      
        'CREATE TABLE [dbo].[Acc_Rate] ([KeyID] [int] IDENTITY (1, 1) NOT' +
        ' NULL ,[Kmbh] [varchar] (20) NOT NULL , [Pzbh] [int] NOT NULL ,[' +
        'PzDate] [datetime] NULL ,[Peroid] [int] NOT NULL ,[biller] [varc' +
        'har] (16) NOT NULL ,[checker] [varchar] (16) NOT NULL ,[booker] ' +
        '[varchar] (16) NOT NULL ,[amount] [money] NOT NULL ,[bqye] [mone' +
        'y] NOT NULL ,[qcye] [money] NOT NULL ,[rate] [money] NOT NULL ,[' +
        'js] [money] NOT NULL ,[lx] [money] NOT NULL ,[kmmc] [varchar] (8' +
        '0) NOT NULL ) ON [PRIMARY]'
      ''
      ''
      
        'ALTER TABLE [dbo].[Acc_Rate] WITH NOCHECK ADD CONSTRAINT [PK_Acc' +
        '_Rate] PRIMARY KEY  CLUSTERED ([KeyID])  ON [PRIMARY] '
      ''
      ''
      
        'ALTER TABLE [dbo].[Acc_Rate] ADD CONSTRAINT [DF_Acc_Rate_Kmbh] D' +
        'EFAULT ('#39#39') FOR [Kmbh],CONSTRAINT [DF_Acc_Rate_Pzbh] DEFAULT (0)' +
        ' FOR [Pzbh],CONSTRAINT [DF_Acc_Rate_biller] DEFAULT ('#39#39') FOR [bi' +
        'ller],CONSTRAINT [DF_Acc_Rate_checker] DEFAULT ('#39#39') FOR [checker' +
        '],CONSTRAINT [DF_Acc_Rate_booker] DEFAULT ('#39#39') FOR [booker],CONS' +
        'TRAINT [DF_Acc_Rate_amount] DEFAULT (0) FOR [amount],CONSTRAINT ' +
        '[DF_Acc_Rate_bqye] DEFAULT (0) FOR [bqye],CONSTRAINT [DF_Acc_Rat' +
        'e_qcye] DEFAULT (0) FOR [qcye],CONSTRAINT [DF_Acc_Rate_rate] DEF' +
        'AULT (0) FOR [rate],CONSTRAINT [DF_Acc_Rate_js] DEFAULT (0) FOR ' +
        '[js],CONSTRAINT [DF_Acc_Rate_kmmc] DEFAULT ('#39#39') FOR [kmmc],CONST' +
        'RAINT [DF_Acc_Rate_lx] DEFAULT (0) FOR [lx]'
      ''
      
        'if exists (select * from dbo.sysobjects where id = object_id(N'#39'[' +
        'dbo].[insert_Acc_Rate_1]'#39') and OBJECTPROPERTY(id, N'#39'IsProcedure'#39 +
        ') = 1)  drop procedure [dbo].[insert_Acc_Rate_1]'
      ''
      ''
      
        'CREATE PROCEDURE [dbo].[insert_Acc_Rate_1](@Kmbh_1 [varchar](20)' +
        ', @Pzbh_2 [int], @PzDate_3 [datetime], @Peroid_4 [int], @biller_' +
        '5 [varchar](16), @checker_6 [varchar](16), @booker_7 [varchar](1' +
        '6), @amount_8 [money], @bqye_9 [money], @qcye_10 [money], @rate_' +
        '11 [money], @js_12 [money], @lx_13 [money],  @kmmc_14 [varchar] ' +
        '(80)) AS INSERT INTO [dbo].[Acc_Rate]  ([Kmbh], [Pzbh], [PzDate]' +
        ', [Peroid], [biller], [checker], [booker], [amount], [bqye], [qc' +
        'ye], [rate], [js], [lx], [kmmc])  VALUES (@Kmbh_1, @Pzbh_2, @PzD' +
        'ate_3, @Peroid_4, @biller_5, @checker_6, @booker_7, @amount_8, @' +
        'bqye_9, @qcye_10, @rate_11, @js_12, @lx_13, @kmmc_14)'
      ''
      'use master')
    Left = 240
    Top = 200
  end
  object aqRateHz: TADOQuery
    Connection = DBConn
    LockType = ltReadOnly
    Parameters = <>
    Left = 256
    Top = 16
  end
  object aqRateMx: TADOQuery
    Connection = DBConn
    LockType = ltReadOnly
    Parameters = <>
    Left = 184
    Top = 16
  end
end