home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Logiciels PC 22
/
LogicielsPC_22.iso
/
Accuses
/
Maj
/
Amscmd
/
AmsCmd.exe
/
0
/
RCDATA
/
TFICHFOUR
/
TFICHFOUR.txt
Wrap
Text File
|
2001-06-27
|
8KB
|
289 lines
object FichFour: TFichFour
Left = 142
Top = 102
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = 'Gestion des fournisseurs'
ClientHeight = 392
ClientWidth = 536
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
Scaled = False
OnActivate = FormActivate
OnCreate = FormCreate
OnKeyDown = FormKeyDown
PixelsPerInch = 120
TextHeight = 16
object Bevel2: TBevel
Left = 344
Top = 40
Width = 137
Height = 145
end
object Label1: TLabel
Left = 8
Top = 40
Width = 129
Height = 17
AutoSize = False
Caption = 'Code fournisseur'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 352
Top = 48
Width = 78
Height = 20
Caption = 'Chercher'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 352
Top = 80
Width = 118
Height = 16
Caption = 'Code fournisseur'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 536
Height = 33
Align = alTop
TabOrder = 3
object SpeedButton1: TSpeedButton
Left = 15
Top = 4
Width = 25
Height = 25
Hint = 'Pr�c�dent'
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333FF3333333333333003333333333333F77F33333333333009033
333333333F7737F333333333009990333333333F773337FFFFFF330099999000
00003F773333377777770099999999999990773FF33333FFFFF7330099999000
000033773FF33777777733330099903333333333773FF7F33333333333009033
33333333337737F3333333333333003333333333333377333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 40
Top = 4
Width = 25
Height = 25
Hint = 'Suivant'
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333FF3333333333333003333
3333333333773FF3333333333309003333333333337F773FF333333333099900
33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
33333333337F3F77333333333309003333333333337F77333333333333003333
3333333333773333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
OnClick = SpeedButton2Click
end
object SpeedButton3: TSpeedButton
Left = 96
Top = 4
Width = 25
Height = 25
Hint = 'Ajouter'
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
00333377737FFFFF773333303300000003333337337777777333}
NumGlyphs = 2
OnClick = SpeedButton3Click
end
object SpeedButton4: TSpeedButton
Left = 121
Top = 4
Width = 25
Height = 25
Hint = 'Supprimer'
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550
305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000
005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0
B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000
B0557777FF577777F7F500000E055550805577777F7555575755500000555555
05555777775555557F5555000555555505555577755555557555}
NumGlyphs = 2
OnClick = SpeedButton4Click
end
object Button1: TButton
Left = 447
Top = 4
Width = 75
Height = 25
Caption = 'Fermer'
TabOrder = 0
OnClick = Button1Click
end
end
object Panel2: TPanel
Left = 8
Top = 65
Width = 302
Height = 144
Caption = 'Panel2'
TabOrder = 1
object Bevel1: TBevel
Left = 1
Top = 1
Width = 300
Height = 32
Align = alTop
end
object Label2: TLabel
Left = 11
Top = 10
Width = 278
Height = 16
Alignment = taCenter
AutoSize = False
Caption = 'Coordonn�es du fournisseur'
end
object Edit2: TEdit
Left = 3
Top = 35
Width = 294
Height = 24
TabOrder = 0
OnKeyDown = FormKeyDown
OnKeyPress = Edit2KeyPress
end
object Edit3: TEdit
Left = 3
Top = 60
Width = 294
Height = 24
TabOrder = 1
OnKeyDown = FormKeyDown
OnKeyPress = Edit2KeyPress
end
object Edit4: TEdit
Left = 3
Top = 86
Width = 294
Height = 24
TabOrder = 2
OnKeyDown = FormKeyDown
OnKeyPress = Edit2KeyPress
end
object Edit5: TEdit
Left = 3
Top = 112
Width = 294
Height = 24
TabOrder = 3
OnKeyDown = FormKeyDown
OnKeyPress = Edit2KeyPress
end
end
object Edit1: TEdit
Left = 142
Top = 38
Width = 96
Height = 24
TabStop = False
ReadOnly = True
TabOrder = 0
OnKeyDown = FormKeyDown
OnKeyPress = Edit2KeyPress
end
object Panel3: TPanel
Left = 0
Top = 216
Width = 536
Height = 176
Align = alBottom
TabOrder = 2
object StringGrid1: TStringGrid
Left = 1
Top = 1
Width = 534
Height = 174
Align = alClient
DefaultColWidth = 100
RowCount = 64
FixedRows = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSelect]
TabOrder = 0
OnClick = StringGrid1Click
end
end
object Edit6: TEdit
Left = 360
Top = 104
Width = 97
Height = 24
TabStop = False
MaxLength = 5
TabOrder = 4
OnKeyPress = Edit6KeyPress
end
object Button2: TButton
Left = 360
Top = 144
Width = 75
Height = 25
Caption = 'Chercher'
TabOrder = 5
TabStop = False
OnClick = Button2Click
end
end