mrp_enter_newmoh.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Enter_NewMoH: TFrm_Mrp_Enter_NewMoH
  Left = 220
  Top = 100
  Caption = '生产订单准备'
  ClientWidth = 711
  Position = poDefault
  Windowstate = wsMaximized
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 711
  end
  inherited Pnl_Title: TPanel
    Width = 711
    Caption = '生产订单准备'
    inherited Image2: TImage
      Width = 711
    end
  end
  inherited Pnl_Head: TPanel
    Width = 711
    inherited Image1: TImage
      Width = 711
    end
    inherited Lbl_Condition: TLabel
      Width = 84
      Caption = '订单行未全下达'
    end
    inherited Lbl_Order: TLabel
      Width = 168
      Caption = '部门代码/下单日期/生产订单号'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 416
    Width = 711
    Height = 25
    inherited Image4: TImage
      Width = 711
      Height = 25
    end
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 60
      Height = 12
      Caption = '部门标识：'
      TransParent = True
    end
    object Lbl_DeptFlag: TLabel
      Left = 72
      Top = 8
      Width = 6
      Height = 12
      TransParent = True
    end
    object Label3: TLabel
      Left = 264
      Top = 8
      Width = 72
      Height = 12
      Caption = '生产订单号：'
      TransParent = True
    end
    object Lbl_MoNo: TLabel
      Left = 344
      Top = 8
      Width = 6
      Height = 12
      TransParent = True
    end
    object Label5: TLabel
      Left = 505
      Top = 8
      Width = 84
      Height = 12
      Caption = '销售类型描述：'
      TransParent = True
    end
    object Lbl_SaleFlag: TLabel
      Left = 593
      Top = 8
      Width = 6
      Height = 12
      TransParent = True
    end
  end
  inherited Pnl_Body: TPanel
    Width = 711
    Height = 319
    inherited Image3: TImage
      Width = 711
      Height = 319
    end
    inherited DBGridEh: TDBGridEh
      Width = 711
      Height = 319
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      Columns = <
        Item
          FieldName = 'DeptCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '部门代码'
          Width = 55
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '部门名称'
          Width = 90
          KeyList.Strings = ()
        end
        Item
          Alignment = tArightJustify
          FieldName = 'MODATE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '下单日期'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MONO'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '生产订单号'
          Width = 90
          KeyList.Strings = ()
        end
        Item
          FieldName = 'StandardFlag'
          PickList.Strings = (
            '否'
            '是')
          Title.Alignment = taCenter
          Title.Caption = '标准任务'
          Width = 55
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'MORemArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 150
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ReferenceNo'
          PickList.Strings = ()
          Width = 60
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 493
    Top = 163
  end
  inherited ActionList: TActionList
    Left = 218
    Top = 174
  end
  inherited AdoQry_Head: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm;Data Source=ExtDATASERVER'
    CurSorType = ctStatic
    Filter = '(DeptCode='#39'ssss'#39')'
    SQL.Strings = (
      
        'Select Mo.*,Dept.DeptName,SysParam.SysParamCode,SysParam.SysPAra' +
        'mValuec'
      '       From Mo,SysParam,Dept'
      '       Where mo.DeptCode=Dept.DeptCode'
      '          And Substring(SysParamCode,1,8)='#39'SaleType'#39'         '
      '')
    Left = 224
    Top = 257
    object AdoQry_HeadMONO: TStringField
      FieldName = 'MONO'
      Origin = 'mo'
      Size = 16
    end
    object AdoQry_HeadDeptCode: TStringField
      FieldName = 'DeptCode'
      Origin = 'mo'
      Size = 8
    end
    object AdoQry_HeadMODATE: TDateTimeField
      FieldName = 'MODATE'
      Origin = 'mo'
      DisplayFormat = 'yyyy.mm.dd'
    end
    object AdoQry_HeadMORemArk: TStringField
      FieldName = 'MORemArk'
      Origin = 'mo'
      Size = 150
    end
    object AdoQry_HeadDeptName: TStringField
      FieldName = 'DeptName'
      Origin = 'Dept'
      Size = 40
    end
    object AdoQry_HeadSysParamCode: TStringField
      FieldName = 'SysParamCode'
      Origin = 'SysParam'
    end
    object AdoQry_HeadSysParamValuec: TStringField
      FieldName = 'SysParamValuec'
      Origin = 'SysParam'
      Size = 100
    end
    object AdoQry_HeadStandardFlag: TIntegerField
      FieldName = 'StandardFlag'
      Origin = 'Mo'
    end
    object AdoQry_HeadReferenceNo: TStringField
      DisplayLabel = '参考号'
      FieldName = 'ReferenceNo'
      Size = 30
    end
  end
  inherited DataSource: TDataSource
    OnDataChange = DataSourceDataChange
    Left = 312
    Top = 209
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 424
    Top = 201
  end
end