clbhut.~dfm

access数据库和delphi卡法的一个数据库系统

object clbhfm: Tclbhfm
  Left = 346
  Top = 162
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #26448#26009#32534#21495#31649#29702
  ClientHeight = 453
  ClientWidth = 688
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 453
    Align = alClient
    TabOrder = 0
    object GroupBox1: TGroupBox
      Left = 8
      Top = 8
      Width = 185
      Height = 433
      TabOrder = 0
      object Label1: TLabel
        Left = 16
        Top = 21
        Width = 113
        Height = 25
        AutoSize = False
        Caption = #26448#26009#21517#31216
      end
      object Label2: TLabel
        Left = 16
        Top = 85
        Width = 81
        Height = 25
        AutoSize = False
        Caption = #32534#21495
      end
      object Label3: TLabel
        Left = 16
        Top = 133
        Width = 113
        Height = 33
        AutoSize = False
        Caption = #21697#31867
      end
      object Label4: TLabel
        Left = 16
        Top = 189
        Width = 105
        Height = 25
        AutoSize = False
        Caption = #21333#20301#20215#26684
      end
      object zjbt: TSpeedButton
        Left = 16
        Top = 360
        Width = 73
        Height = 25
        Caption = #22686#21152
        OnClick = zjbtClick
      end
      object xgbt: TSpeedButton
        Left = 104
        Top = 360
        Width = 65
        Height = 25
        Caption = #20462#25913
        OnClick = xgbtClick
      end
      object scbt: TSpeedButton
        Left = 16
        Top = 400
        Width = 73
        Height = 25
        Caption = #21024#38500
        OnClick = scbtClick
      end
      object gbbt: TSpeedButton
        Left = 104
        Top = 400
        Width = 65
        Height = 25
        Caption = #20851#38381
        OnClick = gbbtClick
      end
      object SpeedButton1: TSpeedButton
        Left = 16
        Top = 328
        Width = 153
        Height = 25
        Caption = #28165#38500
        OnClick = SpeedButton1Click
      end
      object Label5: TLabel
        Left = 16
        Top = 248
        Width = 81
        Height = 25
        AutoSize = False
        Caption = #36135#20301
      end
      object clmcedit: TEdit
        Left = 16
        Top = 53
        Width = 153
        Height = 21
        TabOrder = 0
      end
      object bhedit: TEdit
        Left = 16
        Top = 101
        Width = 153
        Height = 21
        TabOrder = 1
      end
      object pledit: TEdit
        Left = 17
        Top = 157
        Width = 149
        Height = 21
        TabOrder = 2
      end
      object dwjgedit: TEdit
        Left = 16
        Top = 213
        Width = 153
        Height = 21
        TabOrder = 3
      end
      object hwedit: TEdit
        Left = 16
        Top = 272
        Width = 153
        Height = 21
        TabOrder = 4
      end
    end
    object GroupBox2: TGroupBox
      Left = 200
      Top = 8
      Width = 481
      Height = 441
      TabOrder = 1
      object DBGrid1: TDBGrid
        Left = 2
        Top = 15
        Width = 477
        Height = 424
        Align = alClient
        DataSource = DataSource1
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnCellClick = DBGrid1CellClick
      end
    end
  end
  object ADOQuery: TADOQuery
    Parameters = <>
    SQL.Strings = (
      'select * from bhb')
    Left = 208
    Top = 200
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery
    Left = 344
    Top = 200
  end
end