home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / CHIPCD_3_98.iso / software / testsoft / ssekret / _setup.1 / Sekret.exe / 0 / RCDATA / TW_LSPRAW / TW_LSPRAW.txt
Text File  |  1997-11-04  |  3KB  |  122 lines
  1. object W_LSpraw: TW_LSpraw
  2.   Left = 207
  3.   Top = 107
  4.   HelpContext = 9
  5.   ActiveControl = DBGrid1
  6.   BorderIcons = [biSystemMenu]
  7.   BorderStyle = bsDialog
  8.   Caption = 'Lista spraw'
  9.   ClientHeight = 211
  10.   ClientWidth = 484
  11.   Font.Charset = DEFAULT_CHARSET
  12.   Font.Color = clWindowText
  13.   Font.Height = -13
  14.   Font.Name = 'System'
  15.   Font.Style = []
  16.   Position = poScreenCenter
  17.   PixelsPerInch = 96
  18.   TextHeight = 16
  19.   object Label1: TLabel
  20.     Left = 290
  21.     Top = 6
  22.     Width = 73
  23.     Height = 13
  24.     Caption = 'Opis sprawy:'
  25.     Font.Charset = DEFAULT_CHARSET
  26.     Font.Color = clWindowText
  27.     Font.Height = -11
  28.     Font.Name = 'MS Sans Serif'
  29.     Font.Style = [fsBold]
  30.     ParentFont = False
  31.   end
  32.   object BitBtn1: TBitBtn
  33.     Left = 292
  34.     Top = 172
  35.     Width = 89
  36.     Height = 33
  37.     Caption = '&OK'
  38.     TabOrder = 1
  39.     Kind = bkOK
  40.   end
  41.   object BitBtn2: TBitBtn
  42.     Left = 388
  43.     Top = 172
  44.     Width = 91
  45.     Height = 33
  46.     Caption = 'Anuluj'
  47.     TabOrder = 2
  48.     Kind = bkCancel
  49.   end
  50.   object btnCreateNew: TButton
  51.     Left = 8
  52.     Top = 173
  53.     Width = 278
  54.     Height = 32
  55.     Caption = '&Utw∩┐╜rz now∩┐╜ spraw∩┐╜'
  56.     TabOrder = 0
  57.     OnClick = btnCreateNewClick
  58.   end
  59.   object DBMemo1: TDBMemo
  60.     Left = 292
  61.     Top = 25
  62.     Width = 185
  63.     Height = 142
  64.     Color = clBtnFace
  65.     DataField = 'SP_OPI'
  66.     DataSource = dsqSprawy
  67.     Enabled = False
  68.     Font.Charset = DEFAULT_CHARSET
  69.     Font.Color = clWindowText
  70.     Font.Height = -11
  71.     Font.Name = 'MS Sans Serif'
  72.     Font.Style = []
  73.     ParentFont = False
  74.     TabOrder = 3
  75.   end
  76.   object DBGrid1: TCV_DBGrid
  77.     Left = 8
  78.     Top = 0
  79.     Width = 273
  80.     Height = 161
  81.     DataSource = dsqSprawy
  82.     Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
  83.     ParentShowHint = False
  84.     ReadOnly = True
  85.     ShowHint = True
  86.     TabOrder = 4
  87.     TitleFont.Charset = DEFAULT_CHARSET
  88.     TitleFont.Color = clWindowText
  89.     TitleFont.Height = -13
  90.     TitleFont.Name = 'System'
  91.     TitleFont.Style = []
  92.     SearchName = 'SP_NAZ'
  93.     SearchCaseSens = False
  94.     Columns = <
  95.       item
  96.         FieldName = 'SP_NAZ'
  97.         Title.Caption = 'Nazwa Sprawy'
  98.       end>
  99.   end
  100.   object qSprawy: TQuery
  101.     BeforeOpen = qSprawyBeforeOpen
  102.     AfterOpen = qSprawyAfterOpen
  103.     DatabaseName = 'c:\!\sekret'
  104.     SQL.Strings = (
  105.       'select '
  106.       #9'SP_NAZ, ID, SP_OPI'
  107.       'from '
  108.       #9'SPRAWY'
  109.       'where '
  110.       #9'SP_ZAMK =  "False"'
  111.       'order by '
  112.       #9'SP_NAZ')
  113.     Left = 18
  114.     Top = 50
  115.   end
  116.   object dsqSprawy: TDataSource
  117.     DataSet = qSprawy
  118.     Left = 100
  119.     Top = 54
  120.   end
  121. end
  122.