umain.~dfm

一个小程序

object wMain: TwMain
  Left = 12
  Top = 134
  Width = 962
  Height = 569
  Caption = #20379#24212#21830#21512#21516#21830#21697#35774#32622
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100001000400E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    00000000BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000002222220000000000000000000000022220002222200000000000000
    000002222070002222200000000000000002222208FF00222222200000000000
    0022222208FF002222222200000000000022222220FF08222222220000000000
    0222222222002222222222200000000022222222222222222222222200000000
    2222222220000022222222220000000022222222077700022222222200000002
    222222220FFFF0022222222220000002222222220FFFF8002222222220000002
    222222220FFFFF8002222222200000022222222220FFFFF80002222220000002
    22222222220FFFFFF000222220000002222222222220FFFFFF00022220000000
    22222222222200FFFFF00022000000002222222222222200FFFF002200000000
    22222222222222200FFF70020000000002222220000222280FFFF00000000000
    00222000000222200FFFF000000000000022008FFF0022007FFFF00000000000
    00020FFFFFF00007FFFFF0000000000000000FFFFFFFFFFFFFFF700000000000
    000000FFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFFF8000000000000
    0000000FFFFFFFFFFF80000000000000000000000FFFFFFF7000000000000000
    00000000000F777000000000000000000000000000000000000000000000FFF8
    1FFFFFC003FFFF0000FFFE00007FFC00003FF800001FF000000FE0000007E000
    0007C0000003C0000003C0000003800000018000000180000001800000018000
    000180000001C0000003C0000003C0000003E0000007E0000007F000000FF800
    001FFC00001FFE00003FFF00003FFFC0007FFFE000FFFFF003FFFFFE0FFF}
  KeyPreview = True
  Menu = mmMain
  OldCreateOrder = False
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object RzSizePanelMain: TRzSizePanel
    Left = 0
    Top = 29
    Width = 185
    Height = 475
    TabOrder = 1
    object RzGroupBarMain: TRzGroupBar
      Left = 0
      Top = 0
      Width = 180
      Height = 475
      GradientColorStart = clBtnFace
      GradientColorStop = clBtnShadow
      GroupBorderSize = 8
      Align = alClient
      Color = clBtnShadow
      ParentColor = False
      TabOrder = 0
      object RzGroupParm: TRzGroup
        CaptionColorStop = 11855600
        GroupController = RzGroupController1
        Items = <
          item
            Action = actParmExc
            ImageIndex = 3
          end
          item
            Caption = '-'
          end
          item
            Action = actCntExc
            ImageIndex = 3
          end>
        Opened = True
        OpenedHeight = 87
        SmallImages = ilMain
        Caption = #31995#32479#21442#25968
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object RzGroupYw: TRzGroup
        CaptionColorStop = 11855600
        GroupController = RzGroupController1
        Items = <
          item
            Action = actContExc
            ImageIndex = 3
          end
          item
            Caption = '-'
          end
          item
            Action = actSgclExc
            ImageIndex = 3
          end>
        Opened = True
        OpenedHeight = 87
        SmallImages = ilMain
        Caption = #19994#21153#22788#29702
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
    end
  end
  object RzToolbar1: TRzToolbar
    Left = 0
    Top = 0
    Width = 954
    Height = 29
    WrapControls = False
    BorderInner = fsNone
    BorderOuter = fsGroove
    BorderSides = [sdTop]
    BorderWidth = 0
    GradientColorStop = 14215660
    TabOrder = 0
    VisualStyle = vsGradient
    ToolbarControls = (
      btnExit
      RzSpacer1
      btn2)
    object btnExit: TRzToolButton
      Left = 4
      Top = 2
      GroupIndex = 1
      Images = ilMain
      Layout = blGlyphTop
      UseToolbarButtonLayout = False
      OnMouseEnter = btnExitMouseEnter
      OnMouseLeave = btnExitMouseLeave
      Action = actExit
      ParentShowHint = False
      ShowHint = True
    end
    object RzSpacer1: TRzSpacer
      Left = 29
      Top = 2
      Grooved = True
    end
    object btn2: TRzToolButton
      Left = 37
      Top = 2
      Hint = #27880#20876#36719#20214
      ImageIndex = 2
      Images = ilMain
      OnMouseEnter = btn2MouseEnter
      OnMouseLeave = btnExitMouseLeave
      ParentShowHint = False
      ShowHint = True
    end
  end
  object RzStatusBar1: TRzStatusBar
    Left = 0
    Top = 504
    Width = 954
    Height = 19
    BorderInner = fsNone
    BorderOuter = fsNone
    BorderSides = [sdLeft, sdTop, sdRight, sdBottom]
    BorderWidth = 0
    TabOrder = 3
    object rzstspnInfo: TRzStatusPane
      Left = 0
      Top = 0
      Width = 836
      Height = 19
      Align = alClient
      Caption = #27426#36814#20351#29992'!'
    end
    object RzClockStatus1: TRzClockStatus
      Left = 836
      Top = 0
      Width = 118
      Height = 19
      Align = alRight
      Interval = 0
    end
  end
  object rzpgcntrl1: TRzPageControl
    Left = 185
    Top = 29
    Width = 769
    Height = 475
    ActivePage = rztbsht3
    Align = alClient
    AllowTabDragging = True
    BoldCurrentTab = True
    HotTrackStyle = htsTabBar
    Images = ilMain
    ShowCloseButtonOnActiveTab = True
    ShowMenuButton = True
    ShowShadow = False
    TabIndex = 2
    TabOrder = 2
    TabStyle = tsBackSlant
    Transparent = True
    OnChange = rzpgcntrl1Change
    FixedDimension = 22
    object rztbsht1: TRzTabSheet
      ImageIndex = 3
      Caption = #21442#25968#35774#32622
      object RzToolbar2: TRzToolbar
        Left = 0
        Top = 0
        Width = 767
        Height = 29
        Images = ilMain
        ButtonWidth = 60
        ShowButtonCaptions = True
        TextOptions = ttoSelectiveTextOnRight
        BorderInner = fsNone
        BorderOuter = fsGroove
        BorderSides = [sdTop]
        BorderWidth = 0
        GradientColorStop = 14215660
        TabOrder = 0
        VisualStyle = vsGradient
        ToolbarControls = (
          btnGet
          RzSpacer2
          btnNew
          btnDel
          btnModify
          btnCancel
          btnSave)
        object btnGet: TRzToolButton
          Left = 4
          Top = 2
          GradientColorStyle = gcsSystem
          ImageIndex = 5
          Images = ilMain
          UseToolbarVisualStyle = False
          VisualStyle = vsGradient
          Caption = #25552#21462
          OnClick = btnGetClick
        end
        object RzSpacer2: TRzSpacer
          Left = 64
          Top = 2
          Grooved = True
        end
        object btnNew: TRzToolButton
          Left = 72
          Top = 2
          ImageIndex = 6
          Images = ilMain
          Caption = #26032#22686
          OnClick = btnNewClick
        end
        object btnDel: TRzToolButton
          Left = 132
          Top = 2
          ImageIndex = 7
          Images = ilMain
          Caption = #21024#38500
          OnClick = btnDelClick
        end
        object btnModify: TRzToolButton
          Left = 192
          Top = 2
          ImageIndex = 8
          Images = ilMain
          Caption = #20462#25913
          OnClick = btnModifyClick
        end
        object btnSave: TRzToolButton
          Left = 312
          Top = 2
          ImageIndex = 9
          Images = ilMain
          Caption = #20445#23384
          OnClick = btnSaveClick
        end
        object btnCancel: TRzToolButton
          Left = 252
          Top = 2
          ImageIndex = 10
          Images = ilMain
          Caption = #21462#28040
          OnClick = btnCancelClick
        end
      end
      object RzDBGrid1: TRzDBGrid
        Left = 0
        Top = 132
        Width = 767
        Height = 319
        Align = alClient
        DataSource = ds1
        DefaultDrawing = True
        ReadOnly = True
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <