uprint.dfm

这是一个门禁系统的应用程序,用 delphi编写,希望与大家交流.

object frmPrint: TfrmPrint
  Left = 261
  Top = 175
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #25171#21360
  ClientHeight = 168
  ClientWidth = 272
  Color = 16759701
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 72
    Top = 8
    Width = 110
    Height = 19
    Caption = #25171' '#21360' '#35774' '#32622
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -19
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object cbInfo: TCheckBox
    Left = 24
    Top = 40
    Width = 97
    Height = 17
    Caption = #22522#26412#20449#24687
    Checked = True
    State = cbChecked
    TabOrder = 0
  end
  object cbEx: TCheckBox
    Left = 160
    Top = 40
    Width = 97
    Height = 17
    Caption = #24037#20316#32463#21382
    Checked = True
    State = cbChecked
    TabOrder = 1
  end
  object cbFami: TCheckBox
    Left = 24
    Top = 72
    Width = 97
    Height = 17
    Caption = #23478#24237#25104#21592
    Checked = True
    State = cbChecked
    TabOrder = 2
  end
  object cbAP: TCheckBox
    Left = 160
    Top = 72
    Width = 97
    Height = 17
    Caption = #22870#24809#35760#24405
    Checked = True
    State = cbChecked
    TabOrder = 3
  end
  object cbTrain: TCheckBox
    Left = 24
    Top = 104
    Width = 97
    Height = 17
    Caption = #22521#35757#32463#21382
    Checked = True
    State = cbChecked
    TabOrder = 4
  end
  object btnPrint: TButton
    Left = 8
    Top = 136
    Width = 60
    Height = 20
    Caption = #25171'  '#21360
    TabOrder = 5
    OnClick = btnPrintClick
  end
  object btnClose: TBitBtn
    Left = 208
    Top = 136
    Width = 60
    Height = 20
    Caption = #20851'  '#38381
    TabOrder = 6
    Kind = bkCancel
  end
  object cbTrs: TCheckBox
    Left = 160
    Top = 104
    Width = 97
    Height = 17
    Caption = #30028#38754#21322#36879#26126
    TabOrder = 7
    OnClick = cbTrsClick
  end
  object btnPre: TButton
    Left = 74
    Top = 136
    Width = 60
    Height = 20
    Caption = #19978#19968#20010
    TabOrder = 8
    OnClick = btnPreClick
  end
  object btnNext: TButton
    Left = 141
    Top = 136
    Width = 60
    Height = 20
    Caption = #19979#19968#20010
    TabOrder = 9
    OnClick = btnNextClick
  end
  object fdsFami: TfrDBDataSet
    DataSet = dmPer.aqFamif
    Left = 96
    Top = 64
  end
  object fdsSinfo: TfrDBDataSet
    DataSet = dmPer.aqStaf
    Left = 96
    Top = 32
  end
  object fdsAP: TfrDBDataSet
    DataSet = dmPer.aqAPf
    Left = 128
    Top = 64
  end
  object fdsExper: TfrDBDataSet
    DataSet = dmPer.aqExperf
    Left = 128
    Top = 32
  end
  object fdsTrain: TfrDBDataSet
    DataSet = dmPer.aqTrainf
    Left = 96
    Top = 96
  end
  object frPer: TfrReport
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    RebuildPrinter = False
    OnBeforePrint = frPerBeforePrint
    Left = 128
    Top = 96
    ReportForm = {19000000}
  end
end