sal_enter_saleorder.dfm

一个MRPII系统源代码版本

      OnButtonClick = CustomerHint1
      OnEnter = Edt_CustomerCodeEnter
      OnExit = Edt_CustomerCodeExit
      OnKeyDown = CustomerHint
    end
    object Edt_ShipAddresSCode: TLinkEdit
      Left = 84
      Top = 48
      Width = 50
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 14
      Text = ' '
      OnButtonClick = Edt_ShipAddresSCodeButtonClick
      OnExit = Edt_ShipAddresSCodeExit
      OnKeyDown = Edt_ShipAddresSCodeKeyDown
    end
    object Edt_PayTermCode: TLinkEdit
      Left = 84
      Top = 71
      Width = 50
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 15
      Text = ' '
      OnButtonClick = Edt_PayTermCodeButtonClick
      OnExit = Edt_PayTermCodeExit
      OnKeyDown = Edt_PayTermCodeKeyDown
    end
    object Edt_ShipModeCode: TLinkEdit
      Left = 84
      Top = 94
      Width = 50
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 16
      Text = ' '
      OnButtonClick = Edt_ShipModeCodeButtonClick
      OnExit = Edt_ShipModeCodeExit
      OnKeyDown = Edt_ShipModeCodeKeyDown
    end
    object Edt_CurrencyCode: TLinkEdit
      Left = 581
      Top = 2
      Width = 50
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 17
      Text = ' '
      OnButtonClick = CurrencyHint1
      OnExit = Edt_CurrencyCodeExit
      OnKeyDown = CurrencyHint
    end
    object Edt_SaleTypeCode: TLinkEdit
      Left = 581
      Top = 25
      Width = 50
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 18
      Text = ' '
      OnButtonClick = Edt_SaleTypeCodeButtonClick
      OnExit = Edt_SaleTypeCodeExit
      OnKeyDown = Edt_SaleTypeCodeKeyDown
    end
    object Edt_SaleDeptCode: TLinkEdit
      Left = 581
      Top = 48
      Width = 50
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 19
      Text = ' '
      OnButtonClick = DeptHint1
      OnExit = Edt_SaleDeptCodeExit
      OnKeyDown = DeptHint
    end
    object Edt_SaleEmployeeCode: TLinkEdit
      Left = 581
      Top = 71
      Width = 50
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 20
      Text = ' '
      OnButtonClick = EmployeeHint1
      OnExit = Edt_SaleEmployeeCodeExit
      OnKeyDown = EmployeeHint
    end
    object edt_CustomerPmno: TEdit
      Left = 581
      Top = 93
      Width = 105
      Height = 20
      MaxLength = 5
      TabOrder = 23
      OnExit = Edt_TaxRate_PercentExit
    end
    object edt_referenceno: TEdit
      Left = 581
      Top = 115
      Width = 105
      Height = 20
      MaxLength = 5
      TabOrder = 24
      OnExit = Edt_TaxRate_PercentExit
    end
  end
  inherited Pnl_Body: TPanel
    Top = 222
    Height = 220
    inherited Image3: TImage
      Height = 220
    end
    inherited DBGridEh: TDBGridEh
      Height = 220
      FrozenCols = 4
      Columns = <
        Item
          EditButtons = <>
          FieldName = 'SloLineNo'
          Footers = <>
          Title.Caption = #35746#21333#34892#21495
          Width = 29
        end
        Item
          EditButtons = <>
          FieldName = 'ItemCode'
          Footers = <>
          Title.Caption = #29289#26009#20195#30721
          Width = 125
        end
        Item
          EditButtons = <>
          FieldName = 'ItemName'
          Footers = <>
          Title.Caption = #29289#26009#25551#36848
          Width = 250
        end
        Item
          EditButtons = <>
          FieldName = 'UomName'
          Footers = <>
          Title.Caption = #21333#20301
          Width = 36
        end
        Item
          EditButtons = <>
          FieldName = 'SloLineStatus'
          Footers = <>
          KeyList.Strings = (
            '5'
            '6'
            '7'
            '8')
          PickList.Strings = (
            '5 '#20934#22791
            '6 '#19979#36798
            '7 '#20851#38381
            '8 '#24050#32467#31639)
          Title.Caption = #34892#29366#24577
          Width = 59
        end
        Item
          EditButtons = <>
          FieldName = 'SloLineDate'
          Footers = <>
          Title.Caption = #32422#23450#20132#36135#26085
          Width = 82
        end
        Item
          EditButtons = <>
          FieldName = 'ShipDays'
          Footers = <>
        end
        Item
          EditButtons = <>
          FieldName = 'SloQty'
          Footers = <>
          Title.Caption = #32422#23450#20132#36135#37327
          Width = 72
        end
        Item
          EditButtons = <>
          FieldName = 'TaxPrice'
          Footers = <>
          Title.Caption = #21547#31246#21333#20215
          Width = 61
        end
        Item
          EditButtons = <>
          FieldName = 'TaxAmount'
          Footers = <>
          Title.Caption = #21547#31246#37329#39069
        end
        Item
          EditButtons = <>
          FieldName = 'NoTaxPrice'
          Footers = <>
          Title.Caption = #26410#31246#21333#20215
        end
        Item
          EditButtons = <>
          FieldName = 'NoTaxAmount'
          Footers = <>
          Title.Caption = #26410#31246#37329#39069
        end
        Item
          EditButtons = <>
          FieldName = 'DiSCountRate'
          Footers = <>
          Title.Caption = #25240#25187#29575
        end
        Item
          EditButtons = <>
          FieldName = 'DiSCountAmount'
          Footers = <>
          Title.Caption = #25240#25187#39069
        end
        Item
          EditButtons = <>
          FieldName = 'SloLineRemArk'
          Footers = <>
          Title.Caption = #22791#27880
          Width = 216
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 390
    Top = 339
  end
  inherited ActionList: TActionList
    Left = 523
    Top = 328
    inherited Act_Filter: TAction
      Enabled = True
      Visible = True
    end
    inherited Act_Order: TAction
      Enabled = True
      Visible = True
    end
  end
  inherited AdoQry_Body: TAdoQuery
    ConnectionString = ''
    AfterPost = AdoQry_BodyAfterPost
    AfterDelete = AdoQry_BodyAfterPost
    SQL.Strings = (
      'Select Sa_SaleOrderLine.*,Item.ItemName,Uom.UomName  '
      'From Sa_SaleOrderLine'
      
        '                      Join Item On Sa_SaleOrderLine.ItemCode=Ite' +
        'm.ItemCode'
      '                      left Join Uom On Item.UomCode=Uom.UomCode')
    Left = 427
    Top = 305
    object AdoQry_BodySloNo: TStringField
      FieldName = 'SloNo'
      Origin = '#tmptable'
      Size = 16
    end
    object AdoQry_BodySloLineNo: TIntegerField
      FieldName = 'SloLineNo'
      Origin = '#tmptable'
    end
    object AdoQry_BodyItemCode: TStringField
      FieldName = 'ItemCode'
      Origin = '#tmptable'
      Size = 16
    end
    object AdoQry_BodySloQty: TFloatField
      FieldName = 'SloQty'
      Origin = '#tmptable'
    end
    object AdoQry_BodyNoTaxPrice: TFloatField
      FieldName = 'NoTaxPrice'
      Origin = '#tmptable'
    end
    object AdoQry_BodyNoTaxAmount: TFloatField
      FieldName = 'NoTaxAmount'
      Origin = '#tmptable'
    end
    object AdoQry_BodyTaxPrice: TFloatField
      FieldName = 'TaxPrice'
      Origin = '#tmptable'
    end
    object AdoQry_BodyTaxAmount: TFloatField
      FieldName = 'TaxAmount'
      Origin = '#tmptable'
    end
    object AdoQry_BodySloLineDate: TDateTimeField
      FieldName = 'SloLineDate'
      Origin = '#tmptable'
    end
    object AdoQry_BodySloLineStatus: TIntegerField
      FieldName = 'SloLineStatus'
      Origin = '#tmptable'
    end
    object AdoQry_BodySloLineRemArk: TStringField
      FieldName = 'SloLineRemArk'
      Origin = '#tmptable'
      Size = 60
    end
    object AdoQry_BodyUomName: TStringField
      FieldName = 'UomName'
      Origin = '#tmptable'
      Size = 10
    end
    object AdoQry_BodyItemName: TStringField
      FieldName = 'ItemName'
      Origin = '#tmptable'
      Size = 80
    end
    object AdoQry_BodyDiSCountRate: TFloatField
      FieldName = 'DiSCountRate'
      Origin = '#tmptable'
    end
    object AdoQry_BodyDiSCountAmount: TFloatField
      FieldName = 'DiSCountAmount'
      Origin = '#tmptable'
    end
    object AdoQry_BodySloCheck: TIntegerField
      FieldName = 'SloCheck'
      Origin = '#tmptable'
    end
    object AdoQry_BodyShipQty: TFloatField
      FieldName = 'ShipQty'
      Origin = '#tmptable'
    end
    object AdoQry_BodyPrepareShipQty: TFloatField
      FieldName = 'PrepareShipQty'
      Origin = '#tmptable'
    end
    object AdoQry_BodyLastOperationTime: TDateTimeField
      FieldName = 'LastOperationTime'
      Origin = '#tmptable'
    end
    object AdoQry_BodyShipDays: TIntegerField
      DisplayLabel = #21457#36816#22825#25968
      FieldName = 'ShipDays'
      Origin = '#tmptable'
    end
  end
  inherited DataSource: TDataSource
    Left = 355
    Top = 289
  end
  inherited ExtPrintReport: TExtPrintReport
    Left = 635
    Top = 289
  end
end