unitdatamd.~dfm

电力行业前台收费程序,需要有后台SQL数据库,和电费管理系统配合应用.

object DataMd: TDataMd
  OldCreateOrder = False
  Left = 352
  Top = 213
  Height = 348
  Width = 302
  object ADOConnection: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=dianfei;Data Source=(local)\VSdotNET'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    AfterConnect = ADOConnectionAfterConnect
    BeforeConnect = ADOConnectionBeforeConnect
    Left = 40
    Top = 8
  end
  object ADOQueryPub: TADOQuery
    Connection = ADOConnection
    Parameters = <>
    Left = 112
    Top = 8
  end
  object ADOSPzuofeiYuJiao: TADOStoredProc
    Connection = ADOConnection
    ProcedureName = 'sf_zuofeiYuJiao;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@ID'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@ShouFeiXH'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@OpName'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end>
    Left = 160
    Top = 112
  end
  object ADOSPpringYuJiao: TADOStoredProc
    Connection = ADOConnection
    ProcedureName = 'sf_printYuJiao;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@ID'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@HuMing'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@HuHao'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@YuJiaoJE'
        Attributes = [paNullable]
        DataType = ftBCD
        NumericScale = 2
        Precision = 9
        Value = Null
      end
      item
        Name = '@OpName'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end>
    Left = 56
    Top = 112
  end
end