goodsinoutfm.~dfm

来自「群星医药系统源码」· ~DFM 代码 · 共 2,124 行 · 第 1/5 页

          end
          item
            EditButtons = <>
            FieldName = 'GoodsID'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Name'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Specs'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'BatchNo'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Qty'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Qty1'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Qty2'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Price1'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Price2'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Amount'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'ValidDate'
            Footers = <>
          end>
      end
    end
    object Page_TotalStock: TRzTabSheet
      Color = 16776176
      ImageIndex = 4
      Caption = #24635#20179#24211#37327
      object Panel10: TPanel
        Left = 0
        Top = 0
        Width = 786
        Height = 37
        Align = alTop
        BevelOuter = bvNone
        ParentColor = True
        TabOrder = 0
        object edFind5: TRzBitBtn
          Left = 596
          Top = 6
          Height = 24
          Action = ActFind5
          Caption = #26597#35810'(&Q)'
          Color = 15791348
          HighlightColor = 16026986
          HotTrack = True
          HotTrackColor = 3983359
          ParentColor = False
          TabOrder = 1
          Glyph.Data = {
            42020000424D4202000000000000420000002800000010000000100000000100
            1000030000000002000000000000000000000000000000000000007C0000E003
            00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F00
            1F001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F00FF03
            FF0310001F7C1F7C1F7C1F7C1F7C1042104210421042104210420000FF03FF03
            1000104210421F7C1F7C1F7C1F7C10421F7C1F7C1F7C1F7C1F00FF03FF031000
            10421F7C10421F7C1F7C1F7C1F7C1042FF7FFF7FFF7F1F00FF03FF0310001042
            1F7C1F7C10421F7C1F7C1F7C1F7C10421F7C1F7C1F00FF03FF03100010421042
            FF7F1F7C10421F7C1F7C10421042000000001042FF7F1042100010421F7C1F7C
            FF7F1F7C10421F7C1042FF7F1F7CFF7FFF7F0000104210001042104210421042
            FF7F1F7C10421042FF7FFF7F1F7CFF7F10421042000010421F7C1F7C1F7C1F7C
            FF7F1F7C10421042FF7FFF7F1F7CFF7FFF03FF03000010421042104210421042
            FF7F1F7C10421042FF7FFF7F1F7CFF7F10421042000010421F7C1F7C1F7C1F7C
            1F7C1F7C10421042FF7FFF7F1F7CFF7FFF03FF030000104210421042FF7F1F7C
            1F7C1F7C10421F7C1042FF7F1F7CFF7FFF7F000010421F7C1F7C1F7CFF7F1042
            1042104210421F7C1F7C104210420000000010421F7C1F7CFF7FFF7FFF7F1042
            FF7F1F7C10421F7C1F7C1F7C1F7C10421F7C1F7CFF7FFF7FFF7FFF7FFF7F1042
            1F7C10421F7C1F7C1F7C1F7C1F7C104210421042104210421042104210421042
            10421F7C1F7C}
        end
        object Panel11: TPanel
          Left = 0
          Top = 0
          Width = 243
          Height = 37
          Align = alLeft
          BevelOuter = bvNone
          ParentColor = True
          TabOrder = 0
          object Label19: TLabel
            Left = 4
            Top = 10
            Width = 36
            Height = 12
            Caption = #25968#37327#65306
          end
          object Label20: TLabel
            Left = 124
            Top = 10
            Width = 36
            Height = 12
            Caption = #37329#39069#65306
          end
          object edNum5: TRzEdit
            Left = 40
            Top = 6
            Width = 69
            Height = 20
            FrameHotStyle = fsFlat
            FrameVisible = True
            ReadOnly = True
            TabOrder = 0
          end
          object edSum5: TRzEdit
            Left = 160
            Top = 6
            Width = 77
            Height = 20
            FrameHotStyle = fsFlat
            FrameVisible = True
            ReadOnly = True
            TabOrder = 1
          end
        end
        object RzBitBtn6: TRzBitBtn
          Left = 672
          Top = 6
          Height = 24
          Action = ActPrint5
          Caption = #25253#34920'(&P)'
          Color = 15791348
          HighlightColor = 16026986
          HotTrack = True
          HotTrackColor = 3983359
          ParentColor = False
          TabOrder = 2
          Glyph.Data = {
            42020000424D4202000000000000420000002800000010000000100000000100
            1000030000000002000000000000000000000000000000000000007C0000E003
            00001F0000001F7C1F7C1F7C1F7C1F7C1F7C0000000000001F7C1F7C1F7C1F7C
            1F7C1F7C1F7C1F7C1F7C1F7C1F7C000000001F7C10421042000000001F7C1F7C
            1F7C1F7C1F7C1F7C1F7C000000001F7C1F7C1042000000001042104200000000
            1F7C1F7C1F7C1F7C00001F7C1F7C104210421F7C104210420000000010421042
            000000001F7C1F7C1042104210421F7C1F7C1F7C104210421042104200000000
            104200001F7C104210421F7C1F7C1F7C1F7C1F7C104210421042104210421042
            000000001F7C1042FF7F1F7C1F7C1F7C1F7CFF7F104210421042104210421042
            1042104200001042FF7F1F7C1F7CFF7FFF7F1F7C1F7C1F7C1042104210421042
            1042104200001042FF7FFF7FFF7F1F7C1F7C007C007C1F7C1F7C1F7C10421042
            1042104200001042FF7F1F7C1F7CE003E0031F7C1F7C1F7C1042104200001F7C
            1042104200001F7C10421042FF7F1F7C1F7C1F7C10421042FF7FFF7F00001F7C
            000000001F7C1F7C1F7C1F7C10421042FF7F1042FF7FFF7FFF7FFF7FFF7F0000
            1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C10421042FF7FFF7FFF7FFF7FFF7FFF7F
            00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1042FF7FFF7FFF7FFF7FFF7F
            FF7F000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1042FF7FFF7FFF7F1042
            10421F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1042104210421F7C
            1F7C1F7C1F7C}
        end
      end
      object dbgTotalStock: TxDBGridEh
        Left = 0
        Top = 37
        Width = 786
        Height = 257
        Align = alClient
        DataSource = DsTotalStock
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        ReadOnly = True
        RowHeight = 16
        TabOrder = 1
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        TitleHeight = 15
        RowColorsUse = True
        RowColor1 = 16772846
        Columns = <
          item
            EditButtons = <>
            FieldName = 'GoodsID'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Name'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Specs'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Qty'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Qty1'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Qty2'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Price1'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Price2'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Amount'
            Footers = <>
          end>
      end
    end
  end
  object ptBkPanel: TFlatPanel
    Left = 0
    Top = 0
    Width = 790
    Height = 24
    Color = clMoneyGreen
    Align = alTop
    TabOrder = 2
    UseDockManager = True
    object FlatPanel2: TPanel
      Left = 741
      Top = 1
      Width = 48
      Height = 22
      Align = alRight
      BevelOuter = bvNone
      ParentColor = True
      TabOrder = 0
      object BtnWhatIs: TFlatSpeedButton
        Left = 4
        Top = 2
        Width = 18
        Height = 18
        Visible = False
      end
      object BtnHelp: TFlatSpeedButton
        Left = 24
        Top = 2
        Width = 18
        Height = 18
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000C40E0000C40E00000000000000000000CED3D6CED3D6
          CED3D6CED3D6CED3D6CED3D6CED3D6000000000000CED3D6CED3D6CED3D6CED3
          D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D600000000000084
          0084848284000000CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6
          CED3D6000000000000840084848284FFFFFFFFFFFFC6C3C6000000CED3D6CED3
          D6CED3D6CED3D6CED3D6CED3D6000000000000840084848284FFFFFFFFFFFFFF
          FFFFFFFFFFC6C3C6C6C3C6000000CED3D6CED3D6CED3D6CED3D6000000840084
          848284FFFFFFFFFFFFFFFFFFC6C3C6848284000000C6C3C6C6C3C6C6C3C60000
          00CED3D6CED3D6CED3D6000000FFFFFFFFFFFFFFFFFFC6C3C684828400000084
          0084840084000000C6C3C6C6C3C6C6C3C6000000CED3D6CED3D6000000FFFFFF
          C6C3C6848284000000840084840084840084840084840084000000C6C3C6C6C3
          C6C6C3C6000000CED3D600000084828400000084008484008484008400FFFF84
          0084840084840084840084840084C6C3C6C6C3C6848284000000840084840084
          8400848400848400848400848400840082848400848400848400848400840000
          00C6C3C6848284CED3D6CED3D684008484008484008484008484008484008400
          FFFF00FFFF00FFFF840084840084840084000000848284CED3D6CED3D6CED3D6
          84008484008484008484008484008400828484008400828400FFFF8400848400
          84840084000000CED3D6CED3D6CED3D6CED3D684008484008484008484008400
          FFFF00828400828400FFFF840084840084840084840084000000CED3D6CED3D6
          CED3D6CED3D684008484008484008484008400FFFF00FFFF8400848400848400
          84840084000000CED3D6CED3D6CED3D6CED3D6CED3D6CED3D684008484008484
          0084840084840084840084840084000000CED3D6CED3D6CED3D6CED3D6CED3D6
          CED3D6CED3D6CED3D6CED3D6840084840084840084840084000000CED3D6CED3
          D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D684
          0084000000CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6}
      end
    end
    object FlatPanel3: TPanel
      Left = 1
      Top = 1
      Width = 26
      Height = 22
      Align = alLeft
      BevelOuter = bvNone
      ParentColor = True
      TabOrder = 1
      object BtnPopMenu: TFlatSpeedButton
        Left = 4
        Top = 2
        Width = 18
        Height = 18
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000C40E0000C40E00001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333330333333333333330603333333333330666033
          3333333306666603333333306666666033333300006660000333333330666033
          3333333330666033333333333066603333333333300000333333333333333333
          3333333333333333333333333333333333333333333333333333}
        ParentFont = False
        OnClick = BtnPopMenuClick
      end
    end
  end
  object DsGoodsIn: TDataSource
    DataSet = CdsGoodsIn
    Left = 172
    Top = 152
  end
  object CdsGoodsIn: TckClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DspGoodsIn'
    RemoteServer = DComConn
    Left = 104
    Top = 152
    object CdsGoodsInRecNo: TAutoIncField
      FieldName = 'RecNo'
      ReadOnly = True
    end
    object CdsGoodsInGoodsID: TStringField
      FieldName = 'GoodsID'
      Size = 16
    end
    object CdsGoodsInName: TStringField
      FieldName = 'Name'
      Size = 24
    end
    object CdsGoodsInSpecs: TStringField
      FieldName = 'Specs'
    end
    object CdsGoodsInUnit: TStringField
      FieldName = 'Unit'
      Size = 8
    end
    object CdsGoodsInDepotID: TIntegerField
      FieldName = 'DepotID'
    end
    object CdsGoodsInDepotNo: TStringField
      FieldName = 'DepotNo'
      Size = 8
    end
    object CdsGoodsInDepotName: TStringField
      FieldName = 'DepotName'
    end
    object CdsGoodsInFDate: TDateTimeField
      FieldName = 'FDate'
    end
    object CdsGoodsInStockRecNo: TIntegerField
      FieldName = 'StockRecNo'
    end
    object CdsGoodsInInOutKind: TSmallintField
      FieldName = 'InOutKind'
    end
    object CdsGoodsInQty: TBCDField
      FieldName = 'Qty'
      Precision = 19
    end
    object CdsGoodsInAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object CdsGoodsInPBillNo: TStringField
      FieldName = 'PBillNo'
    end
    object CdsGoodsInPItemNo: TIntegerField
      FieldName = 'PItemNo'
    end
    object CdsGoodsInGroupNo: TIntegerField
      FieldName = 'GroupNo'
    end
    object CdsGoodsInBatchNo: TStringField
      FieldName = 'BatchNo'
      Size = 12
    end
    object CdsGoodsInFlag: TIntegerField
      FieldName = 'Flag'
    end
  end
  object DComConn: TDCOMConnection
    ServerGUID = '{57AB7479-B28A-45CE-B53F-F46EEAA34744}'