bas_standardprice.dfm

来自「一个MRPII系统源代码版本」· DFM 代码 · 共 137 行

inherited Frm_Bas_StandardPrice: TFrm_Bas_StandardPrice
  Left = -17
  Top = 131
  Caption = '物料计划价表'
  ClientHeight = 502
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '物料计划价表'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Order: TLabel
      Width = 6
      Caption = ''
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 459
    Height = 43
    inherited Image4: TImage
      Height = 43
    end
    object Label1: TLabel
      Left = 24
      Top = 16
      Width = 60
      Height = 12
      Caption = '物料描述：'
    end
    object DBText1: TDBText
      Left = 96
      Top = 16
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'ItemName'
      DataSource = DataSource
    end
  end
  inherited Pnl_Body: TPanel
    Height = 362
    inherited Image3: TImage
      Height = 362
    end
    inherited DBGridEh: TDBGridEh
      Height = 362
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      Columns = <
        Item
          FieldName = 'spstArtMonth'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '月份'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料代码'
          Width = 125
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料描述'
          Width = 250
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '计量单位'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'spPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '计划价'
          Width = 80
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    Left = 214
    Top = 49
    inherited Act_Copy: TAction
      Enabled = True
      Visible = True
      OnExecute = Act_CopyExecute
    end
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm;Data Source=NT2'
    CurSorType = ctStatic
    Left = 328
    Top = 56
    object AdoQry_MainspstArtMonth: TStringField
      FieldName = 'spstArtMonth'
      Origin = 'StandardPrice'
      FixedChAr = True
      Size = 7
    end
    object AdoQry_MainItemCode: TStringField
      FieldName = 'ItemCode'
      Origin = 'StandardPrice'
      Size = 16
    end
    object AdoQry_MainItemName: TStringField
      FieldName = 'ItemName'
      Origin = 'StandardPrice'
      Size = 60
    end
    object AdoQry_MainUomName: TStringField
      FieldName = 'UomName'
      Origin = 'StandardPrice'
      Size = 10
    end
    object AdoQry_MainspPrice: TFloatField
      FieldName = 'spPrice'
      Origin = 'StandardPrice'
    end
  end
  inherited DataSource: TDataSource
    Left = 397
    Top = 42
  end
end