sellorderstatus.dfm

来自「三层ERP系统 (SQL)」· DFM 代码 · 共 360 行

inherited frmSellOrderStatus: TfrmSellOrderStatus
  Left = 305
  Top = 147
  Caption = #37559#21806#21934#29376#24907#32173#35703
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  inherited Panel1: TPanel
    inherited EditNO: TwwDBEdit
      Hint = 'fNo'
    end
  end
  inherited GroupBox1: TGroupBox
    inherited pnEdit: TPanel
      inherited Label1: TLabel
        Left = 266
      end
      inherited Label2: TLabel
        Left = 356
      end
      inherited Label4: TLabel
        Left = 496
      end
      inherited Label3: TLabel
        Left = 585
      end
      object Label7: TLabel [5]
        Left = 30
        Top = 62
        Width = 48
        Height = 12
        Caption = #23458#25142#21517#31281
      end
      object Label8: TLabel [6]
        Left = 30
        Top = 93
        Width = 48
        Height = 12
        Caption = #21512' '#21516' '#34399
      end
      object Label11: TLabel [7]
        Left = 30
        Top = 123
        Width = 48
        Height = 12
        Caption = #32080#31639#26041#24335
      end
      object Label14: TLabel [8]
        Left = 30
        Top = 154
        Width = 48
        Height = 12
        Caption = #26989' '#21209' '#21729
      end
      object Label18: TLabel [9]
        Left = 30
        Top = 185
        Width = 48
        Height = 12
        Caption = #20633'    '#27880
      end
      object Label13: TLabel [10]
        Left = 479
        Top = 153
        Width = 48
        Height = 12
        Caption = #20132#36008#26085#26399
      end
      object Label12: TLabel [11]
        Left = 479
        Top = 121
        Width = 48
        Height = 12
        Caption = #23450' '#37329'(%)'
      end
      object Label10: TLabel [12]
        Left = 479
        Top = 89
        Width = 48
        Height = 12
        Caption = #38651'    '#35441
      end
      inherited edtmodidate: TwwDBEdit
        Left = 585
      end
      inherited edtmodiuser: TwwDBEdit
        Left = 496
      end
      inherited edtcreadate: TwwDBEdit
        Left = 356
      end
      inherited edtCreauser: TwwDBEdit
        Left = 266
      end
      inherited wwDBEdit1: TwwDBEdit
        Left = 100
      end
      object wwDBEdit4: TwwDBEdit
        Left = 100
        Top = 59
        Width = 137
        Height = 18
        Hint = 'fcustomerCode'
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 5
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBEdit2: TwwDBEdit
        Left = 100
        Top = 89
        Width = 137
        Height = 18
        Hint = 'fcontractno'
        CharCase = ecUpperCase
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 6
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBEdit6: TwwDBEdit
        Left = 100
        Top = 119
        Width = 361
        Height = 18
        Hint = 'fbalancemethod'
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 7
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBEdit9: TwwDBEdit
        Left = 100
        Top = 150
        Width = 137
        Height = 18
        Hint = 'fseller'
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 8
        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
      object wwDBEdit7: TwwDBEdit
        Left = 551
        Top = 121
        Width = 130
        Height = 18
        Hint = 'fearnest'
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 10
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBEdit3: TwwDBEdit
        Left = 551
        Top = 90
        Width = 130
        Height = 18
        Hint = 'frelationtel'
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 11
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBEdit5: TwwDBEdit
        Left = 267
        Top = 59
        Width = 413
        Height = 18
        Hint = 'fcustomername'
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 12
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBEdit8: TwwDBEdit
        Left = 551
        Top = 152
        Width = 130
        Height = 18
        Hint = 'fshipdate'
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 13
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
    end
    inherited plGrid: TPanel
      inherited Grid: TDBGridEh
        ReadOnly = True
        Columns = <
          item
            EditButtons = <>
            FieldName = 'fcode'
            Footers = <
              item
                ValueType = fvtStaticText
              end>
            Title.Caption = #29986#21697#32232#30908
            Width = 100
          end
          item
            EditButtons = <>
            FieldName = 'fname'
            Footers = <>
            Title.Caption = #21517#31281
            Width = 120
          end
          item
            EditButtons = <>
            FieldName = 'fspec'
            Footers = <>
            Title.Caption = #35215#26684
            Width = 150
          end
          item
            EditButtons = <>
            FieldName = 'funitname'
            Footers = <
              item
                Value = #21512#35336#65109
                ValueType = fvtStaticText
              end>
            Title.Caption = #21934#20301
            Width = 60
          end
          item
            DisplayFormat = '0.00'
            EditButtons = <>
            FieldName = 'fqty'
            Footers = <
              item
                ValueType = fvtSum
              end>
            Title.Caption = #25976#37327
            Width = 80
          end
          item
            DisplayFormat = '0.00'
            EditButtons = <>
            FieldName = 'funitprice'
            Footers = <
              item
                ValueType = fvtSum
              end>
            Title.Caption = #21934#20729
            Width = 80
          end
          item
            DisplayFormat = '0.00'
            EditButtons = <>
            FieldName = 'famount'
            Footers = <
              item
                ValueType = fvtSum
              end>
            Title.Caption = #32317#20729
            Width = 90
          end>
      end
    end
  end
  inherited CDSdetail: TClientDataSet
    object CDSdetailfid: TAutoIncField
      FieldName = 'fid'
      ReadOnly = True
      Visible = False
    end
    object CDSdetailfsn: TIntegerField
      FieldName = 'fsn'
      Visible = False
    end
    object CDSdetailfresid: TIntegerField
      FieldName = 'fresid'
      Visible = False
    end
    object CDSdetailfpqty: TBCDField
      FieldName = 'fpqty'
      Visible = False
      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 CDSdetailfqty: TBCDField
      FieldName = 'fqty'
      Precision = 18
      Size = 2
    end
    object CDSdetailfoutqty: TBCDField
      FieldName = 'foutqty'
      Visible = False
      Precision = 18
      Size = 2
    end
    object CDSdetailfbackqty: TBCDField
      FieldName = 'fbackqty'
      Visible = False
      Precision = 18
      Size = 2
    end
    object CDSdetailfunitprice: TBCDField
      FieldName = 'funitprice'
      Precision = 18
      Size = 2
    end
    object CDSdetailfrefprice: TBCDField
      FieldName = 'frefprice'
      Precision = 10
      Size = 2
    end
    object CDSdetailfamount: TFloatField
      FieldKind = fkCalculated
      FieldName = 'famount'
      Calculated = True
    end
  end
end