edithy1.dfm

思微POS连锁超市管理系统 (商业代码),几年前的东西了

object edithy: Tedithy
  Left = 289
  Top = 113
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = '会员档案'
  ClientHeight = 318
  ClientWidth = 440
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 33
    Top = 54
    Width = 60
    Height = 12
    Caption = '会员编号：'
    Color = clOlive
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Transparent = True
  end
  object Label2: TLabel
    Left = 33
    Top = 85
    Width = 60
    Height = 12
    Caption = '会员名称：'
    Color = clOlive
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Transparent = True
  end
  object Label3: TLabel
    Left = 33
    Top = 146
    Width = 60
    Height = 12
    Caption = '地    址：'
    Color = clOlive
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Transparent = True
  end
  object Label4: TLabel
    Left = 33
    Top = 115
    Width = 60
    Height = 12
    Caption = '联系电话：'
    Color = clOlive
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Transparent = True
  end
  object Label5: TLabel
    Left = 33
    Top = 177
    Width = 60
    Height = 12
    Caption = '注册日期：'
    Color = clOlive
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Transparent = True
  end
  object Label6: TLabel
    Left = 33
    Top = 207
    Width = 60
    Height = 12
    Caption = '有 效 期：'
    Color = clOlive
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Transparent = True
  end
  object Label7: TLabel
    Left = 33
    Top = 238
    Width = 60
    Height = 12
    Caption = '备    注：'
    Color = clOlive
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Transparent = True
  end
  object Label8: TLabel
    Left = 177
    Top = 16
    Width = 85
    Height = 19
    Caption = '会员档案'
    Font.Charset = GB2312_CHARSET
    Font.Color = 10642477
    Font.Height = -19
    Font.Name = '楷体_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object dxDBEdit1: TdxDBEdit
    Left = 96
    Top = 47
    Width = 305
    Color = 15524050
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    Style.BorderColor = clNavy
    Style.BorderStyle = xbsSingle
    Style.ButtonStyle = btsDefault
    Style.Edges = [edgLeft, edgTop, edgRight, edgBottom]
    Style.HotTrack = False
    Style.Shadow = True
    TabOrder = 0
    OnKeyDown = dxDBEdit1KeyDown
    DataField = 'code'
    DataSource = hydawh.DataSource1
    OnChange = dxDBEdit1Change
  end
  object wwDBNavigator1: TwwDBNavigator
    Left = 16
    Top = 266
    Width = 392
    Height = 40
    DataSource = hydawh.DataSource1
    Flat = False
    ImageList = ImageList1
    RepeatInterval.InitialDelay = 500
    RepeatInterval.Interval = 100
    object wwDBNavigator1Button2: TwwNavButton
      Left = 0
      Top = 0
      Width = 38
      Height = 40
      Hint = 'Move to first record'
      ImageIndex = 18
      NumGlyphs = 2
      ShowText = True
      Spacing = 4
      Transparent = False
      Caption = '首页&F'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 0
      Style = nbsFirst
    end
    object wwDBNavigator1Button3: TwwNavButton
      Left = 38
      Top = 0
      Width = 38
      Height = 40
      Hint = 'Move to prior record'
      ImageIndex = 20
      NumGlyphs = 2
      ShowText = True
      Spacing = 4
      Transparent = False
      Caption = '上页&P'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 1
      Style = nbsPrior
    end
    object wwDBNavigator1Button4: TwwNavButton
      Left = 76
      Top = 0
      Width = 38
      Height = 40
      Hint = 'Move to next record'
      ImageIndex = 16
      NumGlyphs = 2
      ShowText = True
      Spacing = 4
      Transparent = False
      Caption = '下页&N'
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 2
      Style = nbsNext
    end
    object wwDBNavigator1Button5: TwwNavButton
      Left = 114
      Top = 0
      Width = 38
      Height = 40
      Hint = 'Move to last record'
      ImageIndex = 14
      NumGlyphs = 2
      ShowText = True
      Spacing = 4
      Transparent = False
      Caption = '末页&L'
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 3
      Style = nbsLast
    end
    object wwDBNavigator1Insert: TwwNavButton
      Left = 152
      Top = 0
      Width = 40
      Height = 40
      Hint = 'Insert new record'
      ImageIndex = 2
      NumGlyphs = 2
      ShowText = True
      Spacing = 4
      Transparent = False
      Caption = '增加&A'
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      OnClick = wwDBNavigator1InsertClick
      Index = 4
      Style = nbsCustom
    end
    object wwDBNavigator1Edit: TwwNavButton
      Left = 192
      Top = 0
      Width = 40
      Height = 40
      Hint = 'Edit current record'
      ImageIndex = 4
      NumGlyphs = 2
      ShowText = True
      Spacing = 4
      Transparent = False
      Caption = '修改&E'
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      OnClick = wwDBNavigator1EditClick
      Index = 5
      Style = nbsEdit
    end
    object wwDBNavigator1Post: TwwNavButton
      Left = 232
      Top = 0
      Width = 40
      Height = 40
      Hint = 'Post changes of current record'
      ImageIndex = 8
      NumGlyphs = 2
      ShowText = True
      Spacing = 4
      Transparent = False
      Caption = '保存&S'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      OnClick = wwDBNavigator1PostClick