authorizationunit.dfm

一个很不错的系统! 查询模块方面是我编的最好的一次.几乎完美!!!!.

object frm_authorization: Tfrm_authorization
  Left = 324
  Top = 170
  BorderStyle = bsDialog
  Caption = #29992#25143#21450#26435#38480#35774#32622
  ClientHeight = 334
  ClientWidth = 439
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 200
    Top = 40
    Width = 209
    Height = 217
    Caption = #26435#38480#25551#36848
    TabOrder = 0
    object Memo1: TMemo
      Left = 8
      Top = 16
      Width = 185
      Height = 177
      BevelInner = bvNone
      BorderStyle = bsNone
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      Lines.Strings = (
        '  '#31649#29702#21592
        #20855#26377#25152#26377#26435#38480
        #25152#26377#31995#32479#25805#20316
        #25152#26377#20889#20837#25805#20316
        #25152#26377#26597#35810#25805#20316
        #25152#26377#20462#25913#25805#20316
        #25152#26377#21024#38500#25805#20316
        '')
      ReadOnly = True
      TabOrder = 0
      Visible = False
    end
    object Memo2: TMemo
      Left = 0
      Top = 32
      Width = 185
      Height = 177
      BevelInner = bvNone
      BorderStyle = bsNone
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      Lines.Strings = (
        ' '#25805#20316#21592
        #20855#26377#25805#20316#26435#38480
        #20855#26377#36164#26009#24405#20837#26435#38480
        #20855#26377#36164#26009#26597#35810#26435#38480
        #20855#26377#36164#26009#20462#25913#26435#38480
        #20855#26377#36164#26009#21024#38500#26435#38480
        '')
      ReadOnly = True
      TabOrder = 1
      Visible = False
    end
    object Memo3: TMemo
      Left = 32
      Top = 72
      Width = 185
      Height = 177
      BevelInner = bvNone
      BorderStyle = bsNone
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      Lines.Strings = (
        '  '#19968#33324#35775#38382#32773
        #20855#26377#27983#35272#26435#38480
        #25152#26377#36164#26009#26597#35810#26435#38480
        ''
        '')
      ReadOnly = True
      TabOrder = 2
      Visible = False
    end
  end
  object TreeView1: TTreeView
    Left = 32
    Top = 40
    Width = 153
    Height = 217
    Indent = 19
    TabOrder = 1
    OnChange = TreeView1Change
  end
  object b_add: TButton
    Left = 72
    Top = 288
    Width = 75
    Height = 25
    Caption = #28155#21152
    TabOrder = 2
    OnClick = b_addClick
  end
  object b_del: TButton
    Left = 176
    Top = 288
    Width = 75
    Height = 25
    Caption = #21024#38500
    TabOrder = 3
    OnClick = b_delClick
  end
  object b_close: TButton
    Left = 280
    Top = 288
    Width = 75
    Height = 25
    Caption = #20851#38381
    TabOrder = 4
    OnClick = b_closeClick
  end
end