Delphi控件源码

开发平台：
Delphi

AM_dzs.dfm：源码内容
							object am_dz: Tam_dz
  Left = 213
  Top = 277
  Width = 675
  Height = 375
  Caption = #35835#32773#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
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 667
    Height = 36
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 32
        Width = 663
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 650
      AutoSize = True
      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 DBGridEh1: TDBGridEh
    Left = 0
    Top = 36
    Width = 667
    Height = 312
    Align = alClient
    DataSource = DS_V_DZ
    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, dghMultiSortMarking]
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = DBGridEh1DblClick
    Columns = <
      item
        EditButtons = <>
        FieldName = 'dz_dm'
        Footers = <>
        Title.Caption = #35835#32773#20195#30721
        Width = 60
      end
      item
        EditButtons = <>
        FieldName = 'dz_xm'
        Footers = <>
        Title.Caption = #35835#32773#22995#21517
        Width = 85
      end
      item
        EditButtons = <>
        FieldName = 'dz_dw'
        Footers = <>
        Title.Caption = #35835#32773#21333#20301
        Width = 130
      end
      item
        EditButtons = <>
        FieldName = 'dz_lxdh'
        Footers = <>
        Title.Caption = #32852#31995#30005#35805
      end
      item
        EditButtons = <>
        FieldName = 'dz_lxdz'
        Footers = <>
        Title.Caption = #32852#31995#22320#22336
        Width = 141
      end
      item
        EditButtons = <>
        FieldName = 'dz_dzyj'
        Footers = <>
        Title.Caption = #30005#23376#37038#20214
        Width = 124
      end
      item
        EditButtons = <>
        FieldName = 'zjlb_mc'
        Footers = <>
        Title.Caption = #35777#20214#31867#21035
        Width = 60
      end
      item
        EditButtons = <>
        FieldName = 'dz_zjh'
        Footers = <>
        Title.Caption = #35777#20214#21495
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = 'dz_djsj'
        Footers = <>
        Title.Caption = #30331#35760#26102#38388
      end>
  end
  object XPBarMenu1: TXPBarMenu
    BarCaption = #35835#32773#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 = 592
    Top = 8
  end
  object DS_V_DZ: TDataSource
    DataSet = DM.V_DZ
    Left = 64
    Top = 136
  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 = 104
    Top = 136
  end
end

						