Delphi控件源码

开发平台：
Delphi

sz_qzs.dfm：源码内容
							object sz_qz: Tsz_qz
  Left = 161
  Top = 12
  Width = 641
  Height = 482
  Caption = #20840#23447#31649#29702
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  Icon.Data = {
    0000010001001010000001002000680400001600000028000000100000002000
    0000010020000000000040040000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000000000000000000000000000000000000000000010000000A0000
    00120000000C0000000300000000000000000000000000000000000000000000
    0000000000000000000000000000000000030000000F00000027000000550000
    00760000005D0000003000000013000000060000000000000000000000000000
    00000000000000000006000000130000003108080871393939C5847979EB3530
    30DC090909BD000000A300000077000000400000001B0000000A000000010000
    00000000001500000040101010885A5A5AD78A8A8AFAA5A5A5FF746F6FFF3E3B
    3BFF484343FF4B4242EB1F1C1CCA000000AA0000008E00000058000000240000
    000F2727278C797979E2C9C9C9FFA3A3A3FF7F7F7FFF828282FF7C7B7BFF4D4D
    4DFF707070FF7C7C7CFF736D6DFF6F5F5FF7383131D9050505B1000000857575
    75A6AEAEAEFF989898FF828282FFA4A4A4FFB9B9B9FFD1D1D1FF8E8E8EFF7878
    78FF6B6B6BFF818181FF616161FF333333FFB79898FF816C6CED000000958282
    82C49C9C9CFFB5B5B5FFC7C7C7FFE1E1E1FFE6E6E6FFD0D0D0FFD8D8D8FFD1D1
    D1FFC3C3C3FF9A9999FF7C7777FF454242FF938080FF786868E900000083A3A3
    A3C1D3D3D3FFDEDEDEFFC7C7C7FFE1E1E1FFDFDFDFFFF2F2F2FFFCFCFCFFECEC
    ECFFDFDFDFFFF7F7F7FFEEEAEAFFDECCCCFF8F8A8AFF736D6DD0000000198C8C
    8C40C8C8C892ABABABD1787878FF6B6B6BFFB8B8B8FFF2F2F2FFFCFCFCFFECEC
    ECFFDFDFDFFFF7F7F7FFC4C4C4E69797979A6767675900000007000000000000
    000000000000000000005D5D5D20A0A0A062B0B0B0B2D2D2D2F0E6E6E6FFBEBE
    BEC5A4A4A47A3737373800000004000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    0000FFFF0000FC1F0000F0070000C00000008000000000000000000000000000
    00000000000000010000E00F0000FFFF0000FFFF0000FFFF0000FFFF0000}
  OldCreateOrder = False
  Position = poDefault
  Scaled = False
  ShowHint = True
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 633
    Height = 38
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 34
        Width = 629
      end>
    FixedSize = True
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 616
      Height = 34
      AutoSize = True
      ButtonHeight = 30
      ButtonWidth = 83
      Caption = 'ToolBar1'
      Images = mainfrm.zsg
      List = True
      ShowCaptions = True
      TabOrder = 0
      object add1: TToolButton
        Left = 0
        Top = 2
        Hint = #22686#21152
        Action = Add
        AutoSize = True
        ImageIndex = 0
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButton5: TToolButton
        Left = 81
        Top = 2
        Hint = #20462#25913
        Action = Edit
        AutoSize = True
        Enabled = False
        ImageIndex = 1
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButton6: TToolButton
        Left = 162
        Top = 2
        Hint = #21024#38500
        Action = Delete
        AutoSize = True
        Enabled = False
        ImageIndex = 2
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButton7: TToolButton
        Left = 243
        Top = 2
        Hint = #20445#23384
        Action = Save
        AutoSize = True
        Enabled = False
        ImageIndex = 7
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButton4: TToolButton
        Left = 324
        Top = 2
        Hint = #21047#26032
        Action = Refresh
        AutoSize = True
        ImageIndex = 3
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButton3: TToolButton
        Left = 405
        Top = 2
        Hint = #36864#20986
        Action = Quit
        AutoSize = True
        ImageIndex = 6
        ParentShowHint = False
        ShowHint = True
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 38
    Width = 633
    Height = 417
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Splitter1: TSplitter
      Left = 223
      Top = 0
      Width = 3
      Height = 417
      Cursor = crHSplit
    end
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 223
      Height = 417
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 0
      object Tree: TTreeView
        Left = 0
        Top = 0
        Width = 223
        Height = 417
        Align = alClient
        Images = mainfrm.TreeView
        Indent = 27
        PopupMenu = PopupMenu1
        ReadOnly = True
        RowSelect = True
        TabOrder = 0
        OnClick = TreeClick
      end
    end
    object Panel3: TPanel
      Left = 226
      Top = 0
      Width = 407
      Height = 417
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object Splitter2: TSplitter
        Left = 0
        Top = 225
        Width = 407
        Height = 3
        Cursor = crVSplit
        Align = alTop
      end
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 407
        Height = 225
        Align = alTop
        BevelInner = bvRaised
        BevelOuter = bvLowered
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        object Label1: TLabel
          Left = 14
          Top = 13
          Width = 60
          Height = 12
          Caption = #20840#23447#20195#30721#65306
          FocusControl = DBEdit1
        end
        object Label2: TLabel
          Left = 14
          Top = 39
          Width = 60
          Height = 12
          Caption = #20840#23447#21517#31216#65306
          FocusControl = DBEdit2
        end
        object Label3: TLabel
          Left = 14
          Top = 65
          Width = 84
          Height = 12
          Caption = #20840#23447#26696#21367#31867#21035#65306
          FocusControl = DBEdit3
        end
        object Label4: TLabel
          Left = 14
          Top = 91
          Width = 84
          Height = 12
          Caption = #20840#23447#25152#23646#24180#20195#65306
          FocusControl = DBEdit4
        end
        object Label5: TLabel
          Left = 14
          Top = 117
          Width = 84
          Height = 12
          Caption = #20840#23447#36827#39302#26102#38388#65306
          FocusControl = DBEdit5
        end
        object Label6: TLabel
          Left = 14
          Top = 143
          Width = 72
          Height = 12
          Caption = #20840#23447#30446#24405#21495#65306
          FocusControl = DBEdit6
        end
        object Label7: TLabel
          Left = 14
          Top = 169
          Width = 72
          Height = 12
          Caption = #20840#23447#39034#24207#21495#65306
          FocusControl = DBEdit7
        end
        object Label8: TLabel
          Left = 308
          Top = 10
          Width = 8
          Height = 15
          Caption = '*'
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -15
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label9: TLabel
          Left = 309
          Top = 34
          Width = 8
          Height = 15
          Caption = '*'
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -15
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label10: TLabel
          Left = 14
          Top = 196
          Width = 60
          Height = 12
          Caption = #32534#30721#35268#21017#65306
        end
        object DBEdit1: TDBEdit
          Left = 99
          Top = 8
          Width = 200
          Height = 20
          Color = clHighlightText
          DataField = 'qz_dm'
          DataSource = DataSource1
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 0
          OnKeyPress = DBEdit1KeyPress
        end
        object DBEdit2: TDBEdit
          Left = 99
          Top = 34
          Width = 200
          Height = 20
          DataField = 'qz_mc'
          DataSource = DataSource1
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 1
          OnKeyPress = DBEdit2KeyPress
        end
        object DBEdit3: TDBEdit
          Left = 99
          Top = 60
          Width = 200
          Height = 20
          DataField = 'qz_qzlb'
          DataSource = DataSource1
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 2
          OnKeyPress = DBEdit3KeyPress
        end
        object DBEdit4: TDBEdit
          Left = 99
          Top = 86
          Width = 200
          Height = 20
          DataField = 'qz_ssnd'
          DataSource = DataSource1
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 3
          OnKeyPress = DBEdit4KeyPress
        end
        object DBEdit5: TDBEdit
          Left = 99
          Top = 112
          Width = 200
          Height = 20
          DataField = 'qz_jgsj'
          DataSource = DataSource1
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 4
          OnKeyPress = DBEdit5KeyPress
        end
        object DBEdit6: TDBEdit
          Left = 99
          Top = 138
          Width = 200
          Height = 20
          DataField = 'qz_jgmlh'
          DataSource = DataSource1
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 5
          OnKeyPress = DBEdit6KeyPress
        end
        object DBEdit7: TDBEdit
          Left = 99
          Top = 164
          Width = 200
          Height = 20
          DataField = 'qz_jgsxh'
          DataSource = DataSource1
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 6
        end
        object Edit1: TEdit
          Left = 99
          Top = 191
          Width = 200
          Height = 20
          Color = clScrollBar
          Enabled = False
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 7
        end
      end
      object Panel5: TPanel
        Left = 0
        Top = 228
        Width = 407
        Height = 189
        Align = alClient
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 1
        object GroupBox2: TGroupBox
          Left = 2
          Top = 2
          Width = 403
          Height = 185
          Align = alClient
          Caption = #20840#23447#31649#29702
          TabOrder = 0
          object DBGridEh1: TDBGridEh
            Left = 2
            Top = 14
            Width = 399
            Height = 169
            Align = alClient
            DataSource = DataSource1
            FooterColor = clWindow
            FooterFont.Charset = ANSI_CHARSET
            FooterFont.Color = clWindowText
            FooterFont.Height = -12
            FooterFont.Name = #23435#20307
            FooterFont.Style = []
            ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
            Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
            OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking]
            TabOrder = 0
            TitleFont.Charset = ANSI_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -12
            TitleFont.Name = #23435#20307
            TitleFont.Style = []
            OnCellClick = DBGridEh1CellClick
            Columns = <
              item
                EditButtons = <>
                FieldName = 'qz_dm'
                Footers = <>
                Title.Caption = #20840#23447#20195#30721
              end
              item
                EditButtons = <>
                FieldName = 'qz_mc'
                Footers = <>
                Title.Caption = #20840#23447#21517#31216
                Width = 139
              end
              item
                EditButtons = <>
                FieldName = 'qz_qzlb'
                Footers = <>
                Title.Caption = #20840#23447#31867#21035
                Width = 100
              end
              item
                EditButtons = <>
                FieldName = 'qz_ssnd'
                Footers = <>
                Title.Caption = #25152#23646#24180#20195
                Width = 100
              end
              item
                EditButtons = <>
                FieldName = 'qz_jgsj'
                Footers = <>
                Title.Caption = #36827#39302#26102#38388
                Width = 80
              end
              item
                EditButtons = <>
                FieldName = 'qz_jgmlh'
                Footers = <>
                Title.Caption = #36827#39302#30446#24405#21495
                Width = 100
              end
              item
                EditButtons = <>
                FieldName = 'qz_jgsxh'
                Footers = <>
                Title.Caption = #36827#39302#39034#24207#21495
                Width = 100
              end>
          end
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = DM.sz_qz
    Left = 104
    Top = 104
  end
  object ActionList1: TActionList
    Left = 192
    Top = 104
    object Add: TAction
      Caption = #22686#21152'(&A)'
      OnExecute = AddExecute
    end
    object Edit: TAction
      Caption = #20462#25913'(&E)'
      OnExecute = EditExecute
    end
    object Delete: TAction
      Caption = #21024#38500'(&D)'
      OnExecute = DeleteExecute
    end
    object Save: TAction
      Caption = #20445#23384'(&S)'
      OnExecute = SaveExecute
    end
    object Refresh: TAction
      Caption = #21047#26032'(&R)'
      OnExecute = RefreshExecute
    end
    object Print: TAction
      Caption = #25171#21360'(&P)'
      OnExecute = PrintExecute
    end
    object Quit: TAction
      Caption = #36864#20986'(&X)'
      OnExecute = QuitExecute
    end
  end
  object PopupMenu1: TPopupMenu
    OwnerDraw = True
    Left = 192
    Top = 152
    object N1: TMenuItem
      Action = Add
    end
    object N2: TMenuItem
      Action = Edit
      Enabled = False
    end
    object N3: TMenuItem
      Action = Delete
      Enabled = False
    end
    object N5: TMenuItem
      Caption = #23637#24320
      OnClick = N5Click
    end
    object N6: TMenuItem
      Caption = #21472#36215
      OnClick = N6Click
    end
  end
  object PrintDBGridEh1: TPrintDBGridEh
    DBGridEh = DBGridEh1
    Options = []
    Page.BottomMargin = 2
    Page.LeftMargin = 2
    Page.RightMargin = 2
    Page.TopMargin = 2
    PageFooter.Font.Charset = DEFAULT_CHARSET
    PageFooter.Font.Color = clWindowText
    PageFooter.Font.Height = -11
    PageFooter.Font.Name = 'MS Sans Serif'
    PageFooter.Font.Style = []
    PageHeader.Font.Charset = DEFAULT_CHARSET
    PageHeader.Font.Color = clWindowText
    PageHeader.Font.Height = -11
    PageHeader.Font.Name = 'MS Sans Serif'
    PageHeader.Font.Style = []
    Units = MM
    Left = 192
    Top = 224
  end
  object xt_jbls: TDataSource
    DataSet = DM.xt_lbjs
    Left = 104
    Top = 160
  end
  object XPBarMenu1: TXPBarMenu
    BarCaption = #20840#23447#31649#29702
    BarFont.Charset = GB2312_CHARSET
    BarFont.Color = clWhite
    BarFont.Height = -11
    BarFont.Name = 'Tahoma'
    BarFont.Style = []
    Font.Charset = GB2312_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    OverrideOwnerDraw = False
    FlatMenu = True
    AutoDetect = True
    Active = True
    Left = 576
    Top = 8
  end
end

						