开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
Unit1.~dfm
资源名称：xiaobai.rar　[点击查看]
上传用户：autowell
上传日期：2022-06-21
资源大小：16754k
文件大小：3k
源码类别：

Delphi控件源码

开发平台：

Delphi

Unit1.~dfm：源码内容
  1. object Form1: TForm1
  2.   Left = 242
  3.   Top = 114
  4.   Width = 696
  5.   Height = 480
  6.   Caption = 'Form1'
  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.   PixelsPerInch = 96
  15.   TextHeight = 13
  16.   object Label1: TLabel
  17.     Left = 160
  18.     Top = 72
  19.     Width = 289
  20.     Height = 29
  21.     Alignment = taCenter
  22.     AutoSize = False
  23.     Caption = 'ADO'#25509#21475#36830#25509#25968#25454#24211
  24.     Font.Charset = DEFAULT_CHARSET
  25.     Font.Color = clGreen
  26.     Font.Height = -24
  27.     Font.Name = 'MS Sans Serif'
  28.     Font.Style = []
  29.     ParentFont = False
  30.   end
  31.   object DBGrid1: TDBGrid
  32.     Left = 8
  33.     Top = 40
  34.     Width = 585
  35.     Height = 209
  36.     DataSource = DataSource1
  37.     TabOrder = 0
  38.     TitleFont.Charset = DEFAULT_CHARSET
  39.     TitleFont.Color = clWindowText
  40.     TitleFont.Height = -11
  41.     TitleFont.Name = 'MS Sans Serif'
  42.     TitleFont.Style = []
  43.   end
  44.   object DBNavigator1: TDBNavigator
  45.     Left = 8
  46.     Top = 320
  47.     Width = 240
  48.     Height = 25
  49.     DataSource = DataSource1
  50.     TabOrder = 1
  51.   end
  52.   object DBEdit1: TDBEdit
  53.     Left = 24
  54.     Top = 256
  55.     Width = 121
  56.     Height = 21
  57.     DataField = #23398#21495
  58.     DataSource = DataSource1
  59.     TabOrder = 2
  60.   end
  61.   object DBEdit2: TDBEdit
  62.     Left = 168
  63.     Top = 256
  64.     Width = 121
  65.     Height = 21
  66.     DataField = #22995#21517
  67.     DataSource = DataSource1
  68.     TabOrder = 3
  69.   end
  70.   object DBEdit3: TDBEdit
  71.     Left = 320
  72.     Top = 256
  73.     Width = 121
  74.     Height = 21
  75.     DataField = #24180#40836
  76.     DataSource = DataSource1
  77.     TabOrder = 4
  78.   end
  79.   object Button1: TButton
  80.     Left = 600
  81.     Top = 40
  82.     Width = 75
  83.     Height = 25
  84.     Caption = #26174#31034
  85.     TabOrder = 5
  86.     OnClick = Button1Click
  87.   end
  88.   object Button2: TButton
  89.     Left = 600
  90.     Top = 88
  91.     Width = 75
  92.     Height = 25
  93.     Caption = #19981#26174#31034
  94.     TabOrder = 6
  95.     OnClick = Button2Click
  96.   end
  97.   object Edit1: TEdit
  98.     Left = 24
  99.     Top = 288
  100.     Width = 121
  101.     Height = 21
  102.     TabOrder = 7
  103.     OnChange = Edit1Change
  104.   end
  105.   object DataSource1: TDataSource
  106.     DataSet = ADOQuery1
  107.     Left = 16
  108.     Top = 8
  109.   end
  110.   object ADOConnection1: TADOConnection
  111.     Connected = True
  112.     ConnectionString = 
  113.       'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:xiaobai12db1.m' +
  114.       'db;Persist Security Info=False'
  115.     Mode = cmShareDenyNone
  116.     Provider = 'Microsoft.Jet.OLEDB.4.0'
  117.     Left = 64
  118.     Top = 8
  119.   end
  120.   object ADOQuery1: TADOQuery
  121.     Active = True
  122.     Connection = ADOConnection1
  123.     CursorType = ctStatic
  124.     Parameters = <>
  125.     SQL.Strings = (
  126.       'select * from students')
  127.     Left = 472
  128.     Top = 8
  129.   end
  130. end