📄 q_dsk.dfm
字号:
object frm_q_dsk: Tfrm_q_dsk
Left = 236
Top = 180
BorderStyle = bsDialog
Caption = #20195#25910#27454#24773#20917
ClientHeight = 325
ClientWidth = 618
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
FormStyle = fsStayOnTop
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 617
Height = 89
BevelInner = bvLowered
TabOrder = 0
object Bevel1: TBevel
Left = 306
Top = 3
Width = 2
Height = 83
Style = bsRaised
end
object Bevel2: TBevel
Left = 426
Top = 3
Width = 2
Height = 83
Style = bsRaised
end
object cb_time: TCheckBox
Left = 8
Top = 8
Width = 97
Height = 17
Caption = #20195#25910#26102#38388
TabOrder = 0
OnClick = cb_timeClick
end
object pe_time: TPanel
Left = 8
Top = 28
Width = 133
Height = 51
BevelOuter = bvLowered
Color = clActiveBorder
Enabled = False
TabOrder = 1
object Label1: TLabel
Left = 7
Top = 8
Width = 33
Height = 13
Caption = #19979#38480':'
end
object Label2: TLabel
Left = 7
Top = 28
Width = 33
Height = 13
Caption = #19978#38480':'
end
object txt_xx: TMaskEdit
Left = 41
Top = 4
Width = 81
Height = 21
EditMask = '!9999-99-99;1;0'
MaxLength = 10
TabOrder = 0
Text = ' - - '
end
object txt_sx: TMaskEdit
Left = 41
Top = 25
Width = 81
Height = 21
EditMask = '!9999-99-99;1;0'
MaxLength = 10
TabOrder = 1
Text = ' - - '
end
end
object cb_dw: TCheckBox
Left = 146
Top = 8
Width = 97
Height = 17
Caption = #25910#27454#21333#20301
TabOrder = 2
OnClick = cb_dwClick
end
object pe_dw: TPanel
Left = 146
Top = 28
Width = 153
Height = 51
BevelOuter = bvLowered
Color = clActiveBorder
Enabled = False
TabOrder = 3
object txt_dw: TEdit
Left = 6
Top = 15
Width = 141
Height = 21
CharCase = ecUpperCase
TabOrder = 0
end
end
object rb_w: TRadioButton
Left = 312
Top = 16
Width = 113
Height = 17
Caption = #26597#35810#26410#36820#27454#24773#20917
Checked = True
TabOrder = 4
TabStop = True
OnClick = rb_wClick
end
object rb_y: TRadioButton
Left = 312
Top = 56
Width = 113
Height = 17
Caption = #26597#35810#24050#36820#27454#24773#20917
TabOrder = 5
OnClick = rb_yClick
end
object cmd_q: TBitBtn
Left = 496
Top = 8
Width = 109
Height = 25
Caption = #26465#20214#26597#35810
TabOrder = 6
OnClick = cmd_qClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333FF3FF3333333333CC30003333333333773777333333333C33
3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
33003377333337F33377333333333C333300333F333337F33377339333333C33
3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
330077F377F337F33377993399333C33330077FF773337F33377399993333C33
33333777733337F333FF333333333C33300033333333373FF7773333333333CC
3000333333333377377733333333333333333333333333333333}
NumGlyphs = 2
end
object cmd_ok: TBitBtn
Left = 497
Top = 54
Width = 108
Height = 25
Caption = #30830#23450
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 7
OnClick = cmd_okClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
555555555555555555555555555555555555555555FF55555555555559055555
55555555577FF5555555555599905555555555557777F5555555555599905555
555555557777FF5555555559999905555555555777777F555555559999990555
5555557777777FF5555557990599905555555777757777F55555790555599055
55557775555777FF5555555555599905555555555557777F5555555555559905
555555555555777FF5555555555559905555555555555777FF55555555555579
05555555555555777FF5555555555557905555555555555777FF555555555555
5990555555555555577755555555555555555555555555555555}
NumGlyphs = 2
end
object cmd_a: TBitBtn
Left = 496
Top = 54
Width = 109
Height = 25
Caption = #20840#37096#26597#35810
TabOrder = 8
OnClick = cmd_aClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333FF3FF3333333333CC30003333333333773777333333333C33
3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
33003377333337F33377333333333C333300333F333337F33377339333333C33
3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
330077F377F337F33377993399333C33330077FF773337F33377399993333C33
33333777733337F333FF333333333C33300033333333373FF7773333333333CC
3000333333333377377733333333333333333333333333333333}
NumGlyphs = 2
end
end
object Panel4: TPanel
Left = 0
Top = 89
Width = 617
Height = 235
BevelInner = bvLowered
TabOrder = 1
object grd_dsk: TDBGrid
Left = 3
Top = 3
Width = 610
Height = 227
Color = clInfoBk
DataSource = ds_dsk
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
ReadOnly = True
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'ds_time'
Title.Alignment = taCenter
Title.Caption = #20195#25910#26102#38388
Width = 75
Visible = True
end
item
Expanded = False
FieldName = 'ds_time1'
Title.Alignment = taCenter
Title.Caption = #36820#36824#26102#38388
Width = 75
Visible = True
end
item
Expanded = False
FieldName = 'ds_dw'
Title.Alignment = taCenter
Title.Caption = #25910#27454#21333#20301
Width = 140
Visible = True
end
item
Expanded = False
FieldName = 'ds_cxch'
Title.Alignment = taCenter
Title.Caption = #36710#22411#36710#21495
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'ds_fs'
Title.Alignment = taCenter
Title.Caption = #25910#27454#26041#24335
Width = 58
Visible = True
end
item
Expanded = False
FieldName = 'ds_je'
Title.Alignment = taCenter
Title.Caption = #25910#27454#37329#39069
Width = 80
Visible = True
end>
end
end
object qe_dsk: TQuery
OnCalcFields = qe_dskCalcFields
DatabaseName = 'dn_qp3'
SessionName = 'se_qp3_1'
SQL.Strings = (
'select * from qt_dsk')
Left = 328
Top = 32
object qe_dskds_time: TStringField
FieldName = 'ds_time'
Origin = 'DN_QP3.qt_dsk.ds_time'
FixedChar = True
Size = 10
end
object qe_dskds_time1: TStringField
FieldName = 'ds_time1'
Origin = 'DN_QP3.qt_dsk.ds_time1'
FixedChar = True
Size = 10
end
object qe_dskds_dw: TStringField
FieldName = 'ds_dw'
Origin = 'DN_QP3.qt_dsk.ds_dw'
FixedChar = True
Size = 40
end
object qe_dskds_cx: TStringField
FieldName = 'ds_cx'
Origin = 'DN_QP3.qt_dsk.ds_cx'
FixedChar = True
Size = 40
end
object qe_dskds_cph: TStringField
FieldName = 'ds_cph'
Origin = 'DN_QP3.qt_dsk.ds_cph'
FixedChar = True
Size = 40
end
object qe_dskds_fs: TStringField
FieldName = 'ds_fs'
Origin = 'DN_QP3.qt_dsk.ds_fs'
FixedChar = True
Size = 10
end
object qe_dskds_je: TFloatField
FieldName = 'ds_je'
Origin = 'DN_QP3.qt_dsk.ds_je'
end
object qe_dskds_fk_bs: TSmallintField
FieldName = 'ds_fk_bs'
Origin = 'DN_QP3.qt_dsk.ds_fk_bs'
end
object qe_dskds_cxch: TStringField
FieldKind = fkCalculated
FieldName = 'ds_cxch'
Calculated = True
end
object qe_dskds_id: TIntegerField
FieldName = 'ds_id'
Origin = 'DN_QP3.qt_dsk.ds_id'
end
end
object ds_dsk: TDataSource
DataSet = qe_dsk
Left = 368
Top = 32
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -