Delphi控件源码

开发平台：
Delphi

Am_Yhgls.~dfm：源码内容
							object Am_Yhgl: TAm_Yhgl
  Left = 215
  Top = 191
  Width = 675
  Height = 375
  BorderIcons = [biSystemMenu]
  Caption = #29992#25143#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
    00000000000000000000313031396365637B6365637B6365637B313031393130
    31395A595A7B3930427B312C4A7B312C4A7B5A5D5A7B00000000000000000000
    0000000000009C867BBDC6B6B5FFC6B2ADFFC6AAADFF8C758CFF39499CFF1849
    BDFF317DBDFF2165DEFF185DDEFF1859D6FF294DADFF5A5D5A7B000000000000
    00009C827BBDEFEBEFFFEFEBEFFFE7DFDEFFADA6B5FF1045BDFF2161DEFF217D
    E7FFCEE3E7FF5AA2DEFF298AF7FF216DE7FF1855CEFF08144A7B000000000000
    0000D6C7C6FFF7F7F7FFFFF7FFFFE7E7E7FFADA2ADFF1851C6FF2986F7FF4296
    E7FFFFFFFFFFD6E7EFFF2992E7FF298EF7FF2161DEFF4A34427B000000000000
    0000312C2939DEBEB5FFCEB6ADFFE7DFDEFFCE9A8CFF424184FF3186F7FF5AA2
    DEFFFFE7CEFFCEBEB5FFADB6B5FF298EEFFF39457BBD00000000000000000000
    00000000000094797BBDEFA642FFE7A65AFFCE8663FFB5654AFF735D7BFF5A6D
    A5FF293494FF102894FF183094FF6B6D94FF0000000000000000000000000000
    000000000000C69E8CFFFFB231FFFFB631FFFFB239FFEFAA5AFFD6926BFF2941
    94FF1049B5FF1049B5FF1041ADFF10309CFF4A454A7B00000000000000000000
    000031303139DEA673FFFFB642FFFFC752FFFFC75AFFFFC75AFFB5824AFF1851
    BDFF185DCEFF1865D6FF185DCEFF1855BDFF5A659CFF00000000000000000000
    00006359527BE7B273FFFFCF63FFFFD36BFFFFD36BFFFFD36BFF8C7573FF2171
    DEFF297DEFFF2982EFFF2182E7FF216DDEFF395DADFF00000000000000000000
    00009C8E8CBDEFBE73FFFFD77BFFFFDB84FFFFE394FFFFDF8CFF8C797BFF298E
    F7FF3196F7FF3196F7FF2986F7FF297DE7FF082439FF00000000000000000000
    0000C6AEADFFFFCF7BFFFFE394FFFFE7A5FFFFEBADFFFFEBADFFB5A673FF1834
    73FF184194FF213873FF393C5AFF292429FF312C29FF00000000000000000000
    0000C6B2ADFFDEBA8CFFE7CF9CFFFFE3B5FFFFF3CEFFFFEFC6FFFFEBADFF4A45
    4AFF52494AFF7B797BFF736D6BFF42414AFF735952FF00000000000000000000
    00009C9694BDC6B6B5FFC6AEADFFB59E9CFFBD9694FFC6AA9CFFCEAE9CFF8469
    5ABD636163FF5A555AFF5A555AFF7B716BFF292C293900000000000000000000
    00000000000000000000313031396355527B6B554A7B94827BBDBD9E94FF6345
    397B000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    0000E0030000C0010000800100008001000080030000C0070000C00300008003
    00008003000080030000800300008003000080030000E07F0000FFFF0000}
  OldCreateOrder = False
  Position = poDefault
  Scaled = False
  ShowHint = True
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 667
    Height = 40
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 36
        Width = 663
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 650
      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 ToolButton5: TToolButton
        Left = 324
        Top = 2
        AutoSize = True
        Caption = #26597#25214'(&F)'
        ImageIndex = 4
        OnClick = ToolButton5Click
      end
      object ToolButton6: TToolButton
        Left = 405
        Top = 2
        AutoSize = True
        Caption = #25171#21360'(&P)'
        ImageIndex = 5
        OnClick = ToolButton6Click
      end
      object ToolButton7: TToolButton
        Left = 486
        Top = 2
        AutoSize = True
        Caption = #36864#20986'(&X)'
        ImageIndex = 6
        OnClick = ToolButton7Click
      end
    end
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 40
    Width = 667
    Height = 308
    Align = alClient
    Caption = #29992#25143#32452
    TabOrder = 1
    object DBGridEh1: TDBGridEh
      Left = 2
      Top = 14
      Width = 663
      Height = 292
      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 = 'user_dm'
          Footers = <>
          Title.Caption = #29992#25143#20195#30721
          Width = 110
        end
        item
          EditButtons = <>
          FieldName = 'user_name'
          Footers = <>
          Title.Caption = #29992#25143#21517
          Width = 98
        end
        item
          EditButtons = <>
          FieldName = 'user_sm'
          Footers = <>
          Title.Caption = #29992#25143#35828#26126
          Width = 89
        end
        item
          EditButtons = <>
          FieldName = 'user_ygdm'
          Footers = <>
          Title.Caption = #21592#24037#20195#30721
          Width = 93
        end
        item
          EditButtons = <>
          FieldName = 'user_password'
          Footers = <>
          Title.Caption = #23494#30721
          Width = 109
        end
        item
          EditButtons = <>
          FieldName = 'yg_xm'
          Footers = <>
          Title.Caption = #21592#24037#22995#21517
          Width = 117
        end>
    end
  end
  object DataSource1: TDataSource
    DataSet = DM.xt_user
    Left = 24
    Top = 112
  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 = 576
  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 = 64
    Top = 112
  end
end

						