unit1.dfm

delphi控件的使用

object Form1: TForm1
  Left = 158
  Top = 142
  Width = 474
  Height = 305
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object ScrollBox1: TScrollBox
    Left = 0
    Top = 0
    Width = 466
    Height = 278
    Align = alClient
    TabOrder = 0
    object Bevel1: TBevel
      Left = 12
      Top = 30
      Width = 442
      Height = 67
      Shape = bsFrame
    end
    object Label1: TLabel
      Left = 19
      Top = 42
      Width = 48
      Height = 12
      Caption = '流水号：'
    end
    object Label2: TLabel
      Left = 152
      Top = 40
      Width = 48
      Height = 12
      Caption = '年月日：'
    end
    object Label3: TLabel
      Left = 19
      Top = 70
      Width = 48
      Height = 12
      Caption = '录入人：'
    end
    object ToolBar1: TToolBar
      Left = 0
      Top = -2
      Width = 335
      Height = 22
      Align = alNone
      ButtonHeight = 20
      ButtonWidth = 67
      Caption = 'ToolBar1'
      EdgeBorders = []
      EdgeInner = esNone
      EdgeOuter = esRaised
      ShowCaptions = True
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 0
        Top = 2
        Caption = '(&N)新建'
        ImageIndex = 0
      end
      object ToolButton2: TToolButton
        Left = 67
        Top = 2
        Caption = '(&U)修改'
        ImageIndex = 1
      end
      object ToolButton3: TToolButton
        Left = 134
        Top = 2
        Caption = '(&D)删除'
        ImageIndex = 2
      end
      object ToolButton4: TToolButton
        Left = 201
        Top = 2
        Caption = '(&Q)取消'
        ImageIndex = 3
      end
      object ToolButton5: TToolButton
        Left = 268
        Top = 2
        Caption = '(&P)一览表'
        ImageIndex = 4
      end
    end
    object StatusBar1: TStatusBar
      Left = 0
      Top = 255
      Width = 462
      Height = 19
      Panels = <
        item
          Width = 50
        end
        item
          Width = 50
        end>
      SimplePanel = False
    end
    object Edit1: TEdit
      Left = 75
      Top = 37
      Width = 67
      Height = 20
      TabOrder = 1
      OnExit = Edit1Exit
    end
    object Edit2: TEdit
      Left = 206
      Top = 37
      Width = 83
      Height = 20
      TabOrder = 2
      OnEnter = Edit2Enter
    end
    object Edit3: TEdit
      Left = 75
      Top = 64
      Width = 56
      Height = 20
      TabOrder = 3
    end
    object Edit4: TEdit
      Left = 132
      Top = 64
      Width = 94
      Height = 20
      Enabled = False
      TabOrder = 4
    end
    object WzGrid1: TWzGrid
      Left = 14
      Top = 106
      Width = 441
      Height = 140
      DefaultRowHeight = 16
      RowCount = 8
      TabOrder = 5
      Columns = <
        item
          Title.Alignment = taRightJustify
          Title.Caption = '编号'
          Alignment = taRightJustify
          OrgIndex = 0
        end
        item
          ReadOnly = True
          Title.Caption = '类别编码'
          OrgIndex = 1
        end
        item
          Title.Caption = '类别名称'
          OrgIndex = 2
        end
        item
          Title.Alignment = taRightJustify
          Title.Caption = '金额'
          Alignment = taRightJustify
          OrgIndex = 3
        end>
      OnGoNext = WzGrid1GoNext
      OnColExit = WzGrid1ColExit
    end
  end
  object Database1: TDatabase
    AliasName = 'abc'
    Connected = True
    DatabaseName = 'database'
    LoginPrompt = False
    Params.Strings = (
      'SERVER NAME=C:\Wangjq.gdb'
      'USER NAME=wangjq'
      'OPEN MODE=READ/WRITE'
      'SCHEMA CACHE SIZE=8'
      'LANGDRIVER='
      'SQLQRYMODE='
      'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
      'SCHEMA CACHE TIME=-1'
      'MAX ROWS=-1'
      'BATCH COUNT=200'
      'ENABLE SCHEMA CACHE=FALSE'
      'SCHEMA CACHE DIR='
      'ENABLE BCD=FALSE'
      'BLOBS TO CACHE=64'
      'BLOB SIZE=32'
      'PASSWORD=wangjq')
    SessionName = 'Default'
    Left = 102
    Top = 132
  end
  object Query1: TQuery
    DatabaseName = 'database'
    Left = 134
    Top = 134
  end
end