u_zjkgl_zjkgl.dfm

这是一个非常使用的DELPHI源码的例子,用的是SQL数据库和DELPHI企业版

object Frm_Zjkgl_Zjkgl: TFrm_Zjkgl_Zjkgl
  Left = 249
  Top = 131
  Width = 631
  Height = 597
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnResize = FormResize
  OnShow = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object Tbar: TToolBar
    Left = 0
    Top = 0
    Width = 623
    Height = 37
    ButtonHeight = 36
    ButtonWidth = 55
    Caption = 'Tbar'
    Ctl3D = False
    Flat = True
    Images = ImageList1
    ShowCaptions = True
    TabOrder = 0
    Transparent = False
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      Action = Zj
      AutoSize = True
      ImageIndex = 1
    end
    object ToolButton6: TToolButton
      Left = 59
      Top = 0
      Width = 8
      Caption = 'ToolButton6'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object ToolButton9: TToolButton
      Left = 67
      Top = 0
      Action = Zx
      ImageIndex = 8
    end
    object ToolButton10: TToolButton
      Left = 122
      Top = 0
      Width = 8
      Caption = 'ToolButton10'
      ImageIndex = 5
      Style = tbsSeparator
    end
    object ToolButton13: TToolButton
      Left = 130
      Top = 0
      Action = Cz
      ImageIndex = 0
    end
    object ToolButton16: TToolButton
      Left = 185
      Top = 0
      Width = 8
      Caption = 'ToolButton16'
      ImageIndex = 8
      Style = tbsSeparator
    end
    object ToolButton15: TToolButton
      Left = 193
      Top = 0
      Action = Excel
      ImageIndex = 6
    end
    object ToolButton8: TToolButton
      Left = 248
      Top = 0
      Width = 8
      Caption = 'ToolButton8'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object ToolButton17: TToolButton
      Left = 256
      Top = 0
      Action = Exit1
      ImageIndex = 3
    end
    object ToolButton18: TToolButton
      Left = 311
      Top = 0
      Width = 8
      Caption = 'ToolButton18'
      ImageIndex = 9
      Style = tbsSeparator
    end
  end
  object P2: TPanel
    Left = 2
    Top = 40
    Width = 171
    Height = 21
    BevelOuter = bvLowered
    TabOrder = 1
    object Label2: TLabel
      Left = 1
      Top = 1
      Width = 169
      Height = 19
      Align = alClient
      Alignment = taCenter
      Caption = #21015#34920#35270#22270
      Layout = tlCenter
    end
  end
  object Lvw_Lb: TDBGrid
    Left = 3
    Top = 64
    Width = 175
    Height = 227
    DataSource = Data.Mr_zjb_s
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = Lvw_LbCellClick
    Columns = <
      item
        Expanded = False
        FieldName = 'Sj'
        Title.Caption = #26102#38388
        Width = 130
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BH'
        Title.Caption = #32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Kh'
        Title.Caption = #21345#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Bmmc'
        Title.Caption = #37096#38376#21517#31216
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Ye'
        Title.Caption = #22686#20943#21069#20313#39069
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zjje'
        Title.Caption = #22686#20943#37329#39069
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zjhye'
        Title.Caption = #22686#20943#21518#20313#39069
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zjzl'
        Title.Caption = #22686#20943#31867#21035
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zjfs'
        Title.Caption = #22686#20943#26041#24335
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sfy'
        Title.Caption = #25910#36153#21592
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fs'
        Title.Caption = #22686#20943#20998#31867
        Width = 130
        Visible = True
      end>
  end
  object DBEdit1: TDBEdit
    Left = 406
    Top = 84
    Width = 105
    Height = 21
    DataSource = Data.Mr_People_S
    TabOrder = 3
    Visible = False
  end
  object DBEdit2: TDBEdit
    Left = 408
    Top = 116
    Width = 99
    Height = 21
    DataSource = Data.Mr_People_S
    TabOrder = 4
    Visible = False
  end
  object ImageList1: TImageList
    Left = 336
    Top = 106
    Bitmap = {
      494C010109000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000004000000001002000000000000040
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000