assistunit.dfm

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

object frm_assist: Tfrm_assist
  Left = 535
  Top = 376
  BorderIcons = [biSystemMenu]
  BorderStyle = bsNone
  Caption = #24403#21069#22312#32447#27979#35797#20154#21592
  ClientHeight = 307
  ClientWidth = 469
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object rzpnl1: TRzPanel
    Left = 0
    Top = 0
    Width = 469
    Height = 307
    Align = alClient
    BorderOuter = fsStatus
    Color = 13534810
    TabOrder = 0
    OnMouseDown = rzpnl1MouseDown
    object btn1: TSpeedButton
      Left = 434
      Top = 11
      Width = 23
      Height = 22
      Caption = 'r'
      Flat = True
      Font.Charset = SYMBOL_CHARSET
      Font.Color = clWhite
      Font.Height = -7
      Font.Name = 'Marlett'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = btn1Click
    end
    object dbgrdh1: TDBGridEh
      Left = 1
      Top = 39
      Width = 467
      Height = 267
      Align = alBottom
      AutoFitColWidths = True
      DataSource = ds_qry_assist
      EvenRowColor = clCream
      Flat = True
      FooterColor = clSkyBlue
      FooterFont.Charset = GB2312_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      FooterRowCount = 1
      OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghRowHighlight, dghDialogFind]
      ReadOnly = True
      RowLines = 2
      SumList.Active = True
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      TitleHeight = 1
      TitleLines = 2
      Columns = <
        item
          EditButtons = <>
          FieldName = 'SerialID'
          Footers = <>
          Layout = tlCenter
        end
        item
          EditButtons = <>
          FieldName = 'RID'
          Footers = <>
          Layout = tlCenter
          Title.Alignment = taCenter
          Title.Caption = 'ID'
          Width = 60
        end
        item
          EditButtons = <>
          FieldName = 'MOduleName'
          Footer.Alignment = taCenter
          Footer.DisplayFormat = #22312#32447' 0 '#20154
          Footer.ValueType = fvtCount
          Footers = <>
          Layout = tlCenter
          Title.Alignment = taCenter
          Title.Caption = #22995#21517
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'MenuName'
          Footers = <>
          Layout = tlCenter
          Title.Alignment = taCenter
          Title.Caption = #35745#31639#26426
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'MenuCaption'
          Footers = <>
          Layout = tlCenter
          Title.Alignment = taCenter
          Title.Caption = #31867#22411
          Width = 60
        end
        item
          EditButtons = <>
          FieldName = 'ParentName'
          Footers = <>
          Layout = tlCenter
          Title.Alignment = taCenter
          Title.Caption = #27979#39064
          Width = 60
        end
        item
          EditButtons = <>
          FieldName = 'IsLine'
          Footers = <>
          Layout = tlCenter
          Title.Alignment = taCenter
          Title.Caption = #22312#32447
          Width = 40
        end>
    end
  end
  object qry_assist: TADOQuery
    Active = True
    Connection = DM.conn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from assisttb where IsLine = true')
    Left = 138
    Top = 15
  end
  object ds_qry_assist: TwwDataSource
    DataSet = qry_assist
    Left = 177
    Top = 15
  end
  object tmr1: TTimer
    OnTimer = tmr1Timer
    Left = 211
    Top = 13
  end
end