billstatus.dfm

三层ERP系统 (SQL)

        FooterFont.Height = -12
        FooterFont.Name = #32048#26126#39636
        FooterFont.Style = []
        FooterRowCount = 1
        ParentFont = False
        SumList.Active = True
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #32048#26126#39636
        TitleFont.Style = []
        OnDrawColumnCell = GridDrawColumnCell
        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 = 80
          end>
      end
      object plOther: TPanel
        Left = 0
        Top = 157
        Width = 752
        Height = 50
        Align = alBottom
        BevelOuter = bvNone
        Color = clWhite
        TabOrder = 1
        object LabelSubmitUser: TLabel
          Left = 19
          Top = 9
          Width = 56
          Height = 13
          Caption = #23529' '#26680' '#20154
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #32048#26126#39636
          Font.Style = []
          ParentFont = False
        end
        object LabelSubmitDate: TLabel
          Left = 19
          Top = 30
          Width = 56
          Height = 13
          Caption = #23529#26680#26085#26399
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #32048#26126#39636
          Font.Style = []
          ParentFont = False
        end
        object LabelcancelDate: TLabel
          Left = 246
          Top = 30
          Width = 56
          Height = 13
          Caption = #21462#28040#26085#26399
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #32048#26126#39636
          Font.Style = []
          ParentFont = False
        end
        object LabelcancelUser: TLabel
          Left = 246
          Top = 9
          Width = 56
          Height = 13
          Caption = #21462' '#28040' '#20154
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #32048#26126#39636
          Font.Style = []
          ParentFont = False
        end
        object labelfinishuser: TLabel
          Left = 474
          Top = 9
          Width = 56
          Height = 13
          Caption = #32080' '#28165' '#20154
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #32048#26126#39636
          Font.Style = []
          ParentFont = False
        end
        object labelfinishdate: TLabel
          Left = 474
          Top = 30
          Width = 56
          Height = 13
          Caption = #32080#28165#26085#26399
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #32048#26126#39636
          Font.Style = []
          ParentFont = False
        end
        object edtSubmitDate: TwwDBEdit
          Left = 82
          Top = 26
          Width = 138
          Height = 19
          Color = clInfoBk
          Ctl3D = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #32048#26126#39636
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 0
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object edtSubmitUser: TwwDBEdit
          Left = 82
          Top = 4
          Width = 138
          Height = 19
          Color = clInfoBk
          Ctl3D = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #32048#26126#39636
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 1
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object edtCancelDate: TwwDBEdit
          Left = 309
          Top = 26
          Width = 138
          Height = 19
          Color = clInfoBk
          Ctl3D = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #32048#26126#39636
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 2
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object edtCancelUser: TwwDBEdit
          Left = 309
          Top = 4
          Width = 138
          Height = 19
          Color = clInfoBk
          Ctl3D = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #32048#26126#39636
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 3
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object edtFinishUser: TwwDBEdit
          Left = 537
          Top = 4
          Width = 138
          Height = 19
          Color = clInfoBk
          Ctl3D = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #32048#26126#39636
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 4
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object edtFinishDate: TwwDBEdit
          Left = 537
          Top = 26
          Width = 138
          Height = 19
          Color = clInfoBk
          Ctl3D = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #32048#26126#39636
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 5
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
      end
    end
  end
  object ActionList1: TActionList
    Left = 168
    Top = 400
    object acSubmit: TAction
      Caption = #23529#26680
      OnExecute = acSubmitExecute
    end
    object acCancel: TAction
      Caption = #21462#28040
      OnExecute = acCancelExecute
    end
    object acFinish: TAction
      Caption = #32080#28165
      OnExecute = acFinishExecute
    end
    object acExit: TAction
      Caption = #36864#20986
      OnExecute = acExitExecute
    end
  end
  object CDSMaster: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 320
    Top = 392
  end
  object DSMaster: TDataSource
    AutoEdit = False
    DataSet = CDSMaster
    OnStateChange = DSMasterStateChange
    OnDataChange = DSMasterDataChange
    Left = 336
    Top = 409
  end
  object CDSdetail: TClientDataSet
    Aggregates = <>
    Params = <>
    OnCalcFields = CDSdetailCalcFields
    Left = 248
    Top = 392
  end
  object dsDetail: TDataSource
    DataSet = CDSdetail
    Left = 272
    Top = 408
  end
  object MSNSaveinfo: TMSNPopUp
    Text = 'text'
    TimeOut = 1
    Width = 200
    Height = 100
    GradientColor1 = 16764057
    GradientColor2 = clWhite
    ScrollSpeed = 28
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    HoverFont.Charset = DEFAULT_CHARSET
    HoverFont.Color = clBlue
    HoverFont.Height = -11
    HoverFont.Name = 'MS Sans Serif'
    HoverFont.Style = [fsUnderline]
    Title = 'title'
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = [fsBold]
    Options = [msnCascadePopups, msnAllowScroll]
    TextAlignment = taCenter
    TextCursor = crDefault
    PopupMarge = 2
    PopupStartX = 16
    PopupStartY = 2
    DefaultMonitor = dmDesktop
    Left = 416
    Top = 400
  end
end