Delphi控件源码

开发平台：
Delphi

xt_rz_bjs.dfm：源码内容
							object xt_rz_bj: Txt_rz_bj
  Left = 185
  Top = 105
  Width = 350
  Height = 287
  Caption = #26085#24535#21024#38500
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  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 = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object SpeedButton1: TSpeedButton
    Left = 208
    Top = 224
    Width = 66
    Height = 29
    Caption = #30830#23450'(&O)'
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 273
    Top = 224
    Width = 66
    Height = 29
    Caption = #36864#20986'(&X)'
    OnClick = SpeedButton2Click
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 342
    Height = 217
    ActivePage = TabSheet1
    Align = alTop
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #25209#37327#21024#38500
      object Label4: TLabel
        Left = 24
        Top = 31
        Width = 240
        Height = 12
        Caption = #36755#20837#22825#25968#65292#31995#32479#23558#21024#38500#35813#22825#25968#20197#21069#30340#25152#26377#26085#24535
      end
      object UpDown1: TUpDown
        Left = 144
        Top = 79
        Width = 18
        Height = 23
        Min = 0
        Position = 0
        TabOrder = 0
        Wrap = False
        OnClick = UpDown1Click
      end
      object Edit1: TEdit
        Left = 24
        Top = 79
        Width = 121
        Height = 22
        Color = cl3DLight
        Enabled = False
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 1
        Text = '1'
      end
    end
    object TabSheet2: TTabSheet
      Caption = #25353#26085#26399#21024#38500
      ImageIndex = 1
      object Label1: TLabel
        Left = 16
        Top = 24
        Width = 276
        Height = 12
        Caption = #36755#20837#26085#26399#33539#22260#65292#31995#32479#38388#21024#38500#35813#26085#26399#33539#22260#20869#30340#25152#26377#26085#24535
      end
      object Label2: TLabel
        Left = 16
        Top = 48
        Width = 12
        Height = 12
        Caption = #20174
      end
      object Label3: TLabel
        Left = 16
        Top = 104
        Width = 12
        Height = 12
        Caption = #21040
      end
      object DateTimePicker1: TDateTimePicker
        Left = 16
        Top = 72
        Width = 211
        Height = 20
        CalAlignment = dtaLeft
        Date = 38136.7597223495
        Format = 'yyyy-mm-dd hh:mm:dd'
        Time = 38136.7597223495
        DateFormat = dfShort
        DateMode = dmComboBox
        ImeMode = imAlpha
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        Kind = dtkDate
        ParseInput = False
        TabOrder = 0
      end
      object DateTimePicker2: TDateTimePicker
        Left = 16
        Top = 136
        Width = 211
        Height = 20
        CalAlignment = dtaLeft
        Date = 38136.7646763426
        Format = 'yyyy-mm-dd hh:mm:dd'
        Time = 38136.7646763426
        DateFormat = dfShort
        DateMode = dmComboBox
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        Kind = dtkDate
        ParseInput = False
        TabOrder = 1
      end
    end
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from xt_rz'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket1
    Left = 8
    Top = 64
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 40
    Top = 64
  end
  object XPBarMenu1: TXPBarMenu
    BarCaption = #26085#24535#21024#38500
    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 = 248
    Top = 88
  end
end

						