fmloadds.dfm

三层cs结构实例 水平相当高的高人开发的软件 有要就留着用吧

object Form1: TForm1
  Left = 267
  Top = 278
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Middle ADO Client Testing'
  ClientHeight = 432
  ClientWidth = 497
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 24
    Width = 22
    Height = 13
    Caption = 'Host'
  end
  object Label5: TLabel
    Left = 288
    Top = 24
    Width = 19
    Height = 13
    Caption = 'Port'
  end
  object Edit1: TEdit
    Left = 48
    Top = 20
    Width = 225
    Height = 21
    TabOrder = 0
    Text = '127.0.0.1'
  end
  object PageControl1: TPageControl
    Left = 16
    Top = 48
    Width = 465
    Height = 369
    ActivePage = TabSheet1
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = 'ADO Dataset / Control'
      object Label3: TLabel
        Left = 8
        Top = 8
        Width = 36
        Height = 13
        Caption = 'Statues'
      end
      object Label4: TLabel
        Left = 9
        Top = 284
        Width = 21
        Height = 13
        Caption = 'SQL'
      end
      object DBGrid1: TDBGrid
        Left = 8
        Top = 28
        Width = 441
        Height = 245
        DataSource = DataSource1
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object DBNavigator1: TDBNavigator
        Left = 8
        Top = 308
        Width = 240
        Height = 25
        DataSource = DataSource1
        TabOrder = 1
      end
      object Button1: TButton
        Left = 312
        Top = 308
        Width = 65
        Height = 25
        Caption = 'Open'
        TabOrder = 2
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 384
        Top = 308
        Width = 65
        Height = 25
        Caption = 'Post'
        TabOrder = 3
        OnClick = Button2Click
      end
      object Edit2: TEdit
        Left = 40
        Top = 280
        Width = 409
        Height = 21
        TabOrder = 4
        Text = 'select * from syscolumns'
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'MultiThread Client'
      ImageIndex = 1
      object Label2: TLabel
        Left = 8
        Top = 8
        Width = 53
        Height = 13
        Caption = 'Totol Client'
      end
      object Label6: TLabel
        Left = 9
        Top = 284
        Width = 21
        Height = 13
        Caption = 'SQL'
      end
      object Button4: TButton
        Tag = 5
        Left = 16
        Top = 308
        Width = 75
        Height = 25
        Caption = '+5 Clients'
        TabOrder = 0
        OnClick = ConnectClick
      end
      object Button3: TButton
        Tag = 10
        Left = 104
        Top = 308
        Width = 75
        Height = 25
        Caption = '+10 Clients'
        TabOrder = 1
        OnClick = ConnectClick
      end
      object Button5: TButton
        Tag = 20
        Left = 192
        Top = 308
        Width = 75
        Height = 25
        Caption = '+20 Clients'
        TabOrder = 2
        OnClick = ConnectClick
      end
      object Button6: TButton
        Tag = 50
        Left = 280
        Top = 308
        Width = 75
        Height = 25
        Caption = '+50 Clients'
        TabOrder = 3
        OnClick = ConnectClick
      end
      object Button7: TButton
        Tag = 500
        Left = 368
        Top = 308
        Width = 75
        Height = 25
        Caption = 'Disconnect'
        TabOrder = 4
        OnClick = Button7Click
      end
      object Memo1: TMemo
        Left = 8
        Top = 28
        Width = 441
        Height = 241
        ScrollBars = ssVertical
        TabOrder = 5
      end
      object Edit4: TEdit
        Left = 40
        Top = 280
        Width = 409
        Height = 21
        TabOrder = 6
        Text = 'select top 100 * from syscolumns'
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Batch/Transaction'
      ImageIndex = 2
      object Label7: TLabel
        Left = 9
        Top = 260
        Width = 27
        Height = 13
        Caption = 'SQL1'
      end
      object Label8: TLabel
        Left = 9
        Top = 284
        Width = 27
        Height = 13
        Caption = 'SQL2'
      end
      object DBGrid2: TDBGrid
        Left = 8
        Top = 12
        Width = 441
        Height = 109
        DataSource = DataSource2
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object DBGrid3: TDBGrid
        Left = 8
        Top = 132
        Width = 441
        Height = 109
        DataSource = DataSource3
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object Button8: TButton
        Left = 224
        Top = 308
        Width = 113
        Height = 25
        Caption = 'BatchOpen'
        TabOrder = 2
        OnClick = Button8Click
      end
      object Button9: TButton
        Left = 344
        Top = 308
        Width = 105
        Height = 25
        Caption = 'BatchPost'
        TabOrder = 3
        OnClick = Button9Click
      end
      object Edit5: TEdit
        Left = 40
        Top = 256
        Width = 409
        Height = 21
        TabOrder = 4
        Text = 'select top 100 * from syscolumns'
      end
      object Edit6: TEdit
        Left = 40
        Top = 280
        Width = 409
        Height = 21
        TabOrder = 5
        Text = 'select top 100 * from sysindexkeys'
      end
      object Button10: TButton
        Left = 8
        Top = 308
        Width = 105
        Height = 25
        Caption = 'Transaction'
        TabOrder = 6
        OnClick = Button10Click
      end
    end
  end
  object Edit3: TEdit
    Left = 320
    Top = 20
    Width = 65
    Height = 21
    TabOrder = 2
    Text = '10080'
  end
  object DataSource1: TDataSource
    DataSet = MADODataset1
    Left = 464
    Top = 8
  end
  object MADOConnection1: TMADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Test;Data Source=.'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    MConnection.Enabled = True
    Left = 400
    Top = 8
  end
  object MADODataset1: TMADODataset
    Connection = MADOConnection1
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'gpbmsts '#39'2008-08-01'#39','#39'2008-08-01'#39','#39'1'#39
    Parameters = <>
    Left = 432
    Top = 8
  end
  object MADODataset2: TMADODataset
    Connection = MADOConnection1
    LockType = ltBatchOptimistic
    Parameters = <>
    Left = 384
    Top = 80
  end
  object MADODataset3: TMADODataset
    Connection = MADOConnection1
    LockType = ltBatchOptimistic
    Parameters = <>
    Left = 420
    Top = 80
  end
  object DataSource2: TDataSource
    DataSet = MADODataset2
    Left = 388
    Top = 120
  end
  object DataSource3: TDataSource
    DataSet = MADODataset3
    Left = 420
    Top = 120
  end
  object MADOQuery1: TMADOQuery
    Connection = MADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select top 10 * from syscolumns')
    Left = 388
    Top = 152
  end
end