📄 uaphoto1.~dfm
字号:
object PhotoSystem: TPhotoSystem
Left = 163
Top = -2
Width = 623
Height = 739
Align = alLeft
Caption = 'PhotoSystem'
Color = clInfoBk
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
OnClick = FormClick
OnCreate = FormCreate
OnMouseDown = FormMouseDown
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 615
Height = 57
Align = alTop
Color = clInfoBk
TabOrder = 0
object Label1: TLabel
Left = 48
Top = 24
Width = 156
Height = 32
Caption = '拍照辅助系统'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -27
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
end
object Panel2: TPanel
Left = 0
Top = 57
Width = 615
Height = 49
Align = alTop
Color = clInfoBk
TabOrder = 1
object Label2: TLabel
Left = 24
Top = 12
Width = 101
Height = 13
Caption = '请输入学工号 ：'
end
object Edit1: TEdit
Left = 128
Top = 12
Width = 113
Height = 21
ImeName = '中文 (简体) - 微软拼音'
TabOrder = 0
OnKeyUp = Edit1KeyUp
end
object Button1: TButton
Left = 264
Top = 8
Width = 75
Height = 25
Caption = '查询'
TabOrder = 1
OnClick = Button1Click
end
end
object Panel3: TPanel
Left = 0
Top = 106
Width = 233
Height = 587
Align = alLeft
Color = clInfoBk
TabOrder = 2
object Label3: TLabel
Left = 8
Top = 64
Width = 60
Height = 13
Caption = '姓 名 ：'
end
object Label4: TLabel
Left = 8
Top = 104
Width = 62
Height = 13
Caption = '学工号 ：'
end
object Label5: TLabel
Left = 8
Top = 136
Width = 60
Height = 13
Caption = '院 系 ：'
end
object Label6: TLabel
Left = 8
Top = 200
Width = 60
Height = 13
Caption = '类 别 ：'
end
object Label10: TLabel
Left = 8
Top = 8
Width = 112
Height = 20
Caption = '个人基本信息：'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 56
Top = 504
Width = 48
Height = 16
Caption = '原始照片'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 64
Top = 64
Width = 57
Height = 20
Caption = 'Label12'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 64
Top = 104
Width = 38
Height = 13
Caption = 'Label13'
end
object Label14: TLabel
Left = 64
Top = 136
Width = 38
Height = 13
Caption = 'Label14'
end
object Label15: TLabel
Left = 64
Top = 200
Width = 38
Height = 13
Caption = 'Label15'
end
object Label16: TLabel
Left = 8
Top = 168
Width = 60
Height = 13
Caption = '专 业 ：'
end
object Label17: TLabel
Left = 64
Top = 168
Width = 38
Height = 13
Caption = 'Label17'
end
object Panel6: TPanel
Left = 8
Top = 248
Width = 180
Height = 240
Caption = '原始照片'
Color = clOlive
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
object Image2: TImage
Left = 1
Top = 1
Width = 178
Height = 238
Align = alClient
Stretch = True
end
end
object DBEdit1: TDBEdit
Left = 144
Top = 40
Width = 137
Height = 40
DataField = 'STUEMP_NAME'
DataSource = DataSource1
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -27
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeName = '中文 (简体) - 微软拼音'
ParentFont = False
TabOrder = 1
Visible = False
end
object DBEdit2: TDBEdit
Left = 144
Top = 96
Width = 129
Height = 28
DataField = 'STUEMP_NO'
DataSource = DataSource1
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeName = '中文 (简体) - 微软拼音'
ParentFont = False
TabOrder = 2
Visible = False
end
object Edit5: TEdit
Left = 144
Top = 128
Width = 129
Height = 28
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeName = '中文 (简体) - 微软拼音'
ParentFont = False
TabOrder = 3
Text = 'Edit5'
Visible = False
end
object DBEdit4: TDBEdit
Left = 144
Top = 212
Width = 129
Height = 28
DataField = 'CUT_TYPE'
DataSource = DataSource1
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeName = '中文 (简体) - 微软拼音'
ParentFont = False
TabOrder = 4
Visible = False
end
object Edit6: TEdit
Left = 144
Top = 168
Width = 129
Height = 28
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeName = '中文 (简体) - 微软拼音'
ParentFont = False
TabOrder = 5
Text = 'Edit6'
Visible = False
end
end
object Panel4: TPanel
Left = 233
Top = 106
Width = 382
Height = 587
Align = alRight
Color = clInfoBk
TabOrder = 3
object Label8: TLabel
Left = 8
Top = 492
Width = 56
Height = 13
Caption = '原文件名'
end
object Label9: TLabel
Left = 161
Top = 492
Width = 84
Height = 13
Caption = '改名文件名：'
end
object Label7: TLabel
Left = 8
Top = 12
Width = 84
Height = 13
Caption = '相机顺序号：'
end
object Button2: TButton
Left = 216
Top = 40
Width = 97
Height = 33
Caption = '取照片'
TabOrder = 0
OnClick = Button2Click
end
object Edit2: TEdit
Left = 72
Top = 488
Width = 86
Height = 21
ImeName = '中文 (简体) - 微软拼音'
TabOrder = 1
end
object Edit3: TEdit
Left = 232
Top = 488
Width = 105
Height = 21
ImeName = '中文 (简体) - 微软拼音'
TabOrder = 2
end
object Button3: TButton
Left = 72
Top = 536
Width = 81
Height = 33
Caption = '确认'
TabOrder = 3
OnClick = Button3Click
end
object Button4: TButton
Left = 232
Top = 536
Width = 89
Height = 33
Caption = '取消'
TabOrder = 4
OnClick = Button4Click
end
object Edit4: TEdit
Left = 80
Top = 8
Width = 121
Height = 21
ImeName = '中文 (简体) - 微软拼音'
TabOrder = 5
end
object Button5: TButton
Left = 80
Top = 40
Width = 97
Height = 33
Caption = '修改相机顺序号'
TabOrder = 6
OnClick = Button5Click
end
object Panel5: TPanel
Left = 8
Top = 80
Width = 330
Height = 440
Caption = '新拍照片'
Color = clGreen
FullRepaint = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -40
Font.Name = 'MS Sans Serif'
Font.Style = [fsItalic]
ParentFont = False
TabOrder = 7
object Image1: TImage
Left = 1
Top = 1
Width = 328
Height = 438
Align = alClient
AutoSize = True
IncrementalDisplay = True
Stretch = True
end
end
object Button6: TButton
Left = 80
Top = 40
Width = 49
Height = 33
Caption = '确认'
TabOrder = 8
OnClick = Button6Click
end
object Button7: TButton
Left = 152
Top = 40
Width = 49
Height = 33
Caption = '取消'
TabOrder = 9
OnClick = Button7Click
end
end
object ADOQuery1: TADOQuery
AutoCalcFields = False
Connection = ADOConnection1
CursorType = ctUnspecified
MarshalOptions = moMarshalModifiedOnly
EnableBCD = False
ParamCheck = False
Parameters = <>
SQL.Strings = (
'SELECT T.CUT_TYPE, T.STUEMP_NO, T.STUEMP_NAME, T.DEPT_NAME, T.PH' +
'OTO_NO, T.FILENAME, T.PHOTO FROM YKT_CUR.T_CIF_PHOTO T')
Left = 472
Top = 16
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 528
Top = 16
end
object ADOConnection1: TADOConnection
LoginPrompt = False
Provider = 'MSDASQL.1'
Left = 408
Top = 16
end
object ADOQuery2: TADOQuery
Connection = ADOConnection1
LockType = ltUnspecified
Parameters = <>
Left = 472
Top = 57
end
object MainMenu1: TMainMenu
Left = 256
Top = 16
object file1: TMenuItem
Caption = '相机首选项'
OnClick = file1Click
end
end
object ADOQuery3: TADOQuery
Connection = ADOConnection1
LockType = ltUnspecified
Parameters = <>
Left = 472
Top = 97
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -