.#depotberthsedfm.dfm.1.9

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

object FmDepotBerthsEd: TFmDepotBerthsEd
  Left = 274
  Top = 283
  BorderStyle = bsDialog
  Caption = #32534#36753#20179#24211#36135#20301
  ClientHeight = 253
  ClientWidth = 474
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 172
    Top = 16
    Width = 60
    Height = 12
    Caption = #20179#24211#32534#21495#65306
  end
  object Label2: TLabel
    Left = 365
    Top = 49
    Width = 36
    Height = 12
    Caption = #21333#20301#65306
  end
  object Label3: TLabel
    Left = 16
    Top = 85
    Width = 60
    Height = 12
    Caption = #21487#25215#37325#37327#65306
  end
  object Label4: TLabel
    Left = 16
    Top = 120
    Width = 60
    Height = 12
    Caption = #20301#32622#25551#36848#65306
  end
  object Label12: TLabel
    Left = 10
    Top = 19
    Width = 60
    Height = 12
    Caption = #36135#20301#32534#21495#65306
  end
  object Label13: TLabel
    Left = 52
    Top = 50
    Width = 24
    Height = 12
    Caption = #38271#65306
  end
  object Label14: TLabel
    Left = 261
    Top = 50
    Width = 24
    Height = 12
    Caption = #39640#65306
  end
  object Label10: TLabel
    Left = 145
    Top = 85
    Width = 36
    Height = 12
    Caption = #21333#20301#65306
  end
  object Label21: TLabel
    Left = 157
    Top = 50
    Width = 24
    Height = 12
    Caption = #23485#65306
  end
  object Label5: TLabel
    Left = 16
    Top = 154
    Width = 60
    Height = 12
    Caption = #23384#25918#25551#36848#65306
  end
  object Label6: TLabel
    Left = 265
    Top = 85
    Width = 84
    Height = 12
    Caption = #19978#27425#30424#23384#26085#26399#65306
  end
  object Label7: TLabel
    Left = 16
    Top = 184
    Width = 60
    Height = 12
    Caption = #22791'    '#27880#65306
  end
  object Panel2: TPanel
    Left = 0
    Top = 212
    Width = 474
    Height = 41
    Align = alBottom
    BevelOuter = bvNone
    ParentColor = True
    TabOrder = 11
    object RzBorder1: TRzBorder
      Left = 0
      Top = 0
      Width = 474
      Height = 6
      BorderInner = fsBump
      BorderOuter = fsBump
      BorderSides = [sdBottom]
      Align = alTop
    end
    object BtnNew: TRzBitBtn
      Left = 361
      Top = 11
      Width = 77
      Height = 26
      Cancel = True
      Caption = #21462#28040'(&C)'
      Color = 15791348
      Font.Charset = GB2312_CHARSET
      Font.Color = clBtnText
      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 = 272
      Top = 11
      Width = 77
      Height = 26
      Caption = #30830#23450'(&O)'
      Color = 15791348
      Font.Charset = GB2312_CHARSET
      Font.Color = clBtnText
      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 edBerthNo: TRzDBEdit
    Left = 74
    Top = 14
    Width = 83
    Height = 20
    DataSource = FmDepotBerths.DsDepotBerths
    DataField = 'BerthNo'
    FrameHotStyle = fsFlat
    FrameVisible = True
    TabOnEnter = True
    TabOrder = 0
  end
  object RzEdit7: TRzDBEdit
    Left = 76
    Top = 115
    Width = 382
    Height = 20
    DataSource = FmDepotBerths.DsDepotBerths
    DataField = 'Location'
    FrameHotStyle = fsFlat
    FrameVisible = True
    TabOnEnter = True
    TabOrder = 8
  end
  object RzDBEdit5: TRzDBEdit
    Left = 181
    Top = 81
    Width = 64
    Height = 20
    DataSource = FmDepotBerths.DsDepotBerths
    DataField = 'WeightUnit'
    FrameHotStyle = fsFlat
    FrameVisible = True
    TabOnEnter = True
    TabOrder = 6
  end
  object RzDBEdit10: TRzDBEdit
    Left = 76
    Top = 147
    Width = 382
    Height = 20
    DataSource = FmDepotBerths.DsDepotBerths
    DataField = 'CheckDesc'
    FrameHotStyle = fsFlat
    FrameVisible = True
    TabOnEnter = True
    TabOrder = 9
  end
  object RzDBEdit12: TRzDBEdit
    Left = 76
    Top = 179
    Width = 382
    Height = 20
    DataSource = FmDepotBerths.DsDepotBerths
    DataField = 'Remark'
    FrameHotStyle = fsFlat
    FrameVisible = True
    TabOnEnter = True
    TabOrder = 10
  end
  object RzEdit6: TRzDBNumericEdit
    Left = 76
    Top = 45
    Width = 65
    Height = 20
    DataSource = FmDepotBerths.DsDepotBerths
    DataField = 'Length'
    FrameHotStyle = fsFlat
    FrameVisible = True
    TabOnEnter = True
    TabOrder = 1
    IntegersOnly = False
    DisplayFormat = '0.000;(0.000)'
  end
  object RzDBEdit2: TRzDBNumericEdit
    Left = 181
    Top = 45
    Width = 65
    Height = 20
    DataSource = FmDepotBerths.DsDepotBerths
    DataField = 'Width'
    FrameHotStyle = fsFlat
    FrameVisible = True
    TabOnEnter = True
    TabOrder = 2
    IntegersOnly = False
    DisplayFormat = '0.000;(0.000)'
  end
  object RzDBEdit4: TRzDBNumericEdit
    Left = 288
    Top = 45
    Width = 65
    Height = 20
    DataSource = FmDepotBerths.DsDepotBerths
    DataField = 'Height'
    FrameHotStyle = fsFlat
    FrameVisible = True
    TabOnEnter = True
    TabOrder = 3
    IntegersOnly = False
    DisplayFormat = '0.000;(0.000)'
  end
  object RzDBEdit6: TRzDBNumericEdit
    Left = 76
    Top = 81
    Width = 64
    Height = 20
    DataSource = FmDepotBerths.DsDepotBerths
    DataField = 'HoldWeight'
    FrameHotStyle = fsFlat
    FrameVisible = True
    TabOnEnter = True
    TabOrder = 5
    IntegersOnly = False
    DisplayFormat = '0.000;(0.000)'
  end
  object RzDBEdit7: TRzDBEdit
    Left = 404
    Top = 45
    Width = 53
    Height = 20
    DataSource = FmDepotBerths.DsDepotBerths
    DataField = 'LengthUnit'
    FrameHotStyle = fsFlat
    FrameVisible = True
    TabOnEnter = True
    TabOrder = 4
  end
  object edDepotNo: TRzEdit
    Left = 236
    Top = 12
    Width = 106
    Height = 20
    FrameHotStyle = fsFlat
    FrameVisible = True
    ReadOnly = True
    TabOnEnter = True
    TabOrder = 12
  end
  object RzDBEdit1: TRzDBDateTimePicker
    Left = 356
    Top = 81
    Width = 101
    Height = 20
    Date = 37638.505384699080000000
    Time = 37638.505384699080000000
    TabOrder = 7
    OnKeyDown = RzDBEdit1KeyDown
    FlatButtons = True
    FrameHotStyle = fsFlat
    FrameVisible = True
    ShowToday = True
    ShowTodayCircle = True
    DataField = 'LastCheckDate'
    DataSource = FmDepotBerths.DsDepotBerths
  end
  object RzDBCheckBox1: TRzDBCheckBox
    Left = 363
    Top = 13
    Width = 68
    Height = 17
    DataField = 'StockUsable'
    DataSource = FmDepotBerths.DsDepotBerths
    ValueChecked = 'True'
    ValueUnchecked = 'False'
    Caption = #24211#23384#21487#29992
    HotTrack = True
    TabOrder = 13
  end
end