unit3.~dfm

本软件是我用WindowsMediaPlayer,以及Access数据库 并使用了EhLib 官方 v4.1.4 完整版本带源码,Vclskin控件 希望大家喜欢调试前请确保你的电脑 安装了Wi

object Form3: TForm3
  Left = 392
  Top = 172
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #21015#34920
  ClientHeight = 327
  ClientWidth = 281
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 304
    Width = 281
    Height = 23
    Align = alBottom
    TabOrder = 0
    object SpeedButton1: TSpeedButton
      Left = 0
      Top = 0
      Width = 57
      Height = 22
      Caption = #28155#21152
      Flat = True
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 56
      Top = 0
      Width = 57
      Height = 22
      Caption = #21024#38500
      Flat = True
      OnClick = SpeedButton2Click
    end
    object SpeedButton4: TSpeedButton
      Left = 112
      Top = 0
      Width = 57
      Height = 22
      Caption = #21521#19979
      Flat = True
      OnClick = SpeedButton4Click
    end
    object SpeedButton5: TSpeedButton
      Left = 168
      Top = 0
      Width = 57
      Height = 22
      Caption = #21521#19978
      Flat = True
      OnClick = SpeedButton5Click
    end
    object SpeedButton3: TSpeedButton
      Left = 224
      Top = 0
      Width = 57
      Height = 22
      Caption = #20462#25913
      Flat = True
      OnClick = SpeedButton3Click
    end
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 0
    Width = 281
    Height = 304
    Align = alClient
    DataSource = DataSource1
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGridEh1CellClick
    Columns = <
      item
        EditButtons = <>
        FieldName = #30005#24433#21517
        Footers = <>
        Width = 120
      end
      item
        EditButtons = <>
        FieldName = #36335#24452
        Footers = <>
        Width = 120
      end>
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=./pla' +
      'yer.mzq;Mode=Share Deny None;Extended Properties="";Jet OLEDB:Sy' +
      'stem database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database P' +
      'assword="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mo' +
      'de=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk T' +
      'ransactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Creat' +
      'e System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLE' +
      'DB:Don'#39't Copy Locale on Compact=False;Jet OLEDB:Compact Without ' +
      'Replica Repair=False;Jet OLEDB:SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 104
    Top = 160
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from player')
    Left = 184
    Top = 120
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 72
    Top = 104
  end
end