📄 empinfset.~dfm
字号:
object emp_set_form: Temp_set_form
Left = 6
Top = 132
Width = 783
Height = 405
BorderIcons = [biSystemMenu]
Caption = #29992#25143#35774#32622
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poScreenCenter
Visible = True
WindowState = wsMaximized
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object StatusBar1: TStatusBar
Left = 0
Top = 359
Width = 775
Height = 19
Panels = <
item
Text = #24403#21069#29366#24577#65306
Width = 60
end
item
Text = #29992#25143#35774#32622
Width = 50
end>
end
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 775
Height = 33
ButtonHeight = 29
Caption = 'ToolBar1'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
object BitBtn2: TBitBtn
Left = 0
Top = 2
Width = 75
Height = 29
Caption = #21592#24037#21551#29992
TabOrder = 1
OnClick = BitBtn2Click
Kind = bkOK
end
object BitBtn3: TBitBtn
Left = 75
Top = 2
Width = 75
Height = 29
Caption = #21592#24037#31105#29992
TabOrder = 2
OnClick = BitBtn3Click
Kind = bkNo
end
object BitBtn4: TBitBtn
Left = 150
Top = 2
Width = 75
Height = 29
Caption = #21551#29992#36864#26412
TabOrder = 3
OnClick = BitBtn4Click
Glyph.Data = {
42020000424D4202000000000000420000002800000010000000100000000100
1000030000000002000000000000000000000000000000000000007C0000E003
00001F000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7F10420000000000001042FF7FFF7FFF7FFF7FFF7FFF7F1042
00001042FF7F10420000E07FE07FE07F0000FF7FFF7FFF7FFF7FFF7FFF7F0000
E07F0000FF7F0000FF7FE07F0000E07F00000000000000000000000000000000
E07F000010420000FF7FE07F0000E07FE07FFF7FE07FFF7FE07FFF7FFF7FE07F
FF7FE07F00000000FF7FE07F0000E07F00000000000000000000000000000000
00000000104210420000FF7FFF7FFF7F0000FF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7F10420000000000001042FF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7F}
end
object BitBtn5: TBitBtn
Left = 225
Top = 2
Width = 75
Height = 29
Caption = #31105#29992#36864#26412
TabOrder = 4
OnClick = BitBtn5Click
Glyph.Data = {
42020000424D4202000000000000420000002800000010000000100000000100
1000030000000002000000000000000000000000000000000000007C0000E003
00001F000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7F8410841084108410841084108410841084108410
FF7FFF7FFF7FFF7FFF7F84104162C572C46EA36A6266415E205AE055C04D6041
8410FF7FFF7FFF7FFF7F8410A366277F077BE676C56E836A6266415E205AA049
8410FF7FFF7FFF7FFF7F8410A366277F077BE676C46E836A6266415E005AA049
8410FF7FFF7FFF7FFF7F8410A366277F077BE676C46E836A6266415E005AA049
8410FF7FFF7FFF7FFF7F8410A366277F077BE676C46E836A6266415E005AA049
8410FF7FFF7FFF7FFF7F84100056836AA46AA46AA46EC56EC572C572A36A415E
8410FF7FFF7FFF7FFF7FFF7F84106B2D6B2D6B2D841084106B2D6B2D6B2D8410
FF7FFF7FFF7FFF7FFF7FFF7FFF7F8410F75E8410FF7FFF7F8410CE398410FF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7F8410F75EE71CFF7FFF7FE71CEF3D8410FF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7F84101863E71CFF7FFF7FE71C31468410FF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7F84105A6B6B2DE71CE71C6B2D524A8410FF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7F8410F75E5A6B1863F75ED65A94528410FF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F841084108410841084108410FF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7F}
end
object BitBtn6: TBitBtn
Left = 300
Top = 2
Width = 75
Height = 29
Caption = #22238#27700#25171#21360
TabOrder = 5
OnClick = BitBtn6Click
Glyph.Data = {
42020000424D4202000000000000420000002800000010000000100000000100
1000030000000002000000000000000000000000000000000000007C0000E003
00001F000000604D604D604D604D604D604D524A524A524A524A524A524A524A
FF7FFF7FFF7F604D527F0D7F0D7F0D7F4A5E604D604D604D604D524A524A524A
524AFF7FFF7F604D527F527F527F0D7F0D7F4A5E4A5E4A5E4A5E604D604D604D
524A524AFF7FFF7F604D527F527F527F0D7F0D7F4A5E4A5E4A5E4A5E4A5E604D
524A524AFF7FFF7F604D977F00000000000000000D7F000000004A5E4A5E604D
604D524A524AFF7F604D977F977F527F527F527F0D7F0D7F0D7F4A5E4A5E4A5E
604D524A524AFF7F604D977F977F00000000527F00000000000000000D7F4A5E
604D524A524AFF7FFF7F604D977F977F977F527F527F527F0D7F0D7F0D7F0D7F
604D524A524AFF7FFF7F604D977F0000000000000000527F0000000000000D7F
604D524A524AFF7FFF7F604D977F977F977F977F977F527F527F527F527F0D7F
0D7F604D524AFF7FFF7F604DFF7F00000000977F0000977F000000000000527F
0D7F604D524AFF7FFF7F604DFF7F977F977F977F977F977F977F977F527F527F
527F604DFF7FFF7FFF7F604DFF7FFF7F977F977F0000B15AB15AB15AB15A977F
527F604DFF7FFF7FFF7F604DFF7FFF7FFF7FFF7F977F0000977FB15AB15A977F
977F604DFF7FFF7FFF7F604D604D604D604D604D604D604D00000000604D604D
604D604DFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000FF7FFF7F
FF7FFF7FFF7F}
end
object BitBtn1: TBitBtn
Left = 375
Top = 2
Width = 75
Height = 29
Caption = #36864#20986
TabOrder = 0
OnClick = BitBtn1Click
Kind = bkClose
end
end
object Panel1: TPanel
Left = 0
Top = 33
Width = 775
Height = 326
Align = alClient
Caption = 'Panel1'
TabOrder = 2
object Splitter1: TSplitter
Left = 210
Top = 1
Height = 324
end
object Panel2: TPanel
Left = 1
Top = 1
Width = 209
Height = 324
Align = alLeft
Caption = 'Panel2'
TabOrder = 0
object GroupBox1: TGroupBox
Left = 1
Top = 1
Width = 207
Height = 322
Align = alClient
Caption = #21592#24037#20449#24687#65306
TabOrder = 0
object DBGrid1: TDBGrid
Left = 2
Top = 14
Width = 203
Height = 306
Align = alClient
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
OnMouseUp = DBGrid1MouseUp
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'FClientNo'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = #21592#24037#32534#21495
Width = 50
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'FclientName'
Title.Alignment = taCenter
Title.Caption = #21592#24037#22995#21517
Width = 54
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'FVisible'
Title.Alignment = taCenter
Title.Caption = #26159#21542#21551#29992
Width = 50
Visible = True
end>
end
end
end
object Panel3: TPanel
Left = 213
Top = 1
Width = 561
Height = 324
Align = alClient
Caption = 'Panel3'
TabOrder = 1
object GroupBox2: TGroupBox
Left = 1
Top = 1
Width = 559
Height = 322
Align = alClient
Caption = #21592#24037#22238#27700#20449#24687#65306
TabOrder = 0
object DBGrid2: TDBGrid
Left = 2
Top = 14
Width = 555
Height = 306
Align = alClient
DataSource = DataSource2
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
OnMouseUp = DBGrid2MouseUp
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'FTranName'
Title.Alignment = taCenter
Title.Caption = #20107#21153#21517#31216
Width = 80
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'FQuitCorpus'
Title.Alignment = taCenter
Title.Caption = #36864#26412#26631#24535
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'FLossRatio'
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Title.Alignment = taCenter
Title.Caption = #20013#21518#22521#29575
Width = 80
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'FWriteBillWin'
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Title.Alignment = taCenter
Title.Caption = #20889#21333#36153#36194
Width = 80
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'FWriteBillLoss'
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Title.Alignment = taCenter
Title.Caption = #20889#21333#36153#36755
Width = 80
Visible = True
end>
end
end
end
end
object DataSource1: TDataSource
DataSet = empinf_q
Left = 520
Top = 4
end
object empinf_qold: TADOQuery
Connection = NumberMangerMain.NumberManger_Adocon
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'SELECT FClientid, FClientNo, FclientName, FRadioButton, '
' CASE WHEN FVisible = 0 THEN '#39#26410#21551#29992#39' ELSE '#39#24050#21551#29992#39' END AS FVisib' +
'le'
'FROM T_Client')
Left = 717
Top = 4
object empinf_qoldFClientid: TIntegerField
FieldName = 'FClientid'
end
object empinf_qoldFClientNo: TStringField
FieldName = 'FClientNo'
Size = 50
end
object empinf_qoldFclientName: TStringField
FieldName = 'FclientName'
Size = 50
end
object empinf_qoldFRadioButton: TStringField
FieldName = 'FRadioButton'
Size = 14
end
object empinf_qoldFVisible: TStringField
FieldName = 'FVisible'
ReadOnly = True
Size = 6
end
end
object editemp: TADOQuery
Connection = NumberMangerMain.NumberManger_Adocon
Parameters = <>
Left = 554
Top = 4
end
object empinf_q: TADOTable
Connection = NumberMangerMain.NumberManger_Adocon
CursorType = ctStatic
TableName = 'EmpInf_V'
Left = 718
Top = 4
end
object empinfentry: TADOTable
Connection = NumberMangerMain.NumberManger_Adocon
CursorType = ctStatic
IndexFieldNames = 'FClientid'
MasterFields = 'FClientid'
MasterSource = DataSource1
TableName = 'EmpInfEntry_V'
Left = 700
Top = 3
object empinfentryFTEntryId: TAutoIncField
FieldName = 'FTEntryId'
ReadOnly = True
end
object empinfentryFClientid: TIntegerField
FieldName = 'FClientid'
end
object empinfentryFTranType: TIntegerField
FieldName = 'FTranType'
end
object empinfentryFTranName: TStringField
FieldName = 'FTranName'
Size = 50
end
object empinfentryFQuitCorpus: TStringField
FieldName = 'FQuitCorpus'
ReadOnly = True
Size = 6
end
object empinfentryFLossRatio: TBCDField
FieldName = 'FLossRatio'
Precision = 18
end
object empinfentryFWriteBillWin: TBCDField
FieldName = 'FWriteBillWin'
Precision = 18
end
object empinfentryFWriteBillLoss: TBCDField
FieldName = 'FWriteBillLoss'
Precision = 18
end
end
object DataSource2: TDataSource
DataSet = empinfentry
Left = 584
Top = 8
end
object editempentry: TADOQuery
Connection = NumberMangerMain.NumberManger_Adocon
Parameters = <>
Left = 672
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -