qzdwh.dfm

工资管理系统的代码实例

object QzdwhForm: TQzdwhForm
  Left = 262
  Top = 157
  BorderStyle = bsDialog
  Caption = #36215#24449#28857#35774#23450
  ClientHeight = 166
  ClientWidth = 312
  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
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object pnlQzd: TPanel
    Left = 0
    Top = 0
    Width = 312
    Height = 118
    Align = alClient
    BevelOuter = bvLowered
    TabOrder = 0
    object lblYuan: TLabel
      Left = 235
      Top = 52
      Width = 25
      Height = 13
      AutoSize = False
      Caption = #20803
    end
    object lblQzd: TLabel
      Left = 46
      Top = 51
      Width = 48
      Height = 13
      Caption = #36215#24449#28857#65306
    end
    object dbedtQzd: TDBEdit
      Left = 104
      Top = 48
      Width = 121
      Height = 21
      DataField = 'Qzd'
      DataSource = dsQzd
      TabOrder = 0
    end
  end
  object pnlToolBar: TPanel
    Left = 0
    Top = 118
    Width = 312
    Height = 48
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 1
    object btOK: TButton
      Left = 128
      Top = 11
      Width = 75
      Height = 25
      Caption = #30830#23450
      ModalResult = 1
      TabOrder = 0
      OnClick = btOKClick
    end
    object btCancel: TButton
      Left = 212
      Top = 11
      Width = 75
      Height = 25
      Caption = #21462#28040
      ModalResult = 2
      TabOrder = 1
    end
  end
  object adotQzd: TADOTable
    TableName = 'Qzd'
    Left = 232
    Top = 80
  end
  object dsQzd: TDataSource
    DataSet = adotQzd
    Left = 176
    Top = 80
  end
end