Delphi控件源码

开发平台：
Delphi

sz_wjlbs.~dfm：源码内容
							object sz_wjlb: Tsz_wjlb
  Left = 224
  Top = 109
  Width = 608
  Height = 467
  Caption = #25991#20214#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
    000000000000909080FFDEB4ACFFCEA39EFFCDA39EFFCB9F98FFCBA099FFCB9E
    98FFCBA099FFCC9E98FFCC9D96FFCEA09AFFCF978CFF00000000000000000000
    000000000000909080FFFFFED8FFFFE5C3FFFFE3C3FFFFE5C4FFFFE0BBFFFFDF
    B8FFFFDCB4FFFFDCB5FFFDDAB4FFFBD9ADFF909080FF00000000000000000000
    000000000000909080FFFFF9E3FFFEE2CBFFFEDEBFFFFDDBBFFFFFE2C0FFFFDF
    B6FFFFD9AAFFFFD6AFFFFAD5B2FFFDDCB6FF909080FF00000000000000000000
    000000000000909080FFFFFFECFFFFE9D3FFFFEDD6FFFFFCD8FF74BDCAFF15BF
    E5FF21D4FFFF92CCC9FFFFD8ADFFFCDAB3FF909080FF00000000000000000000
    000000000000909080FFED8978FFEAC8C1FFEDAC9BFFEF6663FF008FAFFF00A6
    D9FF00D2FFFF00C1F6FFFFE4BFFFFFDEB7FF909080FF00000000000000000000
    000000000000909080FFFF9371FFFFBAA0FFFF8963FFE20D00FF62DAEBFF0095
    C5FF00C5F9FF00CBFFFFB2D4D0FFFFE1B9FF909080FF00000000000000000000
    000000000000909080FFFFB8A3FFFFA586FFFFA084FFED2C0FFFA2ABACFF1BA2
    CBFFAAE4FFFF79DEFFFF72D9F4FFFFE4BEFF909080FF00000000000000000000
    000000000000909080FFFFFFFFFFFF986DFFFFAE84FFFF6D3AFFF8F1E0FF478C
    70FF00AE55FF00E575FF27A777FFFFF3D9FF909080FF00000000000000000000
    000000000000909080FFFFFFF7FF006BFFFF7CCAFFFF43A4FFFF121AB7FF5CA2
    6AFF00A86EFF01DD91FF00D179FFE3D3C4FF909080FF00000000000000000000
    000000000000909080FFFFFFFAFF649FF1FF53A7FFFF0069FFFF0009AFFFAACB
    B4FF00884DFF00C869FF00F392FF6EAF98FF909080FF00000000000000000000
    000000000000909080FFFFFFFFFFCFD8EEFF0273FFFF328EFFFF0028E3FF7886
    BDFF499B78FFDEEDDAFFC3F1D9FF5FCCB0FF909080FF00000000000000000000
    000000000000909080FFFFFFFFFFFFFFF5FF92B6EEFF66B1FFFF5383EEFFE4DD
    D8FFFFFAEEFFFFEDDCFFFFEFE8FFFFEBEBFF909080FF00000000000000000000
    000000000000909080FFFFFFFFFFFEF7F2FFFFFFF4FFFFFCE7FFFFFFE8FFFFF5
    E7FFFCF0E5FFFFFFFAFFB6723BFFDB840FFFE9996BFF00000000000000000000
    000000000000909080FFFFFFFFFFFDFCFCFFFDF8F4FFFDFBF7FFFAF5F1FFFBF4
    EDFFFDF3E7FFFFFFFDFFDFB078FFFFC67FFF0000000000000000000000000000
    000000000000909080FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFFFCFFFFFF
    F8FFFFFDF7FFFFFFFFFFDFAD90FF000000000000000000000000000000000000
    000000000000909080FF909080FF909080FF909080FF909080FF909080FF9090
    80FF909080FF909080FF0000000000000000000000000000000000000000C003
    0000C0030000C0030000C0030000C0030000C0030000C0030000C0030000C003
    0000C0030000C0030000C0030000C0030000C0070000C00F0000C01F0000}
  OldCreateOrder = False
  Position = poDefault
  Scaled = False
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object StatusBar1: TStatusBar
    Left = 0
    Top = 421
    Width = 600
    Height = 19
    Panels = <
      item
        Text = #26723#26696#31649#29702#31995#32479
        Width = 200
      end
      item
        Text = #24320#21457#21830#65306'E'#29436#36719#20214#20844#21496
        Width = 50
      end>
    SimplePanel = False
  end
  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
        Enabled = False
        ImageIndex = 1
        ParentShowHint = False
        ShowHint = True
      end
      object dele1: TToolButton
        Left = 162
        Top = 2
        Hint = #21024#38500
        Action = Delete
        AutoSize = True
        Enabled = False
        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 ToolButton2: TToolButton
        Left = 405
        Top = 2
        Hint = #25171#21360
        Action = Print
        AutoSize = True
        ImageIndex = 5
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButton3: TToolButton
        Left = 486
        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 = 383
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object Splitter1: TSplitter
      Left = 223
      Top = 0
      Width = 3
      Height = 383
      Cursor = crHSplit
    end
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 223
      Height = 383
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 0
      object Tree: TTreeView
        Left = 0
        Top = 0
        Width = 223
        Height = 383
        Align = alClient
        Images = mainfrm.TreeView
        Indent = 19
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ReadOnly = True
        RowSelect = True
        ShowHint = True
        TabOrder = 0
        OnClick = TreeClick
      end
    end
    object Panel3: TPanel
      Left = 226
      Top = 0
      Width = 374
      Height = 383
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object Splitter2: TSplitter
        Left = 0
        Top = 217
        Width = 374
        Height = 3
        Cursor = crVSplit
        Align = alTop
      end
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 374
        Height = 217
        Align = alTop
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 0
        object Label8: TLabel
          Left = 314
          Top = 25
          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 = 316
          Top = 65
          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 = 27
          Width = 84
          Height = 12
          Caption = #25991#20214#31867#21035#20195#30721#65306
        end
        object Label2: TLabel
          Left = 20
          Top = 65
          Width = 84
          Height = 12
          Caption = #25991#20214#31867#21035#21517#31216#65306
        end
        object Label3: TLabel
          Left = 20
          Top = 104
          Width = 84
          Height = 12
          Caption = #25991#20214#31867#21035#32423#25968#65306
        end
        object Label4: TLabel
          Left = 20
          Top = 143
          Width = 84
          Height = 12
          Caption = #25991#20214#31867#21035#35828#26126#65306
        end
        object Edit1: TEdit
          Left = 103
          Top = 180
          Width = 206
          Height = 20
          Color = cl3DLight
          Enabled = False
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 0
        end
        object DbEdit2: TEdit
          Left = 103
          Top = 62
          Width = 206
          Height = 20
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 1
        end
        object DbEdit3: TEdit
          Left = 103
          Top = 101
          Width = 206
          Height = 20
          Color = cl3DLight
          Enabled = False
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 2
        end
        object DbEdit4: TEdit
          Left = 103
          Top = 140
          Width = 206
          Height = 20
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 3
        end
        object DbEdit1: TEdit
          Left = 103
          Top = 24
          Width = 206
          Height = 20
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 4
        end
      end
      object Panel5: TPanel
        Left = 0
        Top = 220
        Width = 374
        Height = 163
        Align = alClient
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 1
        object GroupBox2: TGroupBox
          Left = 2
          Top = 2
          Width = 370
          Height = 159
          Align = alClient
          Caption = #25991#20214#31867#21035#31649#29702
          TabOrder = 0
          object DBGridEh1: TDBGridEh
            Left = 2
            Top = 14
            Width = 366
            Height = 143
            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 = 'wjlb_dm'
                Footers = <>
                Title.Caption = #25991#20214#31867#21035#20195#30721
                Width = 93
              end
              item
                EditButtons = <>
                FieldName = 'wjlb_mc'
                Footers = <>
                Title.Caption = #25991#20214#31867#21035#21517#31216
                Width = 103
              end
              item
                EditButtons = <>
                FieldName = 'wjlb_sm'
                Footers = <>
                Title.Caption = #25991#20214#31867#21035#35828#26126
                Width = 124
              end
              item
                EditButtons = <>
                FieldName = 'wjlb_js'
                Footers = <>
                Title.Caption = #25991#20214#31867#21035#32423#25968
                Width = 79
              end
              item
                EditButtons = <>
                FieldName = 'wjlb_sjlbdm'
                Footers = <>
                Title.Caption = #19978#32423#31867#21035#20195#30721
                Width = 164
              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 = 176
    Top = 96
  end
  object ActionList1: TActionList
    Left = 176
    Top = 136
    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 = 176
    Top = 168
    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 DataSource1: TDataSource
    DataSet = DM.sz_wjlb
    Left = 176
    Top = 64
  end
  object sz_xtajlb: TDataSource
    DataSet = DM.sz_xtajlb
    Left = 176
    Top = 208
  end
  object PrintDBGridEh1: TPrintDBGridEh
    DBGridEh = DBGridEh1
    Options = [pghFitGridToPageWidth, pghColored, pghRowAutoStretch, pghFitingByColWidths, pghOptimalColWidths]
    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.CenterText.Strings = (
      #25991#20214#31867#21035#31649#29702)
    PageHeader.Font.Charset = ANSI_CHARSET
    PageHeader.Font.Color = clWindowText
    PageHeader.Font.Height = -16
    PageHeader.Font.Name = #23435#20307
    PageHeader.Font.Style = [fsBold]
    PageHeader.LineType = pcltSingleLine
    Units = MM
    Left = 176
    Top = 240
  end
end

						