Delphi控件源码

开发平台：
Delphi

xt_rzs.~dfm：源码内容
							object xt_rz: Txt_rz
  Left = 191
  Top = 160
  Width = 748
  Height = 375
  Caption = #31995#32479#26085#24535#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
    0000010020000000000040040000000000000000000000000000000000002F47
    507F6392A2FF42788EFF3333337F3333337F1919193F00000000000000000000
    0000000000000000000000000000000000000000000000000000000000002B5C
    6D7F7ACDE8FF81D6FBFF5BC9F5FF42B3E0FF5A92ABFF427E95FF395159BF3333
    337F3333337F0000000000000000000000000000000000000000000000002B5C
    6D7F84CEE7FFADECFDFF77DDFEFF77DDFEFF7AE1FFFF75DBFEFF65D2F8FF4CBF
    E4FF3DA3C6FF4A8BA1FF447082FF3333337F0000000000000000000000002B5C
    6D7F66C3E4FFB5E5F4FF7EE5FEFF7EE5FEFF7EE5FEFF7EE5FEFF7EE5FEFF7EE5
    FEFF83E9FEFF80E7FEFF72DAFCFF3885A0FF1919193F00000000000000002B5C
    6D7F6CC6EBFF87D0E9FF96F3FEFF87EDFEFF87EDFEFF87EDFEFF87EDFEFF87ED
    FEFF87EDFEFF87EDFEFF82E9FFFF56C4E0FF4C4C4CBF0000000000000000408A
    A4BF75CDF6FF56BEE4FFB7F7FDFF90F6FEFF90F6FEFF90F6FEFF7EE4FDFF6ED6
    FBFF73DAFBFF86ECFDFF89F0FEFFA0EBFDFF477D8FFF1919193F0000000077C6
    E2FF7ED1FCFF4DC0EFFFC3EDF7FFA1FAFEFF94F6FDFF73DAFDFF6ACCFAFF6FCC
    FAFF72CBFCFF6FD2FCFF6FD6FCFFBFF0FDFF63BFD7FF3333337F0000000077C6
    E2FF85DCFDFF6ED4FCFF5FC2E9FF9EDCEFFFAEE5F2FFB5EBFBFFBDF4FDFFB1F5
    FDFFB1E7FEFFCFEAFBFF76D3FEFF9ADCFEFFC8F0F7FF4A7582FF0000000077C6
    E2FF92E6FDFF7EE5FEFF7EE5FEFF76C9E1FF96A4A6FFB8CFB7FF98CED8FFD6F6
    FCFFADFAFEFFC7F6FDFFD4EEFDFF70D2FCFFE1F3FDFF5CA6C0FF3333337F77C6
    E2FFA3F8FEFF90F6FEFF90F6FEFF98CCD4FFC3B9AAFFFEF4C2FFF4EEC1FFAAD7
    D1FFAED0D3FF9DD2DEFFACDFEDFFAFE0F1FFC8EEFDFFC0E8F5FF517585FF77C6
    E2FFA9FAFDFF95FBFEFF95FBFEFFA8D2D3FFBBBBBAFFC1DDF2FFFDFAD7FFCAC5
    A8FF7F7163FFA48C6FFFE4D9C3FF7990B2FF627A80FF2F5A687F263F467F468C
    A3BFBAF0F8FF95FBFEFF95FBFEFFA9DBDCFFD3CABAFFFAFDFCFFFCFCF1FFECE7
    CAFF727164FFA89479FFF8ECCDFF9B9AA0FF797675FF00000000000000000000
    00005A96AABF9CDAEBFFA9E1F0FFAED4DFFFD2CFCBFFF2EADDFFFAFDFCFFFCFC
    F1FFF4F3D7FF666255FFDCC79EFF9B958BFF4F4E4EBF00000000000000000000
    0000000000000000000000000000000000009A9A99BFDCD3C6FFF6F1E4FFEDF7
    FBFFD9EFF6FFEBE8C2FFB7A98EFF8A8986FF1919193F00000000000000000000
    00000000000000000000000000000000000000000000A1A2A2BFDBD7CFFFD3CA
    BDFFC7BEAEFFC0B7A6FF9D9A99FF1919193F0000000000000000000000000000
    00000000000000000000000000000000000000000000000000005E5F5F7FC9CA
    CAFFC2C2C1FF7C7C7CBF1919193F0000000000000000000000000000000003FF
    0000003F00000007000000030000000300000001000000010000000100000000
    000000000000000000000003000080030000F8030000FC070000FE0F0000}
  OldCreateOrder = False
  Position = poDefault
  Scaled = False
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 740
    Height = 42
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 36
        Width = 736
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 723
      Height = 36
      ButtonHeight = 30
      ButtonWidth = 107
      Caption = 'ToolBar1'
      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 = #28165#31354#20840#37096'(&A)'
        ImageIndex = 11
        OnClick = ToolButton1Click
      end
      object ToolButton3: TToolButton
        Left = 105
        Top = 2
        AutoSize = True
        Caption = #21024#38500#37096#20998'(&D)'
        ImageIndex = 2
        OnClick = ToolButton3Click
      end
      object ToolButton4: TToolButton
        Left = 210
        Top = 2
        AutoSize = True
        Caption = #21047#26032'(&R)'
        ImageIndex = 3
        OnClick = ToolButton4Click
      end
      object ToolButton2: TToolButton
        Left = 291
        Top = 2
        AutoSize = True
        Caption = #25171#21360
        ImageIndex = 5
        OnClick = ToolButton2Click
      end
      object ToolButton6: TToolButton
        Left = 354
        Top = 2
        AutoSize = True
        Caption = #36864#20986'(&X)'
        ImageIndex = 6
        OnClick = ToolButton6Click
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 42
    Width = 740
    Height = 306
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object DBGridEh1: TDBGridEh
      Left = 2
      Top = 2
      Width = 736
      Height = 302
      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]
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          EditButtons = <>
          FieldName = 'rz_xh'
          Footers = <>
          Title.Caption = #24207#21495
        end
        item
          EditButtons = <>
          FieldName = 'rz_computer_IP'
          Footers = <>
          Title.Caption = #35745#31639#26426#21517#25110'IP'#22320#22336
          Width = 106
        end
        item
          EditButtons = <>
          FieldName = 'rz_czsj'
          Footers = <>
          Title.Caption = #25805#20316#26102#38388
        end
        item
          EditButtons = <>
          FieldName = 'rz_nr'
          Footers = <>
          Title.Caption = #26085#24535#20869#23481
        end
        item
          EditButtons = <>
          FieldName = 'User_name'
          Footers = <>
          Title.Caption = #29992#25143#21517
        end>
    end
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 32
    Top = 136
  end
  object XPBarMenu1: TXPBarMenu
    BarCaption = #31995#32479#26085#24535#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 = 456
    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 = []
    Title.Strings = (
      #31995#32479#26085#24535#34920)
    Units = MM
    Left = 56
    Top = 136
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from xt_rz'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket1
    Left = 88
    Top = 136
  end
end

						