?? lspegawai.dfm
字號:
object lsPegawaiForm: TlsPegawaiForm
Left = 192
Top = 107
BorderIcons = []
BorderStyle = bsSingle
Caption = ' Data Pegawai '
ClientHeight = 468
ClientWidth = 777
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
FormStyle = fsMDIChild
KeyPreview = True
OldCreateOrder = False
Position = poDefaultPosOnly
Visible = True
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object GroupBox3: TGroupBox
Left = 0
Top = 37
Width = 777
Height = 431
Align = alClient
TabOrder = 0
object AddBtn: TSpeedButton
Left = 368
Top = 10
Width = 49
Height = 45
Glyph.Data = {
E6000000424DE60000000000000076000000280000000F0000000E0000000100
04000000000070000000130B0000130B00001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8880888888888888888088888888888888808888880008888880888888070888
8880888888070888888088800007000088808880777777708880888000070000
8880888888070888888088888807088888808888880008888880888888888888
88808888888888888880}
Layout = blGlyphTop
OnClick = AddBtnClick
end
object ItemGrid: TJvDBUltimGrid
Left = 8
Top = 60
Width = 761
Height = 345
Color = 16119285
Ctl3D = False
DataSource = dspegawai
FixedColor = 14408667
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'Dina'
Font.Style = []
Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgCancelOnExit]
ParentCtl3D = False
ParentFont = False
PopupMenu = PopupMenu1
ReadOnly = True
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clNavy
TitleFont.Height = -13
TitleFont.Name = 'Dina'
TitleFont.Style = [fsBold]
OnDblClick = ItemGridDblClick
OnKeyDown = ItemGridKeyDown
AutoAppend = False
TitleButtons = True
TitleArrow = True
SelectColumnsDialogStrings.Caption = 'Select columns'
SelectColumnsDialogStrings.RealNamesOption = '[With the real field name]'
SelectColumnsDialogStrings.OK = '&OK'
SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
CanDelete = False
EditControls = <>
RowsHeight = 17
TitleRowHeight = 20
WordWrap = True
SortWith = swFields
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'PEGNIP'
Title.Alignment = taCenter
Title.Caption = 'N.I.P'
Width = 145
Visible = True
end
item
Expanded = False
FieldName = 'PEGNAME'
Title.Alignment = taCenter
Title.Caption = 'NAMA-PEGAWAI '
Width = 200
Visible = True
end
item
Expanded = False
FieldName = 'DEPNAME'
Title.Alignment = taCenter
Title.Caption = 'DEPARTEMEN'
Width = 125
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'JABNAME'
Title.Alignment = taCenter
Title.Caption = 'JABATAN'
Width = 125
Visible = True
end
item
Expanded = False
FieldName = 'SEX'
Title.Alignment = taCenter
Title.Caption = 'L/P'
Width = 35
Visible = True
end>
end
object RadioGroup1: TspSkinRadioGroup
Left = 8
Top = 10
Width = 149
Height = 43
TabOrder = 1
DrawDefault = True
SkinDataName = 'groupbox'
AlphaBlend = False
AlphaBlendValue = 200
UseSkinCursor = False
DefaultFont.Charset = ANSI_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = -13
DefaultFont.Name = 'Dina'
DefaultFont.Style = []
UseSkinFont = True
DefaultWidth = 0
DefaultHeight = 0
AutoEnabledControls = True
CheckedMode = True
Checked = True
NumGlyphs = 1
Spacing = 2
DefaultAlignment = taLeftJustify
DefaultCaptionHeight = 22
BorderStyle = bvFrame
CaptionMode = False
RollUpMode = False
RollUpState = False
Caption = 'RadioGroup1'
ButtonSkinDataName = 'radiobox'
ButtonDefaultFont.Charset = ANSI_CHARSET
ButtonDefaultFont.Color = clNavy
ButtonDefaultFont.Height = -13
ButtonDefaultFont.Name = 'Dina'
ButtonDefaultFont.Style = []
Columns = 2
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'Dina'
Font.Style = []
ItemIndex = 1
Items.Strings = (
'Kode'
'Nama')
ParentFont = False
end
object edFind: TEdit
Left = 160
Top = 31
Width = 201
Height = 23
AutoSize = False
CharCase = ecUpperCase
Color = clInfoBk
Ctl3D = True
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Dina'
Font.Style = []
MaxLength = 30
ParentCtl3D = False
ParentFont = False
TabOrder = 2
OnChange = edFindChange
end
object JvStaticText1: TJvStaticText
Left = 160
Top = 10
Width = 200
Height = 17
AutoSize = False
BevelKind = bkFlat
Caption = 'Cari : '
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Dina'
Font.Style = []
HotTrackFont.Charset = ANSI_CHARSET
HotTrackFont.Color = clWindowText
HotTrackFont.Height = -11
HotTrackFont.Name = 'Dina'
HotTrackFont.Style = []
Layout = tlCenter
ParentFont = False
TabOrder = 3
TextMargins.X = 3
TextMargins.Y = 0
WordWrap = False
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -