unt_main.dfm

来自「delphi数据库的程序代码」· DFM 代码 · 共 108 行

object Frm_Main: TFrm_Main
  Left = 310
  Top = 174
  BorderStyle = bsDialog
  Caption = #27963#21160#25253#34920#28436#31034#31243#24207
  ClientHeight = 628
  ClientWidth = 658
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 524
    Top = 213
    Width = 87
    Height = 13
    Caption = #20174#20013#25361#36873#25968#25454#34920':'
  end
  object btnActivate: TButton
    Left = 472
    Top = 269
    Width = 169
    Height = 25
    Caption = '&Activate'
    TabOrder = 1
    OnClick = btnActivateClick
  end
  object cmbTableName: TComboBox
    Left = 503
    Top = 229
    Width = 121
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 0
    OnChange = cmbTableNameChange
  end
  object btnPreview: TButton
    Left = 472
    Top = 301
    Width = 75
    Height = 25
    Caption = 'Pre&view'
    TabOrder = 2
    OnClick = btnPreviewClick
  end
  object btnPrint: TButton
    Left = 574
    Top = 301
    Width = 75
    Height = 25
    Caption = '&Print'
    TabOrder = 3
    OnClick = btnPrintClick
  end
  object btnLoad: TButton
    Left = 472
    Top = 333
    Width = 75
    Height = 25
    Caption = '&Load'
    TabOrder = 4
    OnClick = btnLoadClick
  end
  object btnSave: TButton
    Left = 574
    Top = 333
    Width = 75
    Height = 25
    Caption = '&Save'
    TabOrder = 5
    OnClick = btnSaveClick
  end
  object prvHot: TQRPreview
    Left = -8
    Top = 5
    Width = 449
    Height = 603
    HorzScrollBar.Tracking = True
    VertScrollBar.Tracking = True
    TabOrder = 6
    OnDblClick = prvHotDblClick
    PageNumber = 1
    Zoom = 200
  end
  object qryCurrent: TQuery
    Left = 168
    Top = 32
  end
  object dlgOpen: TOpenDialog
    Left = 168
    Top = 64
  end
  object dlgSave: TSaveDialog
    Left = 168
    Top = 104
  end
end