Delphi控件源码

开发平台：
Delphi

xt_yhz_ms.~dfm：源码内容
							object xt_yhz: Txt_yhz
  Left = -141
  Top = 150
  Width = 778
  Height = 375
  Caption = #29992#25143#32452#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
    00005C9A5CBF267926FF2B7F2BFF2D7F2DFF236A23FF316F31FF8BAC8B7FAAB0
    AA7F000000000000000000000000000000000000000000000000000000009CC1
    9C7F26A926FF3BB93BFF4EC54EFF58C358FF58A04EFF3DAF3BFF41B941FF1E8B
    1EFF60756EBF8B8BAC7F8787AC7F7F7FB17F8587AE7F8B8BAC7F9EA6AE7FCDE0
    CD3F2FAA2FFF54C554FF6BD26BFF54A84BFFF4F4E4FF5AAF56FF60CE60FF45BD
    45FF0A5071FF1E64A2FF145ECBFF1C5AD8FF1447CEFF0C2AB3FF101E75FF0000
    00005AA85ABF62CC62FF5CBD5AFFC1D6B7FFFFFFFBFF77B777FF75DA75FF4ABB
    4AFF1671A6FFA2C7CCFF5298C9FF2783F1FF2068E0FF1649CEFF163389FF0000
    00000000000062AC62BF3F895EFF6AA4BDFF79AABDFF71A266FF5ABB58FF1C7F
    6BFF208BE0FFDAEAECFFE4F0F2FF2B8BD6FF2B87F5FF1A5AD2FF87A0C17F0000
    0000000000009CC5DC7F1C87DEFF2590ECFF2590ECFF127BAAFF1C566FFF2281
    E4FF248CDAFFD1CDCBFFA098B5FF7381A2FF1C81D2FF4B7FB7BF000000000000
    0000000000002B8DE2FF35A0FFFF37A0FFFF37A0FFFF35A0FFFF648BA8BFC3DA
    E43F4575AEBF0A2083FF0C2D94FF082089FF0A2473FFB0B0B07F000000000000
    000098C3DE7F3DA7FFFF44ABFFFF46B1FFFF46B1FFFF44ABFFFF357BACFF0000
    000014318EFF1448AFFF144AB1FF1448AFFF0E359AFF333B64FF000000000000
    000094C9EA7F48B1FFFF4EB7FFFF54BBFFFF54BBFFFF4EB7FFFF398ABDFFCBD3
    E43F1652B7FF1E62CEFF2162CEFF1E62CCFF1C56BFFF143781FFB5B5B57F0000
    000089CDEC7F35A6F0FF3DA4F7FF39A2EAFF33B7F2FF39B3FBFF4187AEFF98A8
    C97F2571DAFF297FEAFF2983EFFF277FE6FF2371DAFF103D94FFA8A8A87F0000
    00009CB7E07F22BFF5FF8BD4E6FFACE8F4FF28D6FFFF18A8F4FF91B9D37F9CB5
    C97F2985E8FF359CFFFF2B8DF7FF2475DAFF184C92FF060E16FFA4A4A47F0000
    00000000000041A8D6BF2AD2F9FF66EBFFFF2CD0F6FF47A4C9BF000000000000
    0000081837FF102B6FFF232F52FF3D3D3DFF2D2D2DFF101010FFDADADA3F0000
    000000000000000000008BBDD67F90C5DA7F8BBDD67F00000000000000000000
    0000607585BF4A4A4AFF7F817FFF6A6A6AFF434343FF5C5C5CBF000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000091989C7F52585CFF50565AFF9494947F00000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    0000807F0000000000000000000080000000C0000000C0010000C00100008081
    0000800000008000000080000000C1800000E3810000FFC30000FFFF0000}
  OldCreateOrder = False
  Position = poDefault
  Scaled = False
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 770
    Height = 40
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 36
        Width = 766
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 753
      Height = 36
      ButtonHeight = 30
      ButtonWidth = 83
      Caption = 'ToolBar1'
      EdgeInner = esNone
      EdgeOuter = esNone
      Images = mainfrm.zsg
      List = True
      ParentShowHint = False
      ShowCaptions = True
      ShowHint = True
      TabOrder = 0
      Transparent = True
      object ToolButton1: TToolButton
        Left = 0
        Top = 2
        AutoSize = True
        Caption = #22686#21152'(&A)'
        ImageIndex = 0
        OnClick = ToolButton1Click
      end
      object ToolButton2: TToolButton
        Left = 81
        Top = 2
        AutoSize = True
        Caption = #20462#25913'(&E)'
        ImageIndex = 1
        OnClick = ToolButton2Click
      end
      object ToolButton3: TToolButton
        Left = 162
        Top = 2
        AutoSize = True
        Caption = #21024#38500'(&D)'
        ImageIndex = 2
        OnClick = ToolButton3Click
      end
      object ToolButton4: TToolButton
        Left = 243
        Top = 2
        AutoSize = True
        Caption = #21047#26032'(&R)'
        ImageIndex = 3
        OnClick = ToolButton4Click
      end
      object ToolButton6: TToolButton
        Left = 324
        Top = 2
        AutoSize = True
        Caption = #25171#21360'(&P)'
        ImageIndex = 5
        OnClick = ToolButton6Click
      end
      object ToolButton7: TToolButton
        Left = 405
        Top = 2
        AutoSize = True
        Caption = #36864#20986'(&X)'
        ImageIndex = 6
        OnClick = ToolButton7Click
      end
    end
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 40
    Width = 770
    Height = 308
    Align = alClient
    Caption = #29992#25143#32452
    TabOrder = 1
    object DBGridEh1: TDBGridEh
      Left = 2
      Top = 14
      Width = 766
      Height = 292
      Align = alClient
      DataSource = DataSource3
      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]
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDblClick = DBGridEh1DblClick
      Columns = <
        item
          EditButtons = <>
          FieldName = 'yhz_dm'
          Footers = <>
          Title.Caption = #29992#25143#32452#20195#30721
        end
        item
          EditButtons = <>
          FieldName = 'yhz_mc'
          Footers = <>
          Title.Caption = #29992#25143#32452#21517#31216
          Width = 164
        end
        item
          EditButtons = <>
          FieldName = 'yhz_sm'
          Footers = <>
          Title.Caption = #35828#26126
          Width = 158
        end
        item
          EditButtons = <>
          FieldName = 'js_mc'
          Footers = <>
          Title.Caption = #35282#33394
          Width = 479
        end>
    end
  end
  object DataSource1: TDataSource
    DataSet = DM.xt_yhz
    Left = 96
    Top = 104
  end
  object DataSource2: TDataSource
    DataSet = DM.xt_js
    Left = 128
    Top = 104
  end
  object DataSource3: TDataSource
    DataSet = DM.ug_js
    Left = 160
    Top = 104
  end
  object XPBarMenu1: TXPBarMenu
    BarCaption = #29992#25143#32452#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 = 584
    Top = 8
  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 = 104
  end
end

						