📄 unit2.dfm
字号:
TabOrder = 4
end
object DBGrid7: TDBGrid
Left = 2
Top = 312
Width = 573
Height = 227
DataSource = DataSource6
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
TabOrder = 5
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Visible = False
Columns = <
item
Expanded = False
FieldName = 'BanD'
Title.Caption = '班组代号'
Width = 127
Visible = True
end
item
Expanded = False
FieldName = 'BanNa'
Title.Caption = '班组名称'
Width = 175
Visible = True
end
item
Expanded = False
FieldName = 'BanC'
Title.Caption = '组长'
Width = 120
Visible = True
end
item
Expanded = False
FieldName = 'BanNu'
Title.Caption = '班组人数'
Width = 138
Visible = True
end>
end
object DBMemo3: TDBMemo
Left = 576
Top = 312
Width = 215
Height = 227
DataField = 'BanJ'
DataSource = DataSource6
TabOrder = 6
end
object DBMemo4: TDBMemo
Left = 576
Top = 312
Width = 214
Height = 225
DataField = 'RJ'
DataSource = DataSource7
TabOrder = 7
end
object Edit6: TEdit
Left = 80
Top = 40
Width = 121
Height = 21
TabOrder = 8
Text = '"C:\program files\sie\Sgr.DB"'
Visible = False
end
object Edit5: TEdit
Left = 72
Top = 40
Width = 121
Height = 21
TabOrder = 9
Text = '"C:\program files\sie\Sban.DB"'
Visible = False
end
object Edit4: TEdit
Left = 48
Top = 40
Width = 121
Height = 21
TabOrder = 10
Text = '"C:\program files\sie\Ske.DB"'
Visible = False
end
object hao: TEdit
Left = 32
Top = 40
Width = 121
Height = 21
TabOrder = 11
Text = '%'
Visible = False
end
object Edit3: TEdit
Left = 8
Top = 40
Width = 121
Height = 21
TabOrder = 12
Text = '"C:\program files\sie\Sbu.DB"'
Visible = False
end
object DBGrid8: TDBGrid
Left = 2
Top = 313
Width = 575
Height = 228
DataSource = DataSource7
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
TabOrder = 13
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Visible = False
Columns = <
item
Expanded = False
FieldName = 'RD'
Title.Caption = '工号'
Width = 46
Visible = True
end
item
Expanded = False
FieldName = 'RName'
Title.Caption = '姓名'
Width = 41
Visible = True
end
item
Expanded = False
FieldName = 'RSex'
Title.Caption = '性别'
Width = 25
Visible = True
end
item
Expanded = False
FieldName = 'RAge'
Title.Caption = '年龄'
Width = 25
Visible = True
end
item
Expanded = False
FieldName = 'RXue'
Title.Caption = '学历'
Width = 34
Visible = True
end
item
Expanded = False
FieldName = 'Rjg'
Title.Caption = '籍贯'
Width = 51
Visible = True
end
item
Expanded = False
FieldName = 'Rborn'
Title.Caption = '出生年月'
Width = 54
Visible = True
end
item
Expanded = False
FieldName = 'Rxian'
Title.Caption = '工作经验'
Width = 49
Visible = True
end
item
Expanded = False
FieldName = 'Rwei'
Title.Caption = '职位'
Width = 48
Visible = True
end
item
Expanded = False
FieldName = 'Rtel'
Title.Caption = '住宅电话'
Width = 70
Visible = True
end
item
Expanded = False
FieldName = 'Rstel'
Title.Caption = '手机'
Width = 83
Visible = True
end
item
Expanded = False
FieldName = 'Rmail'
Title.Caption = '电子信箱'
Width = 84
Visible = True
end
item
Expanded = False
FieldName = 'Radr'
Title.Caption = '家庭住址'
Width = 98
Visible = True
end
item
Expanded = False
FieldName = 'Rjtime'
Title.Caption = '进入公司时间'
Width = 76
Visible = True
end
item
Expanded = False
FieldName = 'Rhtime'
Title.Caption = '合同时间'
Visible = True
end>
end
end
object XPMenu1: TXPMenu
DimLevel = 30
GrayLevel = 10
Font.Charset = GB2312_CHARSET
Font.Color = clMenuText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Color = clBtnFace
IconBackColor = clBtnFace
MenuBarColor = clBtnFace
SelectColor = clHighlight
SelectBorderColor = clHighlight
SelectFontColor = clMenuText
DisabledColor = clInactiveCaption
SeparatorColor = clBtnFace
CheckedColor = clHighlight
IconWidth = 24
DrawSelect = True
UseSystemColors = True
OverrideOwnerDraw = False
Gradient = False
FlatMenu = False
AutoDetect = False
Active = True
Left = 130
Top = 28
end
object Query1: TQuery
SQL.Strings = (
'SELECT * from "C:\program files\sie\Sbu.DB"')
Left = 530
Top = 340
end
object DataSource1: TDataSource
DataSet = Query1
Left = 530
Top = 372
end
object DataSource2: TDataSource
DataSet = Query2
Left = 570
Top = 372
end
object Query2: TQuery
SQL.Strings = (
'SELECT * from "C:\program files\sie\Ske.DB"')
Left = 570
Top = 340
end
object Query3: TQuery
SQL.Strings = (
'SELECT * from "C:\program files\sie\Sban.DB"')
Left = 618
Top = 340
end
object DataSource3: TDataSource
DataSet = Query3
Left = 618
Top = 372
end
object Query4: TQuery
SQL.Strings = (
'SELECT * from "C:\program files\sie\Sgr.DB"')
Left = 666
Top = 340
end
object DataSource4: TDataSource
DataSet = Query4
Left = 666
Top = 372
end
object Query5: TQuery
SQL.Strings = (
'SELECT * from "C:\program files\sie\Ske.DB"')
Left = 570
Top = 428
end
object DataSource5: TDataSource
DataSet = Query5
Left = 570
Top = 460
end
object DataSource6: TDataSource
DataSet = Query6
Left = 618
Top = 460
end
object Query6: TQuery
SQL.Strings = (
'SELECT * from "C:\program files\sie\Sban.DB"')
Left = 618
Top = 428
end
object Query7: TQuery
SQL.Strings = (
'SELECT * from "C:\program files\sie\Sgr.DB"')
Left = 666
Top = 428
end
object DataSource7: TDataSource
DataSet = Query7
Left = 666
Top = 460
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -