mdsellorder.dfm

三层ERP系统 (SQL)

inherited frmSellOrder: TfrmSellOrder
  Top = 112
  Caption = #37559#21806#35330#21934#31649#29702
  PixelsPerInch = 96
  TextHeight = 15
  inherited PnlEdit: TPanel
    inherited pnEdit: TPanel
      object Label7: TLabel [0]
        Left = 28
        Top = 57
        Width = 64
        Height = 15
        Caption = #23458#25142#21517#31281
      end
      object btncustomer: TSpeedButton [1]
        Left = 241
        Top = 56
        Width = 23
        Height = 22
        Glyph.Data = {
          D6000000424DD60000000000000076000000280000000B0000000C0000000100
          04000000000060000000C40E0000C40E00001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888880
          0000888888888880000088800000888000008888888888800000888880888880
          0000888800088880000088700000888000008800000008800000888800088880
          0000888800088880000088880008888000008888888888800000}
        OnClick = btncustomerClick
      end
      object Label9: TLabel [2]
        Left = 253
        Top = 90
        Width = 64
        Height = 15
        Caption = #32879' '#31995' '#20154
      end
      object Label8: TLabel [3]
        Left = 28
        Top = 89
        Width = 64
        Height = 15
        Caption = #21512' '#21516' '#34399
      end
      object Label11: TLabel [4]
        Left = 28
        Top = 121
        Width = 64
        Height = 15
        Caption = #32080#31639#26041#24335
      end
      object Label12: TLabel [5]
        Left = 479
        Top = 121
        Width = 64
        Height = 15
        Caption = #23450' '#37329'(%)'
      end
      object Label13: TLabel [6]
        Left = 479
        Top = 153
        Width = 64
        Height = 15
        Caption = #20132#36008#26085#26399
      end
      object Label14: TLabel [7]
        Left = 28
        Top = 153
        Width = 64
        Height = 15
        Caption = #26989' '#21209' '#21729
      end
      object Label18: TLabel [8]
        Left = 28
        Top = 185
        Width = 64
        Height = 15
        Caption = #20633'    '#27880
      end
      object Label10: TLabel [9]
        Left = 479
        Top = 89
        Width = 64
        Height = 15
        Caption = #38651'    '#35441
      end
      inherited plStandard: TPanel
        TabOrder = 10
        inherited Label6: TLabel
          Left = 28
        end
        inherited EdtNO_S: TwwDBEdit
          Left = 100
        end
      end
      object wwDBEdit4: TwwDBEdit
        Left = 100
        Top = 56
        Width = 137
        Height = 21
        Hint = 'fcustomerCode'
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 0
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBEdit5: TwwDBEdit
        Left = 268
        Top = 56
        Width = 413
        Height = 21
        Hint = 'fcustomername'
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 1
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBEdit3: TwwDBEdit
        Left = 551
        Top = 88
        Width = 130
        Height = 21
        Hint = 'frelationtel'
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 4
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBEdit2: TwwDBEdit
        Left = 324
        Top = 88
        Width = 137
        Height = 21
        Hint = 'frelationman'
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 3
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBEdit1: TwwDBEdit
        Left = 100
        Top = 87
        Width = 137
        Height = 21
        Hint = 'fcontractno'
        CharCase = ecUpperCase
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 2
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBEdit6: TwwDBEdit
        Left = 100
        Top = 119
        Width = 361
        Height = 21
        Hint = 'fbalancemethod'
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 5
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBEdit7: TwwDBEdit
        Left = 551
        Top = 121
        Width = 130
        Height = 21
        Hint = 'fearnest'
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 6
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object DBDateTimeEditEh2: TDBDateTimeEditEh
        Left = 551
        Top = 154
        Width = 130
        Height = 21
        Hint = 'fshipdate'
        Ctl3D = False
        EditButtons = <>
        Kind = dtkDateEh
        ParentCtl3D = False
        TabOrder = 8
        Visible = True
      end
      object wwDBEdit9: TwwDBEdit
        Left = 100
        Top = 150
        Width = 137
        Height = 21
        Hint = 'fseller'
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 7
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object DBMemo3: TDBMemo
        Left = 100
        Top = 182
        Width = 581
        Height = 42
        Hint = 'fremarks'
        Ctl3D = False
        ParentCtl3D = False
        ScrollBars = ssVertical
        TabOrder = 9
      end
    end
    inherited plGrid: TPanel
      inherited Grid: TDBGridEh
        Columns = <
          item
            AlwaysShowEditButton = True
            AutoDropDown = True
            ButtonStyle = cbsDropDown
            EditButtons = <>
            FieldName = 'fcode'
            Footers = <
              item
                ValueType = fvtStaticText
              end>
            Title.Caption = #29986#21697#32232#30908
            Width = 130
            OnEditButtonDown = GridColumns0EditButtonDown
          end
          item
            EditButtons = <>
            FieldName = 'fname'
            Footers = <>
            Title.Caption = #21517#31281
            Width = 160
          end
          item
            EditButtons = <>
            FieldName = 'fspec'
            Footers = <>
            Title.Caption = #35215#26684
            Width = 180
          end
          item
            EditButtons = <>
            FieldName = 'funitname'
            Footers = <
              item
                Value = #21512#35336#65109
                ValueType = fvtStaticText
              end>
            Title.Caption = #21934#20301
          end
          item
            DisplayFormat = '0.00'
            EditButtons = <>
            FieldName = 'fqty'
            Footers = <
              item
                ValueType = fvtSum
              end>
            Title.Caption = #25976#37327
            Width = 100
          end
          item
            DisplayFormat = '0.00'
            EditButtons = <>
            FieldName = 'funitprice'
            Footers = <
              item
                ValueType = fvtSum
              end>
            Title.Caption = #21934#20729
            Width = 100
          end
          item
            DisplayFormat = '0.00'
            EditButtons = <>
            FieldName = 'famount'
            Footers = <
              item
                ValueType = fvtSum
              end>
            Title.Caption = #32317#20729
            Width = 100
          end>
      end
    end
  end
  inherited CDSdetail: TClientDataSet
    object CDSdetailfid: TAutoIncField
      FieldName = 'fid'
      ReadOnly = True
    end
    object CDSdetailfsn: TIntegerField
      FieldName = 'fsn'
    end
    object CDSdetailfresid: TIntegerField
      FieldName = 'fresid'
    end
    object CDSdetailfpqty: TBCDField
      FieldName = 'fpqty'
      Precision = 18
      Size = 2
    end
    object CDSdetailfqty: TBCDField
      FieldName = 'fqty'
      Precision = 18
      Size = 2
    end
    object CDSdetailfoutqty: TBCDField
      FieldName = 'foutqty'
      Precision = 18
      Size = 2
    end
    object CDSdetailfbackqty: TBCDField
      FieldName = 'fbackqty'
      Precision = 18
      Size = 2
    end
    object CDSdetailfunitprice: TBCDField
      FieldName = 'funitprice'
      Precision = 18
      Size = 2
    end
    object CDSdetailfcode: TWideStringField
      FieldName = 'fcode'
      Size = 48
    end
    object CDSdetailfname: TWideStringField
      FieldName = 'fname'
      Size = 80
    end
    object CDSdetailfspec: TWideStringField
      FieldName = 'fspec'
      Size = 80
    end
    object CDSdetailfunitname: TWideStringField
      FieldName = 'funitname'
      Size = 12
    end
    object CDSdetailfrefprice: TBCDField
      FieldName = 'frefprice'
      Precision = 10
      Size = 2
    end
    object CDSdetailfamount: TFloatField
      FieldKind = fkCalculated
      FieldName = 'famount'
      Calculated = True
    end
  end
  inherited ActionListFun: TActionList
    inherited acImport: TAction
      OnExecute = acImportExecute
    end
  end
  inherited frBaseinfo: TfrReport
    ReportForm = {19000000}
  end
  object CDSCustomer: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 179
    Top = 203
    object CDSCustomerfCode: TWideStringField
      DisplayLabel = #23458#25142#20195#30908
      DisplayWidth = 12
      FieldName = 'fCode'
      Size = 50
    end
    object CDSCustomerfName: TWideStringField
      DisplayLabel = #21517#31281
      DisplayWidth = 32
      FieldName = 'fName'
      Size = 50
    end
    object CDSCustomerfID: TAutoIncField
      DisplayWidth = 10
      FieldName = 'fID'
      ReadOnly = True
      Visible = False
    end
    object CDSCustomerfFullName: TWideStringField
      DisplayWidth = 200
      FieldName = 'fFullName'
      Visible = False
      Size = 200
    end
    object CDSCustomerfAreaCode: TWideStringField
      DisplayWidth = 50
      FieldName = 'fAreaCode'
      Visible = False
      Size = 50
    end
    object CDSCustomerfTypeCode: TWideStringField
      DisplayWidth = 50
      FieldName = 'fTypeCode'
      Visible = False
      Size = 50
    end
    object CDSCustomerfAddress: TWideStringField
      DisplayWidth = 50
      FieldName = 'fAddress'
      Visible = False
      Size = 50
    end
    object CDSCustomerfPostCode: TWideStringField
      DisplayWidth = 50
      FieldName = 'fPostCode'
      Visible = False
      Size = 50
    end
    object CDSCustomerfTel: TWideStringField
      DisplayWidth = 50
      FieldName = 'fTel'
      Visible = False
      Size = 50
    end
    object CDSCustomerfFax: TWideStringField
      DisplayWidth = 50
      FieldName = 'fFax'
      Visible = False
      Size = 50
    end
    object CDSCustomerfRelation: TWideStringField
      DisplayWidth = 50
      FieldName = 'fRelation'
      Visible = False
      Size = 50
    end
    object CDSCustomerfMobilePhone: TWideStringField
      DisplayWidth = 50
      FieldName = 'fMobilePhone'
      Visible = False
      Size = 50
    end
    object CDSCustomerfPosition: TWideStringField
      DisplayWidth = 50
      FieldName = 'fPosition'
      Visible = False
      Size = 50
    end
    object CDSCustomerfEmail: TWideStringField
      DisplayWidth = 50
      FieldName = 'fEmail'
      Visible = False
      Size = 50
    end
    object CDSCustomerfTaxAccount: TWideStringField
      DisplayWidth = 50
      FieldName = 'fTaxAccount'
      Visible = False
      Size = 50
    end
    object CDSCustomerfBank: TWideStringField
      DisplayWidth = 50
      FieldName = 'fBank'
      Visible = False
      Size = 50
    end
    object CDSCustomerfBankAccount: TWideStringField
      DisplayWidth = 50
      FieldName = 'fBankAccount'
      Visible = False
      Size = 50
    end
    object CDSCustomerfOriginSum: TBCDField
      DisplayWidth = 11
      FieldName = 'fOriginSum'
      Visible = False
      Precision = 10
      Size = 2
    end
    object CDSCustomerfRemain: TBCDField
      DisplayWidth = 11
      FieldName = 'fRemain'
      Visible = False
      Precision = 10
      Size = 2
    end
    object CDSCustomerfMaxPaySum: TBCDField
      DisplayWidth = 11
      FieldName = 'fMaxPaySum'
      Visible = False
      Precision = 10
      Size = 2
    end
    object CDSCustomerfMaxRemain: TBCDField
      DisplayWidth = 13
      FieldName = 'fMaxRemain'
      Visible = False
      Precision = 12
      Size = 2
    end
    object CDSCustomerfRate: TBCDField
      DisplayWidth = 6
      FieldName = 'fRate'
      Visible = False
      Precision = 5
      Size = 2
    end
    object CDSCustomerfBeginDate: TDateTimeField
      DisplayWidth = 18
      FieldName = 'fBeginDate'
      Visible = False
    end
    object CDSCustomerfHomePage: TWideStringField
      DisplayWidth = 200
      FieldName = 'fHomePage'
      Visible = False
      Size = 200
    end
    object CDSCustomerfEnglishName: TWideStringField
      DisplayWidth = 188
      FieldName = 'fEnglishName'
      Visible = False
      Size = 188
    end
    object CDSCustomerfNotes: TWideStringField
      DisplayWidth = 200
      FieldName = 'fNotes'
      Visible = False
      Size = 200
    end
  end
  object wwLookupDlg: TwwLookupDialog
    Selected.Strings = (
      'fCode'#9'12'#9#23458#25142#20195#30908#9'F'
      'fName'#9'32'#9#21517#31281#9'F')
    GridTitleAlignment = taLeftJustify
    GridColor = clWhite
    GridOptions = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgPerfectRowFit]
    LookupTable = CDSCustomer
    Caption = #26597#25214
    MaxWidth = 0
    MaxHeight = 209
    CharCase = ecNormal
    Left = 240
    Top = 232
  end
end