udep.dfm

这是一个门禁系统的应用程序,用 delphi编写,希望与大家交流.

object frmDep: TfrmDep
  Left = 194
  Top = 157
  AlphaBlend = True
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #37096#38376#35774#32622
  ClientHeight = 277
  ClientWidth = 492
  Color = 16759701
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 176
    Top = 8
    Width = 120
    Height = 20
    Caption = #37096#38376#21333#20301#35774#32622
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -20
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object pnlDep: TPanel
    Left = 8
    Top = 50
    Width = 473
    Height = 195
    BevelOuter = bvNone
    Ctl3D = True
    ParentColor = True
    ParentCtl3D = False
    TabOrder = 8
    object Label3: TLabel
      Left = 168
      Top = 174
      Width = 36
      Height = 13
      Caption = #25551#36848#65306
      Transparent = True
    end
    object Label2: TLabel
      Left = 0
      Top = 174
      Width = 36
      Height = 13
      Caption = #37096#38376#65306
      Transparent = True
    end
    object dgDep: TDBGridEh
      Left = 0
      Top = 4
      Width = 465
      Height = 157
      Color = 16759701
      DataSource = dsdep
      FixedColor = clBackground
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -11
      FooterFont.Name = 'MS Sans Serif'
      FooterFont.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghRowHighlight]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          EditButtons = <>
          FieldName = 'dep'
          Footers = <>
          Title.Caption = #37096'  '#38376
          Width = 95
        end
        item
          EditButtons = <>
          FieldName = 'des'
          Footers = <>
          Title.Caption = #25551'  '#36848
          Width = 325
        end>
    end
    object dbedep: TDBEdit
      Left = 40
      Top = 168
      Width = 100
      Height = 21
      DataField = 'dep'
      DataSource = dsdep
      TabOrder = 1
    end
    object dbeDes: TDBEdit
      Left = 208
      Top = 168
      Width = 257
      Height = 21
      DataField = 'des'
      DataSource = dsdep
      TabOrder = 2
    end
  end
  object pnlSDep: TPanel
    Left = 8
    Top = 50
    Width = 473
    Height = 195
    BevelOuter = bvNone
    Ctl3D = True
    ParentColor = True
    ParentCtl3D = False
    TabOrder = 7
    object Label6: TLabel
      Left = 0
      Top = 150
      Width = 36
      Height = 13
      Caption = #21333#20301#65306
      Transparent = True
    end
    object Label5: TLabel
      Left = 0
      Top = 174
      Width = 36
      Height = 13
      Caption = #25551#36848#65306
      Transparent = True
    end
    object Label4: TLabel
      Left = 192
      Top = 150
      Width = 60
      Height = 13
      Caption = #25152#23646#37096#38376#65306
      Transparent = True
    end
    object dgSDep: TDBGridEh
      Left = 0
      Top = 4
      Width = 465
      Height = 133
      Color = 16759701
      DataSource = dsdep
      FixedColor = clBackground
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -11
      FooterFont.Name = 'MS Sans Serif'
      FooterFont.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghRowHighlight]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          EditButtons = <>
          FieldName = 'sdep'
          Footers = <>
          Title.Caption = #21333' '#20301
          Width = 75
        end
        item
          EditButtons = <>
          FieldName = 'dep'
          Footers = <>
          Title.Caption = #37096'  '#38376
          Width = 75
        end
        item
          EditButtons = <>
          FieldName = 'des'
          Footers = <>
          Title.Caption = #25551'  '#36848
          Width = 270
        end>
    end
    object deSDep: TDBEdit
      Left = 40
      Top = 144
      Width = 100
      Height = 21
      DataField = 'sdep'
      DataSource = dsdep
      TabOrder = 1
    end
    object dcbDep: TDBComboBox
      Left = 256
      Top = 144
      Width = 97
      Height = 21
      Style = csDropDownList
      DataField = 'dep'
      DataSource = dsdep
      ItemHeight = 13
      TabOrder = 2
    end
    object deDes: TDBEdit
      Left = 40
      Top = 168
      Width = 425
      Height = 21
      DataField = 'des'
      DataSource = dsdep
      TabOrder = 3
    end
  end
  object btnAdd: TButton
    Left = 16
    Top = 248
    Width = 62
    Height = 22
    Caption = #28155'  '#21152
    TabOrder = 0
    OnClick = btnAddClick
  end
  object btnEdit: TButton
    Left = 82
    Top = 248
    Width = 62
    Height = 22
    Caption = #26356'  '#26032
    TabOrder = 1
    OnClick = btnEditClick
  end
  object btnUp: TButton
    Left = 149
    Top = 248
    Width = 62
    Height = 22
    Caption = #19978'  '#31227
    TabOrder = 2
    OnClick = btnUpClick
  end
  object btnDown: TButton
    Left = 216
    Top = 248
    Width = 62
    Height = 22
    Caption = #19979'  '#31227
    TabOrder = 3
    OnClick = btnDownClick
  end
  object btnDel: TButton
    Left = 282
    Top = 248
    Width = 62
    Height = 22
    Caption = #21024'  '#38500
    TabOrder = 4
    OnClick = btnDelClick
  end
  object btnTrs: TButton
    Left = 349
    Top = 248
    Width = 62
    Height = 22
    Caption = #21322#36879#26126
    TabOrder = 5
    OnClick = btnTrsClick
  end
  object btnClose: TButton
    Left = 416
    Top = 248
    Width = 62
    Height = 22
    Caption = #20851'  '#38381
    TabOrder = 6
    OnClick = btnCloseClick
  end
  object rbDep: TRadioButton
    Left = 8
    Top = 32
    Width = 49
    Height = 17
    Caption = #37096' '#38376
    Checked = True
    TabOrder = 9
    TabStop = True
    OnClick = rbDepClick
  end
  object rbSDep: TRadioButton
    Left = 72
    Top = 32
    Width = 49
    Height = 17
    Caption = #21333' '#20301
    TabOrder = 10
    OnClick = rbSDepClick
  end
  object dsdep: TDataSource
    DataSet = aqDep
    OnDataChange = dsdepDataChange
    Left = 424
    Top = 8
  end
  object aqDep: TADOQuery
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 456
    Top = 8
  end
end