Delphi控件源码

开发平台：
Delphi

sz_ajlbs.dfm：源码内容
							object sz_ajlb: Tsz_ajlb
  Left = 205
  Top = 107
  Width = 608
  Height = 466
  Caption = #26696#21367#31867#21035#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
    000007415572122227720A0D0E3E000000140000000500000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00004DB4D7E166CAF0FF3EA8CFF93083A1E7124C5FB415323B891112144D0508
    0923000000080000000000000000000000000000000000000000000000000000
    000030ACDAECAFE9FDFF76DCFFFF76DCFFFF73DAFDFF5CCDF3FF49B9DDFD368E
    AAEC24667CCE183A469711171A53030303040000000000000000000000000000
    000042B7E6FD9CDCF0FF80E6FFFF80E6FFFF80E6FFFF80E6FFFF80E6FFFF80E6
    FFFF7CE4FEFF68D6F4FF3B99B5F1363C3E3A0000000000000000000000005564
    690955C0ECFF77CBEAFF96F1FFFF8AF0FFFF8AF0FFFF8AF0FFFF8AF0FFFF89EF
    FFFF89EFFFFF89EFFFFF7CE4F7FE35565F960C0D0C0200000000000000005581
    901863C6F1FF4BBCEBFFBEFBFEFF94FAFFFF94FAFFFF94FAFFFF94FAFFFF94FA
    FFFF93F9FFFF93F9FFFF9BF7FFFF59A0AEE84043442500000000000000005583
    922975CEF6FF5EC8FAFFADE6F2FFB1FFFFFFA4FFFFFFA3FFFFFFA3FFFFFF96F4
    EBFF95F4EBFFA2FFFFFFA8FAFFFF9FE6EFFE313E457700000000000000005584
    93348ADCFAFF76DCFFFF60CEF1FF7CD4EFFF90D8EFFF9ADCEEFFBEEFE9FF95E6
    C6FF95E6C6FFB2F4EBFFC2FAFFFFDBFEFEFF457786D405050510000000005585
    96429EE9FCFF87EDFFFF87EDFFFF87EDFFFF87EDFFFF5BC5B1FF42B77EFF92DB
    C0FFA9E5C8FFB4E9CBFFD5F2EBFFF2FFFFFF9ACDDBFA171C1E5E000000005587
    974FB4F8FFFF96FCFFFF96FCFFFF96FCFFFF67D0B1FF23B246FF28C14FFF31C5
    68FF2CC173FF2CBD73FF45BA8AFF66B5ABE86DC1DDCF0D2C394F000000005587
    9732AEECF7FF99FFFFFF99FFFFFF69D3B1FF2BBA54FF34CD66FF34CD66FF34CD
    66FF34CD66FF34CD66FF34CD66FF2BBA54FF0329075500000000000000000000
    000047A3C2B5A4E9F4FFB4F4FAFF168B25FF25A53FFF2EB650FF41DA74FF41DA
    74FF41DA74FF41DA74FF25A53FFF25A53FFF168B25FF00000000000000000000
    0000000000005584941C558595385587974D555E6108378C48AA50E983FF50E9
    83FF50E983FF50E983FF385A3855000000000000000000000000000000000000
    0000000000000000000000000000000000000000000074C985AA5EF791FF5EF7
    91FF5EF791FF5EF791FFAACCAA55000000000000000000000000000000000000
    0000000000000000000000000000000000000000000093C3967166B26EAA66B2
    6EAA66B26EAA66B26EAAC6DDC638000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000000000000000000000000000000000000000000000000000083FF
    0000803F00008007000080070000000300000003000000030000000100000001
    0000000100000003000080030000C00F0000FC0F0000FC0F0000FFFF0000}
  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 = 600
    Height = 38
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 34
        Width = 596
      end>
    FixedSize = True
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 583
      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 xiugai: TToolButton
        Left = 81
        Top = 2
        Hint = #20462#25913
        Action = Edit
        AutoSize = True
        ImageIndex = 1
        ParentShowHint = False
        ShowHint = True
      end
      object dele1: TToolButton
        Left = 162
        Top = 2
        Hint = #21024#38500
        Action = Delete
        AutoSize = True
        ImageIndex = 2
        ParentShowHint = False
        ShowHint = True
      end
      object save1: TToolButton
        Left = 243
        Top = 2
        Hint = #20445#23384
        Action = Save
        AutoSize = True
        Enabled = False
        ImageIndex = 7
        ParentShowHint = False
        ShowHint = True
      end
      object Refresh1: 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 = 600
    Height = 401
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Splitter1: TSplitter
      Left = 223
      Top = 0
      Width = 3
      Height = 401
      Cursor = crHSplit
    end
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 223
      Height = 401
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 0
      object Tree: TTreeView
        Left = 0
        Top = 0
        Width = 223
        Height = 401
        Align = alClient
        Images = mainfrm.TreeView
        Indent = 19
        PopupMenu = PopupMenu1
        ReadOnly = True
        RowSelect = True
        TabOrder = 0
        OnChange = TreeChange
        OnClick = TreeClick
      end
    end
    object Panel3: TPanel
      Left = 226
      Top = 0
      Width = 374
      Height = 401
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object Splitter2: TSplitter
        Left = 0
        Top = 214
        Width = 374
        Height = 3
        Cursor = crVSplit
        Align = alTop
      end
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 374
        Height = 214
        Align = alTop
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 0
        object Label8: TLabel
          Left = 334
          Top = 13
          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 = 336
          Top = 47
          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 = 20
          Top = 182
          Width = 60
          Height = 12
          Caption = #32534#30721#35268#21017#65306
        end
        object Label1: TLabel
          Left = 20
          Top = 13
          Width = 84
          Height = 12
          Caption = #26696#21367#31867#21035#20195#30721#65306
        end
        object Label2: TLabel
          Left = 20
          Top = 46
          Width = 84
          Height = 12
          Caption = #26696#21367#31867#21035#21517#31216#65306
        end
        object Label3: TLabel
          Left = 20
          Top = 80
          Width = 84
          Height = 12
          Caption = #26696#21367#31867#21035#32423#25968#65306
        end
        object Label4: TLabel
          Left = 20
          Top = 148
          Width = 84
          Height = 12
          Caption = #26696#21367#31867#21035#35828#26126#65306
        end
        object Label5: TLabel
          Left = 20
          Top = 114
          Width = 84
          Height = 12
          Caption = #31995#32479#26696#21367#31867#21035#65306
        end
        object Label6: TLabel
          Left = 336
          Top = 79
          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 Edit1: TEdit
          Left = 120
          Top = 180
          Width = 190
          Height = 20
          Color = cl3DLight
          Enabled = False
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 5
        end
        object DBEdit1: TDBEdit
          Left = 120
          Top = 8
          Width = 190
          Height = 20
          DataField = 'ajlb_dm'
          DataSource = ajlb
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 0
          OnKeyPress = DBEdit1KeyPress
        end
        object DBEdit2: TDBEdit
          Left = 120
          Top = 42
          Width = 190
          Height = 20
          DataField = 'ajlb_mc'
          DataSource = ajlb
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 1
          OnKeyPress = DBEdit2KeyPress
        end
        object DBEdit3: TDBEdit
          Left = 120
          Top = 76
          Width = 190
          Height = 20
          Color = cl3DLight
          DataField = 'ajlb_js'
          DataSource = ajlb
          Enabled = False
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 4
        end
        object DBEdit4: TDBEdit
          Left = 120
          Top = 145
          Width = 190
          Height = 20
          DataField = 'ajlb_sm'
          DataSource = ajlb
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 2
        end
        object DBLookupComboBox1: TDBLookupComboBox
          Left = 120
          Top = 111
          Width = 190
          Height = 20
          DataField = 'xt_dm'
          DataSource = ajlb
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          KeyField = 'xt_dm'
          ListField = 'xt_mc'
          ListSource = sz_xtajlb
          TabOrder = 3
        end
      end
      object Panel5: TPanel
        Left = 0
        Top = 217
        Width = 374
        Height = 184
        Align = alClient
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 1
        object GroupBox2: TGroupBox
          Left = 2
          Top = 2
          Width = 370
          Height = 180
          Align = alClient
          Caption = #26696#21367#31867#21035#31649#29702
          TabOrder = 0
          object DBGridEh1: TDBGridEh
            Left = 2
            Top = 14
            Width = 366
            Height = 164
            Align = alClient
            DataSource = ajlb
            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
                Width = 100
              end
              item
                EditButtons = <>
                FieldName = 'ajlb_sjlbdm'
                Footers = <>
                Title.Caption = #19978#32423#31867#21035#20195#30721
                Width = 143
              end
              item
                EditButtons = <>
                FieldName = 'ajlb_dm'
                Footers = <>
                Title.Caption = #26696#21367#31867#21035#20195#30721
                Width = 108
              end
              item
                EditButtons = <>
                FieldName = 'ajlb_mc'
                Footers = <>
                Title.Caption = #26696#21367#31867#21035#21517#31216
                Width = 102
              end
              item
                EditButtons = <>
                FieldName = 'ajlb_sm'
                Footers = <>
                Title.Caption = #26696#21367#31867#21035#35828#26126
                Width = 106
              end
              item
                EditButtons = <>
                FieldName = 'ajlb_js'
                Footers = <>
                Title.Caption = #26696#21367#31867#21035#32423#25968
                Width = 106
              end
              item
                EditButtons = <>
                FieldName = 'xt_dm'
                Footers = <>
                Title.Caption = #31995#32479#26696#21367#31867#21035#20195#30721
                Width = 103
              end>
          end
        end
      end
    end
  end
  object XPBarMenu1: TXPBarMenu
    BarCaption = #26696#21367#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 = 184
    Top = 112
  end
  object ActionList1: TActionList
    Left = 184
    Top = 144
    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)'
    end
    object Quit: TAction
      Caption = #36864#20986'(&X)'
      OnExecute = QuitExecute
    end
  end
  object PopupMenu1: TPopupMenu
    OwnerDraw = True
    Left = 184
    Top = 176
    object A1: TMenuItem
      Action = Add
    end
    object E1: TMenuItem
      Action = Edit
    end
    object D1: TMenuItem
      Action = Delete
    end
    object N5: TMenuItem
      Caption = #23637#24320
      OnClick = N5Click
    end
    object N6: TMenuItem
      Caption = #21472#36215
      OnClick = N6Click
    end
  end
  object ajlb: TDataSource
    DataSet = DM.sz_ajlb
    Left = 184
    Top = 208
  end
  object sz_qz: TDataSource
    DataSet = DM.sz_qz
    Left = 184
    Top = 80
  end
  object sz_xtajlb: TDataSource
    DataSet = DM.sz_xtajlb
    Left = 184
    Top = 248
  end
end

						