mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-01 05:43:40 +02:00
112 lines
2.2 KiB
Plaintext
112 lines
2.2 KiB
Plaintext
object Form1: TForm1
|
|
Left = 238
|
|
Height = 314
|
|
Top = 145
|
|
Width = 456
|
|
Caption = 'Form1'
|
|
ClientHeight = 314
|
|
ClientWidth = 456
|
|
OnCreate = FormCreate
|
|
LCLVersion = '2.3.0.0'
|
|
object DBGrid1: TDBGrid
|
|
Left = 43
|
|
Height = 195
|
|
Top = 97
|
|
Width = 365
|
|
Color = clWindow
|
|
Columns = <>
|
|
DataSource = DataSource1
|
|
TabOrder = 0
|
|
end
|
|
object SQLTransaction1: TSQLTransaction
|
|
Active = False
|
|
Action = caNone
|
|
Database = SybaseConnection1
|
|
Left = 208
|
|
Top = 32
|
|
end
|
|
object SQLQuery1: TSQLQuery
|
|
FieldDefs = <
|
|
item
|
|
Name = 'srvid'
|
|
DataType = ftSmallint
|
|
Precision = -1
|
|
end
|
|
item
|
|
Name = 'srvstatus'
|
|
DataType = ftSmallint
|
|
Precision = -1
|
|
end
|
|
item
|
|
Name = 'srvname'
|
|
DataType = ftFixedChar
|
|
Precision = -1
|
|
Size = 60
|
|
end
|
|
item
|
|
Name = 'srvnetname'
|
|
DataType = ftFixedChar
|
|
Precision = -1
|
|
Size = 510
|
|
end
|
|
item
|
|
Name = 'srvclass'
|
|
DataType = ftSmallint
|
|
Precision = -1
|
|
end
|
|
item
|
|
Name = 'srvsecmech'
|
|
DataType = ftFixedChar
|
|
Precision = -1
|
|
Size = 60
|
|
end
|
|
item
|
|
Name = 'srvcost'
|
|
DataType = ftSmallint
|
|
Precision = -1
|
|
end
|
|
item
|
|
Name = 'srvstatus2'
|
|
DataType = ftBCD
|
|
Precision = 10
|
|
end
|
|
item
|
|
Name = 'srvprincipal'
|
|
DataType = ftFixedChar
|
|
Precision = -1
|
|
Size = 510
|
|
end>
|
|
Database = SybaseConnection1
|
|
Transaction = SQLTransaction1
|
|
SQL.Strings = (
|
|
'select * from sysservers'
|
|
)
|
|
Params = <>
|
|
Macros = <>
|
|
Left = 280
|
|
Top = 32
|
|
end
|
|
object SybaseConnection1: TSybaseConnection
|
|
Connected = False
|
|
LoginPrompt = False
|
|
KeepConnection = False
|
|
Transaction = SQLTransaction1
|
|
UserName = 'sa'
|
|
LogEvents = []
|
|
Left = 128
|
|
end
|
|
object MSSQLConnection1: TMSSQLConnection
|
|
Connected = False
|
|
LoginPrompt = False
|
|
KeepConnection = False
|
|
LogEvents = []
|
|
Left = 128
|
|
Top = 48
|
|
end
|
|
object DataSource1: TDataSource
|
|
DataSet = SQLQuery1
|
|
Left = 372
|
|
Top = 32
|
|
end
|
|
end
|