一个用delphi 开发的商场销售系统
涵盖很多功能
源代码在线查看： setupformunit.dfm
object SetupForm: TSetupForm
Left = 334
Top = 205
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = #35774#32622#31383#21475
ClientHeight = 326
ClientWidth = 479
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = True
Position = poOwnerFormCenter
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 479
Height = 326
Align = alClient
TabOrder = 0
object Label8: TLabel
Left = 17
Top = 122
Width = 60
Height = 13
Caption = #20844#21496#22320#22336#65306
end
object Label7: TLabel
Left = 17
Top = 87
Width = 60
Height = 13
Caption = #20844#21496#30005#35805#65306
end
object Label6: TLabel
Left = 17
Top = 53
Width = 72
Height = 13
Caption = #20844#21496#36127#36131#20154#65306
end
object Label5: TLabel
Left = 17
Top = 20
Width = 60
Height = 13
Caption = #20844#21496#21517#31216#65306
end
object GroupBox1: TGroupBox
Left = 1
Top = 1
Width = 477
Height = 176
Align = alTop
Caption = #20844#21496#22522#26412#20449#24687
TabOrder = 0
object Label1: TLabel
Left = 17
Top = 20
Width = 60
Height = 13
Caption = #20844#21496#21517#31216#65306
end
object Label2: TLabel
Left = 17
Top = 53
Width = 72
Height = 13
Caption = #20844#21496#36127#36131#20154#65306
end
object Label3: TLabel
Left = 17
Top = 87
Width = 60
Height = 13
Caption = #20844#21496#30005#35805#65306
end
object Label4: TLabel
Left = 17
Top = 125
Width = 60
Height = 13
Caption = #20844#21496#22320#22336#65306
end
object SB_about: TSpeedButton
Left = 384
Top = 27
Width = 73
Height = 54
Cursor = crHandPoint
Caption = #20851#20110'...[&A]'
Flat = True
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
888888888880088888888888880B308888888888880B30888888888888800888
88888888880B308888888888880B308888888888880B308888888888880BB308
888888880080BB3088888880B3080BB308888880B30880B308888880BB300BB3
088888880BBBBB30888888888000000888888888888888888888}
Layout = blGlyphTop
OnClick = SB_aboutClick
end
object e_allname: TEdit
Left = 88
Top = 32
Width = 281
Height = 21
TabOrder = 0
OnChange = e_allnameChange
OnKeyDown = e_allnameKeyDown
end
object e_name: TEdit
Left = 88
Top = 64
Width = 281
Height = 21
TabOrder = 1
end
object E_tel: TEdit
Left = 88
Top = 104
Width = 281
Height = 21
TabOrder = 2
end
object E_address: TEdit
Left = 88
Top = 144
Width = 281
Height = 21
TabOrder = 3
end
end
object GroupBox2: TGroupBox
Left = 1
Top = 177
Width = 477
Height = 91
Align = alClient
Caption = #31995#32479#25968#25454#24211
TabOrder = 1
object SB_selectpath: TSpeedButton
Left = 368
Top = 17
Width = 23
Height = 19
Flat = True
Glyph.Data = {
9E020000424D9E020000000000003600000028000000120000000B0000000100
18000000000068020000C40E0000C40E00000000000000000000C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000000000
0000000000C0C0C00000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000000000
0000000000000000000000C0C0C000000000000000000000FFFF000000C0C0C0
0000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000000000FFFFFFFFFF00FFFFFFFFFF
00FFFF000000000000FFFF00000000000000000000C0C0C00000C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0000000000000000000FFFFFF00FFFFFFFFFF00FFFF0000
00FFFF00000000000000000000C0C0C00000C0C0C0C0C0C0C0C0C0C0C0C00000
00FFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF000000FFFF0000000000
0000000000C0C0C00000C0C0C0C0C0C000000000000000000000000000000000
0000FFFFFF00FFFFFFFFFF00FFFF000000FFFF00000000000000000000C0C0C0
0000C0C0C000000000FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF
00FFFFFFFFFF000000FFFF00000000000000000000C0C0C00000C0C0C0C0C0C0
000000000000000000000000000000000000000000000000FFFFFF00FFFF0000
00FFFF00000000000000000000C0C0C00000C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C000000000FFFFFFFFFF00FFFF00000000000000000000000000
0000000000C0C0C00000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0000000000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
0000}
OnClick = SB_selectpathClick
end
object Label9: TLabel
Left = 13
Top = 20
Width = 72
Height = 13
Caption = #25968#25454#24211#30446#24405#65306
end
object L_days: TLabel
Left = 262
Top = 52
Width = 72
Height = 13
Caption = #33258#21160#20221#22825#25968#65306
Enabled = False
end
object LE_datapath: TEdit
Left = 88
Top = 16
Width = 273
Height = 21
TabOrder = 0
Text = #12304#31995#32479#40664#35748#12305
end
object RB_user: TRadioButton
Left = 24
Top = 48
Width = 81
Height = 17
Caption = #25163#24037#22791#20221
Checked = True
TabOrder = 1
TabStop = True
end
object RB_auto: TRadioButton
Left = 104
Top = 48
Width = 129
Height = 17
Caption = #31995#32479#20851#38381#26102#33258#21160#22791#20221
TabOrder = 2
end
object e_backupdays: TEdit
Left = 336
Top = 48
Width = 49
Height = 21
TabOrder = 3
Text = '10'
end
end
object GroupBox3: TGroupBox
Left = 1
Top = 268
Width = 477
Height = 57
Align = alBottom
TabOrder = 2
object SB_CLOSE: TSpeedButton
Left = 309
Top = 24
Width = 107
Height = 26
Cursor = crHandPoint
Caption = #36864#20986#31995#32479#35774#32622
Flat = True
Glyph.Data = {
EE000000424DEE000000000000007600000028000000100000000F0000000100
0400000000007800000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00F8F8F8F8F8F8
F8F88F8F0F8F8F8F8F8FF8F00800F8F8F8F88F0E0F8F0F8F8F8F000E00000000
F8F880EE07770F8F8F8FF0EE077708F8F8F880EE07770F8F0F8FF0EE077708F0
08F880EE07770F00000FF0EE077708F008F880EE07770F8F0F8FF000777708F8
F8F8800777770F8F8F8FF000000008F8F8F8}
OnClick = SB_CLOSEClick
end
object SB_save: TSpeedButton
Left = 202
Top = 24
Width = 107
Height = 26
Cursor = crHandPoint
Caption = #20445#23384#31995#32479#35774#32622
Enabled = False
Flat = True
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888880000000000000880330000008803088033000000880308803300000088
0308803300000000030880333333333333088033000000003308803088888888
0308803088888888030880308888888803088030888888880308803088888888
0008803088888888080880000000000000088888888888888888}
OnClick = SB_saveClick
end
object SB_stop: TSpeedButton
Left = 10
Top = 24
Width = 127
Height = 26
Caption = #32456#27490#36816#34892#24182#36864#20986#31995#32479
Flat = True
Visible = False
OnClick = SB_stopClick
end
object Bevel_BUTTON: TBevel
Left = 11
Top = 16
Width = 415
Height = 2
end
end
end
end
