BatchUpdatesU1.dfm
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:2k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. object Form1: TForm1
  2.   Left = 192
  3.   Top = 125
  4.   Width = 715
  5.   Height = 342
  6.   Caption = 'Batch Updates'
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -13
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OldCreateOrder = False
  14.   OnCloseQuery = FormCloseQuery
  15.   PixelsPerInch = 120
  16.   TextHeight = 16
  17.   object Panel1: TPanel
  18.     Left = 0
  19.     Top = 0
  20.     Width = 707
  21.     Height = 41
  22.     Align = alTop
  23.     BevelOuter = bvNone
  24.     TabOrder = 0
  25.     object Button1: TButton
  26.       Left = 8
  27.       Top = 8
  28.       Width = 89
  29.       Height = 25
  30.       Caption = 'Update Batch'
  31.       TabOrder = 0
  32.       OnClick = Button1Click
  33.     end
  34.     object CheckBox1: TCheckBox
  35.       Left = 112
  36.       Top = 8
  37.       Width = 97
  38.       Height = 17
  39.       Caption = 'Connected'
  40.       Checked = True
  41.       State = cbChecked
  42.       TabOrder = 1
  43.       OnClick = CheckBox1Click
  44.     end
  45.     object Button2: TButton
  46.       Left = 232
  47.       Top = 8
  48.       Width = 153
  49.       Height = 25
  50.       Caption = 'Save To Local.ADTG'
  51.       TabOrder = 2
  52.       OnClick = Button2Click
  53.     end
  54.     object Button3: TButton
  55.       Left = 400
  56.       Top = 8
  57.       Width = 145
  58.       Height = 25
  59.       Caption = 'Save to Local.XML'
  60.       TabOrder = 3
  61.       OnClick = Button3Click
  62.     end
  63.   end
  64.   object DBGrid1: TDBGrid
  65.     Left = 0
  66.     Top = 41
  67.     Width = 707
  68.     Height = 268
  69.     Align = alClient
  70.     DataSource = DataSource1
  71.     TabOrder = 1
  72.     TitleFont.Charset = DEFAULT_CHARSET
  73.     TitleFont.Color = clWindowText
  74.     TitleFont.Height = -13
  75.     TitleFont.Name = 'MS Sans Serif'
  76.     TitleFont.Style = []
  77.   end
  78.   object ADODataSet1: TADODataSet
  79.     Active = True
  80.     Connection = ADOConnection1
  81.     CursorType = ctStatic
  82.     LockType = ltBatchOptimistic
  83.     CommandText = 'SELECT * FROM CUSTOMERS'
  84.     Parameters = <>
  85.     Left = 328
  86.     Top = 48
  87.   end
  88.   object DataSource1: TDataSource
  89.     DataSet = ADODataSet1
  90.     Left = 440
  91.     Top = 48
  92.   end
  93.   object ADOConnection1: TADOConnection
  94.     Connected = True
  95.     ConnectionString = 
  96.       'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:program filesmi' +
  97.       'crosoft officeofficesamplesnorthwind.mdb;Persist Security Inf' +
  98.       'o=False'
  99.     LoginPrompt = False
  100.     Mode = cmShareDenyNone
  101.     Provider = 'Microsoft.Jet.OLEDB.4.0'
  102.     Left = 216
  103.     Top = 48
  104.   end
  105. end