vipcards.dfm

飞恒进销存(超市批发)管理系统V5.1（含源程序） 语言：Delphi 6/7 相关控件：FastReport 2.4以上, Ehlib 3.4以上 1.数据库为fhe2db_V51.da

inherited VIPCardsForm: TVIPCardsForm
  Left = 222
  Top = 213
  Caption = #20250#21592#36164#26009
  ClientHeight = 186
  ClientWidth = 471
  OldCreateOrder = True
  Position = poMainFormCenter
  PixelsPerInch = 96
  TextHeight = 12
  inherited code: TLabel
    Left = 27
    Top = 65
    Width = 60
    Caption = #20250#21592#21345#21495#65306
  end
  object pnlDetail: TPanel [1]
    Left = 7
    Top = 7
    Width = 341
    Height = 169
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 7
    object Label1: TLabel
      Left = 81
      Top = 196
      Width = 60
      Height = 12
      Caption = #20248#24800#26041#24335#65306
      Visible = False
    end
    object Label2: TLabel
      Left = 186
      Top = 21
      Width = 60
      Height = 12
      Caption = #21345' '#31867' '#22411#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 11
      Top = 50
      Width = 60
      Height = 12
      Caption = #21457#21345#26085#26399#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 186
      Top = 51
      Width = 60
      Height = 12
      Caption = #26377#25928#26085#26399#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 186
      Top = 78
      Width = 60
      Height = 12
      Caption = #21517'    '#31216#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 11
      Top = 137
      Width = 60
      Height = 12
      Caption = #35777#20214#21495#30721#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 188
      Top = 199
      Width = 60
      Height = 12
      Caption = #21345#20869#20313#39069#65306
      Visible = False
    end
    object Label9: TLabel
      Left = 15
      Top = 199
      Width = 60
      Height = 12
      Caption = #25240' '#25187' '#29575#65306
      Visible = False
    end
    object Label10: TLabel
      Left = 151
      Top = 199
      Width = 6
      Height = 12
      Caption = '%'
      Visible = False
    end
    object Label4: TLabel
      Left = 11
      Top = 21
      Width = 60
      Height = 12
      Caption = #20250#21592#21345#21495#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel
      Left = 11
      Top = 107
      Width = 60
      Height = 12
      Caption = #30005'    '#35805#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label12: TLabel
      Left = 11
      Top = 78
      Width = 60
      Height = 12
      Caption = #21345' '#29366' '#24577#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object cmbCardType: TDBComboBoxEh
      Left = 244
      Top = 18
      Width = 82
      Height = 20
      Ctl3D = True
      DataField = 'CardType'
      DropDownBox.AutoDrop = True
      EditButtons = <>
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      Items.Strings = (
        #20248#24800#21345)
      KeyItems.Strings = (
        #20248#24800#21345)
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
      Visible = True
    end
    object cmbDiscountType: TDBComboBoxEh
      Left = 137
      Top = 193
      Width = 85
      Height = 20
      Ctl3D = True
      EditButtons = <>
      Items.Strings = (
        #20250#21592#20215#28040#36153
        #32047#35745#28040#36153#25240#25187
        #33258#23450#20041#25240#25187)
      KeyItems.Strings = (
        #20250#21592#20215#28040#36153
        #32047#35745#28040#36153#25240#25187
        #33258#23450#20041#25240#25187)
      ParentCtl3D = False
      TabOrder = 1
      Visible = False
    end
    object dtHandOutDate: TDBDateTimeEditEh
      Left = 70
      Top = 47
      Width = 81
      Height = 20
      Ctl3D = True
      DataField = 'HandOutDate'
      EditButtons = <>
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      Kind = dtkDateEh
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 2
      Visible = True
    end
    object dtValidDate: TDBDateTimeEditEh
      Left = 244
      Top = 47
      Width = 82
      Height = 20
      Ctl3D = True
      DataField = 'ValidDate'
      EditButtons = <>
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      Kind = dtkDateEh
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 3
      Visible = True
    end
    object dbeHolderName: TDBEdit
      Left = 244
      Top = 75
      Width = 82
      Height = 20
      Ctl3D = True
      DataField = 'HolderName'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ImeName = #20116#31508#22411#30721
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 4
    end
    object dbeHolderID: TDBEdit
      Left = 70
      Top = 133
      Width = 167
      Height = 20
      Ctl3D = True
      DataField = 'HolderID'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ImeName = #20116#31508#22411#30721
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 5
    end
    object dbeAmount: TDBEdit
      Left = 244
      Top = 196
      Width = 82
      Height = 18
      Ctl3D = False
      ImeName = #20116#31508#22411#30721
      ParentCtl3D = False
      TabOrder = 7
      Visible = False
    end
    object dbeDiscount: TDBEdit
      Left = 70
      Top = 196
      Width = 79
      Height = 18
      Ctl3D = False
      ImeName = #20116#31508#22411#30721
      ParentCtl3D = False
      TabOrder = 6
      Visible = False
    end
    object dbeHolderTel: TDBEdit
      Left = 70
      Top = 104
      Width = 168
      Height = 20
      Ctl3D = True
      DataField = 'HolderTel'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ImeName = #20116#31508#22411#30721
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 8
    end
    object cmbCardState: TDBComboBoxEh
      Left = 70
      Top = 76
      Width = 82
      Height = 20
      Ctl3D = True
      DataField = 'CardState'
      DropDownBox.AutoDrop = True
      EditButtons = <>
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      Items.Strings = (
        #27491#24120
        #20572#29992)
      KeyItems.Strings = (
        #27491#24120
        #20572#29992)
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 9
      Visible = True
    end
    object btnBatch: TBitBtn
      Left = 244
      Top = 103
      Width = 82
      Height = 48
      Caption = #25209#37327#22788#29702
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 10
      OnClick = btnBatchClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        55555555FFFFFFFF5555555000000005555555577777777FF555550999999900
        55555575555555775F55509999999901055557F55555557F75F5001111111101
        105577FFFFFFFF7FF75F00000000000011057777777777775F755070FFFFFF0F
        01105777F555557F7FF75500FFFFFF0F00105577F555FF7F77575550FF70000F
        0F0055575FF777757F775555000FFFFF0F005555777555FF7F77555550FF7000
        0F055555575FF777757F555555000FFFFF05555555777555FF7F55555550FF70
        0005555555575FF7777555555555000555555555555577755555555555555555
        5555555555555555555555555555555555555555555555555555}
      NumGlyphs = 2
    end
  end
  inherited BtnPrior: TBitBtn
    Left = 360
    Top = 9
    OnClick = BtnPriorClick
  end
  inherited BtnNext: TBitBtn
    Left = 360
    Top = 44
    OnClick = BtnNextClick
  end
  inherited BtnSave: TBitBtn
    Left = 360
    Top = 80
  end
  inherited Btnexit: TBitBtn
    Left = 360
    Top = 115
    OnClick = BtnexitClick
  end
  inherited Btnadd: TBitBtn
    Left = 360
    Top = 151
    OnClick = BtnaddClick
  end
  inherited DEno: TDBEdit
    Left = 77
    Top = 26
    Width = 85
    Height = 17
    DataField = 'CardNo'
    ParentCtl3D = False
  end
end