Delphi控件源码

开发平台：
Delphi

xt_lbjss.dfm：源码内容
							object xt_lbjs: Txt_lbjs
  Left = 196
  Top = 110
  Width = 499
  Height = 393
  Caption = #21442#25968#35774#23450
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Icon.Data = {
    0000010002002020100000000000E80200002600000010101000000000002801
    00000E0300002800000020000000400000000100040000000000800200000000
    0000000000000000000000000000000000000000800000800000008080008000
    0000800080008080000080808000C0C0C0000000FF0000FF000000FFFF00FF00
    0000FF00FF00FFFF0000FFFFFF00000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000007000070000000000000000000008FFF08FFF08F8FFF000000
    0000000000F8F870FFF708F8FF0000000000000000FF8F8FFFFFFF8F8F000000
    0000000000FFF98989898FF8F80000000000000000FFFF8F8FFFFFFF8F000000
    0000000000FFF989898FFFFFF80000000000000000FFFFFF8FFFFFFFFF000009
    9990000000FFF989890989FFFF000099990000000000FFFF008F8F8FFF000999
    90FF00FFFFFF000040F8F8F8FF0009990FFFFFFFFFFFFFF00000099900000999
    0FFFFFFFFF00000000000999000009990FFFFFFFFF000B000000000000000099
    0FFFFFFFFF00B0F0000000000000000000FFFFFFFF0B0FF00000000000000000
    0000FFFFF0B0FF00000000000000000000000FFF0B0FF0000000000000000000
    00000000B0FF000000000000000000000000000B000000000000000000000000
    000000B000000000000000000000000000000B00000000000000000000000000
    0000B000000000000000000000000000000B0000000000000000000000000000
    00B0000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFF80001FFF8
    0001FFF80001FFF80001FFF80001FFF80001FFF80001E1F80001C0F8000180C0
    0001000000010000000300000F0700010F8F80000FFFC0000FFFFC001FFFFF00
    3FFFFF807FFFFFC0FFFFFF8FFFFFFF1FFFFFFE3FFFFFFC7FFFFFF8FFFFFFF9FF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFF280000001000000020000000010004000000
    0000C00000000000000000000000000000000000000000000000000080000080
    00000080800080000000800080008080000080808000C0C0C0000000FF0000FF
    000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000000000000000
    0000000000000000000F80F80FF000000008FFF989800000000FF98989F00000
    000F989898F00900000000FFFFF0090FFFFFFF009900090FFFF0B0F000000000
    FF0B0F000000000000B0F000000000000B00000000000000B00000000000000B
    00000000000000000000000000000000000000000000FFFF0000FC480000FC00
    0000FC000000FC0000008C000000002000000001000000030000801F0000F03F
    0000F07F0000E3FF0000C7FF0000CFFF0000FFFF0000}
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object SpeedButton1: TSpeedButton
    Left = 339
    Top = 333
    Width = 71
    Height = 29
    Caption = #30830#23450'(&O)'
  end
  object SpeedButton2: TSpeedButton
    Left = 409
    Top = 333
    Width = 71
    Height = 29
    Caption = #36864#20986'(&X)'
    OnClick = SpeedButton2Click
  end
  object PageControl1: TPageControl
    Left = 9
    Top = 10
    Width = 472
    Height = 319
    ActivePage = TabSheet1
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #31867#21035#32423#25968
      object Label1: TLabel
        Left = 29
        Top = 19
        Width = 60
        Height = 12
        Caption = #31867#21035#21517#31216#65306
      end
      object Label2: TLabel
        Left = 24
        Top = 252
        Width = 60
        Height = 12
        Caption = #32423#25968#39044#35272#65306
      end
      object GroupBox1: TGroupBox
        Left = 24
        Top = 39
        Width = 212
        Height = 197
        Caption = #31867#21035#32423#25968
        TabOrder = 0
        object Label3: TLabel
          Left = 16
          Top = 16
          Width = 114
          Height = 12
          Caption = ' '#19968#32423#31867#21035#32534#30721#38271#24230#65306
        end
        object Label4: TLabel
          Left = 16
          Top = 47
          Width = 114
          Height = 12
          Caption = ' '#20108#32423#31867#21035#32534#30721#38271#24230#65306
        end
        object Label5: TLabel
          Left = 16
          Top = 79
          Width = 108
          Height = 12
          Caption = #19977#32423#31867#21035#32534#30721#38271#24230#65306
        end
        object Label6: TLabel
          Left = 16
          Top = 111
          Width = 108
          Height = 12
          Caption = #22235#32423#31867#21035#32534#30721#38271#24230#65306
        end
        object Label7: TLabel
          Left = 16
          Top = 143
          Width = 108
          Height = 12
          Caption = #20116#32423#31867#21035#32534#30721#38271#24230#65306
        end
        object Label8: TLabel
          Left = 16
          Top = 175
          Width = 108
          Height = 12
          Caption = #20845#32423#31867#21035#32534#30721#38271#24230#65306
        end
        object bm1: TSpinEdit
          Left = 130
          Top = 13
          Width = 73
          Height = 21
          MaxValue = 9
          MinValue = 0
          TabOrder = 0
          Value = 0
          OnClick = bm1Click
        end
        object bm2: TSpinEdit
          Left = 130
          Top = 44
          Width = 73
          Height = 21
          Enabled = False
          MaxValue = 9
          MinValue = 0
          TabOrder = 1
          Value = 0
          OnChange = bm2Change
        end
        object bm3: TSpinEdit
          Left = 130
          Top = 75
          Width = 73
          Height = 21
          Enabled = False
          MaxValue = 9
          MinValue = 0
          TabOrder = 2
          Value = 0
          OnChange = bm3Change
        end
        object bm4: TSpinEdit
          Left = 130
          Top = 107
          Width = 73
          Height = 21
          Enabled = False
          MaxValue = 9
          MinValue = 0
          TabOrder = 3
          Value = 0
          OnChange = bm4Change
        end
        object bm5: TSpinEdit
          Left = 130
          Top = 138
          Width = 73
          Height = 21
          Enabled = False
          MaxValue = 9
          MinValue = 0
          TabOrder = 4
          Value = 0
          OnChange = bm5Change
        end
        object bm6: TSpinEdit
          Left = 130
          Top = 170
          Width = 73
          Height = 21
          Enabled = False
          MaxValue = 9
          MinValue = 0
          TabOrder = 5
          Value = 0
          OnChange = bm6Change
        end
      end
      object GroupBox2: TGroupBox
        Left = 259
        Top = 38
        Width = 184
        Height = 197
        Caption = #35828#26126
        TabOrder = 1
        object Memo1: TMemo
          Left = 2
          Top = 14
          Width = 180
          Height = 181
          Align = alClient
          Color = cl3DLight
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          Lines.Strings = (
            #20174#31867#21035#21517#31216#20013#36873#25321#19968#20010#31867#21035#65292#21487
            #20197#35774#32622#30456#24212#30340#31867#21035#32423#25968#65292#36873#25321#27599
            #20010#31867#21035
            #32423#25968#38271#24230#19981#36229#36807'9'#12290#26412#31867#21035#24635#38271#24230
            #19981#36229#36807'30'#12290
            #28784#25481#30340#36755#20837#26694#34920#31034#35813#32423#19981#33021#20462#25913
            #12290)
          TabOrder = 0
        end
        object Memo2: TMemo
          Left = 2
          Top = 14
          Width = 180
          Height = 181
          Align = alClient
          Color = cl3DLight
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          Lines.Strings = (
            #20174#31867#21035#21517#31216#20013#36873#25321#19968#20010#31867#21035#65292#21487
            #20197#35774#32622#30456#24212#30340#31867#21035#32423#25968#65292#36873#25321#27599
            #20010#31867#21035
            #32423#25968#38271#24230#19981#36229#36807'9'#12290#26412#31867#21035#24635#38271#24230
            #19981#36229#36807'4'#12290
            #28784#25481#30340#36755#20837#26694#34920#31034#35813#32423#19981#33021#20462#25913
            #12290)
          TabOrder = 1
        end
      end
      object Edit1: TEdit
        Left = 96
        Top = 248
        Width = 136
        Height = 20
        Color = cl3DLight
        Enabled = False
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 2
        OnChange = Edit1Change
      end
      object ComboBox1: TComboBox
        Left = 94
        Top = 16
        Width = 145
        Height = 20
        Style = csDropDownList
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ItemHeight = 12
        TabOrder = 3
        OnChange = ComboBox1Change
      end
    end
    object TabSheet2: TTabSheet
      Caption = #26696#21367#21442#25968
      ImageIndex = 1
      object Label9: TLabel
        Left = 32
        Top = 51
        Width = 156
        Height = 12
        Caption = #27599#26696#21367#30418#26368#22810#21487#21253#21547#30340#39029#25968#65306
      end
      object DBNumberEditEh1: TDBNumberEditEh
        Left = 192
        Top = 48
        Width = 121
        Height = 20
        DataField = 'ajcs_mc'
        DataSource = DataSource1
        EditButton.Style = ebsUpDownEh
        EditButton.Visible = True
        EditButtons = <>
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 0
        Visible = True
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = DM.xt_ajcs
    Left = 440
    Top = 48
  end
  object lbjs: TDataSource
    DataSet = DM.xt_lbjs
    Left = 16
    Top = 296
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from xt_lbjs'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket1
    Left = 48
    Top = 296
  end
end

						