wcliceunit.dfm

16人格测试 16人格测试 16人格测试 16人格测试

object frm_wclice: Tfrm_wclice
  Left = 221
  Top = 188
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'frm_wclice'
  ClientHeight = 440
  ClientWidth = 663
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object rzpnl1: TRzPanel
    Left = 0
    Top = 0
    Width = 663
    Height = 41
    Align = alTop
    BorderOuter = fsNone
    TabOrder = 0
    object rzdbnvgtr1: TRzDBNavigator
      Left = 0
      Top = 0
      Width = 467
      Height = 41
      DataSource = ds_tbl_public
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
      Align = alLeft
      ParentShowHint = False
      ShowHint = False
      TabOrder = 0
    end
  end
  object rzpgcntrl1: TRzPageControl
    Left = 0
    Top = 41
    Width = 663
    Height = 399
    ActivePage = rztbshtTabSheet1
    Align = alClient
    Color = 16119543
    FlatColor = 10263441
    ParentColor = False
    TabColors.HighlightBar = 1350640
    TabIndex = 0
    TabOrder = 1
    TabOrientation = toBottom
    TabStyle = tsCutCorner
    FixedDimension = 19
    object rztbshtTabSheet1: TRzTabSheet
      Color = 16119543
      Caption = #27979#35797#20154#21592
      object dbgrdh1: TDBGridEh
        Left = 0
        Top = 0
        Width = 661
        Height = 378
        Align = alClient
        AutoFitColWidths = True
        DataSource = ds_tbl_public
        EvenRowColor = clCream
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghRowHighlight, dghDialogFind]
        RowHeight = 10
        RowLines = 1
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        TitleHeight = 20
        TitleLines = 1
        OnMouseDown = dbgrdh1MouseDown
        Columns = <
          item
            EditButtons = <>
            FieldName = 'RID'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = 'ID'
            Width = 40
          end
          item
            EditButtons = <>
            FieldName = #22995#21517
            Footers = <>
            Title.Alignment = taCenter
            Width = 100
          end
          item
            EditButtons = <>
            FieldName = #24615#21035
            Footers = <>
            Title.Alignment = taCenter
            Width = 40
          end
          item
            EditButtons = <>
            FieldName = #31867#22411
            Footers = <>
            Title.Alignment = taCenter
            Width = 40
          end
          item
            EditButtons = <>
            FieldName = #24180#40836
            Footers = <>
            Title.Alignment = taCenter
            Width = 60
          end
          item
            EditButtons = <>
            FieldName = #27979#35797#26085#26399
            Footers = <>
            Title.Alignment = taCenter
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = #32844#19994
            Footers = <>
            Title.Alignment = taCenter
            Width = 200
          end
          item
            EditButtons = <>
            FieldName = 'bEnd'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #22312#32447#27979#35797
            Width = 60
          end>
      end
    end
    object rztbshtTabSheet2: TRzTabSheet
      Color = 16119543
      Caption = #22312#32447#35760#24405
      object dbgrdh2: TDBGridEh
        Left = 0
        Top = 0
        Width = 661
        Height = 378
        Align = alClient
        AutoFitColWidths = True
        DataSource = ds_tbl_public
        EvenRowColor = clCream
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghRowHighlight, dghDialogFind]
        RowHeight = 8
        RowLines = 1
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        TitleHeight = 10
        TitleLines = 1
        Columns = <
          item
            EditButtons = <>
            FieldName = 'SerialID'
            Footers = <>
            Title.Alignment = taCenter
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'RID'
            Footers = <>
            Title.Alignment = taCenter
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'MOduleName'
            Footers = <>
            Title.Alignment = taCenter
            Width = 100
          end
          item
            EditButtons = <>
            FieldName = 'MenuName'
            Footers = <>
            Title.Alignment = taCenter
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'MenuCaption'
            Footers = <>
            Title.Alignment = taCenter
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'ParentName'
            Footers = <>
            Title.Alignment = taCenter
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'IsLine'
            Footers = <>
            Title.Alignment = taCenter
            Width = 40
          end>
      end
    end
  end
  object tbl_public: TADOTable
    Connection = DM.conn
    CursorType = ctStatic
    BeforeDelete = tbl_publicBeforeDelete
    AfterDelete = tbl_publicAfterDelete
    TableName = 'Client'
    Left = 569
    Top = 6
  end
  object ds_tbl_public: TwwDataSource
    DataSet = tbl_public
    Left = 501
    Top = 5
  end
end