📄 exportfromunit.dfm
字号:
object frmExportfrom: TfrmExportfrom
Left = 236
Top = 139
Width = 788
Height = 480
Caption = #21333#25454#23548#20837#24037#20855
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poDefault
Visible = True
WindowState = wsMaximized
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object DBGrid1: TDBGrid
Left = 0
Top = 29
Width = 465
Height = 424
Cursor = crHandPoint
Align = alLeft
Ctl3D = False
DataSource = DataSource1
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [dgEditing, dgTitles, dgColumnResize, dgTabs, dgConfirmDelete, dgCancelOnExit]
ParentCtl3D = False
ParentFont = False
PopupMenu = PopupMenu1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'id'
Title.Alignment = taCenter
Visible = False
end
item
Alignment = taCenter
Expanded = False
FieldName = 'cinvcode'
Title.Alignment = taCenter
Title.Caption = #36135#21697#32534#30721
Width = 120
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'cfree1'
Title.Alignment = taCenter
Title.Caption = #39068#33394
Width = 60
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'cfree2'
Title.Alignment = taCenter
Title.Caption = #23610#30721
Width = 60
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'iQuantity'
Title.Alignment = taCenter
Title.Caption = #25968#37327
Width = 60
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'iUnitPrice'
Title.Alignment = taCenter
Title.Caption = #21333#20215
Width = 60
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'iMoney'
Title.Alignment = taCenter
Title.Caption = #37329#39069
Width = 60
Visible = True
end>
end
object RzToolbar2: TRzToolbar
Left = 0
Top = 0
Width = 780
Height = 29
AutoStyle = False
Images = frmMain.ImageList1
ButtonWidth = 60
ShowButtonCaptions = True
TextOptions = ttoSelectiveTextOnRight
BorderInner = fsFlatRounded
BorderOuter = fsNone
BorderSides = [sdTop]
BorderWidth = 0
TabOrder = 1
ToolbarControls = (
RzToolButton3
RzSpacer2
RzToolButton4)
object RzToolButton3: TRzToolButton
Left = 4
Top = 2
Cursor = crHandPoint
DisabledIndex = 57
Caption = #21047#26032
OnClick = RzToolButton3Click
end
object RzSpacer2: TRzSpacer
Left = 64
Top = 2
Width = 7
Grooved = True
end
object RzToolButton4: TRzToolButton
Left = 71
Top = 2
Width = 84
Cursor = crHandPoint
DisabledIndex = 59
Caption = #23548#20837#21333#25454
OnClick = RzToolButton4Click
end
end
object Panel1: TPanel
Left = 465
Top = 29
Width = 315
Height = 424
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 2
object RBqty: TRadioButton
Left = 24
Top = 24
Width = 113
Height = 17
Caption = #20854#23427#20837#24211#21333
Checked = True
TabOrder = 0
TabStop = True
OnClick = RBqtyClick
end
object RBqtc: TRadioButton
Left = 160
Top = 24
Width = 113
Height = 17
Caption = #20854#23427#20986#24211#21333
TabOrder = 1
OnClick = RBqtcClick
end
object GroupBox1: TGroupBox
Left = 2
Top = 47
Width = 311
Height = 350
Align = alBottom
TabOrder = 2
object Label1: TLabel
Left = 39
Top = 36
Width = 28
Height = 13
Caption = #20179#24211
end
object Label2: TLabel
Left = 39
Top = 76
Width = 28
Height = 13
Caption = #37096#38376
end
object Label13: TLabel
Left = 39
Top = 116
Width = 56
Height = 13
Caption = #25910#21457#31867#21035
end
object Label14: TLabel
Left = 39
Top = 156
Width = 28
Height = 13
Caption = #25688#35201
end
object Label5: TLabel
Left = 39
Top = 196
Width = 56
Height = 13
Caption = #25910#21457#31867#21035
Visible = False
end
object Label6: TLabel
Left = 39
Top = 236
Width = 28
Height = 13
Caption = #22791#27880
end
object WHCB: TComboBox
Left = 120
Top = 32
Width = 145
Height = 21
ItemHeight = 13
TabOrder = 0
end
object DeptCB: TComboBox
Left = 120
Top = 72
Width = 145
Height = 21
ItemHeight = 13
TabOrder = 1
end
object RcodeCB: TComboBox
Left = 120
Top = 112
Width = 145
Height = 21
ItemHeight = 13
TabOrder = 2
end
object ZyCB: TComboBox
Left = 120
Top = 152
Width = 145
Height = 21
ItemHeight = 13
TabOrder = 3
end
object ComboBox5: TComboBox
Left = 120
Top = 192
Width = 145
Height = 21
ItemHeight = 13
TabOrder = 4
Visible = False
end
object Memo: TEdit
Left = 120
Top = 232
Width = 145
Height = 21
TabOrder = 5
end
end
object DBNavigator1: TDBNavigator
Left = 2
Top = 397
Width = 311
Height = 25
DataSource = DataSource1
Align = alBottom
TabOrder = 3
end
end
object DataSource1: TDataSource
DataSet = Et
Left = 152
Top = 400
end
object Et: TADOTable
Active = True
Connection = DM.Conn_PM
CursorType = ctStatic
TableName = 'ExportForm'
Left = 96
Top = 392
end
object tDataSet: TADODataSet
Connection = DM.Conn_UF
CursorType = ctStatic
CommandText =
'SELECT cWhCode +'#39' - '#39'+[cWhName]'#13#10' FROM [Warehouse] order by cW' +
'hCode'
Parameters = <>
Left = 472
Top = 416
end
object PopupMenu1: TPopupMenu
Left = 200
Top = 248
object N1: TMenuItem
Caption = #25968#25454#35835#21462
object N14: TMenuItem
Caption = #20174#20854#23427#20837#24211#21333'... '
Hint = 'OtherIn'
ShortCut = 16457
OnClick = N14Click
end
object N15: TMenuItem
Caption = #20174#20854#23427#20986#24211#21333'...'
Hint = 'OtherOut'
ShortCut = 16463
OnClick = N15Click
end
object N16: TMenuItem
Caption = #20174#35843#25320#21333'...'
Hint = 'move'
ShortCut = 16461
OnClick = N16Click
end
object N17: TMenuItem
Caption = '-'
end
object N13: TMenuItem
Caption = #20174#37319#36141#20837#24211#21333'...'
Hint = 'RJ'
ShortCut = 16458
OnClick = N13Click
end
object N8: TMenuItem
Caption = #20174#38144#21806#35746#21333'...'
Hint = 'SO'
ShortCut = 16467
OnClick = N8Click
end
object N9: TMenuItem
Caption = #20174#37319#36141#35746#21333'...'
Hint = 'PO'
ShortCut = 16464
OnClick = N9Click
end
object N10: TMenuItem
Caption = #20174#21457#36135#21333'...'
Hint = 'DISPATCH'
ShortCut = 16452
OnClick = N10Click
end
object N11: TMenuItem
Caption = #20174#36864#36135#21333'...'
Hint = 'RETURN'
ShortCut = 16466
OnClick = N11Click
end
end
object N2: TMenuItem
Caption = '-'
end
object N3: TMenuItem
Caption = #36171#25104#26412#20215
Enabled = False
end
object N5: TMenuItem
Caption = '-'
end
object N4: TMenuItem
Caption = #36171#38144#21806#20215
Enabled = False
end
object N6: TMenuItem
Caption = #36171#22806#30465#20215
Enabled = False
end
object N7: TMenuItem
Caption = #36171#27733#22836#20215
Enabled = False
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -