?? ufrm_workstation.dfm
字號:
inherited frm_workstation: Tfrm_workstation
Left = 193
Top = 107
Width = 655
Height = 455
Caption = 'frm_workstation'
PixelsPerInch = 96
TextHeight = 13
inherited Splitter1: TSplitter
Top = 257
Width = 647
end
inherited CoolBar1: TCoolBar
Width = 647
Bands = <
item
Control = ToolBar1
ImageIndex = -1
MinHeight = 29
Width = 643
end>
inherited ToolBar1: TToolBar
Width = 630
inherited tbPrint: TToolButton
Visible = False
end
inherited tbHelp: TToolButton
Visible = False
end
end
end
inherited Page01: TPageControl
Width = 647
Height = 224
inherited TabSheet1: TTabSheet
inherited panelEdit: TPanel
Width = 639
Height = 193
inherited l_RecordCount: TLabel
Left = 478
Top = 2
Width = 84
AutoSize = False
Caption = #35352#37636#25976#65109
end
object Label1: TLabel
Left = 32
Top = 24
Width = 60
Height = 13
Caption = #24037#27573#20195#30908#65109
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 32
Top = 61
Width = 60
Height = 13
Caption = #24037#27573#21517#31281#65109
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 351
Top = 61
Width = 60
Height = 13
Caption = #33521#25991#21517#31281#65109
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 32
Top = 99
Width = 84
Height = 13
Caption = #27161#20934#24037#26178#25104#26412#65109
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 209
Top = 99
Width = 84
Height = 13
Caption = #23565#20839#24037#26178#25104#26412#65109
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 395
Top = 99
Width = 84
Height = 13
Caption = #23565#22806#24037#26178#25104#26412#65109
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 32
Top = 172
Width = 60
Height = 13
Caption = #24314#31435#26085#26399#65109
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 32
Top = 135
Width = 36
Height = 13
Caption = #20633#27880#65109
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 444
Top = 172
Width = 48
Height = 13
Caption = #30906#35469#21542#65109
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object acti: TDBText
Left = 499
Top = 170
Width = 65
Height = 17
DataField = 'ACTI'
DataSource = ds_master
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object f01: TDBEdit
Left = 118
Top = 19
Width = 99
Height = 21
DataField = 'F01'
DataSource = ds_master
TabOrder = 0
end
object f03: TDBEdit
Left = 118
Top = 57
Width = 140
Height = 21
DataField = 'F03'
DataSource = ds_master
TabOrder = 1
end
object f04: TDBEdit
Left = 424
Top = 57
Width = 140
Height = 21
DataField = 'F04'
DataSource = ds_master
TabOrder = 2
end
object f05: TDBRadioGroup
Left = 397
Top = 14
Width = 167
Height = 37
Caption = #35336#20729#26041#24335#65109
Columns = 2
DataField = 'F05'
DataSource = ds_master
Items.Strings = (
'1.'#26178#38291'(HR.)'
'2.'#37325#37327'(KG.)')
TabOrder = 8
Values.Strings = (
'1'
'2')
end
object f06: TDBEdit
Left = 118
Top = 95
Width = 82
Height = 21
DataField = 'F06'
DataSource = ds_master
TabOrder = 3
end
object f07: TDBEdit
Left = 294
Top = 95
Width = 82
Height = 21
DataField = 'F07'
DataSource = ds_master
TabOrder = 4
end
object f08: TDBEdit
Left = 481
Top = 95
Width = 82
Height = 21
DataField = 'F08'
DataSource = ds_master
TabOrder = 5
end
object cret: TDBEdit
Tag = 2
Left = 118
Top = 168
Width = 121
Height = 21
DataField = 'CRET'
DataSource = ds_master
ReadOnly = True
TabOrder = 7
end
object memo: TDBEdit
Left = 118
Top = 128
Width = 445
Height = 21
DataField = 'MEMO'
DataSource = ds_master
TabOrder = 6
end
end
end
end
inherited PanelDetail1: TPanel
Top = 260
Width = 647
Height = 168
inherited dbGrid: TdxDBGrid
Width = 643
Height = 164
KeyField = 'F01'
Filter.Criteria = {00000000}
OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEnterShowEditor, edgoTabThrough, edgoVertThrough]
OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoSmartReload, edgoUseBookmarks]
object dbc_d_sn: TdxDBGridColumn
Caption = #38917
Width = 28
BandIndex = 0
RowIndex = 0
FieldName = 'D_SN'
SummaryFooterType = cstCount
end
object dbc_f02: TdxDBGridColumn
Caption = #29677#21029#20195#34399
Width = 54
BandIndex = 0
RowIndex = 0
FieldName = 'F02'
end
object dbc_begintime: TdxDBGridColumn
Caption = #36215#22987#26178#38291
Width = 137
BandIndex = 0
RowIndex = 0
FieldName = 'begintime'
end
object dbc_endtime: TdxDBGridColumn
Caption = #32080#26463#26178#38291
Width = 134
BandIndex = 0
RowIndex = 0
FieldName = 'endtime'
end
object dbc_f05: TdxDBGridColumn
Caption = #26178#38263
Width = 73
BandIndex = 0
RowIndex = 0
FieldName = 'F05'
end
object dbc_memo: TdxDBGridColumn
Caption = #20633#27880
Width = 326
BandIndex = 0
RowIndex = 0
FieldName = 'MEMO'
end
end
end
inherited Query1: TQuery
Left = 168
Top = 32
end
inherited qy_master: TQuery
SQL.Strings = (
'SELECT * FROM T_WORKSECTION')
Left = 200
Top = 32
end
inherited ds_master: TDataSource
Left = 232
Top = 32
end
inherited qy_detail: TQuery
OnCalcFields = qy_detailCalcFields
SQL.Strings = (
'SELECT * FROM T_WORKSECTIME WHERE F01=:F01')
Left = 296
Top = 32
ParamData = <
item
DataType = ftString
Name = 'F01'
ParamType = ptUnknown
Size = 11
end>
object qy_detailF01: TStringField
FieldName = 'F01'
Origin = 'DT2_MPSS_0304.T_WORKSECTIME.F01'
Size = 10
end
object qy_detailF02: TFloatField
FieldName = 'F02'
Origin = 'DT2_MPSS_0304.T_WORKSECTIME.F02'
end
object qy_detailF03: TFloatField
FieldName = 'F03'
Origin = 'DT2_MPSS_0304.T_WORKSECTIME.F03'
end
object qy_detailF04: TFloatField
FieldName = 'F04'
Origin = 'DT2_MPSS_0304.T_WORKSECTIME.F04'
end
object qy_detailF05: TFloatField
FieldName = 'F05'
Origin = 'DT2_MPSS_0304.T_WORKSECTIME.F05'
end
object qy_detailMEMO: TStringField
FieldName = 'MEMO'
Origin = 'DT2_MPSS_0304.T_WORKSECTIME.MEMO'
Size = 4
end
object qy_detailACTI: TStringField
FieldName = 'ACTI'
Origin = 'DT2_MPSS_0304.T_WORKSECTIME.ACTI'
Size = 1
end
object qy_detailOWUS: TStringField
FieldName = 'OWUS'
Origin = 'DT2_MPSS_0304.T_WORKSECTIME.OWUS'
Size = 10
end
object qy_detailGRUP: TStringField
FieldName = 'GRUP'
Origin = 'DT2_MPSS_0304.T_WORKSECTIME.GRUP'
Size = 10
end
object qy_detailCRET: TDateTimeField
FieldName = 'CRET'
Origin = 'DT2_MPSS_0304.T_WORKSECTIME.CRET'
end
object qy_detailMODU: TStringField
FieldName = 'MODU'
Origin = 'DT2_MPSS_0304.T_WORKSECTIME.MODU'
Size = 10
end
object qy_detailMODT: TDateTimeField
FieldName = 'MODT'
Origin = 'DT2_MPSS_0304.T_WORKSECTIME.MODT'
end
object qy_detailbegintime: TStringField
FieldKind = fkCalculated
FieldName = 'begintime'
Size = 10
Calculated = True
end
object qy_detailendtime: TStringField
FieldKind = fkCalculated
FieldName = 'endtime'
Size = 10
Calculated = True
end
object qy_detailD_SN: TFloatField
FieldName = 'D_SN'
Origin = 'DT2_MPSS_0304.T_WORKSECTIME.D_SN'
end
end
inherited ds_detail: TDataSource
Left = 328
Top = 32
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -