318 lines
7.2 KiB
Plaintext
318 lines
7.2 KiB
Plaintext
object Form1: TForm1
|
|
Left = 191
|
|
Top = 117
|
|
Width = 783
|
|
Height = 540
|
|
Caption = 'Form1'
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Splitter1: TSplitter
|
|
Left = 0
|
|
Top = 265
|
|
Width = 775
|
|
Height = 3
|
|
Cursor = crVSplit
|
|
Align = alTop
|
|
end
|
|
object DBGrid1: TDBGrid
|
|
Left = 0
|
|
Top = 0
|
|
Width = 775
|
|
Height = 265
|
|
Align = alTop
|
|
DataSource = DataSource1
|
|
TabOrder = 0
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -11
|
|
TitleFont.Name = 'MS Sans Serif'
|
|
TitleFont.Style = []
|
|
end
|
|
object Button1: TButton
|
|
Left = 656
|
|
Top = 280
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Button1'
|
|
TabOrder = 1
|
|
OnClick = Button1Click
|
|
end
|
|
object DBGrid2: TDBGrid
|
|
Left = 8
|
|
Top = 272
|
|
Width = 641
|
|
Height = 225
|
|
DataSource = DataSource2
|
|
TabOrder = 2
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -11
|
|
TitleFont.Name = 'MS Sans Serif'
|
|
TitleFont.Style = []
|
|
end
|
|
object Button2: TButton
|
|
Left = 656
|
|
Top = 312
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Button2'
|
|
TabOrder = 3
|
|
OnClick = Button2Click
|
|
end
|
|
object ADOConnection1: TADOConnection
|
|
Connected = True
|
|
ConnectionString =
|
|
'Provider=MSDASQL.1;Password=nuevo;Persist Security Info=True;Use' +
|
|
'r ID=jd;Data Source=sample-MySQL;Mode=Read|Write;Connect Timeout' +
|
|
'=15;Extended Properties="DSN=sample-MySQL;DATABASE=test;SERVER=i' +
|
|
'nfdj.com;UID=jd;PWD=nuevo;PORT=3306;OPTION=0;STMT=;";Locale Iden' +
|
|
'tifier=3082'
|
|
LoginPrompt = False
|
|
Mode = cmReadWrite
|
|
Left = 520
|
|
Top = 16
|
|
end
|
|
object DataSource1: TDataSource
|
|
AutoEdit = False
|
|
DataSet = ADOTable1
|
|
Left = 520
|
|
Top = 48
|
|
end
|
|
object ADOTable1: TADOTable
|
|
Connection = ADOConnection1
|
|
CursorType = ctStatic
|
|
OnRecordChangeComplete = ADOTable1RecordChangeComplete
|
|
TableName = 'pet'
|
|
Left = 552
|
|
Top = 80
|
|
object ADOTable1name: TStringField
|
|
FieldName = 'name'
|
|
Size = 18
|
|
end
|
|
object ADOTable1owner: TStringField
|
|
FieldName = 'owner'
|
|
Size = 16
|
|
end
|
|
object ADOTable1species: TStringField
|
|
FieldName = 'species'
|
|
Size = 12
|
|
end
|
|
object ADOTable1sex: TStringField
|
|
FieldName = 'sex'
|
|
FixedChar = True
|
|
Size = 1
|
|
end
|
|
object ADOTable1birth: TDateField
|
|
FieldName = 'birth'
|
|
end
|
|
object ADOTable1death: TDateField
|
|
FieldName = 'death'
|
|
end
|
|
object ADOTable1id: TAutoIncField
|
|
AutoGenerateValue = arAutoInc
|
|
FieldName = 'id'
|
|
end
|
|
end
|
|
object DataSource2: TDataSource
|
|
DataSet = mySQLTable1
|
|
Left = 112
|
|
Top = 440
|
|
end
|
|
object Table1: TTable
|
|
AutoRefresh = True
|
|
DatabaseName = 'SINPASWORD'
|
|
TableName = 'pet'
|
|
Left = 144
|
|
Top = 416
|
|
end
|
|
object Database1: TDatabase
|
|
AliasName = 'sample-MySQL'
|
|
DatabaseName = 'SINPASWORD'
|
|
LoginPrompt = False
|
|
Params.Strings = (
|
|
'DATABASE NAME='
|
|
'USER NAME=jd'
|
|
'ODBC DSN=sample-MySQL'
|
|
'OPEN MODE=READ/WRITE'
|
|
'BATCH COUNT=200'
|
|
'LANGDRIVER='
|
|
'MAX ROWS=-1'
|
|
'SCHEMA CACHE DIR='
|
|
'SCHEMA CACHE SIZE=8'
|
|
'SCHEMA CACHE TIME=-1'
|
|
'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
|
|
'SQLQRYMODE='
|
|
'ENABLE SCHEMA CACHE=FALSE'
|
|
'ENABLE BCD=FALSE'
|
|
'ROWSET SIZE=20'
|
|
'BLOBS TO CACHE=64'
|
|
'BLOB SIZE=32'
|
|
'PASSWORD=nuevo')
|
|
SessionName = 'Default'
|
|
Left = 296
|
|
Top = 440
|
|
end
|
|
object Query1: TQuery
|
|
AutoRefresh = True
|
|
DatabaseName = 'SINPASWORD'
|
|
RequestLive = True
|
|
SQL.Strings = (
|
|
'select * from pet'
|
|
'order by name')
|
|
UpdateObject = UpdateSQL1
|
|
Left = 664
|
|
Top = 384
|
|
object Query1name: TStringField
|
|
FieldName = 'name'
|
|
Origin = 'SINPASWORD.pet.name'
|
|
end
|
|
object Query1owner: TStringField
|
|
FieldName = 'owner'
|
|
Origin = 'SINPASWORD.pet.owner'
|
|
end
|
|
object Query1species: TStringField
|
|
FieldName = 'species'
|
|
Origin = 'SINPASWORD.pet.species'
|
|
end
|
|
object Query1sex: TStringField
|
|
FieldName = 'sex'
|
|
Origin = 'SINPASWORD.pet.sex'
|
|
FixedChar = True
|
|
Size = 1
|
|
end
|
|
object Query1birth: TDateField
|
|
FieldName = 'birth'
|
|
Origin = 'SINPASWORD.pet.birth'
|
|
end
|
|
object Query1death: TDateField
|
|
FieldName = 'death'
|
|
Origin = 'SINPASWORD.pet.death'
|
|
end
|
|
object Query1id: TIntegerField
|
|
AutoGenerateValue = arAutoInc
|
|
FieldName = 'id'
|
|
Origin = 'SINPASWORD.pet.id'
|
|
end
|
|
end
|
|
object UpdateSQL1: TUpdateSQL
|
|
ModifySQL.Strings = (
|
|
'update pet'
|
|
'set'
|
|
' name = :name,'
|
|
' owner = :owner,'
|
|
' species = :species,'
|
|
' sex = :sex,'
|
|
' birth = :birth,'
|
|
' death = :death,'
|
|
' id = :id'
|
|
'where'
|
|
' id = :OLD_id')
|
|
InsertSQL.Strings = (
|
|
'insert into pet'
|
|
' (name, owner, species, sex, birth, death, id)'
|
|
'values'
|
|
' (:name, :owner, :species, :sex, :birth, :death, :id)')
|
|
DeleteSQL.Strings = (
|
|
'delete from pet'
|
|
'where'
|
|
' id = :OLD_id')
|
|
Left = 696
|
|
Top = 384
|
|
end
|
|
object ADOQuery1: TADOQuery
|
|
Active = True
|
|
Connection = ADOConnection1
|
|
CursorType = ctStatic
|
|
Parameters = <>
|
|
SQL.Strings = (
|
|
'select * from pet')
|
|
Left = 584
|
|
Top = 80
|
|
object ADOQuery1id: TAutoIncField
|
|
AutoGenerateValue = arAutoInc
|
|
FieldName = 'id'
|
|
end
|
|
object ADOQuery1name: TStringField
|
|
FieldName = 'name'
|
|
Size = 18
|
|
end
|
|
object ADOQuery1owner: TStringField
|
|
FieldName = 'owner'
|
|
Size = 16
|
|
end
|
|
object ADOQuery1species: TStringField
|
|
FieldName = 'species'
|
|
Size = 12
|
|
end
|
|
object ADOQuery1sex: TStringField
|
|
FieldName = 'sex'
|
|
FixedChar = True
|
|
Size = 1
|
|
end
|
|
object ADOQuery1birth: TDateField
|
|
FieldName = 'birth'
|
|
end
|
|
object ADOQuery1death: TDateField
|
|
FieldName = 'death'
|
|
end
|
|
end
|
|
object mySQLDatabase1: TmySQLDatabase
|
|
Connected = True
|
|
DatabaseName = 'test'
|
|
UserName = 'jd'
|
|
UserPassword = 'nuevo'
|
|
Host = 'infdj.com'
|
|
ConnectOptions = []
|
|
Params.Strings = (
|
|
'Port=3306'
|
|
'DatabaseName=test'
|
|
'UID=jd'
|
|
'PWD=nuevo'
|
|
'Host=infdj.com')
|
|
Left = 688
|
|
Top = 456
|
|
end
|
|
object mySQLTable1: TmySQLTable
|
|
AutoRefresh = True
|
|
Database = mySQLDatabase1
|
|
Active = True
|
|
TableName = 'pet'
|
|
Left = 688
|
|
Top = 424
|
|
object mySQLTable1name: TStringField
|
|
FieldName = 'name'
|
|
Size = 21
|
|
end
|
|
object mySQLTable1owner: TStringField
|
|
FieldName = 'owner'
|
|
Size = 21
|
|
end
|
|
object mySQLTable1species: TStringField
|
|
FieldName = 'species'
|
|
Size = 21
|
|
end
|
|
object mySQLTable1sex: TStringField
|
|
FieldName = 'sex'
|
|
Size = 2
|
|
end
|
|
object mySQLTable1birth: TDateField
|
|
FieldName = 'birth'
|
|
end
|
|
object mySQLTable1death: TDateField
|
|
FieldName = 'death'
|
|
end
|
|
object mySQLTable1id: TLargeintField
|
|
AutoGenerateValue = arAutoInc
|
|
FieldName = 'id'
|
|
Required = True
|
|
end
|
|
end
|
|
end
|