sal_enter_saleorderh.dfm

一个MRPII系统源代码版本

inherited Frm_Sal_Enter_SaleOrderH: TFrm_Sal_Enter_SaleOrderH
  Left = 213
  Top = 221
  Caption = '销售订单'
  Windowstate = wsMaximized
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '销售订单'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Order: TLabel
      Width = 102
      Caption = '客户代码/下单日期'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      FrozenCols = 4
      Columns = <
        Item
          FieldName = 'CustomerCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '客户代码'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CustomerName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '客户名称'
          Width = 257
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CustomerFalg'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '客户标识'
          Width = 137
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CreateDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '下单日期'
          Width = 65
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SloNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售订单号'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleTypeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售类型'
          Width = 57
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleDeptCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售部门代码'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售部门名称'
          Width = 92
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleDeptFalg'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售部门标志'
          Width = 126
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售人员代码'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售人员名称'
          Width = 89
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleEmployeeFalg'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售人员标志'
          Width = 95
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货币代码'
          Width = 55
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货币名称'
          Width = 73
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyFalg'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货币标志'
          Width = 127
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TaxRate_Percent'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售税率'
          Width = 63
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayTermCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '付款条款代码'
          Width = 83
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayTermName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '付款条款'
          Width = 150
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CreateEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '制单人员代码'
          Width = 79
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CreateEmployeeFalg'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '制单人员标志'
          Width = 107
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipModeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货方式代码'
          Width = 89
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipModeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货方式描述'
          Width = 168
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipModeFalg'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货方式标志'
          Width = 101
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipAddresSCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货地址代码'
          Width = 79
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipAddressName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货地址名称'
          Width = 220
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipAddressFalg'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货地址标志'
          Width = 163
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RemArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 149
          KeyList.Strings = ()
        end
        Item
          FieldName = 'customerPmno'
          PickList.Strings = ()
          Title.Caption = '客户采购订单号'
          Width = 89
          KeyList.Strings = ()
        end
        Item
          FieldName = 'referenceno'
          PickList.Strings = ()
          Width = 92
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 581
  end
  inherited ActionList: TActionList
    Left = 192
    Top = 176
  end
  inherited AdoQry_Head: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii;Data Source=192.168.0.151;' +