258 lines
6.3 KiB
Plaintext
258 lines
6.3 KiB
Plaintext
object CsvDataSourceForm: TCsvDataSourceForm
|
|
Left = 179
|
|
Top = 121
|
|
Width = 810
|
|
Height = 638
|
|
VertScrollBar.Range = 423
|
|
HorzScrollBar.Range = 793
|
|
ActiveControl = ComboBox1
|
|
Caption = 'Comma Separated Variable File (TJvCsvDataSet) Demo'
|
|
Color = clButton
|
|
Constraints.MinHeight = 480
|
|
Constraints.MinWidth = 800
|
|
Font.Color = clText
|
|
Font.Height = 11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Pitch = fpVariable
|
|
Font.Style = []
|
|
Font.Weight = 40
|
|
ParentFont = False
|
|
Scaled = False
|
|
OnClose = FormClose
|
|
OnCreate = FormCreate
|
|
PixelsPerInch = 96
|
|
object Label2: TLabel
|
|
Left = 344
|
|
Top = 140
|
|
Width = 299
|
|
Height = 13
|
|
Caption = 'Date Display Format in Grid (does not affect saved CSV format):'
|
|
end
|
|
object DBNavigator1: TDBNavigator
|
|
Left = 8
|
|
Top = 136
|
|
Width = 240
|
|
Height = 25
|
|
DataSource = DataSource1
|
|
TabOrder = 0
|
|
end
|
|
object DBGrid1: TDBGrid
|
|
Left = 8
|
|
Top = 160
|
|
Width = 785
|
|
Height = 223
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
DataSource = DataSource1
|
|
TabOrder = 2
|
|
TitleFont.Color = clText
|
|
TitleFont.Height = 11
|
|
TitleFont.Name = 'MS Sans Serif'
|
|
TitleFont.Pitch = fpVariable
|
|
TitleFont.Style = []
|
|
TitleFont.Weight = 40
|
|
Columns = <
|
|
item
|
|
Expanded = False
|
|
FieldName = 'NAME'
|
|
Width = 100
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'ADDRESS'
|
|
Width = 151
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'ADDRESS2'
|
|
Width = 140
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'TELEPHONE'
|
|
Width = 140
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'AGE'
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'LASTPHONECALL'
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'PRIVATENUMBER'
|
|
Visible = True
|
|
end>
|
|
end
|
|
object Button1: TButton
|
|
Left = 8
|
|
Top = 398
|
|
Width = 265
|
|
Height = 25
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'JvCsvDataSet1.AssignToStrings(Memo1.Lines)'
|
|
TabOrder = 3
|
|
OnClick = Button1Click
|
|
end
|
|
object Button2: TButton
|
|
Left = 553
|
|
Top = 398
|
|
Width = 173
|
|
Height = 25
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Save Now. (aka Flush)'
|
|
TabOrder = 5
|
|
OnClick = Button2Click
|
|
end
|
|
object Memo1: TMemo
|
|
Left = 8
|
|
Top = 426
|
|
Width = 785
|
|
Height = 168
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
Font.Color = clText
|
|
Font.Height = 11
|
|
Font.Name = 'Courier New'
|
|
Font.Pitch = fpVariable
|
|
Font.Style = []
|
|
Font.Weight = 40
|
|
Lines.Strings = (
|
|
'<Click the VIEW button to view the results as a CSV ascii file.>')
|
|
ParentFont = False
|
|
ScrollBars = ssBoth
|
|
TabOrder = 7
|
|
end
|
|
object Button3: TButton
|
|
Left = 280
|
|
Top = 398
|
|
Width = 265
|
|
Height = 25
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'JvCsvDataSet1.AssignFromStrings(Memo1.Lines)'
|
|
TabOrder = 4
|
|
OnClick = Button3Click
|
|
end
|
|
object ComboBox1: TComboBox
|
|
Left = 648
|
|
Top = 136
|
|
Width = 145
|
|
Height = 21
|
|
ItemHeight = 15
|
|
Items.Strings = (
|
|
'yyyy-mm-dd hh:nn:ss'
|
|
'yyyy-mm-dd hh:nn:ss am/pm'
|
|
'mmm dd, yyyy hh:nn:ss am/pm'
|
|
'mm/ddd/yyyy hh:nn:ss'
|
|
'ddd mmm dd, yyyy hh:nn:ss'
|
|
'ddd mmm dd, yyyy hh:nn:ss am/pm')
|
|
TabOrder = 1
|
|
OnChange = ComboBox1Change
|
|
end
|
|
object Button4: TButton
|
|
Left = 734
|
|
Top = 398
|
|
Width = 59
|
|
Height = 25
|
|
Caption = 'Load...'
|
|
TabOrder = 6
|
|
OnClick = Button4Click
|
|
end
|
|
object Memo2: TMemo
|
|
Left = 16
|
|
Top = 8
|
|
Width = 777
|
|
Height = 121
|
|
BorderStyle = bsNone
|
|
Font.Color = clText
|
|
Font.Height = 11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Pitch = fpVariable
|
|
Font.Style = [fsBold]
|
|
Lines.Strings = (
|
|
'How to use the JvCsvDataSet: '
|
|
|
|
'(1) Drop a TJvCsvDataSource, the usual TDataSet, and your favor' +
|
|
'ite data-aware controls, and set up the usual properties. '
|
|
|
|
'(2) Set the filename, the CsvFieldDef field (click the '#39'...'#39' bu' +
|
|
'tton), then, if you want field objects, right click on the CSVDa' +
|
|
'taSet and add the '
|
|
|
|
'field objects in the usual way. This component does not rely on' +
|
|
' BDE, ADO, or any external DLL/OCX, so you can create simple dat' +
|
|
'abase '
|
|
|
|
'applications that run entirely from your EXE with no runtime req' +
|
|
'uirements (if you link the VCL runtime statically). '
|
|
''
|
|
|
|
'*** Comments or Questions? Check the Delphi Jedi VCL Support New' +
|
|
'sgroups. ***'
|
|
''
|
|
'')
|
|
ParentColor = True
|
|
ParentFont = False
|
|
TabOrder = 9
|
|
end
|
|
object DataSource1: TDataSource
|
|
DataSet = JvCsvDataSet1
|
|
Left = 56
|
|
Top = 216
|
|
end
|
|
object JvCsvDataSet1: TJvCsvDataSet
|
|
FileName = 'PhoneList.csv'
|
|
Changed = False
|
|
CsvFieldDef =
|
|
'NAME,ADDRESS,ADDRESS2,TELEPHONE,AGE:%,LASTPHONECALL:@,PRIVATENUM' +
|
|
'BER:!'
|
|
CsvUniqueKeys = False
|
|
ExtendedHeaderInfo = False
|
|
CaseInsensitive = False
|
|
AutoBackupCount = 0
|
|
StoreDefs = True
|
|
Left = 128
|
|
Top = 216
|
|
object JvCsvDataSet1NAME: TStringField
|
|
FieldName = 'NAME'
|
|
Size = 80
|
|
end
|
|
object JvCsvDataSet1ADDRESS: TStringField
|
|
FieldName = 'ADDRESS'
|
|
Size = 80
|
|
end
|
|
object JvCsvDataSet1ADDRESS2: TStringField
|
|
FieldName = 'ADDRESS2'
|
|
Size = 80
|
|
end
|
|
object JvCsvDataSet1TELEPHONE: TStringField
|
|
FieldName = 'TELEPHONE'
|
|
Size = 80
|
|
end
|
|
object JvCsvDataSet1AGE: TIntegerField
|
|
FieldName = 'AGE'
|
|
end
|
|
object JvCsvDataSet1LASTPHONECALL: TDateTimeField
|
|
FieldName = 'LASTPHONECALL'
|
|
end
|
|
object JvCsvDataSet1PRIVATENUMBER: TBooleanField
|
|
FieldName = 'PRIVATENUMBER'
|
|
end
|
|
end
|
|
object OpenDialog1: TOpenDialog
|
|
DefaultExt = 'csv'
|
|
Filter = 'CSV files (*.csv)|*.csv|all files (*.*)|*.*'
|
|
FilterIndex = 0
|
|
Height = 0
|
|
Width = 0
|
|
Left = 200
|
|
Top = 216
|
|
end
|
|
end
|