custgoods.~dfm

医药连锁经营管理系统源码

object FmCustGoodsEd: TFmCustGoodsEd
  Left = 273
  Top = 183
  ActiveControl = edGoodsID
  BorderStyle = bsDialog
  Caption = #21327#35758#21697#31181#36164#26009#32534#36753
  ClientHeight = 245
  ClientWidth = 397
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object RzLabel2: TRzLabel
    Left = 15
    Top = 15
    Width = 60
    Height = 12
    Caption = #33647#21697#32534#21495#65306
    Transparent = True
  end
  object RzLabel3: TRzLabel
    Left = 192
    Top = 79
    Width = 84
    Height = 12
    Caption = #20027#21333#20301#21327#35758#20215#65306
    Transparent = True
  end
  object RzLabel4: TRzLabel
    Left = 192
    Top = 111
    Width = 84
    Height = 12
    Caption = #36741#21333#20301#21327#35758#20215#65306
    Transparent = True
  end
  object RzLabel6: TRzLabel
    Left = 192
    Top = 15
    Width = 84
    Height = 12
    Caption = #20379#26041#20135#21697#32534#21495#65306
    Transparent = True
  end
  object RzLabel7: TRzLabel
    Left = 192
    Top = 144
    Width = 84
    Height = 12
    Caption = #26368#36817#20132#26131#26085#26399#65306
    Transparent = True
  end
  object RzLabel8: TRzLabel
    Left = 15
    Top = 175
    Width = 60
    Height = 12
    Caption = #22791'    '#27880#65306
    Transparent = True
  end
  object RzLabel1: TRzLabel
    Left = 15
    Top = 47
    Width = 60
    Height = 12
    Caption = #21697'    '#21517#65306
    Transparent = True
  end
  object RzLabel9: TRzLabel
    Left = 192
    Top = 47
    Width = 84
    Height = 12
    Caption = #35268#12288#12288#12288#12288#26684#65306
    Transparent = True
  end
  object RzLabel10: TRzLabel
    Left = 15
    Top = 79
    Width = 60
    Height = 12
    Caption = #20027' '#21333' '#20301#65306
    Transparent = True
  end
  object RzLabel11: TRzLabel
    Left = 15
    Top = 111
    Width = 60
    Height = 12
    Caption = #36741' '#21333' '#20301#65306
    Transparent = True
  end
  object RzPanel3: TRzPanel
    Left = 0
    Top = 200
    Width = 397
    Height = 45
    Align = alBottom
    BorderInner = fsBump
    BorderOuter = fsBump
    BorderSides = [sdTop]
    ParentColor = True
    TabOrder = 6
    DesignSize = (
      397
      45)
    object RzBitBtn5: TRzBitBtn
      Left = 140
      Top = 12
      Anchors = [akLeft]
      Caption = #30830#23450
      Color = 15791348
      HighlightColor = 16026986
      HotTrack = True
      HotTrackColor = 3983359
      ParentColor = False
      TabOrder = 0
      OnClick = RzBitBtn5Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
        66666666666666666666666666666666666666666666666666666666AC666666
        66666666F86666666666666A22C666666666666F88866666666666A2222C6666
        666666F88888666666666A222222C66666666F888888866666666A22CA222C66
        66666F888F88886666666A2C66A222C666666F8866F8888666666AC6666A222C
        66666F86666F8888666666666666A222C66666666666F8888666666666666A22
        2C66666666666F8888666666666666A222C66666666666F8888666666666666A
        22C666666666666F8886666666666666A2C6666666666666F886666666666666
        6AC66666666666666F8666666666666666666666666666666666}
      NumGlyphs = 2
    end
    object RzBitBtn6: TRzBitBtn
      Left = 232
      Top = 12
      Anchors = [akLeft]
      Caption = #21462#28040
      Color = 15791348
      HighlightColor = 16026986
      HotTrack = True
      HotTrackColor = 3983359
      ParentColor = False
      TabOrder = 1
      OnClick = RzBitBtn6Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
        6666666666666666666666666666666666666666666666666666666666666666
        6666666666666666666669000666669000666F88866666F88866691110666911
        10666F8888666F888866669111069111066666F88886F8888666666911101110
        6666666F88888888666666669111110666666666F88888866666666669111066
        666666666F888866666666669111110666666666F88888866666666911101110
        6666666F888888886666669111069111066666F88886F8888666691110666911
        10666F8888666F88886669999666669999666FFFF66666FFFF66666666666666
        6666666666666666666666666666666666666666666666666666}
      NumGlyphs = 2
    end
  end
  object RzDBEdit5: TRzDBEdit
    Left = 276
    Top = 12
    Width = 110
    Height = 19
    DataSource = dsCustGoods
    DataField = 'CustGoodsID'
    AutoSize = False
    FrameVisible = True
    TabOnEnter = True
    TabOrder = 1
  end
  object RzDBDateTimePicker1: TRzDBDateTimePicker
    Left = 276
    Top = 140
    Width = 110
    Height = 20
    Date = 37641.727164247690000000
    Time = 37641.727164247690000000
    DateFormat = dfLong
    TabOrder = 7
    FlatButtons = True
    FrameHotStyle = fsFlat
    FrameVisible = True
    ShowToday = True
    DataField = 'NearDate'
    DataSource = dsCustGoods
  end
  object RzDBEdit6: TRzDBEdit
    Left = 74
    Top = 172
    Width = 310
    Height = 19
    DataSource = dsCustGoods
    DataField = 'Remark'
    AutoSize = False
    FrameVisible = True
    TabOnEnter = True
    TabOrder = 5
  end
  object edPrice1: TRzDBNumericEdit
    Left = 276
    Top = 76
    Width = 110
    Height = 19
    DataSource = dsCustGoods
    DataField = 'Price1'
    AutoSize = False
    FrameVisible = True
    TabOnEnter = True
    TabOrder = 2
    IntegersOnly = False
    DisplayFormat = '0.000'
  end
  object edPrice2: TRzDBNumericEdit
    Left = 276
    Top = 108
    Width = 110
    Height = 19
    DataSource = dsCustGoods
    DataField = 'Price2'
    AutoSize = False
    FrameVisible = True
    TabOnEnter = True
    TabOrder = 3
    IntegersOnly = False
    DisplayFormat = '0.000'
  end
  object edGoodsID: TRzDBButtonEdit
    Left = 72
    Top = 12
    Width = 106
    Height = 19
    DataSource = dsCustGoods
    DataField = 'Goodsid'
    AutoSize = False
    FrameHotStyle = fsFlat
    FrameVisible = True
    TabOnEnter = True
    TabOrder = 0
    OnKeyDown = edGoodsIDKeyDown
    OnButtonClick = edGoodsIDButtonClick
    FlatButtons = True
  end
  object edName: TRzDBEdit
    Left = 72
    Top = 44
    Width = 106
    Height = 19
    DataSource = dsCustGoods
    DataField = 'Name'
    ReadOnly = True
    AutoSize = False
    FrameVisible = True
    TabOnEnter = True
    TabOrder = 8
  end
  object RzDBEdit2: TRzDBEdit
    Left = 276
    Top = 44
    Width = 111
    Height = 19
    DataSource = dsCustGoods
    DataField = 'Specs'
    ReadOnly = True
    AutoSize = False
    FrameVisible = True
    TabOnEnter = True
    TabOrder = 9
  end
  object edUnit1: TRzDBEdit
    Left = 72
    Top = 76
    Width = 106
    Height = 19
    DataSource = dsCustGoods
    DataField = 'Unit1'
    ReadOnly = True
    AutoSize = False
    FrameVisible = True
    TabOnEnter = True
    TabOrder = 10
  end
  object edUnit2: TRzDBEdit
    Left = 72
    Top = 108
    Width = 106
    Height = 19
    DataSource = dsCustGoods
    DataField = 'Unit2'
    ReadOnly = True
    AutoSize = False
    FrameVisible = True
    TabOnEnter = True
    TabOrder = 11
  end
  object RzDBCheckBox1: TRzDBCheckBox
    Left = 72
    Top = 140
    Width = 105
    Height = 17
    DataField = 'DataUsable'
    DataSource = dsCustGoods
    ValueChecked = 'True'
    ValueUnchecked = 'False'
    AlignmentVertical = avCenter
    Caption = #35813#21697#31181#21327#35758#26377#25928
    HotTrack = True
    TabOnEnter = True
    TabOrder = 4
    Transparent = True
  end
  object dsCustGoods: TDataSource
    DataSet = FmCustomers.CdsCustGoods
    Left = 104
    Top = 60
  end
end