📄 frmmaterialoutp.~dfm
字号:
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 = dsQrymo
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 = 353
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 = dsQrymoList
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
TabOrder = 0
end
end
end
object Qrymo: TADOQuery
Connection = DataDm.AdoConUfsoft
CursorType = ctStatic
BeforeEdit = QrymoBeforeEdit
BeforePost = QrymoBeforePost
AfterPost = QrymoAfterPost
AfterScroll = QrymoAfterScroll
Parameters = <>
SQL.Strings = (
'select * from Szb_PurIn')
Left = 120
Top = 112
object Qrymoid: TAutoIncField
FieldName = 'id'
ReadOnly = True
end
object QrymocMaker: TStringField
FieldName = 'cMaker'
end
object QrymoPCID: TStringField
FieldName = 'PCID'
end
object QrymocVouchType: TStringField
FieldName = 'cVouchType'
Size = 6
end
object QrymocOrderCode: TStringField
FieldName = 'cOrderCode'
Size = 30
end
object Qrymoipurorderid: TIntegerField
FieldName = 'ipurorderid'
end
object QrymocType: TStringField
FieldName = 'cType'
Size = 10
end
object QrymocVenCode: TStringField
FieldName = 'cVenCode'
Size = 30
end
object QrymocVenAbbName: TStringField
FieldName = 'cVenAbbName'
Size = 30
end
object QrymocDept: TStringField
FieldName = 'cDept'
end
object QrymocDeptName: TStringField
FieldName = 'cDeptName'
Size = 30
end
object QrymocPerson: TStringField
FieldName = 'cPerson'
end
object QrymocPersonName: TStringField
FieldName = 'cPersonName'
Size = 30
end
object QrymocWhCode: TStringField
FieldName = 'cWhCode'
end
object QrymocWhName: TStringField
FieldName = 'cWhName'
Size = 30
end
object QrymocPTCode: TStringField
FieldName = 'cPTCode'
Size = 15
end
object QrymocRdCode: TStringField
FieldName = 'cRdCode'
Size = 15
end
object QrymocMemo: TStringField
FieldName = 'cMemo'
Size = 60
end
object Qrymoipurarriveid: TIntegerField
FieldName = 'ipurarriveid'
end
object QrymocCusCode: TStringField
FieldName = 'cCusCode'
Size = 30
end
object QrymocCusAbbName: TStringField
FieldName = 'cCusAbbName'
Size = 30
end
object QrymocPTName: TStringField
FieldName = 'cPTName'
end
object QrymocSTCode: TStringField
FieldName = 'cSTCode'
Size = 15
end
object QrymocSTName: TStringField
FieldName = 'cSTName'
end
object QrymoDLID: TIntegerField
FieldName = 'DLID'
end
object Qrymocc: TStringField
FieldKind = fkCalculated
FieldName = 'cc'
Size = 4
Calculated = True
end
object QrymocError: TStringField
FieldKind = fkCalculated
FieldName = 'cError'
Size = 50
Calculated = True
end
object QrymocRdName: TStringField
FieldName = 'cRdName'
end
end
object dsQrymo: TDataSource
DataSet = Qrymo
Left = 160
Top = 112
end
object QrymoList: TADOQuery
Connection = DataDm.AdoConUfsoft
CursorType = ctStatic
BeforeEdit = QrymoListBeforeEdit
AfterScroll = QrymoListAfterScroll
Parameters = <>
SQL.Strings = (
'select * from Szb_PurInList'
'')
Left = 104
Top = 384
object QrymoListcc: TStringField
FieldKind = fkCalculated
FieldName = 'cc'
Size = 2
Calculated = True
end
object QrymoListID: TAutoIncField
FieldName = 'ID'
ReadOnly = True
end
object QrymoListPCID: TStringField
FieldName = 'PCID'
end
object QrymoListiPurID: TIntegerField
FieldName = 'iPurID'
end
object QrymoListcInvCode: TStringField
FieldName = 'cInvCode'
Size = 30
end
object QrymoListcInvName: TStringField
FieldName = 'cInvName'
Size = 50
end
object QrymoListcInvStd: TStringField
FieldName = 'cInvStd'
Size = 60
end
object QrymoListcBarCode: TStringField
FieldName = 'cBarCode'
Size = 30
end
object QrymoListiQuantity: TFloatField
FieldName = 'iQuantity'
end
object QrymoListiUnitCost: TFloatField
FieldName = 'iUnitCost'
end
object QrymoListiPrice: TBCDField
FieldName = 'iPrice'
Precision = 19
end
object QrymoListiPosID: TIntegerField
FieldName = 'iPosID'
end
object QrymoListcError: TStringField
FieldKind = fkCalculated
FieldName = 'cError'
Size = 50
Calculated = True
end
object QrymoListiArrsId: TIntegerField
FieldName = 'iArrsId'
end
object QrymoListcVouchType: TStringField
FieldName = 'cVouchType'
Size = 6
end
object QrymoListiDLsID: TIntegerField
FieldName = 'iDLsID'
end
end
object dsQrymoList: TDataSource
DataSet = QrymoList
Left = 136
Top = 384
end
object LsQryPop: TADOQuery
Connection = DataDm.AdoConUfsoft
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 + -