📄 frminp.dfm
字号:
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF008400848484FFFFFF0000FFFFFF848484
008400FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8484840084008484
84008400848484848484008400FFFFFF0000FFFFFF008400848484FFFFFF0084
00848484008400848484008400848484008400FFFFFF00840084848400840000
8400848484FFFFFF0000FFFFFF848484008400FFFFFF84848400840084848400
8400848484008400FFFFFF008400848484008400FFFFFF848484008400FFFFFF
0000FFFFFF008400848484FFFFFF008400848484008400848484008400FFFFFF
008400848484008400848484FFFFFF008400848484FFFFFF0000FFFFFF848484
008400FFFFFFFFFFFF008400848484008400FFFFFF0084008484840084008484
84008400FFFFFF848484008400FFFFFF0000FFFFFF008400848484FFFFFFFFFF
FFFFFFFF008400FFFFFF008400848484008400848484FFFFFFFFFFFFFFFFFF00
8400848484FFFFFF0000FFFFFF848484008400FFFFFFFFFFFF008400FFFFFF00
8400848484008400848484008400848484FFFFFFFFFFFF848484008400FFFFFF
0000FFFFFF008400848484FFFFFF008400FFFFFF008400848484008400848484
008400848484008400848484FFFFFF008400848484FFFFFF0000FFFFFF848484
008400FFFFFF848484008400848484008400848484FFFFFF8484840084008484
84008400FFFFFF848484008400FFFFFF0000FFFFFF008400848484FFFFFF0084
00848484008400848484FFFFFFFFFFFFFFFFFF848484008400848484FFFFFF00
8400848484FFFFFF0000FFFFFF848484008400FFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF848484008400FFFFFF
0000FFFFFF008400848484008400848484008400848484008400848484008400
848484008400848484008400848484008400848484FFFFFF0000}
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = btnOutHeadClick
end
object sbDelete: TSpeedButton
Left = 322
Top = 10
Width = 76
Height = 25
Hint = 'Delete'
Caption = #21024#38500
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033337733333333333333333F333333333333
0000333911733333973333333377F333333F3333000033391117333911733333
37F37F333F77F33300003339111173911117333337F337F3F7337F3300003333
911117111117333337F3337F733337F3000033333911111111733333337F3337
3333F7330000333333911111173333333337F333333F73330000333333311111
7333333333337F3333373333000033333339111173333333333337F333733333
00003333339111117333333333333733337F3333000033333911171117333333
33337333337F333300003333911173911173333333373337F337F33300003333
9117333911173333337F33737F337F33000033333913333391113333337FF733
37F337F300003333333333333919333333377333337FFF730000333333333333
3333333333333333333777330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = sbDeleteClick
end
object DBNavigator1: TDBNavigator
Left = 104
Top = 10
Width = 128
Height = 25
DataSource = dsQryIn
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
TabOrder = 0
end
object BtnSave: TBitBtn
Left = 246
Top = 10
Width = 76
Height = 25
Caption = #20445#23384
TabOrder = 1
OnClick = BtnSaveClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888880000000000000880330000008803088033000000880308803300000088
0308803300000000030880333333333333088033000000003308803088888888
0308803088888888030880308888888803088030888888880308803088888888
0008803088888888080880000000000000088888888888888888}
end
end
object Panel5: TPanel
Left = 0
Top = 397
Width = 543
Height = 41
Align = alBottom
TabOrder = 3
object Label2: TLabel
Left = 16
Top = 16
Width = 33
Height = 13
Caption = #35760#24405':'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object btnOutBody: TSpeedButton
Left = 312
Top = 10
Width = 76
Height = 25
Hint = 'Add New'
Caption = #36755#20986
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
Glyph.Data = {
B6030000424DB603000000000000360000002800000012000000100000000100
18000000000080030000C40E0000C40E00000000000000000000FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFF0084008484840084008484
8400840084848400840084848400840084848400840084848400840084848400
8400848484FFFFFF0000FFFFFF84848400840084848400840084848400840084
8484008400848484008400848484008400848484008400848484008400FFFFFF
0000FFFFFF008400848484FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF008400848484FFFFFF0000FFFFFF848484
008400FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8484840084008484
84008400848484848484008400FFFFFF0000FFFFFF008400848484FFFFFF0084
00848484008400848484008400848484008400FFFFFF00840084848400840000
8400848484FFFFFF0000FFFFFF848484008400FFFFFF84848400840084848400
8400848484008400FFFFFF008400848484008400FFFFFF848484008400FFFFFF
0000FFFFFF008400848484FFFFFF008400848484008400848484008400FFFFFF
008400848484008400848484FFFFFF008400848484FFFFFF0000FFFFFF848484
008400FFFFFFFFFFFF008400848484008400FFFFFF0084008484840084008484
84008400FFFFFF848484008400FFFFFF0000FFFFFF008400848484FFFFFFFFFF
FFFFFFFF008400FFFFFF008400848484008400848484FFFFFFFFFFFFFFFFFF00
8400848484FFFFFF0000FFFFFF848484008400FFFFFFFFFFFF008400FFFFFF00
8400848484008400848484008400848484FFFFFFFFFFFF848484008400FFFFFF
0000FFFFFF008400848484FFFFFF008400FFFFFF008400848484008400848484
008400848484008400848484FFFFFF008400848484FFFFFF0000FFFFFF848484
008400FFFFFF848484008400848484008400848484FFFFFF8484840084008484
84008400FFFFFF848484008400FFFFFF0000FFFFFF008400848484FFFFFF0084
00848484008400848484FFFFFFFFFFFFFFFFFF848484008400848484FFFFFF00
8400848484FFFFFF0000FFFFFF848484008400FFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF848484008400FFFFFF
0000FFFFFF008400848484008400848484008400848484008400848484008400
848484008400848484008400848484008400848484FFFFFF0000}
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = btnOutBodyClick
end
object SpeedButton1: TSpeedButton
Left = 235
Top = 10
Width = 76
Height = 25
Hint = 'Delete'
Caption = #21024#24405
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033337733333333333333333F333333333333
0000333911733333973333333377F333333F3333000033391117333911733333
37F37F333F77F33300003339111173911117333337F337F3F7337F3300003333
911117111117333337F3337F733337F3000033333911111111733333337F3337
3333F7330000333333911111173333333337F333333F73330000333333311111
7333333333337F3333373333000033333339111173333333333337F333733333
00003333339111117333333333333733337F3333000033333911171117333333
33337333337F333300003333911173911173333333373337F337F33300003333
9117333911173333337F33737F337F33000033333913333391113333337FF733
37F337F300003333333333333919333333377333337FFF730000333333333333
3333333333333333333777330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton1Click
end
object Label3: TLabel
Left = 405
Top = 15
Width = 72
Height = 16
Caption = #25968#37327#24635#35745':'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object DBNavigator2: TDBNavigator
Left = 104
Top = 10
Width = 128
Height = 25
DataSource = dsQryInList
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
TabOrder = 0
end
end
end
object QryIn: TADOQuery
Connection = DataDm.AdoConUfsoft
CursorType = ctStatic
BeforeEdit = QryInBeforeEdit
BeforePost = QryInBeforePost
AfterPost = QryInAfterPost
AfterScroll = QryInAfterScroll
OnCalcFields = QryInCalcFields
Parameters = <>
SQL.Strings = (
'select * from Szb_PurIn')
Left = 120
Top = 112
object QryInid: TAutoIncField
FieldName = 'id'
ReadOnly = True
end
object QryIncMaker: TStringField
FieldName = 'cMaker'
end
object QryInPCID: TStringField
FieldName = 'PCID'
end
object QryIncVouchType: TStringField
FieldName = 'cVouchType'
Size = 6
end
object QryIncOrderCode: TStringField
FieldName = 'cOrderCode'
Size = 30
end
object QryInipurorderid: TIntegerField
FieldName = 'ipurorderid'
end
object QryIncType: TStringField
FieldName = 'cType'
Size = 10
end
object QryIncVenCode: TStringField
FieldName = 'cVenCode'
Size = 30
end
object QryIncVenAbbName: TStringField
FieldName = 'cVenAbbName'
Size = 30
end
object QryIncDept: TStringField
FieldName = 'cDept'
end
object QryIncDeptName: TStringField
FieldName = 'cDeptName'
Size = 30
end
object QryIncPerson: TStringField
FieldName = 'cPerson'
end
object QryIncPersonName: TStringField
FieldName = 'cPersonName'
Size = 30
end
object QryIncWhCode: TStringField
FieldName = 'cWhCode'
end
object QryIncWhName: TStringField
FieldName = 'cWhName'
Size = 30
end
object QryIncPTCode: TStringField
FieldName = 'cPTCode'
Size = 15
end
object QryIncRdCode: TStringField
FieldName = 'cRdCode'
Size = 15
end
object QryIncMemo: TStringField
FieldName = 'cMemo'
Size = 60
end
object QryInipurarriveid: TIntegerField
FieldName = 'ipurarriveid'
end
object QryIncCusCode: TStringField
FieldName = 'cCusCode'
Size = 30
end
object QryIncPTName: TStringField
FieldName = 'cPTName'
end
object QryIncc: TStringField
FieldKind = fkCalculated
FieldName = 'cc'
Size = 4
Calculated = True
end
object QryIncError: TStringField
FieldKind = fkCalculated
FieldName = 'cError'
Size = 50
Calculated = True
end
end
object dsQryIn: TDataSource
DataSet = QryIn
Left = 160
Top = 112
end
object QryInList: TADOQuery
Connection = DataDm.AdoConUfsoft
CursorType = ctStatic
BeforeEdit = QryInListBeforeEdit
AfterScroll = QryInListAfterScroll
OnCalcFields = QryInListCalcFields
Parameters = <>
SQL.Strings = (
'select * from Szb_PurInList'
'')
Left = 104
Top = 384
object QryInListcc: TStringField
FieldKind = fkCalculated
FieldName = 'cc'
Size = 2
Calculated = True
end
object QryInListID: TAutoIncField
FieldName = 'ID'
ReadOnly = True
end
object QryInListPCID: TStringField
FieldName = 'PCID'
end
object QryInListiPurID: TIntegerField
FieldName = 'iPurID'
end
object QryInListcInvCode: TStringField
FieldName = 'cInvCode'
Size = 30
end
object QryInListcInvName: TStringField
FieldName = 'cInvName'
Size = 50
end
object QryInListcInvStd: TStringField
FieldName = 'cInvStd'
Size = 60
end
object QryInListcBarCode: TStringField
FieldName = 'cBarCode'
Size = 30
end
object QryInListiQuantity: TFloatField
FieldName = 'iQuantity'
end
object QryInListiUnitCost: TFloatField
FieldName = 'iUnitCost'
end
object QryInListiPrice: TBCDField
FieldName = 'iPrice'
Precision = 19
end
object QryInListiPosID: TIntegerField
FieldName = 'iPosID'
end
object QryInListcError: TStringField
FieldKind = fkCalculated
FieldName = 'cError'
Size = 50
Calculated = True
end
object QryInListiArrsId: TIntegerField
FieldName = 'iArrsId'
end
object QryInListcVouchType: TStringField
FieldName = 'cVouchType'
Size = 6
end
object QryInListiDLsID: TIntegerField
FieldName = 'iDLsID'
end
object QryInListcFree1: TStringField
FieldName = 'cFree1'
end
object QryInListcFree2: TStringField
FieldName = 'cFree2'
end
end
object dsQryInList: TDataSource
DataSet = QryInList
Left = 136
Top = 384
end
object LsQryPop: TADOQuery
Connection = DataDm.AdoConUfsoft
BeforeEdit = LsQryPopBeforeEdit
Parameters = <>
SQL.Strings = (
'SELECT DISTINCT dbo.Szb_PurInList.cBarCode'
'FROM dbo.Inventory RIGHT OUTER JOIN'
' dbo.Szb_PurInList ON '
' dbo.Inventory.cBarCode = dbo.Szb_PurInList.cBarCode'
'WHERE (dbo.Inventory.cBarCode IS NULL)'
'Order by dbo.Szb_PurInList.cBarCode')
Left = 288
Top = 168
end
object QryCheckPo: TADOQuery
Connection = DataDm.AdoConUfsoft
Parameters = <>
SQL.Strings = (
'SELECT dbo.Szb_PurIn.ID,dbo.Szb_PurIn.cOrderCode'
'FROM dbo.Szb_PurIn LEFT OUTER JOIN'
' dbo.PO_Pomain ON dbo.Szb_PurIn.cOrderCode = dbo.PO_Pomain.' +
'cPOID'
'WHERE (dbo.PO_Pomain.cPOID IS NULL)')
Left = 328
Top = 240
end
object QryCheckType: TADOQuery
Connection = DataDm.AdoConUfsoft
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'SELECT Szb_PurIn.id, Szb_PurIn.cType'
'FROM (SELECT *'
' FROM szb_ini'
' WHERE (Szb_Ini.cMaker = '#39'admin'#39') AND (Szb_Ini.cType = '#39#37319 +
#36141#35746#21333#39')) '
' AA RIGHT OUTER JOIN'
' Szb_PurIn ON AA.cNO = Szb_PurIn.cType'
'WHERE (Szb_PurIn.PCID = '#39'095947589'#39') AND (AA.cNO IS NULL)')
Left = 368
Top = 176
end
object SaveDialog1: TSaveDialog
Filter = '*.xml|*.xml'
Left = 72
Top = 32
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -