udep.dfm

Delphi控件源码 d中小企业管理系统 免费试用 涵盖信息、任务、知识、沟通管理功能 立即下载免费试用。

object frmDep: TfrmDep
  Left = 193
  Top = 156
  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
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 184
    Top = 8
    Width = 110
    Height = 20
    Caption = #37096' '#38376' '#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 Label2: TLabel
    Left = 16
    Top = 208
    Width = 36
    Height = 13
    Caption = #37096#38376#65306
    Transparent = True
  end
  object Label3: TLabel
    Left = 176
    Top = 208
    Width = 36
    Height = 13
    Caption = #25551#36848#65306
    Transparent = True
  end
  object dbedep: TDBEdit
    Left = 56
    Top = 200
    Width = 100
    Height = 21
    DataField = 'dep'
    DataSource = dsdep
    TabOrder = 0
  end
  object dbeDes: TDBEdit
    Left = 216
    Top = 200
    Width = 257
    Height = 21
    DataField = 'des'
    DataSource = dsdep
    TabOrder = 1
  end
  object btnAdd: TButton
    Left = 16
    Top = 240
    Width = 62
    Height = 22
    Caption = #28155'  '#21152
    TabOrder = 2
    OnClick = btnAddClick
  end
  object btnEdit: TButton
    Left = 82
    Top = 240
    Width = 62
    Height = 22
    Caption = #26356'  '#26032
    TabOrder = 3
    OnClick = btnEditClick
  end
  object btnUp: TButton
    Left = 149
    Top = 240
    Width = 62
    Height = 22
    Caption = #19978'  '#31227
    TabOrder = 4
    OnClick = btnUpClick
  end
  object btnDown: TButton
    Left = 216
    Top = 240
    Width = 62
    Height = 22
    Caption = #19979'  '#31227
    TabOrder = 5
    OnClick = btnDownClick
  end
  object btnDel: TButton
    Left = 282
    Top = 240
    Width = 62
    Height = 22
    Caption = #21024'  '#38500
    TabOrder = 6
    OnClick = btnDelClick
  end
  object btnTrs: TButton
    Left = 349
    Top = 240
    Width = 62
    Height = 22
    Caption = #21322#36879#26126
    TabOrder = 7
    OnClick = btnTrsClick
  end
  object btnClose: TButton
    Left = 416
    Top = 240
    Width = 62
    Height = 22
    Caption = #20851'  '#38381
    TabOrder = 8
    OnClick = btnCloseClick
  end
  object dgDep: TDBGridEh
    Left = 16
    Top = 40
    Width = 457
    Height = 145
    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]
    ReadOnly = True
    TabOrder = 9
    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 dsdep: TDataSource
    DataSet = aqdep
    OnDataChange = dsdepDataChange
    Left = 424
    Top = 8
  end
  object aqdep: TADOQuery
    Active = True
    Connection = dmPer.acPer
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from dept order by ornum')
    Left = 456
    Top = 8
  end
end