Delphi控件源码 d中小企业管理系统 免费试用
涵盖信息、任务、知识、沟通管理功能 立即下载免费试用。
源代码在线查看： udep.dfm
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
