depotedfrm.dfm

来自「群星医药系统源码」· DFM 代码 · 共 358 行

object FmDepotEd: TFmDepotEd
  Left = 320
  Top = 246
  BorderStyle = bsDialog
  Caption = #32534#36753#20179#24211#36164#26009
  ClientHeight = 268
  ClientWidth = 454
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 32
    Top = 16
    Width = 60
    Height = 12
    Caption = #20179#24211#32534#21495#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clOlive
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 232
    Top = 112
    Width = 60
    Height = 12
    Caption = #25152#22312#22320#21306#65306
  end
  object Label3: TLabel
    Left = 32
    Top = 177
    Width = 60
    Height = 12
    Caption = #22791#12288#12288#27880#65306
  end
  object Label4: TLabel
    Left = 32
    Top = 144
    Width = 60
    Height = 12
    Caption = #22320#12288#12288#22336#65306
  end
  object Label5: TLabel
    Left = 232
    Top = 82
    Width = 60
    Height = 12
    Caption = #20256#12288#12288#30495#65306
  end
  object Label6: TLabel
    Left = 232
    Top = 16
    Width = 60
    Height = 12
    Caption = #20179#24211#21517#31216#65306
  end
  object Label7: TLabel
    Left = 232
    Top = 48
    Width = 60
    Height = 12
    Caption = #38754#12288#12288#31215#65306
  end
  object Label8: TLabel
    Left = 32
    Top = 114
    Width = 60
    Height = 12
    Caption = #30005#12288#12288#35805#65306
  end
  object Label9: TLabel
    Left = 32
    Top = 80
    Width = 60
    Height = 12
    Caption = #32852' '#31995' '#20154#65306
  end
  object RzLabel1: TRzLabel
    Left = 144
    Top = 16
    Width = 6
    Height = 12
    Caption = '-'
  end
  object Label10: TLabel
    Left = 32
    Top = 48
    Width = 60
    Height = 12
    Caption = #40664#35748#24211#20301#65306
  end
  object Panel2: TPanel
    Left = 0
    Top = 225
    Width = 454
    Height = 43
    Align = alBottom
    BevelOuter = bvNone
    ParentColor = True
    TabOrder = 11
    object RzBorder1: TRzBorder
      Left = 0
      Top = 0
      Width = 454
      Height = 6
      BorderInner = fsBump
      BorderOuter = fsBump
      BorderSides = [sdBottom]
      Align = alTop
    end
    object BtnNew: TRzBitBtn
      Left = 232
      Top = 13
      Height = 24
      Cancel = True
      Caption = #21462#28040'(&C)'
      Color = 15791348
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      HighlightColor = 16026986
      HotTrack = True
      HotTrackColor = 3983359
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = BtnNewClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
        6666666666666666666666666666666666666666666666666666666666666666
        6666666666666666666669000666669000666F88866666F88866691110666911
        10666F8888666F888866669111069111066666F88886F8888666666911101110
        6666666F88888888666666669111110666666666F88888866666666669111066
        666666666F888866666666669111110666666666F88888866666666911101110
        6666666F888888886666669111069111066666F88886F8888666691110666911
        10666F8888666F88886669999666669999666FFFF66666FFFF66666666666666
        6666666666666666666666666666666666666666666666666666}
      NumGlyphs = 2
    end
    object RzBitBtn1: TRzBitBtn
      Left = 152
      Top = 13
      Height = 24
      Caption = #30830#23450'(&O)'
      Color = 15791348
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      HighlightColor = 16026986
      HotTrack = True
      HotTrackColor = 3983359
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = RzBitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
        66666666666666666666666666666666666666666666666666666666AC666666
        66666666F86666666666666A22C666666666666F88866666666666A2222C6666
        666666F88888666666666A222222C66666666F888888866666666A22CA222C66
        66666F888F88886666666A2C66A222C666666F8866F8888666666AC6666A222C
        66666F86666F8888666666666666A222C66666666666F8888666666666666A22
        2C66666666666F8888666666666666A222C66666666666F8888666666666666A
        22C666666666666F8886666666666666A2C6666666666666F886666666666666
        6AC66666666666666F8666666666666666666666666666666666}
      NumGlyphs = 2
    end
  end
  object edLinkMan: TRzDBEdit
    Left = 92
    Top = 76
    Width = 125
    Height = 20
    DataSource = FmDepotBerths.DsDepots
    DataField = 'LINKMAN'
    FrameHotStyle = fsFlat
    FrameVisible = True
    TabOnEnter = True
    TabOrder = 4
  end
  object edFax: TRzDBEdit
    Left = 292
    Top = 76
    Width = 125
    Height = 20
    DataSource = FmDepotBerths.DsDepots
    DataField = 'FAX'
    FrameHotStyle = fsFlat
    FrameVisible = True
    TabOnEnter = True
    TabOrder = 5
  end
  object edAddr: TRzDBEdit
    Left = 92
    Top = 140
    Width = 325
    Height = 20
    DataSource = FmDepotBerths.DsDepots
    DataField = 'ADDR'
    FrameHotStyle = fsFlat
    FrameVisible = True
    TabOnEnter = True
    TabOrder = 8
  end
  object edRemark: TRzDBEdit
    Left = 92
    Top = 174
    Width = 325
    Height = 20
    DataSource = FmDepotBerths.DsDepots
    DataField = 'REMARK'
    FrameHotStyle = fsFlat
    FrameVisible = True
    TabOnEnter = True
    TabOrder = 9
  end
  object edName: TRzDBEdit
    Left = 292
    Top = 12
    Width = 125
    Height = 20
    DataSource = FmDepotBerths.DsDepots
    DataField = 'DepotName'
    FrameHotStyle = fsFlat
    FrameVisible = True
    MaxLength = 16
    TabOnEnter = True
    TabOrder = 1
  end
  object edTel: TRzDBEdit
    Left = 92
    Top = 108
    Width = 125
    Height = 20
    DataSource = FmDepotBerths.DsDepots
    DataField = 'TEL'
    FrameHotStyle = fsFlat
    FrameVisible = True
    TabOnEnter = True
    TabOrder = 6
  end
  object edSize: TRzDBNumericEdit
    Left = 292
    Top = 44
    Width = 125
    Height = 20
    DataSource = FmDepotBerths.DsDepots
    DataField = 'SIZE'
    FrameHotStyle = fsFlat
    FrameVisible = True
    TabOnEnter = True
    TabOrder = 3
    IntegersOnly = False
    Max = 99999.990000000000000000
    DisplayFormat = '0.##'
  end
  object edArea: TRzDBEdit
    Left = 292
    Top = 108
    Width = 125
    Height = 20
    DataSource = FmDepotBerths.DsDepots
    DataField = 'AREA'
    FrameHotStyle = fsFlat
    FrameVisible = True
    TabOnEnter = True
    TabOrder = 7
  end
  object EdRoot: TRzEdit
    Left = 92
    Top = 12
    Width = 50
    Height = 20
    Enabled = False
    FrameHotStyle = fsFlat
    FrameVisible = True
    TabOrder = 12
  end
  object edDepotNo: TRzNumericEdit
    Left = 152
    Top = 12
    Width = 65
    Height = 20
    Text = '0'
    Alignment = taLeftJustify
    FrameHotStyle = fsFlat
    FrameVisible = True
    TabOrder = 0
    DisplayFormat = ',0;(,0)'
  end
  object ckRankDepot: TRzDBCheckBox
    Left = 92
    Top = 199
    Width = 140
    Height = 17
    DataField = 'RankDepot'
    DataSource = FmDepotBerths.DsDepots
    ValueChecked = 'True'
    ValueUnchecked = 'False'
    AlignmentVertical = avCenter
    Caption = #35813#20179#24211#20026#34394#25311#20998#32423#20179#24211
    HotTrack = True
    TabOrder = 10
    OnClick = ckRankDepotClick
  end
  object edDefBerthNo: TRzDBButtonEdit
    Left = 92
    Top = 44
    Width = 125
    Height = 20
    DataSource = FmDepotBerths.DsDepots
    DataField = 'DefBerthNo'
    ReadOnly = True
    FrameVisible = True
    TabOrder = 2
    OnButtonClick = edDefBerthNoButtonClick
    FlatButtons = True
  end
  object chkStoreWhole: TRzDBCheckBox
    Left = 347
    Top = 199
    Width = 68
    Height = 17
    DataField = 'StoreWhole'
    DataSource = FmDepotBerths.DsDepots
    ValueChecked = 'True'
    ValueUnchecked = 'False'
    AlignmentVertical = avCenter
    Caption = #25972#20214#20179#24211
    HotTrack = True
    TabOrder = 13
  end
end