📄 stockmain_u.~dfm
字号:
000000001F7C1F7C1F7C1F7C0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000
1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000FF7F00000000000000000000FF7F0000
1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
00001F7C1F7C1F7C1F7C1F7C1F7C1F7C00000000000000000000000000000000
00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
1F7C1F7C1F7C}
end
object BitBtn8: TBitBtn
Left = 306
Top = 9
Width = 75
Height = 25
Caption = #26597#35810'(&Q)'
TabOrder = 6
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888888888888888800000888880000080F000888880F00080F000888880F
0008000000080000000800F000000F00000800F000800F00000800F000800F00
00088000000000000088880F00080F0008888800000800000888888000888000
88888880F08880F0888888800088800088888888888888888888}
end
end
object DBGridEh1: TDBGridEh
Left = 0
Top = 38
Width = 613
Height = 416
Align = alClient
DataSource = DataSource1
FooterColor = clWindow
FooterFont.Charset = DEFAULT_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -11
FooterFont.Name = 'MS Sans Serif'
FooterFont.Style = []
OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection]
ReadOnly = True
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
EditButtons = <>
FieldName = 'Billcode'
Footers = <>
Title.Caption = #20837#24211#21333#21495
Width = 84
end
item
EditButtons = <>
FieldName = 'stockDate'
Footers = <>
Title.Caption = #37319#36141#26085#26399
Width = 93
end
item
EditButtons = <>
FieldName = 'DateIn'
Footers = <>
Title.Caption = #20837#24211#26085#26399
Width = 88
end
item
EditButtons = <>
FieldName = 'StockItems'
Footers = <>
Title.Caption = #28165#21333#39033#25968
Width = 59
end
item
EditButtons = <>
FieldName = 'TotalMoney'
Footers = <>
Title.Caption = #21512#35745#37329#39069'(RBM'#20803')'
Width = 112
end
item
EditButtons = <>
FieldName = 'StockMan'
Footers = <>
Title.Caption = #37319#36141#20154
Width = 68
end
item
EditButtons = <>
FieldName = 'ProvideCode'
Footers = <>
Title.Caption = #20379#24212#21830
Width = 257
end
item
EditButtons = <>
FieldName = 'Stockcode'
Footers = <>
Title.Caption = #37319#36141#21333#21495
Width = 82
end
item
EditButtons = <>
FieldName = #21046#21333#20154
Footers = <>
Width = 65
end
item
EditButtons = <>
FieldName = 'AuditFlag'
Footers = <>
Title.Caption = #23457#26680#26631#24535
Width = 56
end
item
EditButtons = <>
FieldName = #23457#26680#20154
Footers = <>
end
item
EditButtons = <>
FieldName = 'AuditDate'
Footers = <>
Title.Caption = #23457#26680#26085#26399
end
item
EditButtons = <>
FieldName = 'Others'
Footers = <>
Title.Caption = #25688#35201
Width = 251
end>
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 112
Top = 176
end
object ADOQuery1: TADOQuery
Connection = MyDM.Conn
CursorType = ctStatic
AfterScroll = ADOQuery1AfterScroll
Parameters = <>
SQL.Strings = (
'')
Left = 144
Top = 176
object ADOQuery1Billcode: TWideStringField
FieldName = 'Billcode'
Size = 8
end
object ADOQuery1DateIn: TDateTimeField
FieldName = 'DateIn'
end
object ADOQuery1Stockcode: TWideStringField
FieldName = 'Stockcode'
Size = 8
end
object ADOQuery1stockDate: TDateTimeField
FieldName = 'stockDate'
end
object ADOQuery1ProvideCode: TWideStringField
FieldName = 'ProvideCode'
Size = 8
end
object ADOQuery1StockMan: TWideStringField
FieldName = 'StockMan'
Size = 12
end
object ADOQuery1StockItems: TIntegerField
FieldName = 'StockItems'
end
object ADOQuery1TotalMoney: TBCDField
FieldName = 'TotalMoney'
currency = True
Precision = 19
end
object ADOQuery1DSDesigner: TWideStringField
FieldName = #21046#21333#20154
Size = 12
end
object ADOQuery1DSDesigner2: TWideStringField
FieldName = #23457#26680#20154
Size = 12
end
object ADOQuery1AuditFlag: TWideStringField
FieldName = 'AuditFlag'
Size = 2
end
object ADOQuery1isAuditing: TBooleanField
FieldName = 'isAuditing'
end
object ADOQuery1AuditDate: TDateTimeField
FieldName = 'AuditDate'
end
object ADOQuery1Others: TWideStringField
FieldName = 'Others'
Size = 60
end
end
object ADOQuery2: TADOQuery
Connection = MyDM.Conn
Parameters = <>
Left = 280
Top = 152
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -