home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 March / Chip_2002-03_cd1.bin / zkuste / delphi / kompon / d5 / ADO.ZIP / demos / CommandDemo / frmMain.dfm < prev    next >
Text File  |  2001-12-23  |  3KB  |  116 lines
  1. object fmMain: TfmMain
  2.   Left = 255
  3.   Top = 198
  4.   Width = 494
  5.   Height = 275
  6.   Caption = 'CommandDemo'
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OldCreateOrder = False
  14.   OnCreate = FormCreate
  15.   PixelsPerInch = 96
  16.   TextHeight = 13
  17.   object ToolBar1: TToolBar
  18.     Left = 0
  19.     Top = 0
  20.     Width = 486
  21.     Height = 29
  22.     ButtonHeight = 21
  23.     ButtonWidth = 66
  24.     Caption = 'ToolBar1'
  25.     EdgeBorders = [ebRight, ebBottom]
  26.     Flat = True
  27.     ShowCaptions = True
  28.     TabOrder = 0
  29.     object btnUpdate: TToolButton
  30.       Left = 0
  31.       Top = 0
  32.       Caption = 'Update Cost'
  33.       ImageIndex = 0
  34.       OnClick = btnUpdateClick
  35.     end
  36.   end
  37.   object ListView: TListView
  38.     Left = 0
  39.     Top = 29
  40.     Width = 486
  41.     Height = 219
  42.     Align = alClient
  43.     Columns = <
  44.       item
  45.         Caption = 'PartNo'
  46.         Width = 70
  47.       end
  48.       item
  49.         AutoSize = True
  50.         Caption = 'Description'
  51.       end
  52.       item
  53.         Caption = 'Cost'
  54.         Width = 70
  55.       end>
  56.     RowSelect = True
  57.     SortType = stText
  58.     TabOrder = 1
  59.     ViewStyle = vsReport
  60.   end
  61.   object Conn: TConnection
  62.     AutoConnect = True
  63.     ConnectKind = ckRunningOrNew
  64.     ConnectionString = 
  65.       'Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data ' +
  66.       'Source=db.mdb;Mode=Share Deny None;Extended Properties="";Jet OL' +
  67.       'EDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Data' +
  68.       'base Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Lock' +
  69.       'ing Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global ' +
  70.       'Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB' +
  71.       ':Create System Database=False;Jet OLEDB:Encrypt Database=False;J' +
  72.       'et OLEDB:Don'#39't Copy Locale on Compact=False;Jet OLEDB:Compact Wi' +
  73.       'thout Replica Repair=False;Jet OLEDB:SFP=False'
  74.     CommandTimeout = 30
  75.     ConnectionTimeout = 15
  76.     IsolationLevel = 4096
  77.     Attributes = 0
  78.     CursorLocation = 2
  79.     Mode = 16
  80.     Provider = 'Microsoft.Jet.OLEDB.4.0'
  81.     ConnectOption = 0
  82.     Active = False
  83.     Left = 120
  84.     Top = 80
  85.   end
  86.   object rst: TRecordset
  87.     AutoConnect = False
  88.     ConnectKind = ckRunningOrNew
  89.     AbsolutePosition = -1
  90.     CacheSize = 1
  91.     CursorType = 0
  92.     LockType = 1
  93.     MaxRecords = 0
  94.     AbsolutePage = -1
  95.     PageSize = 10
  96.     CursorLocation = 2
  97.     MarshalOptions = 0
  98.     Connection = Conn
  99.     Source = 'parts'
  100.     CommandType = 0
  101.     Left = 200
  102.     Top = 80
  103.   end
  104.   object Command: TCommand
  105.     AutoConnect = False
  106.     ConnectKind = ckRunningOrNew
  107.     CommandText = 'UPDATE Parts SET Cost = Cost * UpdVal'
  108.     CommandTimeout = 30
  109.     Prepared = False
  110.     CommandType = 1
  111.     Connection = Conn
  112.     Left = 160
  113.     Top = 80
  114.   end
  115. end
  116.