mrp_enter_ssalternativeinfo2.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Enter_SsAlterNativeInfo2: TFrm_Mrp_Enter_SsAlterNativeInfo2
  Left = 46
  Top = 104
  Caption = '替代件建议分配'
  ClientWidth = 695
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 695
    inherited ToolBar: TToolBar
      inherited TlBtn_Modify: TToolButton
        Visible = False
      end
      inherited TlBtn_Delete: TToolButton
        Visible = False
      end
      inherited ToolButton6: TToolButton
        Hint = '分配建议(Enter)'
        Caption = '分配建议'
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 695
    Caption = '替代件建议分配'
    inherited Image2: TImage
      Width = 695
    end
  end
  inherited Pnl_Head: TPanel
    Width = 695
    Height = 54
    inherited Image1: TImage
      Width = 695
      Height = 54
    end
    inherited Lbl_Order: TLabel
      Width = 48
      Caption = '物料标识'
    end
  end
  inherited Pnl_Hint: TPanel
    Width = 695
    inherited Image4: TImage
      Width = 695
    end
  end
  inherited Pnl_Body: TPanel
    Top = 111
    Width = 695
    Height = 292
    inherited Image3: TImage
      Width = 695
      Height = 292
    end
    inherited DBGridEh: TDBGridEh
      Width = 695
      Height = 292
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = False
      OnDblClick = Act_LookExecute
      FrozenCols = 3
      Columns = <
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Title.Caption = '物料名称'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemFlag'
          PickList.Strings = ()
          Title.Caption = '物料标识'
          Width = 200
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Width = 32
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ssdate'
          PickList.Strings = ()
          Title.Caption = '计划约定交货日'
          Width = 99
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Sysqty'
          PickList.Strings = ()
          Title.Caption = '计划量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'duedate'
          PickList.Strings = ()
          Title.Caption = '计划约定开工日'
          Width = 97
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 197
    Top = 147
  end
  inherited ActionList: TActionList
    Left = 176
    Top = 208
    inherited Act_Look: TAction
      Enabled = True
      Visible = True
    end
    inherited Act_auto: TAction
      Caption = '分配建议'
      Hint = '分配建议(Enter)'
      ShortCut = 0
      OnExecute = Act_LookExecute
    end
  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.100;Use procedure for Prepare=1;Auto Translate=True;Packet ' +
      'Size=4096;Workstation ID=XYB'
    BeforeInsert = AdoQry_MainBeforeInsert
    SQL.Strings = (
      'select PurchaseApply.ItemCode,'
      '                 ItemName, '
      
        '                 PurchaseApply.ItemCode+'#39' '#39'+ItemName  as ItemFla' +
        'g,'
      '                 UomName, '
      '                 IsAssign, '
      
        '                 convert(varchAr,PurchaseApply.ToDate,102) as To' +
        'Date,'
      '                 PurchaseApply.SsreleaseDate,'
      '                 PlanDueDate as  duedate,   '
      '                 ssqty,           '
      '                 ssdate=PlanReleaseDate,     '
      '                 ssSysInfoflag=1,        '
      '                 Sysqty=ssQty'
      '--            into #tmpalterssInfo  '
      '            from PurchaseApply                       '
      
        '            left join Item on PurchaseApply.ItemCode=Item.ItemCo' +
        'de '
      '            left join Uom on Item.UomCode=Uom.UomCode '
      '            where IsRefill=1                   '
      '              and IsAssign=0 '
      '')
    Left = 232
    Top = 233
    object AdoQry_MainItemCode: TStringField
      DisplayLabel = '物料代码'
      FieldName = 'ItemCode'
      Origin = '#TmpAlterssInfo'
      Size = 16
    end
    object AdoQry_MainItemName: TStringField
      DisplayLabel = '物料描述'
      FieldName = 'ItemName'
      Origin = '#TmpAlterssInfo'
      Size = 80
    end
    object AdoQry_MainUomName: TStringField
      DisplayLabel = '单位'
      FieldName = 'UomName'
      Origin = '#TmpAlterssInfo'
      Size = 10
    end
    object AdoQry_MainIsAssign: TIntegerField
      FieldName = 'IsAssign'
      Origin = '#TmpAlterssInfo'
    end
    object AdoQry_Mainduedate: TDateTimeField
      DisplayLabel = '计划开工日'
      FieldName = 'duedate'
      Origin = '#TmpAlterssInfo'
    end
    object AdoQry_Mainssqty: TFloatField
      DisplayLabel = '计划量'
      FieldName = 'ssqty'
      Origin = '#TmpAlterssInfo'
    end
    object AdoQry_Mainssdate: TDateTimeField
      FieldName = 'ssdate'
      Origin = '#TmpAlterssInfo'
    end
    object AdoQry_MainSysqty: TFloatField
      FieldName = 'Sysqty'
      Origin = '#TmpAlterssInfo'
    end
    object AdoQry_MainItemFlag: TStringField
      FieldName = 'ItemFlag'
      Origin = '#TmpAlterssInfo'
      ReadOnly = True
      Size = 97
    end
    object AdoQry_MainSSSysInfoFlag: TIntegerField
      FieldName = 'SSSysInfoFlag'
    end
    object AdoQry_MainSsreleaseDate: TDateTimeField
      FieldName = 'SsreleaseDate'
    end
    object AdoQry_MainToDate: TStringField
      FieldName = 'ToDate'
      ReadOnly = True
      Size = 30
    end
  end
  inherited DataSource: TDataSource
    Left = 368
    Top = 241
  end
end