sal_enter_shiporder_c1.dfm

来自「一个MRPII系统源代码版本」· DFM 代码 · 共 514 行 · 第 1/2 页

inherited Frm_Sal_Enter_ShipOrder_C1: TFrm_Sal_Enter_ShipOrder_C1
  Left = 62
  Top = 116
  Caption = '销售订单选择列表'
  ClientHeight = 401
  ClientWidth = 711
  FormStyle = fsNormal
  Position = poDesktopCenter
  Visible = False
  Windowstate = wsNormal
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Align = alNone
  end
  inherited Pnl_Title: TPanel
    Top = 0
    Width = 711
    Height = 3
    inherited Image2: TImage
      Width = 711
      Height = 3
    end
  end
  inherited Pnl_Head: TPanel
    Top = 3
    Width = 711
    Height = 0
    inherited Image1: TImage
      Width = 711
      Height = 0
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 340
    Width = 711
    Height = 61
    inherited Image4: TImage
      Width = 711
      Height = 61
    end
    object btn_ok: TButton
      Left = 263
      Top = 14
      Width = 74
      Height = 23
      Anchors = [akRight, akBottom]
      Caption = '确定(&O)'
      TabOrder = 0
      OnClick = btn_okClick
    end
    object btn_Cancel: TButton
      Left = 356
      Top = 14
      Width = 74
      Height = 23
      Anchors = [akRight, akBottom]
      Cancel = True
      Caption = '取消(&C)'
      ModalResult = 2
      TabOrder = 1
      OnClick = btn_CancelClick
    end
    object btn_reselect: TButton
      Left = 167
      Top = 14
      Width = 74
      Height = 23
      Anchors = [akRight, akBottom]
      Caption = '重选(&R)'
      TabOrder = 2
      OnClick = btn_reselectClick
    end
  end
  inherited Pnl_Body: TPanel
    Top = 3
    Width = 711
    Height = 337
    inherited Image3: TImage
      Width = 711
      Height = 337
    end
    inherited DBGridEh: TDBGridEh
      Width = 711
      Height = 337
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = False
      OnTitleClick = DBGridEhTitleClick
      FrozenCols = 4
      Columns = <
        Item
          FieldName = 'SloCheck'
          PickList.Strings = (
            '1'
            '0')
          Title.Alignment = taCenter
          Title.Caption = '标记'
          Title.Color = clActiveBOrder
          Title.Font.ChArset = GB2312_CHArSET
          Title.Font.Color = clBlue
          Title.Font.Height = -12
          Title.Font.Name = '宋体'
          Title.Font.Style = []
          Width = 31
          KeyList.Strings = (
            '1'
            '0')
          Checkboxes = True
        end
        Item
          FieldName = 'SloNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售订单号'
          Width = 72
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SloLineNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '订单行号'
          Width = 31
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料代码'
          Width = 71
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料名称'
          Width = 176
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemFalg'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料标识'
          Width = 205
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '单位'
          Width = 20
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SloQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '约定交货量'
          Width = 65
          KeyList.Strings = ()
        end
        Item
          FieldName = 'NoShipQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未制单量'
          Width = 53
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OnHandInv'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '可用库存'
          Width = 55
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DisedShipQty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'AbleShipQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '可制单量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '仓库代码'
          Width = 55
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '仓库名称'
          Width = 127
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhPositionCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货位代码'
          Width = 52
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhPositionName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货位名称'
          Width = 126
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BatchNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '批号'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyCode'
          PickList.Strings = ()
          Width = 82
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TaxRate_Percent'
          PickList.Strings = ()
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 357
    Top = 123
  end
  inherited ActionList: TActionList
    Left = 256
    Top = 48
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString =