stockinfm.dfm

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

inherited FmStockIn: TFmStockIn
  Left = 7
  Top = 193
  Width = 786
  Height = 537
  Caption = #33647#21697#20837#24211
  PixelsPerInch = 96
  TextHeight = 12
  inherited TBDock1: TTBDock
    Width = 778
  end
  inherited TBDock2: TTBDock
    Top = 501
    Width = 778
  end
  inherited TBDock3: TTBDock
    Left = 769
    Height = 462
  end
  inherited TBDock4: TTBDock
    Height = 462
  end
  inherited plBoard: TRzPanel
    Width = 760
    Height = 462
    inherited plHeader: TRzPanel
      Width = 756
      Height = 89
      TabOrder = 1
      object Label3: TLabel
        Left = 532
        Top = 13
        Width = 60
        Height = 12
        Caption = #39564' '#36135' '#21592#65306
      end
      object Label1: TLabel
        Left = 9
        Top = 13
        Width = 60
        Height = 12
        Alignment = taRightJustify
        Caption = #21333#25454#32534#21495#65306
      end
      object Label2: TLabel
        Left = 9
        Top = 41
        Width = 60
        Height = 12
        Alignment = taRightJustify
        Caption = #20837#24211#26085#26399#65306
      end
      object Label7: TLabel
        Left = 532
        Top = 41
        Width = 60
        Height = 12
        Caption = #22797' '#26680' '#21592#65306
      end
      object Label4: TLabel
        Left = 256
        Top = 67
        Width = 60
        Height = 12
        Caption = #23384#36135#20179#24211#65306
      end
      object Label5: TLabel
        Left = 256
        Top = 13
        Width = 60
        Height = 12
        Alignment = taRightJustify
        Caption = #20379#24212#21378#21830#65306
      end
      object Label6: TLabel
        Left = 256
        Top = 41
        Width = 60
        Height = 12
        Caption = #20837#24211#26041#24335#65306
      end
      object Lab_State: TLabel
        Left = 532
        Top = 67
        Width = 96
        Height = 12
        Caption = #21333#25454#29366#24577#65306#26410#22797#26680
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object SpeedButton1: TSpeedButton
        Left = 452
        Top = 36
        Width = 19
        Height = 20
        Hint = #32534#36753#20837#24211#26041#24335
        Flat = True
        Glyph.Data = {
          36060000424D3606000000000000360400002800000020000000100000000100
          08000000000000020000520B0000520B00000001000000010000000000003300
          00006600000099000000CC000000FF0000000033000033330000663300009933
          0000CC330000FF33000000660000336600006666000099660000CC660000FF66
          000000990000339900006699000099990000CC990000FF99000000CC000033CC
          000066CC000099CC0000CCCC0000FFCC000000FF000033FF000066FF000099FF
          0000CCFF0000FFFF000000003300330033006600330099003300CC003300FF00
          330000333300333333006633330099333300CC333300FF333300006633003366
          33006666330099663300CC663300FF6633000099330033993300669933009999
          3300CC993300FF99330000CC330033CC330066CC330099CC3300CCCC3300FFCC
          330000FF330033FF330066FF330099FF3300CCFF3300FFFF3300000066003300
          66006600660099006600CC006600FF0066000033660033336600663366009933
          6600CC336600FF33660000666600336666006666660099666600CC666600FF66
          660000996600339966006699660099996600CC996600FF99660000CC660033CC
          660066CC660099CC6600CCCC6600FFCC660000FF660033FF660066FF660099FF
          6600CCFF6600FFFF660000009900330099006600990099009900CC009900FF00
          990000339900333399006633990099339900CC339900FF339900006699003366
          99006666990099669900CC669900FF6699000099990033999900669999009999
          9900CC999900FF99990000CC990033CC990066CC990099CC9900CCCC9900FFCC
          990000FF990033FF990066FF990099FF9900CCFF9900FFFF99000000CC003300
          CC006600CC009900CC00CC00CC00FF00CC000033CC003333CC006633CC009933
          CC00CC33CC00FF33CC000066CC003366CC006666CC009966CC00CC66CC00FF66
          CC000099CC003399CC006699CC009999CC00CC99CC00FF99CC0000CCCC0033CC
          CC0066CCCC0099CCCC00CCCCCC00FFCCCC0000FFCC0033FFCC0066FFCC0099FF
          CC00CCFFCC00FFFFCC000000FF003300FF006600FF009900FF00CC00FF00FF00
          FF000033FF003333FF006633FF009933FF00CC33FF00FF33FF000066FF003366
          FF006666FF009966FF00CC66FF00FF66FF000099FF003399FF006699FF009999
          FF00CC99FF00FF99FF0000CCFF0033CCFF0066CCFF0099CCFF00CCCCFF00FFCC
          FF0000FFFF0033FFFF0066FFFF0099FFFF00CCFFFF00FFFFFF00000080000080
          000000808000800000008000800080800000C0C0C00080808000191919004C4C
          4C00B2B2B200E5E5E500C8AC2800E0CC6600F2EABF00B59B2400D8E9EC009933
          6600D075A300ECC6D900646F710099A8AC00E2EFF10000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000E8E8E8E8E8E8
          E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8
          E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E809090909E8E8
          E809090909E8E8E8E8E881818181E8E8E881818181E8E8E8E8E80910101009E8
          E80910101009E8E8E8E881ACACAC81E8E881ACACAC81E8E8E8E8E80910101009
          E8E80910101009E8E8E8E881ACACAC81E8E881ACACAC81E8E8E8E8E809101010
          09E8E80910101009E8E8E8E881ACACAC81E8E881ACACAC81E8E8E8E8E8091010
          1009E8E80910101009E8E8E8E881ACACAC81E8E881ACACAC81E8E8E8E8E80910
          101009E8E80910101009E8E8E8E881ACACAC81E8E881ACACAC81E8E8E8E80910
          101009E8E80910101009E8E8E8E881ACACAC81E8E881ACACAC81E8E8E8091010
          1009E8E80910101009E8E8E8E881ACACAC81E8E881ACACAC81E8E8E809101010
          09E8E80910101009E8E8E8E881ACACAC81E8E881ACACAC81E8E8E80910101009
          E8E80910101009E8E8E8E881ACACAC81E8E881ACACAC81E8E8E80910101009E8
          E80910101009E8E8E8E881ACACAC81E8E881ACACAC81E8E8E8E809090909E8E8
          E809090909E8E8E8E8E881818181E8E8E881818181E8E8E8E8E8E8E8E8E8E8E8
          E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8
          E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton1Click
      end
      object Label8: TLabel
        Left = 9
        Top = 67
        Width = 60
        Height = 12
        Alignment = taRightJustify
        Caption = #23545#24212#21333#21495#65306
      end
      object edBillID: TRzDBEdit
        Tag = -1
        Left = 67
        Top = 9
        Width = 130
        Height = 20
        DataSource = DsStockIn
        DataField = 'BillNo'
        ReadOnly = True
        Ctl3D = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        ParentCtl3D = False
        TabOnEnter = True
        TabOrder = 0
      end
      object edDate: TRzDBDateTimePicker
        Left = 67
        Top = 36
        Width = 130
        Height = 19
        CalColors.TitleBackColor = clGray
        CalColors.TitleTextColor = clSilver
        Date = 37642.851133541670000000
        Time = 37642.851133541670000000
        DateFormat = dfLong
        TabOrder = 5
        FlatButtons = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        ShowToday = True
        ShowTodayCircle = True
        ShowWeekNumbers = True
        DataField = 'FDate'
        DataSource = DsStockIn
      end
      object RzDBEdit1: TRzDBEdit
        Tag = -1
        Left = 591
        Top = 36
        Width = 145
        Height = 20
        DataSource = DsStockIn
        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 = 7
      end
      object edEmpID: TRzDBButtonEdit
        Tag = -1
        Left = 645
        Top = 9
        Width = 91
        Height = 20
        DataSource = DsStockIn
        DataField = 'Name'
        ReadOnly = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 4
        OnButtonClick = edEmpIDButtonClick
        FlatButtons = True
      end
      object edDepot: TRzDBButtonEdit
        Tag = -1
        Left = 371
        Top = 63
        Width = 100
        Height = 20
        DataSource = DsStockIn
        DataField = 'DepotName'
        ReadOnly = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 10
        OnButtonClick = edDepotButtonClick
        FlatButtons = True
      end
      object edDepart: TRzDBButtonEdit
        Tag = -1
        Left = 371
        Top = 9
        Width = 100
        Height = 20
        DataSource = DsStockIn
        DataField = 'ProvName'
        ReadOnly = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 2
        OnButtonClick = edDepartButtonClick
        FlatButtons = True
      end
      object cbInOutKind: TRzComboBox
        Left = 314
        Top = 36
        Width = 137
        Height = 20
        AllowEdit = False
        AutoComplete = False
        Style = csDropDownList
        Ctl3D = False
        DisabledColor = clWhite
        FlatButtons = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        ItemHeight = 12
        ParentCtl3D = False
        TabOnEnter = True
        TabOrder = 6
      end
      object RzDBEdit2: TRzDBEdit
        Left = 314
        Top = 9
        Width = 56
        Height = 20
        DataSource = DsStockIn
        DataField = 'ProvNo'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 1
      end
      object RzDBEdit3: TRzDBEdit
        Left = 314
        Top = 63
        Width = 56
        Height = 20
        DataSource = DsStockIn
        DataField = 'DepotNo'
        Alignment = taRightJustify
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 9
      end
      object RzDBEdit5: TRzDBEdit
        Left = 591
        Top = 9
        Width = 53
        Height = 20
        DataSource = DsStockIn
        DataField = 'EmpNo'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 3
      end
      object RzDBEdit6: TRzDBEdit
        Tag = -1
        Left = 67
        Top = 63
        Width = 130
        Height = 20
        DataSource = DsStockIn
        DataField = 'PBillNO'
        ReadOnly = True
        Ctl3D = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        ParentCtl3D = False
        TabOnEnter = True
        TabOrder = 8
      end
    end
    inherited plBody: TRzPanel
      Top = 91
      Width = 756
      Height = 339
      TabOrder = 2
      object dbgStockInDtl: TxDBGridEh
        Left = 0
        Top = 0
        Width = 756
        Height = 339
        Align = alClient
        AllowedOperations = [alopUpdateEh, alopAppendEh]
        DataSource = DsStockInDtl
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghRowHighlight]
        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 = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Width = 28
          end
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'GoodsID'
            Footers = <>
            Title.Alignment = taCenter
            Width = 68
          end
          item
            EditButtons = <>
            FieldName = 'Name'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Width = 85
          end
          item
            EditButtons = <>
            FieldName = 'Specs'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Width = 68