数据库编程 数据库编程 数据库编程 数据库编程 数据库编程
源代码在线查看： udep.~dfm
object frmDep: TfrmDep
Left = 321
Top = 383
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsDialog
Caption = #37096#38376#35774#32622
ClientHeight = 307
ClientWidth = 557
Color = 4666384
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
OldCreateOrder = False
Position = poMainFormCenter
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 20
object Label1: TLabel
Left = 14
Top = 11
Width = 139
Height = 24
Caption = #37096#38376#35774#32622'...'
Font.Charset = GB2312_CHARSET
Font.Color = clWhite
Font.Height = -24
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
end
object btnAppend: TSpeedButton
Left = 20
Top = 266
Width = 79
Height = 33
Caption = #28155' '#21152
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWhite
Font.Height = -21
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
OnClick = btnAppendClick
end
object btnCancel: TSpeedButton
Left = 456
Top = 266
Width = 81
Height = 33
Caption = #36864' '#20986
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWhite
Font.Height = -21
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
OnClick = btnCancelClick
end
object btnModify: TSpeedButton
Left = 104
Top = 266
Width = 83
Height = 33
Caption = #26356' '#26032
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWhite
Font.Height = -21
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
OnClick = btnModifyClick
end
object btnDelete: TSpeedButton
Left = 192
Top = 266
Width = 83
Height = 33
Caption = #21024' '#38500
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWhite
Font.Height = -21
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
OnClick = btnDeleteClick
end
object btnUp: TSpeedButton
Left = 282
Top = 266
Width = 81
Height = 33
Caption = #19978' '#31227
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWhite
Font.Height = -21
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
OnClick = btnUpClick
end
object btnDown: TSpeedButton
Left = 370
Top = 266
Width = 81
Height = 33
Caption = #19979' '#31227
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWhite
Font.Height = -21
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
OnClick = btnDownClick
end
object Panel1: TPanel
Left = -16
Top = 40
Width = 585
Height = 217
BevelInner = bvLowered
TabOrder = 0
object Label2: TLabel
Left = 40
Top = 181
Width = 63
Height = 20
Caption = #37096#38376#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -20
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label3: TLabel
Left = 248
Top = 181
Width = 63
Height = 20
Caption = #25551#36848#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -20
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object dbgdep: TDBGrid
Left = 40
Top = 12
Width = 513
Height = 157
DataSource = dsdep
ReadOnly = True
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -20
TitleFont.Name = #26999#20307'_GB2312'
TitleFont.Style = [fsBold]
Columns = <
item
Expanded = False
FieldName = 'dep'
Title.Caption = #37096' '#38376
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'des'
Title.Caption = #25551' '#36848
Width = 325
Visible = True
end>
end
object dbedep: TDBEdit
Left = 104
Top = 176
Width = 100
Height = 28
DataField = 'dep'
DataSource = dsdep
TabOrder = 1
end
object dbedes: TDBEdit
Left = 320
Top = 176
Width = 233
Height = 28
DataField = 'des'
DataSource = dsdep
TabOrder = 2
end
end
object aqdep: TADOQuery
Active = True
Connection = dmPer.acPer
CursorType = ctStatic
Parameters =
SQL.Strings = (
'select * from dept order by ornum')
Left = 456
Top = 8
end
object dsdep: TDataSource
DataSet = aqdep
OnDataChange = dsdepDataChange
Left = 424
Top = 8
end
end
