pzlr.dfm

凭证管理系统的制作

object Form2: TForm2
  Left = 197
  Top = 184
  BorderStyle = bsDialog
  Caption = #35760#36134#20973#35777
  ClientHeight = 301
  ClientWidth = 633
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlue
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 633
    Height = 301
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object Label2: TLabel
      Left = 7
      Top = 50
      Width = 48
      Height = 13
      Caption = #20973#35777#21495#65306
    end
    object Label3: TLabel
      Left = 54
      Top = 49
      Width = 3
      Height = 13
    end
    object Shape1: TShape
      Left = 50
      Top = 62
      Width = 78
      Height = 1
    end
    object Label4: TLabel
      Left = 249
      Top = 48
      Width = 36
      Height = 13
      Caption = #26085#26399#65306
    end
    object Label6: TLabel
      Left = 517
      Top = 48
      Width = 48
      Height = 13
      Caption = #38468#21333#25454#65306
    end
    object Shape2: TShape
      Left = 2
      Top = 42
      Width = 629
      Height = 1
    end
    object a: TStringGrid
      Left = 7
      Top = 92
      Width = 619
      Height = 139
      ColCount = 30
      Ctl3D = False
      DefaultColWidth = 13
      DefaultRowHeight = 20
      FixedCols = 0
      RowCount = 2
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
      ParentCtl3D = False
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 1
      OnKeyDown = aKeyDown
      OnKeyPress = aKeyPress
      OnSelectCell = aSelectCell
      OnSetEditText = aSetEditText
      ColWidths = (
        129
        111
        5
        13
        13
        13
        13
        13
        13
        13
        13
        13
        13
        13
        13
        12
        4
        13
        13
        13
        13
        13
        13
        13
        13
        13
        13
        13
        13
        13)
    end
    object Memo2: TMemo
      Left = 7
      Top = 68
      Width = 131
      Height = 46
      Color = clBtnFace
      Ctl3D = False
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      Lines.Strings = (
        ''
        '            '#25688'        '#35201)
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 2
    end
    object Memo1: TMemo
      Left = 137
      Top = 68
      Width = 113
      Height = 46
      Color = clBtnFace
      Ctl3D = False
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      Lines.Strings = (
        ' '
        '      '#20250'  '#35745'  '#31185'  '#30446)
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 3
    end
    object Edit1: TEdit
      Left = 249
      Top = 68
      Width = 190
      Height = 25
      AutoSize = False
      Color = clBtnFace
      Ctl3D = False
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 4
      Text = '                 '#20511'  '#26041'  '#37329'  '#39069
    end
    object Edit2: TEdit
      Left = 436
      Top = 68
      Width = 190
      Height = 25
      AutoSize = False
      Color = clBtnFace
      Ctl3D = False
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 5
      Text = '                 '#36151'  '#26041'  '#37329'  '#39069
    end
    object Edit4: TEdit
      Left = 566
      Top = 44
      Width = 59
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      ParentFont = False
      TabOrder = 6
      Text = '1'
      OnKeyPress = Edit4KeyPress
    end
    object Panel2: TPanel
      Left = 2
      Top = 264
      Width = 629
      Height = 35
      Align = alBottom
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 0
      object BitBtn1: TBitBtn
        Left = 216
        Top = 5
        Width = 75
        Height = 25
        Caption = #30331#35760
        TabOrder = 0
        OnClick = BitBtn1Click
        OnMouseDown = BitBtn1MouseDown
        OnMouseUp = BitBtn1MouseUp