商品销售管理系统(系统初始用户名：admin。密码：admin)
源代码在线查看： maininputtyunit.dfm
object MainInputTYfrm: TMainInputTYfrm
Left = 244
Top = 191
Width = 577
Height = 425
Caption = #36890#29992#36755#20837#23545#35805#26694
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
OnResize = FormResize
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object P_back: TPanel
Left = 0
Top = 0
Width = 569
Height = 398
Align = alClient
BevelOuter = bvNone
BorderWidth = 3
Ctl3D = False
ParentCtl3D = False
TabOrder = 0
object L_title: TLabel
Left = 3
Top = 3
Width = 563
Height = 15
Align = alTop
Alignment = taCenter
AutoSize = False
Caption = #36890#29992#25968#25454#24405#20837#23545#35805#26694
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object P_main: TPanel
Left = 3
Top = 18
Width = 563
Height = 377
Align = alClient
BevelOuter = bvNone
BorderStyle = bsSingle
TabOrder = 0
object Panel_down: TPanel
Left = 0
Top = 339
Width = 561
Height = 36
Align = alBottom
BevelOuter = bvNone
ParentColor = True
TabOrder = 0
object Bevel_bass: TBevel
Left = 0
Top = 0
Width = 561
Height = 2
Align = alTop
end
object L_count: TLabel
Left = 12
Top = 12
Width = 120
Height = 13
Caption = #21512#35745#37329#39069#65306' '#65509'0.00'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Panel_button: TPanel
Left = 401
Top = 2
Width = 160
Height = 34
Align = alRight
BevelOuter = bvNone
ParentColor = True
TabOrder = 0
object OKBtn: TButton
Left = 0
Top = 8
Width = 75
Height = 25
Caption = #20445#23384
TabOrder = 0
end
object CancelBtn: TButton
Left = 80
Top = 8
Width = 75
Height = 25
Caption = #25918#24323
TabOrder = 1
OnClick = CancelBtnClick
end
end
end
object PageScroller_input: TPageScroller
Left = 0
Top = 0
Width = 561
Height = 34
Align = alTop
Control = Panel1
TabOrder = 1
object Panel1: TPanel
Left = 0
Top = 0
Width = 1016
Height = 34
ParentColor = True
TabOrder = 0
object Label1: TLabel
Left = 13
Top = 11
Width = 36
Height = 13
Caption = #21830#22330#65306
end
object Label3: TLabel
Left = 362
Top = 11
Width = 36
Height = 13
Caption = #26085#26399#65306
end
object Label2: TLabel
Left = 206
Top = 11
Width = 48
Height = 13
Caption = #19994#21153#21592#65306
end
object DTP_date: TDateTimePicker
Left = 401
Top = 6
Width = 127
Height = 20
Date = 37319.873904270800000000
Time = 37319.873904270800000000
DateFormat = dfLong
TabOrder = 0
end
end
end
object IMPSG_DATA: TStringGrid
Left = 0
Top = 34
Width = 561
Height = 305
Align = alClient
BorderStyle = bsNone
Ctl3D = True
DefaultRowHeight = 18
RowCount = 100
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goEditing, goTabs]
ParentCtl3D = False
TabOrder = 2
OnDblClick = IMPSG_DATADblClick
OnKeyPress = IMPSG_DATAKeyPress
OnSelectCell = IMPSG_DATASelectCell
OnSetEditText = IMPSG_DATASetEditText
RowHeights = (
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18)
end
end
end
object Query_data: TQuery
Left = 355
Top = 98
end
end
