📄 pur500_02.dfm.svn-base
字号:
object lblRegion: TLabel
Left = 224
Top = 24
Width = 48
Height = 12
Alignment = taRightJustify
Caption = #25152#23646#22320#21306
end
object lblPlaceFax: TLabel
Left = 512
Top = 48
Width = 48
Height = 12
Alignment = taRightJustify
Caption = #20256#30495#21495#30721
end
object lblPlacePosit: TLabel
Left = 512
Top = 72
Width = 48
Height = 12
Alignment = taRightJustify
Caption = #32844#21153#21517#31216
end
object lblPlaceDept: TLabel
Left = 224
Top = 72
Width = 48
Height = 12
Alignment = taRightJustify
Caption = #37096#38376#21517#31216
end
object sbPlaceContact: TSpeedButton
Left = 194
Top = 64
Width = 22
Height = 22
Flat = True
Glyph.Data = {
96010000424D9601000000000000760000002800000018000000180000000100
0400000000002001000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD000DDDDD000D
DDDDDDDDDDDD080DDDDD080DDDDDDDDDDDDD0007DDD7000DDDDDDDDDDDDD0000
0000000DDDDDDDDD444408000080000DDDDDDDDD4FFF08000080000DDDDDDDDD
4F7700000000000DDDDDDDDD4FFFF000080000DDDDDDDDDD4F77F70077F00DDD
DDDDDDDD4FFFFF00FFF00DDDDDDDDDDD4F77F70077F00DDDDDDDDDDD4FFFFFFF
FFF4DDDDDDDDDDDD444444444444DDDDDDDDDDDD484484484484DDDDDDDDDDDD
444444444444DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD}
OnClick = sbPlaceContactClick
end
object edtPlace: TEdit
Left = 72
Top = 16
Width = 121
Height = 20
TabOrder = 0
OnExit = edtPlaceExit
end
object edtRegion: TEdit
Left = 280
Top = 16
Width = 225
Height = 20
Color = clBtnFace
Enabled = False
ReadOnly = True
TabOrder = 1
end
object edtPlacePhone: TEdit
Left = 568
Top = 16
Width = 153
Height = 20
Color = clBtnFace
Enabled = False
ReadOnly = True
TabOrder = 2
end
object edtPlaceAddress: TEdit
Left = 72
Top = 40
Width = 433
Height = 20
Color = clBtnFace
Enabled = False
ReadOnly = True
TabOrder = 3
end
object edtPlaceFax: TEdit
Left = 568
Top = 40
Width = 153
Height = 20
Color = clBtnFace
Enabled = False
ReadOnly = True
TabOrder = 4
end
object edtPlacePosit: TEdit
Left = 568
Top = 64
Width = 153
Height = 20
Color = clBtnFace
Enabled = False
ReadOnly = True
TabOrder = 7
end
object edtPlaceDept: TEdit
Left = 280
Top = 64
Width = 225
Height = 20
Color = clBtnFace
Enabled = False
ReadOnly = True
TabOrder = 6
end
object edtPlaceContact: TEdit
Left = 72
Top = 64
Width = 121
Height = 20
ReadOnly = True
TabOrder = 5
OnExit = edtPlaceContactExit
end
end
end
object tsRemark: TTabSheet
Caption = #22791#27880#20449#24687
ImageIndex = 4
object memRemark: TMemo
Left = 0
Top = 0
Width = 745
Height = 99
Align = alClient
ScrollBars = ssVertical
TabOrder = 0
end
end
end
object PageControl1: TPageControl [4]
Left = 8
Top = 280
Width = 753
Height = 193
ActivePage = tsItem
Style = tsFlatButtons
TabIndex = 0
TabOrder = 4
object tsItem: TTabSheet
Caption = #20135#21697#20449#24687
object wwDBGrid1: TwwDBGrid
Tag = 99
Left = 0
Top = 0
Width = 745
Height = 163
ControlType.Strings = (
'FPerson;CustomEdit;edtEmpolyee;F'
'FItemID;CustomEdit;edtItem;F'
'FUnitID;CustomEdit;edtUnit;F')
PictureMasks.Strings = (
'T531_004'#9'{0,1,2}[#]:{0,1,2,3,4,5}[#]'#9'T'#9'T'
'T531_005'#9'{0,1,2}[#]:{0,1,2,3,4,5}[#]'#9'T'#9'T'
'T531_006'#9'0.00'#9'T'#9'T'
'T531_007'#9'0.00'#9'T'#9'T'
'FFromTime'#9'{0,1,2}#:{0,1,2,3,4,5}#'#9'T'#9'T'
'FToTime'#9'{0,1,2}#:{0,1,2,3,4,5}#'#9'T'#9'T'
'FStartTime'#9'{0,1,2}#:{0,1,2,3,4,5}#'#9'T'#9'T'
'FEndTime'#9'{0,1,2}#:{0,1,2,3,4,5}#'#9'T'#9'T')
Selected.Strings = (
'FItemID'#9'22'#9#20135#21697#32534#21495
'FItemName'#9'40'#9#20135#21697#21517#31216
'FItemSpec'#9'40'#9#35268#26684#22411#21495
'FUnitID'#9'10'#9#21333#20301#32534#21495
'FUnitName'#9'20'#9#21333#20301#21517#31216
'FQty'#9'10'#9#38144#21806#25968#37327
'FDate'#9'18'#9#38656#27714#26085#26399
'FPlace'#9'20'#9#20132#36135#22320#22336
'FRemark'#9'35'#9#22791#27880#35828#26126)
IniAttributes.Delimiter = ';;'
TitleColor = clBtnFace
FixedCols = 0
ShowHorzScrollBar = True
EditControlOptions = [ecoSearchOwnerForm, ecoDisableEditorIfReadOnly]
Align = alClient
DataSource = dsPur500B
KeyOptions = [dgEnterToTab, dgAllowInsert]
Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgShowFooter]
TabOrder = 2
TitleAlignment = taCenter
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Pitch = fpFixed
TitleFont.Style = []
TitleLines = 1
TitleButtons = False
OnEnter = wwDBGrid1Enter
OnExit = wwDBGrid1Exit
OnUpdateFooter = wwDBGrid1UpdateFooter
FooterColor = clWindow
FooterCellColor = clWindow
end
object edtItem: TwwDBComboDlg
Left = 24
Top = 24
Width = 121
Height = 20
OnCustomDlg = edtItemCustomDlg
ShowButton = True
Style = csDropDown
TabOrder = 0
WordWrap = False
UnboundDataType = wwDefault
OnEnter = edtItemEnter
end
object edtUnit: TwwDBComboDlg
Left = 648
Top = 24
Width = 65
Height = 20
OnCustomDlg = edtUnitCustomDlg
ShowButton = True
Style = csDropDown
TabOrder = 1
WordWrap = False
UnboundDataType = wwDefault
end
end
end
inherited ActionList1: TActionList
inherited Action1: TAction
Caption = #26680#20934
Hint = #26680#20934
ImageIndex = 13
ShortCut = 32857
Visible = True
OnExecute = Action1Execute
end
inherited Action2: TAction
Caption = #21462#28040
Hint = #21462#28040
ImageIndex = 14
ShortCut = 32846
Visible = True
OnExecute = Action2Execute
end
end
inherited ADOQuery1: TADOQuery
object ADOQuery1P500A_001: TWideStringField
DisplayLabel = #35831#36141#21333#21495
FieldName = 'P500A_001'
Size = 30
end
object ADOQuery1P100_002: TWideStringField
DisplayLabel = #35831#36141#31867#22411
FieldName = 'P100_002'
Size = 50
end
object ADOQuery1P500A_002: TSmallintField
FieldName = 'P500A_002'
Visible = False
end
object ADOQuery1P500A_003: TDateTimeField
DisplayLabel = #35831#36141#26085#26399
FieldName = 'P500A_003'
end
object ADOQuery1P500A_004: TSmallintField
DisplayLabel = #35831#36141#29366#24577
FieldName = 'P500A_004'
OnGetText = ADOQuery1P500A_004GetText
end
object ADOQuery1P500A_005: TSmallintField
DisplayLabel = #26469#28304#31867#22411
FieldName = 'P500A_005'
OnGetText = ADOQuery1P500A_005GetText
end
object ADOQuery1P500A_006: TWideStringField
FieldName = 'P500A_006'
Visible = False
Size = 30
end
object ADOQuery1H150_002: TWideStringField
DisplayLabel = #35831#36141#20154#21495
FieldName = 'H150_002'
end
object ADOQuery1H150_003: TWideStringField
DisplayLabel = #35831#36141#20154#21517
FieldName = 'H150_003'
end
object ADOQuery1P500A_007: TIntegerField
FieldName = 'P500A_007'
Visible = False
end
object ADOQuery1H100_002: TWideStringField
DisplayLabel = #35831#36141#37096#38376
FieldName = 'H100_002'
Size = 50
end
object ADOQuery1P500A_008: TIntegerField
FieldName = 'P500A_008'
Visible = False
end
object ADOQuery1P500A_009: TWideStringField
DisplayLabel = #25910#36135#22320#28857
FieldName = 'P500A_009'
end
object ADOQuery1P500A_010: TDateTimeField
DisplayLabel = #23457#26680#26085#26399
FieldName = 'P500A_010'
end
object ADOQuery1P500A_011: TWideStringField
DisplayLabel = #23457#26680#20154#21592
FieldName = 'P500A_011'
end
object ADOQuery1P500A_012: TMemoField
DisplayLabel = #22791#27880#35828#26126
FieldName = 'P500A_012'
Visible = False
BlobType = ftMemo
end
object ADOQuery1P500A_013: TDateTimeField
DisplayLabel = #21046#21333#26085#26399
FieldName = 'P500A_013'
end
object ADOQuery1P500A_014: TWideStringField
DisplayLabel = #21046#21333#20154#21592
FieldName = 'P500A_014'
end
object ADOQuery1P500A_015: TDateTimeField
DisplayLabel = #20462#25913#26085#26399
FieldName = 'P500A_015'
end
object ADOQuery1P500A_016: TWideStringField
DisplayLabel = #20462#25913#20154#21592
FieldName = 'P500A_016'
end
end
object qryPur100: TADOQuery
Connection = SYSDM.ADOC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from PUR100')
Left = 328
Top = 56
end
object qryHrm150: TADOQuery
Connection = SYSDM.ADOC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select H150_001,H150_002,H150_003,H100_001,H100_002 from HRM150,' +
'HRM100 where H150_005=H100_001')
Left = 128
Top = 80
object qryHrm150H150_001: TAutoIncField
FieldName = 'H150_001'
ReadOnly = True
Visible = False
end
object qryHrm150H150_002: TWideStringField
DisplayLabel = #21592#24037#32534#21495
FieldName = 'H150_002'
end
object qryHrm150H150_003: TWideStringField
DisplayLabel = #21592#24037#22995#21517
FieldName = 'H150_003'
end
object qryHrm150H100_002: TWideStringField
DisplayLabel = #37096#38376#21517#31216
FieldName = 'H100_002'
Size = 50
end
object qryHrm150H100_001: TAutoIncField
FieldName = 'H100_001'
ReadOnly = True
Visible = False
end
end
object qryInv150: TADOQuery
Connection = SYSDM.ADOC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select I150_001,I150_002,I150_003,I150_004,I150_008,I140_001,I14' +
'0_002,I140_003'
'from INV150,INV140 where I150_011=I140_001'
'order by I150_002')
Left = 88
Top = 320
object qryInv150I150_001: TAutoIncField
FieldName = 'I150_001'
ReadOnly = True
Visible = False
end
object qryInv150I150_002: TWideStringField
DisplayLabel = #20135#21697#32534#21495
FieldName = 'I150_002'
Size = 30
end
object qryInv150I150_003: TWideStringField
DisplayLabel = #20135#21697#21517#31216
FieldName = 'I150_003'
Size = 60
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -