stockmovefm.~dfm

来自「医药连锁经营管理系统源码」· ~DFM 代码 · 共 668 行 · 第 1/2 页

inherited FmStockMove: TFmStockMove
  Left = 276
  Top = 123
  Caption = #33647#21697#31227#24211'('#20301')'#21333
  PixelsPerInch = 96
  TextHeight = 12
  inherited plBoard: TRzPanel
    inherited plHeader: TRzPanel
      Height = 89
      object Label1: TLabel
        Left = 23
        Top = 16
        Width = 60
        Height = 12
        Alignment = taRightJustify
        Caption = #35843#25320#21333#21495#65306
      end
      object Label2: TLabel
        Left = 23
        Top = 41
        Width = 60
        Height = 12
        Alignment = taRightJustify
        Caption = #35843#25320#26085#26399#65306
      end
      object Label7: TLabel
        Left = 23
        Top = 67
        Width = 60
        Height = 12
        Caption = #22797' '#26680' '#21592#65306
      end
      object Label5: TLabel
        Left = 533
        Top = 14
        Width = 60
        Height = 12
        Alignment = taRightJustify
        Caption = #25552' '#36135' '#20154#65306
      end
      object Label6: TLabel
        Left = 533
        Top = 40
        Width = 60
        Height = 12
        Caption = #21457' '#36135' '#20154#65306
      end
      object Lab_State: TLabel
        Left = 246
        Top = 67
        Width = 96
        Height = 12
        Caption = #21333#25454#29366#24577#65306#26410#22797#26680
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 246
        Top = 16
        Width = 60
        Height = 12
        Alignment = taRightJustify
        Caption = #35843#20986#20179#24211#65306
      end
      object Label12: TLabel
        Left = 246
        Top = 41
        Width = 60
        Height = 12
        Alignment = taRightJustify
        Caption = #35843#20837#20179#24211#65306
      end
      object edBillID: TRzDBEdit
        Tag = -1
        Left = 83
        Top = 10
        Width = 125
        Height = 20
        DataSource = DsStockMove
        DataField = 'BillNo'
        ReadOnly = True
        Ctl3D = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        ParentCtl3D = False
        TabOnEnter = True
        TabOrder = 0
      end
      object edDate: TRzDBDateTimePicker
        Left = 83
        Top = 36
        Width = 125
        Height = 19
        CalColors.TitleBackColor = clGray
        CalColors.TitleTextColor = clSilver
        Date = 37688.495829652770000000
        Time = 37688.495829652770000000
        DateFormat = dfLong
        TabOrder = 5
        FlatButtons = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        ShowToday = True
        ShowTodayCircle = True
        ShowWeekNumbers = True
        DataField = 'FDate'
        DataSource = DsStockMove
      end
      object RzDBEdit1: TRzDBEdit
        Tag = -1
        Left = 83
        Top = 62
        Width = 125
        Height = 20
        DataSource = DsStockMove
        DataField = 'Audit'
        ReadOnly = True
        Color = clWhite
        DisabledColor = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        FrameHotStyle = fsFlat
        FrameVisible = True
        ParentFont = False
        TabOnEnter = True
        TabOrder = 10
      end
      object edDepot: TRzDBButtonEdit
        Tag = -1
        Left = 386
        Top = 36
        Width = 118
        Height = 20
        DataSource = DsStockMove
        DataField = 'ToDepotName'
        ReadOnly = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 7
        OnButtonClick = edDepotButtonClick
        FlatButtons = True
      end
      object RzDBEdit3: TRzDBEdit
        Left = 308
        Top = 36
        Width = 77
        Height = 20
        DataSource = DsStockMove
        DataField = 'ToDepotNo'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 6
      end
      object RzDBEdit5: TRzDBEdit
        Left = 594
        Top = 36
        Width = 67
        Height = 20
        DataSource = DsStockMove
        DataField = 'Shipper'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 8
      end
      object edEmpID: TRzDBButtonEdit
        Tag = -1
        Left = 662
        Top = 36
        Width = 103
        Height = 20
        DataSource = DsStockMove
        DataField = 'ShipperName'
        ReadOnly = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 9
        OnButtonClick = edEmpIDButtonClick
        FlatButtons = True
      end
      object RzDBButtonEdit1: TRzDBButtonEdit
        Tag = -1
        Left = 386
        Top = 10
        Width = 118
        Height = 20
        DataSource = DsStockMove
        DataField = 'DepotName'
        ReadOnly = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 2
        OnButtonClick = RzDBButtonEdit1ButtonClick
        FlatButtons = True
      end
      object RzDBEdit2: TRzDBEdit
        Left = 308
        Top = 10
        Width = 77
        Height = 20
        DataSource = DsStockMove
        DataField = 'DepotNo'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 1
      end
      object RzDBEdit6: TRzDBEdit
        Left = 594
        Top = 10
        Width = 67
        Height = 20
        DataSource = DsStockMove
        DataField = 'EmpNo'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 3
      end
      object RzDBButtonEdit2: TRzDBButtonEdit
        Tag = -1
        Left = 662
        Top = 10
        Width = 103
        Height = 20
        DataSource = DsStockMove
        DataField = 'Name'
        ReadOnly = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 4
        OnButtonClick = RzDBButtonEdit2ButtonClick
        FlatButtons = True
      end
    end
    inherited plBody: TRzPanel
      Top = 91
      Height = 373
      object dbgStockInDtl: TxDBGridEh
        Left = 0
        Top = 0
        Width = 769
        Height = 373
        Align = alClient
        AllowedOperations = [alopUpdateEh, alopAppendEh]
        DataSource = DsStockMoveDtl
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        RowHeight = 16
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        TitleHeight = 15
        OnEditButtonClick = dbgStockInDtlEditButtonClick
        RowColorsUse = True
        RowColor1 = 16772846
        Columns = <
          item
            EditButtons = <>
            FieldName = 'ItemNo'
            Footers = <>
            Title.Alignment = taCenter
            Width = 28
          end
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'GoodsID'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'Name'
            Footers = <>
            Title.Alignment = taCenter
            Width = 120
          end
          item
            EditButtons = <>
            FieldName = 'Specs'
            Footers = <>
            Title.Alignment = taCenter
            Width = 100
          end
          item
            EditButtons = <>
            FieldName = 'Unit'
            Footers = <>
            Title.Alignment = taCenter
            Width = 28
          end
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'BerthNo'
            Footers = <>
            Title.Alignment = taCenter
            Width = 76
          end
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'Qty'
            Footers = <>
            Title.Alignment = taCenter
            Width = 72
          end
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'ToBerth'
            Footers = <>
            Title.Alignment = taCenter