main.dfm

DelphiHelper---Delphi帮助源代码

        end
        object RzEdit1: TRzEdit
          Left = 167
          Top = 6
          Width = 200
          Height = 21
          Hint = #35831#36755#20837#25991#31456#26631#39064#21253#21547#30340#20851#38190#23383
          Text = #35831#36755#20837#25991#31456#26631#39064#21253#21547#30340#20851#38190#23383
          Color = clInfoBk
          FrameVisible = True
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          OnKeyPress = RzEdit1KeyPress
        end
      end
    end
    object TabSheet2: TRzTabSheet
      Caption = #20989#25968#26597#35810
      object RzSplitter2: TRzSplitter
        Left = 0
        Top = 32
        Width = 628
        Height = 350
        Position = 160
        Percent = 26
        HotSpotVisible = True
        SplitterWidth = 7
        Align = alClient
        TabOrder = 0
        BarSize = (
          160
          0
          167
          350)
        UpperLeftControls = (
          RzPageControl3)
        LowerRightControls = (
          RzDBMemo1)
        object RzPageControl3: TRzPageControl
          Left = 0
          Top = 0
          Width = 160
          Height = 350
          ActivePage = TabSheet8
          Align = alClient
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Verdana'
          Font.Style = []
          ImagePosition = ipBottom
          ParentFont = False
          ShowFocusRect = False
          TextOrientation = orVertical
          TabIndex = 0
          TabOrder = 0
          TabOrientation = toLeft
          FixedDimension = 21
          object TabSheet8: TRzTabSheet
            Caption = #32034#24341
            object DBGrid2: TDBGrid
              Left = 0
              Top = 0
              Width = 137
              Height = 348
              Align = alClient
              Color = clInfoBk
              DataSource = DM.DS_Query4
              Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
              ReadOnly = True
              TabOrder = 0
              TitleFont.Charset = DEFAULT_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -11
              TitleFont.Name = 'Verdana'
              TitleFont.Style = []
            end
          end
        end
        object RzDBMemo1: TRzDBMemo
          Left = 0
          Top = 0
          Width = 461
          Height = 350
          Align = alClient
          Color = clInfoBk
          DataField = 'fun_exp'
          DataSource = DM.DS_Query4
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          ReadOnly = True
          ScrollBars = ssVertical
          TabOrder = 0
          WantTabs = True
          FrameVisible = True
        end
      end
      object RzPanel4: TRzPanel
        Left = 0
        Top = 0
        Width = 628
        Height = 32
        Align = alTop
        BorderOuter = fsNone
        TabOrder = 1
        object SpeedButton2: TSpeedButton
          Left = 280
          Top = 5
          Width = 23
          Height = 22
          Hint = #25628#32034
          Flat = True
          Glyph.Data = {
            36030000424D3603000000000000360000002800000010000000100000000100
            1800000000000003000000000000000000000000000000000000FFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000009C5931FFFB
            D6EFA67B000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFF0000009C5931FFFFF7FFB68C9C5931000000FFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000AD6942FFFFF7FFC39C9C59
            31000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000
            0000000000FFFFF7FFD7AD9C5931000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFF000000FF9642FFEF9CFFFFB5FFD7840000000000009C5931000000FFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF7521FFFFB5FFFFB5FFE394FF
            FBADFFD784000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            000000FFE394FFFFD6FFFFD6FFFFC6FFE394FFFBADFFBA63000000FFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFBDFFFFFFFFFFC6FFFFC6FF
            FFC6FFE394FFC773000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            000000FFFFBDFFFFFFFFFFD6FFFFC6FFFFD6FFE394FFEF9C000000FFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFE394FFFFE7FFFFE7FFFFE7FF
            FFE7FFFFD6FFAE5A000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFF000000FFE394FFFFE7FFFFE7FFFBADFFC373000000FFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000
            0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
          OnClick = RzEdit2Change
        end
        object RzEdit2: TRzEdit
          Left = 21
          Top = 6
          Width = 250
          Height = 21
          Color = clInfoBk
          FrameVisible = True
          TabOrder = 0
          OnChange = RzEdit2Change
        end
        object RzToolbar4: TRzToolbar
          Left = 495
          Top = 0
          Width = 120
          Align = alNone
          AutoStyle = False
          Images = ImageList1
          TopMargin = 5
          BorderInner = fsNone
          BorderOuter = fsNone
          BorderSides = [sdTop]
          BorderWidth = 0
          TabOrder = 1
          ToolbarControls = (
            RzToolButton4
            RzToolButton5
            RzToolButton6
            RzSpacer1
            BtnPrint1)
          object RzToolButton4: TRzToolButton
            Left = 4
            Top = 5
            DisabledIndex = 1
            ImageIndex = 0
            Caption = 'New'
            OnClick = RzToolButton4Click
          end
          object RzToolButton5: TRzToolButton
            Left = 29
            Top = 5
            DisabledIndex = 3
            ImageIndex = 2
            Caption = 'Edit'
            OnClick = RzToolButton5Click
          end
          object RzToolButton6: TRzToolButton
            Left = 54
            Top = 5
            DisabledIndex = 5
            ImageIndex = 4
            Caption = 'Delete'
            OnClick = RzToolButton6Click
          end
          object BtnPrint1: TRzToolButton
            Left = 87
            Top = 5
            DisabledIndex = 17
            ImageIndex = 16
            Caption = 'Print'
            OnClick = BtnPrint1Click
          end
          object RzSpacer1: TRzSpacer
            Left = 79
            Top = 5
          end
        end
        object RzDBEdit1: TRzDBEdit
          Left = 344
          Top = 8
          Width = 121
          Height = 21
          DataSource = DM.DS_Query4
          DataField = 'fun_name'
          TabOrder = 2
          Visible = False
        end
      end
    end
    object TabSheet5: TRzTabSheet
      Caption = 'ASCII'#23383#31526#34920
      object StringGrid1: TStringGrid
        Left = 0
        Top = 0
        Width = 628
        Height = 382
        Align = alClient
        Color = clInfoBk
        ColCount = 8
        Ctl3D = False
        DefaultColWidth = 75
        DefaultRowHeight = 22
        FixedCols = 0
        RowCount = 16
        FixedRows = 0
        ParentCtl3D = False
        ScrollBars = ssVertical
        TabOrder = 0
        OnSelectCell = StringGrid1SelectCell
      end
    end
    object TabSheet6: TRzTabSheet
      TabVisible = False
      Caption = #24120#29992#39068#33394#30721
      object RzToolbar2: TRzToolbar
        Left = 0
        Top = 0
        Width = 628
        Height = 29
        Images = ImageList1
        BorderInner = fsNone
        BorderOuter = fsGroove
        BorderSides = [sdTop]
        BorderWidth = 0
        TabOrder = 0
        ToolbarControls = (
          BtnNew
          BtnEdit
          BtnDelete)
        object BtnNew: TRzToolButton
          Left = 4
          Top = 2
          DisabledIndex = 1
          ImageIndex = 0
          Caption = 'New'
        end
        object BtnEdit: TRzToolButton
          Left = 29
          Top = 2
          DisabledIndex = 3
          ImageIndex = 2
          Caption = 'Edit'
        end
        object BtnDelete: TRzToolButton
          Left = 54
          Top = 2
          DisabledIndex = 5
          ImageIndex = 4
          Caption = 'Delete'
        end
      end
      object DBGrid1: TDBGrid