home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 October / Chip_2002-10_cd2.bin / program / Program.cab / Mill6.exe1 / 0 / RCDATA / TFORMUSERDICTIONARY / TFORMUSERDICTIONARY.txt
Encoding:
Text File  |  2002-09-03  |  2.8 KB  |  125 lines
  1. object FormUserDictionary: TFormUserDictionary
  2.   Left = 323
  3.   Top = 233
  4.   BorderStyle = bsDialog
  5.   Caption = 'User Dictionary'
  6.   ClientHeight = 558
  7.   ClientWidth = 847
  8.   Color = clBtnFace
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -14
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   OldCreateOrder = False
  15.   Position = poScreenCenter
  16.   PixelsPerInch = 120
  17.   TextHeight = 16
  18.   object ButtonNew: TButton
  19.     Left = 10
  20.     Top = 5
  21.     Width = 92
  22.     Height = 31
  23.     Caption = 'New'
  24.     TabOrder = 0
  25.     OnClick = ButtonNewClick
  26.   end
  27.   object ButtonDelete: TButton
  28.     Left = 103
  29.     Top = 5
  30.     Width = 93
  31.     Height = 31
  32.     Caption = 'Delete'
  33.     TabOrder = 1
  34.     OnClick = ButtonDeleteClick
  35.   end
  36.   object ButtonEdit: TButton
  37.     Left = 197
  38.     Top = 5
  39.     Width = 92
  40.     Height = 31
  41.     Caption = 'Edit'
  42.     TabOrder = 2
  43.     OnClick = ButtonEditClick
  44.   end
  45.   object DBGrid1: TDBGrid
  46.     Left = 10
  47.     Top = 39
  48.     Width = 828
  49.     Height = 514
  50.     DataSource = DataSource1
  51.     ReadOnly = True
  52.     TabOrder = 3
  53.     TitleFont.Charset = DEFAULT_CHARSET
  54.     TitleFont.Color = clWindowText
  55.     TitleFont.Height = -14
  56.     TitleFont.Name = 'MS Sans Serif'
  57.     TitleFont.Style = []
  58.   end
  59.   object ADODataSet1: TADODataSet
  60.     CommandType = ctText
  61.     CursorLocation = clServer
  62.     DatabaseConnect = 
  63.       'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db2002.mdb;Persist ' +
  64.       'Security Info=False'
  65.     DatabaseProvider = 'Microsoft.Jet.OLEDB.4.0'
  66.     Options = [opWriteModifiedFieldsOnly]
  67.     Params = <>
  68.     SQL.Strings = (
  69.       'SELECT * FROM TranslationRecord WHERE Profession = 0')
  70.     UseADOVersion = avADO21
  71.     Left = 272
  72.     Top = 8
  73.     object ADODataSet1ID: TIntegerField
  74.       FieldName = 'ID'
  75.       Visible = False
  76.     end
  77.     object ADODataSet1T1Term: TStringField
  78.       DisplayLabel = 'English'
  79.       DisplayWidth = 36
  80.       FieldName = 'T1.Term'
  81.       Size = 255
  82.     end
  83.     object ADODataSet1T2Term: TStringField
  84.       DisplayLabel = 'Czech'
  85.       DisplayWidth = 36
  86.       FieldName = 'T2.Term'
  87.       Size = 255
  88.     end
  89.     object ADODataSet1Profession: TSmallintField
  90.       FieldName = 'Profession'
  91.       Visible = False
  92.     end
  93.     object ADODataSet1Comment: TStringField
  94.       DisplayWidth = 15
  95.       FieldName = 'Comment'
  96.       Size = 50
  97.     end
  98.     object ADODataSet1Article1: TStringField
  99.       DisplayWidth = 7
  100.       FieldName = 'Article1'
  101.       Size = 2
  102.     end
  103.     object ADODataSet1Article2: TStringField
  104.       DisplayWidth = 7
  105.       FieldName = 'Article2'
  106.       Size = 2
  107.     end
  108.     object ADODataSet1Key1: TStringField
  109.       FieldName = 'Key1'
  110.       Visible = False
  111.       Size = 50
  112.     end
  113.     object ADODataSet1Key2: TStringField
  114.       FieldName = 'Key2'
  115.       Visible = False
  116.       Size = 50
  117.     end
  118.   end
  119.   object DataSource1: TDataSource
  120.     DataSet = ADODataSet1
  121.     Left = 300
  122.     Top = 8
  123.   end
  124. end
  125.