srllunit1.dfm

这是一个Delphi很好很全面知识的实例

object SRLLForm: TSRLLForm
  Left = 228
  Top = 215
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #25910#20837#27983#35272
  ClientHeight = 384
  ClientWidth = 538
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  Icon.Data = {
    0000010002002020100000000000E80200002600000010101000000000002801
    00000E0300002800000020000000400000000100040000000000800200000000
    0000000000000000000000000000000000000000800000800000008080008000
    0000800080008080000080808000C0C0C0000000FF0000FF000000FFFF00FF00
    0000FF00FF00FFFF0000FFFFFF00000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000009999990000000000000000000000000099999900000
    000000000000000000000000000000000000000000000000000000FFF0000000
    000000000000000000000FFFF000000000000000000000000000FFFFF0000000
    00000000000000000000FFFFF000000000000008080000000000FFFFF0000000
    0000888000777777770FFFFFF00000000088800F0F00000000FF00FFF0000088
    88000FFF0FFFFFFFF0F0F00FF000008000FFFFFF0FFFFFFFF00FF00F00000080
    FFFFFFF70FFF7F7F7F7FF00F00000080FFFFF7FF0FFFFFFFFFFF900000000090
    FFF7FFFF0FFF7F7F7F7FF0000000008097FFFFF70FFFFFFFFFFFF00000000080
    FFFFF7FF0FFF7F7F7F7FF00000000080FFF7FFFF0FFFFFFFFFFFF00000000080
    F7FFFFF70FFF7F7F7F7FF00000000080FFFFF7FF0FFFFFFFFFFFF00000000080
    FFF7FFFF0FFF7F7F7F7FF000000000F0F7FFFFF70FFFFFFFFFFFF000000000F0
    FFFFF7FF00FFFFFFFFFFF000000000F0FFF7FFFF0000000000000000000000F0
    F7FFFFF00000000000000000000000F0FFFFF000000000000000000000000000
    FF00000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFF00FFFFFF00FFFF
    FF00FFFFFF00FFFFFF83FFFFFF03FFFFFE03FFE3FE03FF000003F80000030000
    00030000000300000007000000070000000F0000000F0000001F0000001F0000
    001F0000001F0000001F0000001F0000001F0000003F0004003F000FFFFF001F
    FFFF807FFFFFE3FFFFFFFFFFFFFF280000001000000020000000010004000000
    0000C00000000000000000000000000000000000000000000000000080000080
    00000080800080000000800080008080000080808000C0C0C0000000FF0000FF
    000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000000009900000
    00000000099000000000000000000000000000000F00000000000000FF000000
    07000000FF0000877707770F0F00080FFF0FFF800F00080FFF0FFFFF0000080F
    FF0F7F7F0000080FFF0FFFFF00000F0FFF0F7F7F00000F0FFF0FFFFF00000F0F
    F0000000000000000000000000000000000000000000FFF00000FFF00000FFF0
    0000FFF10000F9E10000C0010000000100000001000000030000000300000003
    000000030000000300000007000003FF0000DFFF0000}
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 538
    Height = 384
    Hint = #21333#20987'DBGrid'#26174#31034#35760#24405
    Align = alClient
    DataSource = MD.DataSRSource1
    ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
    ParentShowHint = False
    ReadOnly = True
    ShowHint = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnMouseDown = DBGrid1MouseDown
  end
end