datadmp.dfm

二次开发模块 一、条形码的批量生成

object DataDm: TDataDm
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 192
  Top = 107
  Height = 293
  Width = 293
  object ConUfsystem: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=UFSystem;Data Source=.\;Use Procedure for Prepare=1;A' +
      'uto Translate=True;Packet Size=4096;Workstation ID=CW1;Use Encry' +
      'ption for Data=False;Tag with column collation when possible=Fal' +
      'se'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 32
    Top = 32
  end
  object QryAcc: TADOQuery
    Connection = ConUfsystem
    Parameters = <>
    SQL.Strings = (
      
        'Select UA_Account.cAcc_Id,UA_Account.cAcc_Name From UA_Account O' +
        'rder By UA_Account.cAcc_Id')
    Left = 96
    Top = 32
  end
  object QryAccYear: TADOQuery
    Connection = ConUfsystem
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT iYear'
      'FROM UA_Account_sub'
      'WHERE (iYear <> 9999) AND (cAcc_Id = '#39'001'#39')'
      'GROUP BY iYear'
      'Order By iYear')
    Left = 160
    Top = 32
  end
  object ConDataSys: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=SysData;Data Source=.\;Use Procedure for Prepare=1;Au' +
      'to Translate=True;Packet Size=4096;Workstation ID=CW1;Use Encryp' +
      'tion for Data=False;Tag with column collation when possible=Fals' +
      'e'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 32
    Top = 104
  end
  object QryUser: TADOQuery
    Connection = ConDataSys
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Users')
    Left = 96
    Top = 104
  end
  object AdoConUfsoft: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=UFDATA_999_2003;Data Source=.\;Use Procedure for Prep' +
      'are=1;Auto Translate=True;Packet Size=4096;Workstation ID=CW1;Us' +
      'e Encryption for Data=False;Tag with column collation when possi' +
      'ble=False'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 32
    Top = 176
  end
  object qryCus: TADOQuery
    Connection = AdoConUfsoft
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select cCuscode,cCusName from customer'
      'Order By cCusName')
    Left = 96
    Top = 168
  end
  object ConDestUfsoft: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=XMXD1234;Data Source=.\;Use Procedure for Prepare=1;A' +
      'uto Translate=True;Packet Size=4096;Workstation ID=CW1;Use Encry' +
      'ption for Data=False;Tag with column collation when possible=Fal' +
      'se'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 168
    Top = 104
  end
end