uconst.pas

水电管理系统,你们不妨看看怎么样?我再继续给你们别的

unit uConst;

interface

ResourceString
  //数据库连接
  strConnectString = 'Provider=Microsoft.Jet.OLEDB.4.0; ' +
                     'Data Source= %s\MDB\SDManager.mdb;Persist Security Info=False';
                     

  //数据库操作 SQL 语句 :
  //取单价
  cGetPrice      = 'Select t.PriceNumber from Meter k, Price t where k.MeterNO =''%S ''';
  //取超出部分的单价
  cGetQuotaPrice = 'Select t.ExceedPrice from Meter k, Price t where k.MeterNO = ''%s''';
  //取表的配额
  cMeterQuota    = 'select Quota from Meter where MeterNo = ''%s''';
  //表是不是存在？
  cIsMeterExist  = 'Select MeterNO from Meter where MeterNO like ''%s''';

  DeleteAllData = '如果你改变了使用单位名称，系统将删除所有的历史数据！并且不能恢复！';

  //错误提示
  ErrorInfo = '数据集打开错误！';
  ErrorConnectDataBase = '数据库连接错误！请检查数据库文件是不是在目录‘\MDB 下！’';

  DeleteWorkShop = '你确认要删除该车间(班组)吗? 这样将会删除该车间所有的下属班组！';
  DeleteHits        = '删除提示';
  ErrorRecordLocate = '表记录定位错!';


  //报表SQL
  AllTotalSQL_Before ='SELECT ' +
	'First(WorkShop.WrokShopName) AS F_WrokShopName,'   +
	'TakeMeter.MeterID AS F_MeterID,     '              +
	'First(MeterSort.MeterSortName) AS F_MeterSortNameSum, ' +
	'Sum(TakeMeter.CurValue) AS F_CurValue,      '       +
	'Sum(TakeMeter.Charge) AS F_Charge,      '           +
	'Sum(TakeMeter.QuotaCharge) AS F_QuotaCharge, '      +
	'First(Price.PriceNumber) AS F_PriceNumber,   '      +
	'First(Price.ExceedPrice) AS F_ExceedPrice,   '      +
	'Max(TakeMeter.TakeNumber) AS F_TakeNumber,  '       +
	'First(Meter.Quota) AS F_Quota,              '       +
	'First(Meter.BaseNumber) AS F_BaseNumber,   '        +
	'Sum(Meter.SubjoinNumber) AS F_SubjoinNumber,'       +
	'First(Meter.Multiple) AS F_Multiple,           '    +
    'sum(TakeMeter.Charge + TakeMeter.QuotaCharge) as F_ChargeTotal ' ;
    
   AllTotalSQL_After = 'FROM '+
	'WorkShop INNER JOIN (((MeterSort INNER JOIN Price ON MeterSort.MeterSortID = Price.MeterSortID) '+
	'INNER JOIN Meter ON (Price.PriceID = Meter.PriceID) AND (MeterSort.MeterSortID = Meter.MeterSort)) '+
    'INNER JOIN TakeMeter ON Meter.MeterNO = TakeMeter.MeterID) '+
    'ON WorkShop.WrokShopID = Meter.WorkShopID '+
    'WHERE ' +
    ' (((TakeMeter.TakeTime)>=#%s# And (TakeMeter.TakeTime)<=#%s#)) '+
    'GROUP BY  '           +
	' TakeMeter.MeterID '  +
    'HAVING (((Last(WorkShop.WorkShopLevel))=2))    '+
    'ORDER BY '              +
    'First(WorkShop.WrokShopName)';

  WorkshopTotal = ' FROM (((MeterSort INNER JOIN Price ON MeterSort.MeterSortID = Price.MeterSortID) '+
	'INNER JOIN Meter ON (Price.PriceID = Meter.PriceID) AND '        +
	'(MeterSort.MeterSortID = Meter.MeterSort)) INNER '               +
	'JOIN TakeMeter ON Meter.MeterNO = TakeMeter.MeterID) '           +
	'INNER JOIN WorkShop ON Meter.SubWorkShopID = WorkShop.WrokShopID '     +
    'WHERE (((TakeMeter.TakeTime)>=#%s# And (TakeMeter.TakeTime)<=#%s#)) '  +
    'GROUP BY TakeMeter.MeterID           '                                 +
    'HAVING (((Last(WorkShop.WorkShopLevel))<>1) AND ((First(Meter.WorkShopID))=%d))  '  +
    'ORDER BY First(WorkShop.WrokShopName)';

  WorkshopSQLDatia = ' SELECT  '      +
	'WorkShop.WrokShopName,    '      +
	'MeterSort.MeterSortName,  '      +
	'Price.PriceName,          '      +
	'First(Price.PriceNumber) AS F_PriceNumber,     ' +
	'First(Price.ExceedPrice) AS F_ExceedPrice,     ' +
	'Sum(TakeMeter.CurValue) AS F_CurValue,         ' +
	'Sum(TakeMeter.Charge) AS F_Charge,             ' +
	'Sum(TakeMeter.QuotaCharge) AS F_QuotaCharge,   ' +
	'Sum(Meter.Quota) AS F_Quota ,                  ' +
    'sum(TakeMeter.Charge + TakeMeter.QuotaCharge) as F_ChargeTotal, ' +
    'Sum(Meter.SubjoinNumber) AS F_SubjoinNumber '+
'FROM WorkShop INNER JOIN (((Price INNER JOIN MeterSort ON Price.MeterSortID = MeterSort.MeterSortID) '+
 '	INNER JOIN Meter ON (Price.PriceID = Meter.PriceID) AND                       '    +
  '	(MeterSort.MeterSortID = Meter.MeterSort)) INNER JOIN TakeMeter ON             '   +
   '	Meter.MeterNO = TakeMeter.MeterID) ON WorkShop.WrokShopID = Meter.WorkShopID ' +
'WHERE  (((TakeMeter.TakeTime)>=#%s# And (TakeMeter.TakeTime)<=#%s#))              '   +
'GROUP BY WorkShop.WrokShopName, MeterSort.MeterSortName, Price.PriceName            ' +
  ' ORDER BY WorkShop.WrokShopName';

  StrMeterInfo = 'SELECT Meter.MeterNO, First(Price.PriceNumber) AS PrNum,'         +
                 ' First(Price.ExceedPrice) AS ExceedPrice,'         +
                 ' First(Meter.BaseNumber) AS Bamber,'           +
                 ' First(Meter.MaxBound) as MaxBound,'               +
                 ' First(Meter.Quota) as Quota,'                     +
                 ' First(Meter.SubjoinNumber) as SubNumber,'     +
                 ' First(Meter.MeterSort) as MeterSort,'             +
                 ' First(Meter.Multiple) as Multiple,'               +
                 ' First(Meter.WorkShopID) as WorkShopID,'           +
                 ' First(Meter.SubWorkShopID) as SubWorkShopID,'     +
                 ' Count(1) AS iTakeMeterCount,'                     +
                 ' Sum(TakeMeter.Charge) AS cAllQuota,'              +
                 ' Sum(TakeMeter.QuotaCharge) AS cAllQuotaCharge,'   +
                 ' Sum(TakeMeter.CurValue) AS CurValue,'             +
                 ' Max(TakeMeter.TakeNumber) AS iPrioiTakeMeter'     +
                 ' FROM WorkShop INNER JOIN (((MeterSort INNER JOIN Meter ON MeterSort.MeterSortID ' +
                 ' = Meter.MeterSort) INNER JOIN Price ON (Price.PriceID = Meter.PriceID) '          +
                 ' AND (MeterSort.MeterSortID = Price.MeterSortID)) INNER JOIN TakeMeter '           +
                 ' ON Meter.MeterNO = TakeMeter.MeterID) ON WorkShop.WrokShopID = Meter.WorkShopID ' +
                 ' WHERE (((Meter.MeterNO)=''%s'') and ((TakeMeter.TakeTime) >= #%s#) and ((TakeMeter.TakeTime) < #%s#)) ' +
                 ' GROUP BY Meter.MeterNO';

implementation

end.