lookup.dfm

闭路电视收费系统

object FormLookup: TFormLookup
  Left = 260
  Top = 172
  AutoScroll = False
  Caption = '用户详细信息'
  ClientHeight = 433
  ClientWidth = 672
  Color = clBtnFace
  Constraints.MinHeight = 460
  Constraints.MinWidth = 460
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 246
    Width = 103
    Height = 16
    Caption = '用户服务项目'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DBGridService: TwwDBGrid
    Left = 8
    Top = 264
    Width = 569
    Height = 137
    Selected.Strings = (
      'ServName'#9'25'#9'服务项目'
      'StartDate'#9'15'#9'起始日期'
      'ServTime'#9'10'#9'时限（月）'
      'Fee'#9'10'#9'交费金额')
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    DataSource = DataM.DSServiceLookup
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    TitleAlignment = taCenter
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -16
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = False
    IndicatorColor = icBlack
  end
  object fcStatusBar1: TfcStatusBar
    Left = 0
    Top = 408
    Width = 672
    Height = 25
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = '宋体'
    Font.Style = []
    Panels = <>
    ParentFont = False
    SimplePanel = True
    StatusBarText.CapsLock = 'Caps'
    StatusBarText.Overwrite = 'Overwrite'
    StatusBarText.NumLock = 'Num'
    StatusBarText.ScrollLock = 'Scroll'
  end
  object BtnPrint: TfcShapeBtn
    Left = 592
    Top = 317
    Width = 70
    Height = 30
    Constraints.MaxHeight = 30
    Constraints.MaxWidth = 70
    Constraints.MinHeight = 30
    Constraints.MinWidth = 70
    Caption = '打印'
    Color = clBtnFace
    DitherColor = clWhite
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = []
    NumGlyphs = 0
    ParentClipping = True
    ParentFont = False
    RoundRectBias = 25
    ShadeStyle = fbsHighlight
    TabOrder = 2
    TextOptions.Alignment = taCenter
    TextOptions.VAlignment = vaVCenter
    Visible = False
    OnClick = BtnPrintClick
  end
  object BtnExit: TfcShapeBtn
    Left = 592
    Top = 370
    Width = 70
    Height = 30
    Constraints.MaxHeight = 30
    Constraints.MaxWidth = 70
    Constraints.MinHeight = 30
    Constraints.MinWidth = 70
    Caption = '退出'
    Color = clBtnFace
    DitherColor = clWhite
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = []
    NumGlyphs = 0
    ParentClipping = True
    ParentFont = False
    RoundRectBias = 25
    ShadeStyle = fbsHighlight
    TabOrder = 3
    TextOptions.Alignment = taCenter
    TextOptions.VAlignment = vaVCenter
    OnClick = BtnExitClick
  end
  object Navigator: TwwDBNavigator
    Left = 592
    Top = 24
    Width = 70
    Height = 185
    AutosizeStyle = asSizeNavButtons
    DataSource = DataM.DSUserLookup
    Layout = nlVertical
    RepeatInterval.InitialDelay = 500
    RepeatInterval.Interval = 100
    Constraints.MaxHeight = 185
    Constraints.MaxWidth = 70
    Constraints.MinHeight = 185
    Constraints.MinWidth = 70
    BevelInner = bvRaised
    BevelOuter = bvRaised
    object NavigatorFirst: TwwNavButton
      Left = 2
      Top = 2
      Width = 66
      Height = 31
      Hint = 'Move to first record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'NavigatorFirst'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 0
      Style = nbsFirst
    end
    object NavigatorPriorPage: TwwNavButton
      Left = 2
      Top = 33
      Width = 66
      Height = 30
      Hint = 'Move backward 10 records'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'NavigatorPriorPage'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 1
      Style = nbsPriorPage
    end
    object NavigatorPrior: TwwNavButton
      Left = 2
      Top = 63
      Width = 66
      Height = 30
      Hint = 'Move to prior record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'NavigatorPrior'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 2
      Style = nbsPrior
    end
    object NavigatorNext: TwwNavButton
      Left = 2
      Top = 93
      Width = 66
      Height = 30
      Hint = 'Move to next record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'NavigatorNext'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 3
      Style = nbsNext
    end
    object NavigatorNextPage: TwwNavButton
      Left = 2
      Top = 123
      Width = 66
      Height = 30
      Hint = 'Move forward 10 records'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'NavigatorNextPage'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 4
      Style = nbsNextPage
    end
    object NavigatorLast: TwwNavButton
      Left = 2
      Top = 153
      Width = 66
      Height = 30
      Hint = 'Move to last record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'NavigatorLast'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 5
      Style = nbsLast
    end
  end
  object DBGridUser: TwwDBGrid
    Left = 8
    Top = 8
    Width = 569
    Height = 233
    Selected.Strings = (
      'Name'#9'12'#9'姓　名'#9'F'
      'IDCard'#9'18'#9'身　份　证'#9'F'
      'Phone'#9'20'#9'电　话'#9'F'
      'Address'#9'37'#9'地　址'#9'F'
      'CardNo'#9'15'#9'卡　号'#9'F'
      'UserCardNo'#9'10'#9'用　户　证'#9'F'
      'ResistDate'#9'12'#9'注册日期'#9'F'
      'AgentName'#9'22'#9'代　理　商'#9'F'
      'UserZIP'#9'10'#9'邮政编码'#9'F')
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    DataSource = DataM.DSUserLookup
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    KeyOptions = []
    ParentFont = False
    TabOrder = 5
    TitleAlignment = taCenter
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -16
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = True
    IndicatorColor = icBlack
  end
  object BtnPrintPreview: TfcShapeBtn
    Left = 592
    Top = 264
    Width = 70
    Height = 30
    Constraints.MaxHeight = 30
    Constraints.MaxWidth = 70
    Constraints.MinHeight = 30
    Constraints.MinWidth = 70
    Caption = '预览'
    Color = clBtnFace
    DitherColor = clWhite
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = []
    ParentClipping = True
    ParentFont = False
    RoundRectBias = 25
    ShadeStyle = fbsHighlight
    TabOrder = 6
    TextOptions.Alignment = taCenter
    TextOptions.VAlignment = vaVCenter
    Visible = False
    OnClick = BtnPrintPreviewClick
  end
end