📄 frmdsodidp.~dfm
字号:
inherited FrmDsOdId: TFrmDsOdId
Left = 192
Top = 120
Caption = #24065#21035#19982#23494#30721#35774#23450#20316#19994
ClientHeight = 352
ClientWidth = 515
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 13
object Img1: TImage [0]
Left = -120
Top = -72
Width = 633
Height = 425
PopupMenu = FrmBaseForm.PopM1
Stretch = True
end
object Label1: TLabel [1]
Left = 16
Top = 10
Width = 273
Height = 27
AutoSize = False
Caption = #24065#21035#19982#23494#30721#35774#23450#20316#19994
Font.Charset = GB2312_CHARSET
Font.Color = clWhite
Font.Height = -29
Font.Name = #21326#25991#34892#26999
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label2: TLabel [2]
Left = 18
Top = 10
Width = 272
Height = 27
AutoSize = False
Caption = #24065#21035#19982#23494#30721#35774#23450#20316#19994
Font.Charset = GB2312_CHARSET
Font.Color = clTeal
Font.Height = -29
Font.Name = #21326#25991#34892#26999
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Shape1: TShape [3]
Left = -110
Top = 41
Width = 605
Height = 2
Pen.Width = 2
end
object Shape2: TShape [4]
Left = -106
Top = 44
Width = 601
Height = 1
Pen.Color = clWindow
end
object Label3: TLabel [5]
Left = 16
Top = 66
Width = 89
Height = 25
AutoSize = False
Caption = #24065#21035#20195#21495
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label4: TLabel [6]
Left = 244
Top = 63
Width = 81
Height = 26
AutoSize = False
Caption = #24065#21035#21517#31216
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label6: TLabel [7]
Left = 16
Top = 110
Width = 81
Height = 24
AutoSize = False
Caption = #20170#26085#27719#29575
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
PopupMenu = FrmBaseForm.PopM1
Transparent = True
end
object Label5: TLabel [8]
Left = 244
Top = 110
Width = 81
Height = 24
AutoSize = False
Caption = #27719#29575#26085#26399
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
PopupMenu = FrmBaseForm.PopM1
Transparent = True
end
object Label7: TLabel [9]
Left = 16
Top = 152
Width = 81
Height = 24
AutoSize = False
Caption = #24314#31435#26085#26399
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
PopupMenu = FrmBaseForm.PopM1
Transparent = True
end
object Label8: TLabel [10]
Left = 244
Top = 158
Width = 81
Height = 24
AutoSize = False
Caption = #24314' '#31435' '#20154
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
PopupMenu = FrmBaseForm.PopM1
Transparent = True
end
object Edit1: TEdit [11]
Left = 104
Top = 62
Width = 112
Height = 28
Color = cl3DLight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeName = #33521#25976
ParentFont = False
PopupMenu = FrmBaseForm.PopM1
ReadOnly = True
TabOrder = 0
end
object Edit2: TEdit [12]
Left = 331
Top = 61
Width = 146
Height = 28
Color = cl3DLight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeName = #33521#25976
ParentFont = False
PopupMenu = FrmBaseForm.PopM1
ReadOnly = True
TabOrder = 1
end
object dg1: TDBGrid [13]
Left = 16
Top = 192
Width = 481
Height = 145
DataSource = DataSource1
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeName = #33521#25976
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
ReadOnly = True
TabOrder = 7
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -16
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = dg1CellClick
OnDrawColumnCell = dg1DrawColumnCell
Columns = <
item
Expanded = False
FieldName = 'Fid'
Title.Caption = #24065#21035#20195#21495
Visible = True
end
item
Expanded = False
FieldName = 'Fname'
Title.Caption = #24065#21035#21517#31216' '
Visible = True
end
item
Expanded = False
FieldName = 'Frate'
Title.Caption = #20170#26085#27719#29575
Visible = True
end
item
Expanded = False
FieldName = 'FrateDate'
Title.Caption = #27719#29575#26085#26399
Visible = True
end
item
Expanded = False
FieldName = 'FCdate'
Title.Caption = #24314#31435#26085#26399
Visible = True
end
item
Expanded = False
FieldName = 'FCMaker'
Title.Caption = #24314#31435#20154
Visible = True
end>
end
object Edit3: TEdit [14]
Left = 103
Top = 106
Width = 113
Height = 28
Color = cl3DLight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeName = #33521#25976
ParentFont = False
PopupMenu = FrmBaseForm.PopM1
ReadOnly = True
TabOrder = 2
end
object Edit4: TEdit [15]
Left = 332
Top = 154
Width = 61
Height = 28
Color = cl3DLight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeName = #33521#25976
ParentFont = False
PopupMenu = FrmBaseForm.PopM1
ReadOnly = True
TabOrder = 5
OnExit = Edit4Exit
end
object DTP1: TDateTimePicker [16]
Left = 332
Top = 109
Width = 145
Height = 28
CalAlignment = dtaLeft
Date = 38455.5956354745
Time = 38455.5956354745
Color = cl3DLight
DateFormat = dfShort
DateMode = dmComboBox
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
Kind = dtkDate
ParseInput = False
ParentFont = False
TabOrder = 3
end
object DTP2: TDateTimePicker [17]
Left = 104
Top = 149
Width = 112
Height = 28
CalAlignment = dtaLeft
Date = 38455.5956354745
Time = 38455.5956354745
Color = cl3DLight
DateFormat = dfShort
DateMode = dmComboBox
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
Kind = dtkDate
ParseInput = False
ParentFont = False
TabOrder = 4
end
object Edit5: TEdit [18]
Left = 396
Top = 154
Width = 101
Height = 28
Color = cl3DLight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeName = #33521#25976
ParentFont = False
PopupMenu = FrmBaseForm.PopM1
ReadOnly = True
TabOrder = 6
end
inherited PopM1: TPopupMenu
Left = 336
Top = 24
end
object ADOQ_DsOdId: TADOQuery
Connection = DataM1.Adoc
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'Select * From DsOdId Order By Fid')
Left = 400
Top = 56
end
object DataSource1: TDataSource
DataSet = ADOQ_DsOdId
Left = 456
Top = 72
end
object ADOQ_DsUser: TADOQuery
Connection = DataM1.Adoc
Parameters = <>
SQL.Strings = (
'Select * From DsUser Order By FuserId')
Left = 416
Top = 120
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -