ad_enter_workload.dfm

一个MRPII系统源代码版本

inherited Frm_Ad_Enter_WorkLoad: TFrm_Ad_Enter_WorkLoad
  Left = 157
  Top = 47
  Caption = '工作量管理'
  ClientHeight = 494
  ClientWidth = 588
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 588
  end
  inherited Pnl_Title: TPanel
    Width = 588
    Caption = '工作量管理'
    inherited Image2: TImage
      Width = 588
    end
  end
  inherited Pnl_Head: TPanel
    Width = 588
    inherited Image1: TImage
      Width = 588
    end
    inherited Lbl_Order: TLabel
      Width = 72
      Caption = '固定资产编号'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 481
    Width = 588
    Height = 13
    inherited Image4: TImage
      Width = 588
      Height = 13
    end
  end
  inherited Pnl_Body: TPanel
    Width = 588
    Height = 384
    inherited Image3: TImage
      Width = 588
      Height = 384
    end
    inherited DBGridEh: TDBGridEh
      Width = 588
      Height = 384
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      Columns = <
        Item
          FieldName = 'AssetCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '固定资产编号'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'AssetName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '固定资产名称'
          Width = 150
          KeyList.Strings = ()
        end
        Item
          FieldName = 'YearMonth'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '月份'
          Width = 60
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Intending'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '工作总量'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WorkLoad'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '月工作量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PCDepreciation'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '单位折旧额'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Depreciation'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '月折旧额'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RemArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 180
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 533
    Top = 49
  end
  inherited ActionList: TActionList
    Left = 374
    Top = 51
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_Standard;Data Source=192.1' +
      '68.0.151;Use procedure for Prepare=1;Auto Translate=True;Packet ' +
      'Size=4096;Workstation ID=XYB'
    CurSorType = ctStatic
    SQL.Strings = (
      
        'select Ad_WorkLoad.AssetCode,Ad_AssetCard.AssetName,Ad_WorkLoad.' +
        'YearMonth'
      ',Ad_AssetCard.Intending,Ad_AssetCard.PeriodRate'
      
        ',Ad_WorkLoad.WorkLoad,Ad_WorkLoad.Depreciation,Ad_WorkLoad.RemAr' +
        'k '
      
        'from Ad_WorkLoad Left Join Ad_AssetCard On Ad_WorkLoad.AssetCode' +
        '=Ad_AssetCard.AssetCode'
      'Where Ad_AssetCard.DepreciationWay=2'
      'And  Ad_WorkLoad.YearMonth=Month(GetDate())')
    Left = 346
    Top = 276
    object AdoQry_MainAssetCode: TStringField
      FieldName = 'AssetCode'
      Origin = 'Ad_WorkLoad'
      Size = 16
    end
    object AdoQry_MainAssetName: TStringField
      FieldName = 'AssetName'
      Origin = 'Ad_AssetCard'
      Size = 60
    end
    object AdoQry_MainMonth: TStringField
      FieldName = 'YearMonth'
      Origin = 'Ad_WorkLoad'
      Size = 7
    end
    object AdoQry_MainIntending: TFloatField
      FieldName = 'Intending'
      Origin = 'Ad_AssetCard'
    end
    object AdoQry_MainPeriodRate: TFloatField
      FieldName = 'PCDepreciation'
      Origin = 'Ad_AssetCard'
    end
    object AdoQry_MainWorkLoad: TFloatField
      FieldName = 'WorkLoad'
      Origin = 'Ad_WorkLoad'
    end
    object AdoQry_MainDepreciation: TFloatField
      FieldName = 'Depreciation'
      Origin = 'Ad_WorkLoad'
    end
    object AdoQry_MainRemArk: TStringField
      FieldName = 'RemArk'
      Origin = 'Ad_WorkLoad'
      Size = 30
    end
  end
  inherited DataSource: TDataSource
    Left = 494
    Top = 41
  end
  inherited ExtPrintReport: TExtPrintReport
    Title1 = '人员主文件列表'
  end
end