unit1.dfm

利用Delphi进行简单的数据查询,数据库是利用Delphi本身自带的数据库!

object Form1: TForm1
  Left = 347
  Top = 220
  Width = 544
  Height = 424
  Caption = 'Form1'
  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 = 0
    Width = 536
    Height = 390
    Align = alClient
    TabOrder = 0
    object PageControl1: TPageControl
      Left = 1
      Top = 1
      Width = 534
      Height = 388
      ActivePage = TabSheet5
      Align = alClient
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = #27983#35272#25968#25454
        object Panel2: TPanel
          Left = 0
          Top = 0
          Width = 526
          Height = 218
          Align = alClient
          TabOrder = 0
          object DBGrid1: TDBGrid
            Left = 1
            Top = 1
            Width = 524
            Height = 216
            Align = alClient
            DataSource = DataSource1
            ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
          end
        end
        object Panel3: TPanel
          Left = 0
          Top = 218
          Width = 526
          Height = 142
          Align = alBottom
          TabOrder = 1
          object Label1: TLabel
            Left = 8
            Top = 40
            Width = 35
            Height = 13
            Caption = 'CustNo'
            FocusControl = DBEdit1
          end
          object Label2: TLabel
            Left = 8
            Top = 64
            Width = 44
            Height = 13
            Caption = 'Company'
            FocusControl = DBEdit2
          end
          object Label3: TLabel
            Left = 8
            Top = 88
            Width = 28
            Height = 13
            Caption = 'Addr1'
            FocusControl = DBEdit3
          end
          object Label4: TLabel
            Left = 8
            Top = 120
            Width = 31
            Height = 13
            Caption = 'Phone'
            FocusControl = DBEdit4
          end
          object Label5: TLabel
            Left = 368
            Top = 56
            Width = 40
            Height = 13
            Caption = 'moveby:'
          end
          object ToolBar1: TToolBar
            Left = 1
            Top = 1
            Width = 524
            Height = 40
            ButtonHeight = 31
            ButtonWidth = 37
            Caption = 'ToolBar1'
            Images = ImageList1
            TabOrder = 0
            object ToolButton1: TToolButton
              Left = 0
              Top = 2
              Width = 8
              Caption = 'ToolButton1'
              Style = tbsSeparator
            end
            object ToolButton2: TToolButton
              Left = 8
              Top = 2
              Caption = 'ToolButton2'
              ImageIndex = 7
              OnClick = ToolButton2Click
            end
            object ToolButton3: TToolButton
              Left = 45
              Top = 2
              Width = 8
              Caption = 'ToolButton3'
              ImageIndex = 0
              Style = tbsSeparator
            end
            object ToolButton4: TToolButton
              Left = 53
              Top = 2
              Caption = 'ToolButton4'
              ImageIndex = 21
              OnClick = ToolButton4Click
            end
            object ToolButton5: TToolButton
              Left = 90
              Top = 2
              Caption = 'ToolButton5'
              ImageIndex = 3
              OnClick = ToolButton5Click
            end
            object ToolButton6: TToolButton
              Left = 127
              Top = 2
              Caption = 'ToolButton6'
              ImageIndex = 4
              OnClick = ToolButton6Click
            end
            object ToolButton7: TToolButton
              Left = 164
              Top = 2
              Caption = 'ToolButton7'
              ImageIndex = 23
              OnClick = ToolButton7Click
            end
          end
          object DBEdit1: TDBEdit
            Left = 56
            Top = 40
            Width = 134
            Height = 21
            DataField = 'CustNo'
            DataSource = DataSource1
            ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
            TabOrder = 1
          end
          object DBEdit2: TDBEdit
            Left = 56
            Top = 64
            Width = 297
            Height = 21
            DataField = 'Company'
            DataSource = DataSource1
            ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
            TabOrder = 2
          end
          object DBEdit3: TDBEdit
            Left = 56
            Top = 88
            Width = 297
            Height = 21
            DataField = 'Addr1'
            DataSource = DataSource1
            ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
            TabOrder = 3
          end
          object DBEdit4: TDBEdit
            Left = 56
            Top = 112
            Width = 199
            Height = 21
            DataField = 'Phone'
            DataSource = DataSource1
            ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
            TabOrder = 4
          end
          object Edit1: TEdit
            Left = 424
            Top = 48
            Width = 89
            Height = 21
            ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
            TabOrder = 5
          end
          object Button1: TButton
            Left = 416
            Top = 88
            Width = 75
            Height = 25
            Caption = 'move'
            TabOrder = 6
            OnClick = Button1Click
          end
        end
      end
      object TabSheet2: TTabSheet
        Caption = #26597#35810#25968#25454
        ImageIndex = 1
        object Panel4: TPanel
          Left = 0
          Top = 234
          Width = 526
          Height = 126
          Align = alBottom
          TabOrder = 0
          object Label6: TLabel
            Left = 8
            Top = 11
            Width = 38
            Height = 13
            Caption = 'CustNo:'
          end
          object Label7: TLabel
            Left = 7
            Top = 34
            Width = 47
            Height = 13
            Caption = 'Company:'
          end
          object Label8: TLabel
            Left = 15
            Top = 60
            Width = 31
            Height = 13
            Caption = 'Addr1:'
          end
          object Label9: TLabel
            Left = 12
            Top = 91
            Width = 34
            Height = 13
            Caption = 'Phone:'
          end
          object Label10: TLabel
            Left = 296
            Top = 8
            Width = 177
            Height = 16
            AutoSize = False
            Caption = #35831#36755#20837#25152#35201#26597#25214#30340'Company'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label11: TLabel
            Left = 296
            Top = 58
            Width = 161
            Height = 16
            AutoSize = False
            Caption = #35831#36755#20837#25152#35201#26597#25214#30340'CustNo'