unit1.dfm

SQL封装,DLL封装SQL登陆,代码!随意修改!

object Form1: TForm1
  Left = 225
  Top = 173
  Width = 761
  Height = 526
  Caption = 'Form1'
  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 pnl1: TPanel
    Left = 0
    Top = 0
    Width = 753
    Height = 89
    Align = alTop
    TabOrder = 0
    object btnCreateComp: TButton
      Left = 64
      Top = 8
      Width = 81
      Height = 33
      Caption = 'Create Comp'
      TabOrder = 0
      OnClick = btnCreateCompClick
    end
    object btn2: TButton
      Left = 224
      Top = 8
      Width = 73
      Height = 33
      Caption = 'btn2'
      TabOrder = 2
      OnClick = btn2Click
    end
    object btnRelease: TButton
      Left = 64
      Top = 48
      Width = 81
      Height = 33
      Caption = 'Release Comp'
      Enabled = False
      TabOrder = 1
      OnClick = btnReleaseClick
    end
    object btnBindDBase: TButton
      Left = 224
      Top = 48
      Width = 75
      Height = 33
      Caption = 'Bind DBase'
      Enabled = False
      TabOrder = 3
      OnClick = btnBindDBaseClick
    end
  end
  object pnl2: TPanel
    Left = 0
    Top = 472
    Width = 753
    Height = 20
    Align = alBottom
    Caption = 'pnl2'
    TabOrder = 2
    object pb1: TProgressBar
      Left = 1
      Top = 1
      Width = 751
      Height = 18
      Align = alClient
      TabOrder = 0
    end
  end
  object pnl3: TPanel
    Left = 0
    Top = 89
    Width = 753
    Height = 383
    Align = alClient
    Caption = 'pnl3'
    TabOrder = 1
    object dbgrd1: TDBGrid
      Left = 1
      Top = 1
      Width = 751
      Height = 381
      Align = alClient
      DataSource = ds1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object qry1: TADOQuery
    CacheSize = 20
    Parameters = <>
    Left = 264
    Top = 216
  end
  object ds1: TDataSource
    DataSet = qry1
    Left = 200
    Top = 216
  end
end