unitdatamd.dfm

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

object DataMd: TDataMd
  OldCreateOrder = False
  Left = 352
  Top = 213
  Height = 184
  Width = 302
  object ADOConnection: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=dianfei;Data Source=DUANCLIENT\NetSDK'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    AfterConnect = ADOConnectionAfterConnect
    BeforeConnect = ADOConnectionBeforeConnect
    Left = 40
    Top = 8
  end
  object ADODataSetDetail: TADODataSet
    Connection = ADOConnection
    CursorType = ctStatic
    CommandText = 'select * from df_shoufei_cong'
    DataSource = DataSourceMain
    Parameters = <>
    Left = 216
    Top = 16
  end
  object ADOQueryMain: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from df_shoufei_zhu where '#23548#20986#26631#24535'='#39'F'#39)
    Left = 120
    Top = 16
  end
  object DataSourceMain: TDataSource
    DataSet = ADOQueryMain
    Left = 120
    Top = 64
  end
  object ADOSPImport: TADOStoredProc
    Connection = ADOConnection
    ProcedureName = 'sf_ImportData;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
      end
      item
        Name = '@lsh'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
      end
      item
        Name = '@FapiaoMx'
        Attributes = [paNullable]
        DataType = ftString
        Size = 2147483647
      end
      item
        Name = '@quzheng'
        Attributes = [paNullable]
        DataType = ftString
        Size = 1
      end
      item
        Name = '@quzhengws'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
      end
      item
        Name = '@OpName'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
      end>
    Left = 216
    Top = 64
  end
end