vipcustedfrm.dfm

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

object FmVipCustEd: TFmVipCustEd
  Left = 233
  Top = 216
  BorderStyle = bsDialog
  Caption = 'VIP'#23458#25143#36164#26009#32534#36753
  ClientHeight = 258
  ClientWidth = 450
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 12
    Top = 12
    Width = 78
    Height = 12
    Caption = 'VIP'#23458#25143#32534#21495#65306
  end
  object Label2: TLabel
    Left = 29
    Top = 195
    Width = 60
    Height = 12
    Caption = #20139#21463#25240#25187#65306
  end
  object Label3: TLabel
    Left = 237
    Top = 12
    Width = 60
    Height = 12
    Caption = #23458#25143#22995#21517#65306
  end
  object Label4: TLabel
    Left = 29
    Top = 42
    Width = 60
    Height = 12
    Caption = #36523#20221#35777#21495#65306
  end
  object Label5: TLabel
    Left = 237
    Top = 42
    Width = 60
    Height = 12
    Caption = #32852#31995#30005#35805#65306
  end
  object Label6: TLabel
    Left = 29
    Top = 73
    Width = 60
    Height = 12
    Caption = #25163#26426#21495#30721#65306
  end
  object Label7: TLabel
    Left = 29
    Top = 103
    Width = 60
    Height = 12
    Caption = #20303'    '#22336#65306
  end
  object Label8: TLabel
    Left = 237
    Top = 72
    Width = 60
    Height = 12
    Caption = #37038'    '#32534#65306
  end
  object Label9: TLabel
    Left = 29
    Top = 164
    Width = 60
    Height = 12
    Caption = #27880#20876#26085#26399#65306
  end
  object Label10: TLabel
    Left = 29
    Top = 134
    Width = 60
    Height = 12
    Caption = #22791'    '#27880#65306
  end
  object Label11: TLabel
    Left = 237
    Top = 163
    Width = 60
    Height = 12
    Caption = #26631#35782#20449#24687#65306
  end
  object Panel2: TPanel
    Left = 0
    Top = 217
    Width = 450
    Height = 41
    Align = alBottom
    BevelOuter = bvNone
    ParentColor = True
    TabOrder = 0
    object Bevel1: TBevel
      Left = 0
      Top = 0
      Width = 450
      Height = 5
      Align = alTop
      Shape = bsBottomLine
      Style = bsRaised
    end
    object RzBitBtn1: TRzBitBtn
      Left = 256
      Top = 12
      Caption = #30830#23450
      Color = 15791348
      HighlightColor = 16026986
      HotTrack = True
      HotTrackColor = 3983359
      ParentColor = False
      TabOrder = 0
      OnClick = RzBitBtn1Click
      Glyph.Data = {
        36060000424D3606000000000000360400002800000020000000100000000100
        08000000000000020000330B0000330B00000001000000000000000000003300
        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
        E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E80909
        E8E8E8E8E8E8E8E8E8E8E8E8E8E88181E8E8E8E8E8E8E8E8E8E8E8E8E8091010
        09E8E8E8E8E8E8E8E8E8E8E8E881ACAC81E8E8E8E8E8E8E8E8E8E8E809101010
        1009E8E8E8E8E8E8E8E8E8E881ACACACAC81E8E8E8E8E8E8E8E8E80910101010
        101009E8E8E8E8E8E8E8E881ACACACACACAC81E8E8E8E8E8E8E8E80910100909
        10101009E8E8E8E8E8E8E881ACAC8181ACACAC81E8E8E8E8E8E8E8091009E8E8
        0910101009E8E8E8E8E8E881AC81E8E881ACACAC81E8E8E8E8E8E80909E8E8E8
        E80910101009E8E8E8E8E88181E8E8E8E881ACACAC81E8E8E8E8E8E8E8E8E8E8
        E8E80910101009E8E8E8E8E8E8E8E8E8E8E881ACACAC81E8E8E8E8E8E8E8E8E8
        E8E8E80910101009E8E8E8E8E8E8E8E8E8E8E881ACACAC81E8E8E8E8E8E8E8E8
        E8E8E8E809101009E8E8E8E8E8E8E8E8E8E8E8E881ACAC81E8E8E8E8E8E8E8E8
        E8E8E8E8E8091009E8E8E8E8E8E8E8E8E8E8E8E8E881AC81E8E8E8E8E8E8E8E8
        E8E8E8E8E8E80909E8E8E8E8E8E8E8E8E8E8E8E8E8E88181E8E8E8E8E8E8E8E8
        E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8
        E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8}
      NumGlyphs = 2
    end
    object RzBitBtn2: TRzBitBtn
      Left = 348
      Top = 12
      Caption = #21462#28040
      Color = 15791348
      HighlightColor = 16026986
      HotTrack = True
      HotTrackColor = 3983359
      ParentColor = False
      TabOrder = 1
      OnClick = RzBitBtn2Click
      Glyph.Data = {
        36060000424D3606000000000000360400002800000020000000100000000100
        08000000000000020000330B0000330B00000001000000000000000000003300
        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
        E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8
        E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E809090909E8
        E8E8E8E809090909E8E8E881818181E8E8E8E8E881818181E8E8E80910101009
        E8E8E80910101009E8E8E881ACACAC81E8E8E881ACACAC81E8E8E8E809101010
        09E80910101009E8E8E8E8E881ACACAC81E881ACACAC81E8E8E8E8E8E8091010
        100910101009E8E8E8E8E8E8E881ACACAC81ACACAC81E8E8E8E8E8E8E8E80910
        1010101009E8E8E8E8E8E8E8E8E881ACACACACAC81E8E8E8E8E8E8E8E8E8E809
        10101009E8E8E8E8E8E8E8E8E8E8E881ACACAC81E8E8E8E8E8E8E8E8E8E80910
        1010101009E8E8E8E8E8E8E8E8E881ACACACACAC81E8E8E8E8E8E8E8E8091010
        100910101009E8E8E8E8E8E8E881ACACAC81ACACAC81E8E8E8E8E8E809101010
        09E80910101009E8E8E8E8E881ACACAC81E881ACACAC81E8E8E8E80910101009
        E8E8E80910101009E8E8E881ACACAC81E8E8E881ACACAC81E8E8E809090909E8
        E8E8E8E809090909E8E8E881818181E8E8E8E8E881818181E8E8E8E8E8E8E8E8
        E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8
        E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8}
      NumGlyphs = 2
    end
  end
  object EdNo: TRzDBEdit
    Left = 90
    Top = 9
    Width = 124
    Height = 20
    DataSource = DsRtlVipCust
    DataField = 'VIPNo'
    FrameHotStyle = fsFlat
    FrameVisible = True
    TabOrder = 1
  end
  object EdName: TRzDBEdit
    Left = 300
    Top = 9
    Width = 133
    Height = 20
    DataSource = DsRtlVipCust
    DataField = 'Name'
    FrameHotStyle = fsFlat
    FrameVisible = True
    TabOrder = 2
  end
  object RzDBEdit3: TRzDBEdit
    Left = 90
    Top = 39
    Width = 124
    Height = 20
    DataSource = DsRtlVipCust
    DataField = 'IDCard'
    FrameHotStyle = fsFlat
    FrameVisible = True
    TabOrder = 3
  end
  object RzDBEdit4: TRzDBEdit
    Left = 300
    Top = 39
    Width = 133
    Height = 20
    DataSource = DsRtlVipCust
    DataField = 'Tel'
    FrameHotStyle = fsFlat
    FrameVisible = True
    TabOrder = 4
  end
  object RzDBEdit5: TRzDBEdit
    Left = 90
    Top = 69
    Width = 124
    Height = 20
    DataSource = DsRtlVipCust
    DataField = 'Mobile'
    FrameHotStyle = fsFlat
    FrameVisible = True
    TabOrder = 5
  end
  object RzDBEdit6: TRzDBEdit
    Left = 300
    Top = 69
    Width = 133
    Height = 20
    DataSource = DsRtlVipCust
    DataField = 'PostCode'
    FrameHotStyle = fsFlat
    FrameVisible = True
    TabOrder = 6
  end
  object RzDBEdit7: TRzDBEdit
    Left = 90
    Top = 99
    Width = 344
    Height = 20
    DataSource = DsRtlVipCust
    DataField = 'Address'
    FrameHotStyle = fsFlat
    FrameVisible = True
    TabOrder = 7
  end
  object RzDBEdit8: TRzDBEdit
    Left = 90
    Top = 129
    Width = 343
    Height = 20
    DataSource = DsRtlVipCust
    DataField = 'Remark'
    FrameHotStyle = fsFlat
    FrameVisible = True
    TabOrder = 8
  end
  object RzDBDateTimePicker1: TRzDBDateTimePicker
    Left = 90
    Top = 159
    Width = 124
    Height = 20
    Date = 37663.779187719900000000
    Time = 37663.779187719900000000
    TabOrder = 9
    FlatButtons = True
    FrameHotStyle = fsFlat
    FrameVisible = True
    ShowToday = True
    ShowTodayCircle = True
    ShowWeekNumbers = True
    DataField = 'RegDate'
    DataSource = DsRtlVipCust
  end
  object RzDBEdit9: TRzDBEdit
    Left = 300
    Top = 159
    Width = 133
    Height = 20
    DataSource = DsRtlVipCust
    DataField = 'Flag'
    FrameHotStyle = fsFlat
    FrameVisible = True
    TabOrder = 10
  end
  object EdDiscount: TRzDBEdit
    Left = 90
    Top = 189
    Width = 124
    Height = 20
    DataSource = DsRtlVipCust
    DataField = 'Rebate'
    FrameHotStyle = fsFlat
    FrameVisible = True
    TabOrder = 11
  end
  object DsRtlVipCust: TDataSource
    DataSet = FmVipCustomers.CdsRtlVipCust
    Left = 235
    Top = 174
  end
end