unit3.dfm

没什么特别的 用ASSECC数据库~——~

object Form3: TForm3
  Left = 184
  Top = 127
  Width = 768
  Height = 614
  Caption = #36873#35838#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox3: TGroupBox
    Left = 0
    Top = 0
    Width = 761
    Height = 73
    Caption = #20320#30340#20449#24687
    TabOrder = 11
    object Label1: TLabel
      Left = 80
      Top = 24
      Width = 24
      Height = 13
      Caption = #23398#21495
    end
    object Label2: TLabel
      Left = 248
      Top = 24
      Width = 24
      Height = 13
      Caption = #22995#21517
    end
    object Label3: TLabel
      Left = 432
      Top = 24
      Width = 24
      Height = 13
      Caption = #24180#32423
    end
    object Label8: TLabel
      Left = 72
      Top = 0
      Width = 84
      Height = 13
      Caption = #36755#20837#23398#21495#21518#22238#36710
    end
    object Button1: TButton
      Left = 664
      Top = 32
      Width = 75
      Height = 25
      Caption = #20851#38381
      TabOrder = 0
      OnClick = Button1Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 64
    Width = 761
    Height = 169
    Caption = #24050#36873#35838#31243
    DockSite = True
    TabOrder = 10
    object Label6: TLabel
      Left = 72
      Top = 16
      Width = 3
      Height = 13
    end
    object Label7: TLabel
      Left = 24
      Top = 16
      Width = 48
      Height = 13
      Caption = #35760#24405#25968#65306
    end
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 240
    Width = 761
    Height = 113
    Caption = #35838#31243#20449#24687
    TabOrder = 9
    object Label4: TLabel
      Left = 56
      Top = 32
      Width = 36
      Height = 13
      Caption = #35838#31243#21495
    end
    object Label5: TLabel
      Left = 200
      Top = 40
      Width = 36
      Height = 13
      Caption = #35838#31243#21517
    end
    object BitBtn3: TBitBtn
      Left = 384
      Top = 72
      Width = 75
      Height = 25
      Caption = #21024#38500
      Enabled = False
      TabOrder = 0
      OnClick = BitBtn3Click
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 376
    Width = 689
    Height = 185
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGrid1CellClick
  end
  object Edit1: TEdit
    Left = 80
    Top = 40
    Width = 121
    Height = 21
    TabOrder = 1
    OnKeyPress = Edit1KeyPress
  end
  object Edit2: TEdit
    Left = 256
    Top = 40
    Width = 121
    Height = 21
    TabOrder = 2
  end
  object Edit3: TEdit
    Left = 432
    Top = 40
    Width = 121
    Height = 21
    TabOrder = 3
  end
  object DBGrid2: TDBGrid
    Left = 0
    Top = 96
    Width = 689
    Height = 120
    DataSource = DataSource2
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGrid2CellClick
  end
  object Edit4: TEdit
    Left = 32
    Top = 304
    Width = 121
    Height = 21
    TabOrder = 5
  end
  object Edit5: TEdit
    Left = 184
    Top = 304
    Width = 121
    Height = 21
    TabOrder = 6
  end
  object BitBtn1: TBitBtn
    Left = 384
    Top = 272
    Width = 75
    Height = 25
    Caption = #26597#35810
    TabOrder = 7
    OnClick = BitBtn1Click
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888880008888
      8000888880808888808088888000788870008888800000000000000000800008
      00000888808000080000080080000000000008888800008000080CCCCCC00CCC
      00888C888880088800888C800800080800888C8888888888C8888CCCCCCCCCCC
      C8888C8CC8CC8CC8C8888CCCCCCCCCCCC8888888888888888888}
  end
  object BitBtn2: TBitBtn
    Left = 512
    Top = 264
    Width = 75
    Height = 41
    Caption = #36873#35838
    Enabled = False
    TabOrder = 8
    OnClick = BitBtn2Click
    Glyph.Data = {
      42010000424D4201000000000000760000002800000011000000110000000100
      040000000000CC00000000000000000000001000000010000000000000000000
      BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      7777700000007777777777777777700000007777777774F77777700000007777
      7777444F77777000000077777774444F777770000000700000444F44F7777000
      000070FFF444F0744F777000000070F8884FF0774F777000000070FFFFFFF077
      74F77000000070F88888F077774F7000000070FFFFFFF0777774F000000070F8
      8777F07777774000000070FFFF00007777777000000070F88707077777777000
      000070FFFF007777777770000000700000077777777770000000777777777777
      777770000000}
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=D:\de' +
      'lphi'#20316#19994'\'#35838#31243#35774#35745'\'#28304#20195#30721'\'#26032#24314' Microsoft Office Access '#24212#29992#31243#24207'.mdb;Mode=Share D' +
      'eny None;Extended Properties="";Persist Security Info=False;Jet ' +
      'OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Da' +
      'tabase Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Lo' +
      'cking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Globa' +
      'l Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLE' +
      'DB:Create System Database=False;Jet OLEDB:Encrypt Database=False' +
      ';Jet OLEDB: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 = 632
    Top = 8
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select  a.'#35838#31243#21495',a.'#35838#31243#21517',b.'#19978#35838#26102#38388#22825',b.'#19978#35838#26102#38388#33410',b.'#19978#35838#22320#28857' '
      'from '#35838#31243#20449#24687' a,'#35838#31243#34920' b'
      'where a.'#35838#31243#21495'=b.'#35838#31243#21495)
    Left = 560
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    OnDataChange = DataSource1DataChange
    Left = 600
    Top = 8
  end
  object ADOQuery2: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select a.'#23398#21495', a.'#35838#31243#21495',b.'#35838#31243#21517',b.'#24320#35838#31995',c.'#19978#35838#26102#38388#22825',c.'#19978#35838#26102#38388#33410',c.'#19978#35838#22320#28857
      'from '#36873#35838#34920' a,'#35838#31243#20449#24687' b,'#35838#31243#34920' c'
      'where (a.'#35838#31243#21495'=b.'#35838#31243#21495')and(c.'#35838#31243#21495'=b.'#35838#31243#21495')')
    Left = 520
    Top = 8
  end
  object ADOQuery3: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#23398#29983#20449#24687#34920)
    Left = 664
    Top = 8
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    OnDataChange = DataSource2DataChange
    Left = 496
    Top = 8
  end
  object ADOCommand1: TADOCommand
    Connection = ADOConnection1
    Parameters = <>
    Left = 632
    Top = 272
  end
end