home *** CD-ROM | disk | FTP | other *** search
/ PC World 2004 July & August / PCWorld_2004-07-08_cd.bin / akce / millenium / control.cab / control.exe / 0 / RCDATA / TFORMUSER / TFORMUSER.txt
Text File  |  2004-03-03  |  6KB  |  241 lines
  1. object FormUser: TFormUser
  2.   Left = 488
  3.   Top = 575
  4.   Width = 681
  5.   Height = 351
  6.   Caption = 'U'#382'ivatelsk'#253' slovn'#237'k'
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -13
  11.   Font.Name = 'Tahoma'
  12.   Font.Style = []
  13.   OldCreateOrder = False
  14.   Scaled = False
  15.   OnActivate = FormActivate
  16.   OnCreate = FormCreate
  17.   OnResize = FormResize
  18.   PixelsPerInch = 120
  19.   TextHeight = 16
  20.   object UserTable: TTntDBGrid
  21.     Left = 0
  22.     Top = 34
  23.     Width = 673
  24.     Height = 256
  25.     HelpContext = 100
  26.     Align = alClient
  27.     DataSource = DataSource1
  28.     Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
  29.     ReadOnly = True
  30.     TabOrder = 0
  31.     TitleFont.Charset = DEFAULT_CHARSET
  32.     TitleFont.Color = clWindowText
  33.     TitleFont.Height = -13
  34.     TitleFont.Name = 'Tahoma'
  35.     TitleFont.Style = []
  36.     OnDblClick = UserTableDblClick
  37.     Columns = <
  38.       item
  39.         Expanded = False
  40.         FieldName = 'T1.Term'
  41.         Title.Caption = 'anglicky'
  42.         Width = 272
  43.         Visible = True
  44.       end
  45.       item
  46.         Expanded = False
  47.         FieldName = 'T2.Term'
  48.         Title.Caption = #269'esky'
  49.         Title.Caption_UTF7 = '+AQ0-esky'
  50.         Width = 268
  51.         Visible = True
  52.       end
  53.       item
  54.         Expanded = False
  55.         FieldName = 'Comment'
  56.         Title.Caption = 'pozn'#225'mka'
  57.         Title.Caption_UTF7 = 'pozn+AOE-mka'
  58.         Width = 110
  59.         Visible = True
  60.       end>
  61.   end
  62.   object TBDock1: TTBDock
  63.     Left = 0
  64.     Top = 0
  65.     Width = 673
  66.     Height = 34
  67.     object TBToolbar1: TTBToolbar
  68.       Left = 0
  69.       Top = 0
  70.       Caption = 'TBToolbar1'
  71.       DockableTo = [dpTop]
  72.       DockMode = dmCannotFloat
  73.       DragHandleStyle = dhNone
  74.       FullSize = True
  75.       Images = FormDictionary.ToolbarImages24
  76.       ParentShowHint = False
  77.       ShowHint = True
  78.       TabOrder = 0
  79.       DockTextAlign = taLeftJustify
  80.       object TBItem3: TTBItem
  81.         Action = FormDictionary.UserImport
  82.       end
  83.       object TBItem2: TTBItem
  84.         Action = FormDictionary.UserExport
  85.       end
  86.       object TBSeparatorItem2: TTBSeparatorItem
  87.       end
  88.       object TBItem5: TTBItem
  89.         Action = ShowHelp
  90.       end
  91.       object TBSeparatorItem1: TTBSeparatorItem
  92.       end
  93.       object EditTermbButon: TTBItem
  94.         Action = EditRecord
  95.       end
  96.       object TBItem4: TTBItem
  97.         Action = AddNewRecord
  98.       end
  99.       object DeleteTermButton: TTBItem
  100.         Action = DeleteRecord
  101.       end
  102.       object TBItem6: TTBItem
  103.         Action = DeleteAll
  104.       end
  105.       object TBSeparatorItem3: TTBSeparatorItem
  106.       end
  107.       object TBItem9: TTBItem
  108.         Action = RefreshDataset
  109.       end
  110.       object SortByMenu: TTBSubmenuItem
  111.         Caption = 'Se'#345'adit z'#225'znamy'
  112.         DropdownCombo = True
  113.         Hint = 'Se'#345'adit z'#225'znamy'
  114.         ImageIndex = 61
  115.         object SortByW1Item: TTBItem
  116.           Action = SortByW1
  117.           Images = FormDictionary.ToolbarImages16
  118.         end
  119.         object SortByW2Item: TTBItem
  120.           Action = SortByW2
  121.           Images = FormDictionary.ToolbarImages16
  122.         end
  123.       end
  124.     end
  125.   end
  126.   object DBNavigator: TDBNavigator
  127.     Left = 344
  128.     Top = 8
  129.     Width = 200
  130.     Height = 25
  131.     DataSource = DataSource1
  132.     ConfirmDelete = False
  133.     TabOrder = 2
  134.     Visible = False
  135.   end
  136.   object UserStatusBar: TabfStatusBar
  137.     Left = 0
  138.     Top = 290
  139.     Width = 673
  140.     Height = 28
  141.     Panels = <
  142.       item
  143.         LockKeyStyle.Caption = 'NUM'
  144.         Name = 'InfoPanel'
  145.         Progress = 0
  146.         ProgressBarStyle.Caption = '%d%%'
  147.         Width = 140
  148.       end>
  149.     SimplePanel = False
  150.   end
  151.   object DataSource1: TDataSource
  152.     DataSet = UserADODataSet
  153.     Left = 608
  154.   end
  155.   object UserADODataSet: TADODataSet
  156.     CursorType = ctStatic
  157.     AfterDelete = UserADODataSetAfterDelete
  158.     AfterScroll = UserADODataSetAfterScroll
  159.     AfterRefresh = UserADODataSetAfterDelete
  160.     CommandText = 
  161.       'SELECT T.ID, T1.Term, T2.Term, T.Reference, T.Profession, T.Arti' +
  162.       'cle1, T.Article2, T.Key1, T.Key2, T.Comment, T.Modified'#13#10'FROM [T' +
  163.       'ranslation] AS T, Term1 AS T1, Term2 AS T2'#13#10'WHERE (((T.Modified)' +
  164.       '=true) AND ((T1.ID)=[T].[Term1]) AND ((T2.ID)=[T].[Term2]));'
  165.     ParamCheck = False
  166.     Parameters = <>
  167.     Left = 584
  168.   end
  169.   object ActionList1: TActionList
  170.     Images = FormDictionary.ToolbarImages24
  171.     Left = 632
  172.     object AddNewRecord: TAction
  173.       Caption = 'Nov'#253
  174.       Hint = 'P'#345'idat nov'#253' z'#225'znam'
  175.       ImageIndex = 41
  176.       ShortCut = 16466
  177.       OnExecute = AddNewRecordExecute
  178.     end
  179.     object DeleteRecord: TAction
  180.       Caption = 'Odstranit'
  181.       Enabled = False
  182.       Hint = 'Odstranit vybran'#253' z'#225'znam'
  183.       ImageIndex = 40
  184.       OnExecute = DeleteRecordExecute
  185.     end
  186.     object EditRecord: TAction
  187.       Caption = 'Upravit'
  188.       Enabled = False
  189.       Hint = 'Upravit vybran'#253' z'#225'znam'
  190.       ImageIndex = 42
  191.       ShortCut = 16453
  192.       OnExecute = EditRecordExecute
  193.     end
  194.     object RefreshDataset: TAction
  195.       Caption = 'Obnovit'
  196.       Hint = 'Obnovit'
  197.       ImageIndex = 59
  198.       ShortCut = 116
  199.       OnExecute = RefreshDatasetExecute
  200.     end
  201.     object ShowHelp: TAction
  202.       Caption = 'N'#225'pov'#283'da'
  203.       Hint = 'N'#225'pov'#283'da'
  204.       ImageIndex = 33
  205.       OnExecute = ShowHelpExecute
  206.     end
  207.     object DeleteAll: TAction
  208.       Caption = 'Odstranit v'#353'e'
  209.       Enabled = False
  210.       Hint = 'Odstranit v'#353'echny z'#225'znamy z u'#382'ivatelsk'#233'ho slovn'#237'ku'
  211.       ImageIndex = 51
  212.       OnExecute = DeleteAllExecute
  213.     end
  214.     object SortByW1: TAction
  215.       Caption = 'Anglicky'
  216.       ImageIndex = 1
  217.       OnExecute = SortByW1Execute
  218.     end
  219.     object SortByW2: TAction
  220.       Caption = #268'esky'
  221.       ImageIndex = 0
  222.       OnExecute = SortByW2Execute
  223.     end
  224.   end
  225.   object UserDeleteAllQuery: TADOQuery
  226.     ConnectionString = 
  227.       'Provider=Microsoft.Jet.OLEDB.4.0;Password=pajapa;User ID=pavel;D' +
  228.       'ata Source=C:\Work\Delphi\Mill6\Data\PROF_AC2.dic;Persist Securi' +
  229.       'ty Info=True;Jet OLEDB:System database=c:\work\delphi\mill6\mill' +
  230.       '6.inf;Jet OLEDB:Database Password=*tylpyhea*'
  231.     DataSource = DataSource1
  232.     ParamCheck = False
  233.     Parameters = <>
  234.     SQL.Strings = (
  235.       'DELETE Translation.*'
  236.       'FROM [Translation]'
  237.       'WHERE (((Translation.Profession)=0));')
  238.     Left = 552
  239.   end
  240. end
  241.