formprint.dfm

三层ERP系统 (SQL)

inherited frmFormPrint: TfrmFormPrint
  Left = 297
  Top = 177
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #22577#34920#31649#29702
  ClientHeight = 215
  ClientWidth = 378
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 16
    Width = 64
    Height = 15
    Caption = #22577#34920#31649#29702
    Font.Charset = ANSI_CHARSET
    Font.Color = clMaroon
    Font.Height = -15
    Font.Name = #32048#26126#39636
    Font.Style = []
    ParentFont = False
  end
  object Bevel1: TBevel
    Left = 85
    Top = 22
    Width = 252
    Height = 2
  end
  object grid: TDBGridEh
    Left = 19
    Top = 41
    Width = 248
    Height = 158
    DataSource = dsprint
    FixedColor = 12835543
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = ANSI_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -13
    FooterFont.Name = #32048#26126#39636
    FooterFont.Style = []
    TabOrder = 0
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #32048#26126#39636
    TitleFont.Style = []
    OnGetCellParams = gridGetCellParams
  end
  object btnok: TButton
    Left = 288
    Top = 41
    Width = 75
    Height = 25
    Action = acAdd
    TabOrder = 1
  end
  object btnexit: TButton
    Left = 288
    Top = 175
    Width = 75
    Height = 25
    Action = acExit
    TabOrder = 2
  end
  object Button1: TButton
    Left = 288
    Top = 67
    Width = 75
    Height = 25
    Action = acDelete
    TabOrder = 3
  end
  object Button2: TButton
    Left = 288
    Top = 148
    Width = 75
    Height = 25
    Action = acEditreport
    TabOrder = 4
  end
  object Button3: TButton
    Left = 288
    Top = 94
    Width = 75
    Height = 25
    Action = acSave
    TabOrder = 5
  end
  object Button4: TButton
    Left = 288
    Top = 121
    Width = 75
    Height = 25
    Action = acCancel
    TabOrder = 6
  end
  object CDSprint: TClientDataSet
    Aggregates = <>
    Params = <>
    AfterInsert = CDSprintAfterInsert
    Left = 120
    Top = 88
    object CDSprintfid: TAutoIncField
      FieldName = 'fid'
      ReadOnly = True
      Visible = False
    end
    object CDSprintfformname: TWideStringField
      FieldName = 'fformname'
      Visible = False
      Size = 50
    end
    object CDSprintfprintname: TWideStringField
      DisplayLabel = #22577#34920#21517#31281
      DisplayWidth = 18
      FieldName = 'fprintname'
      Size = 50
    end
    object CDSprintfisdefault: TBooleanField
      DisplayLabel = #40664#35469
      FieldName = 'fisdefault'
    end
  end
  object dsprint: TDataSource
    AutoEdit = False
    DataSet = CDSprint
    OnStateChange = dsprintStateChange
    OnDataChange = dsprintDataChange
    Left = 136
    Top = 112
  end
  object ActionList1: TActionList
    Left = 200
    Top = 104
    object acAdd: TAction
      Caption = #26032#22686#22577#34920
      OnExecute = acAddExecute
    end
    object acDelete: TAction
      Caption = #21034#38500#22577#34920
      OnExecute = acDeleteExecute
    end
    object acSave: TAction
      Caption = #20445#23384
      OnExecute = acSaveExecute
    end
    object acCancel: TAction
      Caption = #21462#28040
      OnExecute = acCancelExecute
    end
    object acEditreport: TAction
      Caption = #20462#25913#22577#34920
      OnExecute = acEditreportExecute
    end
    object acExit: TAction
      Caption = #36864#20986
      OnExecute = acExitExecute
    end
  end
  object frReport: TfrReport
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    RebuildPrinter = False
    Left = 40
    Top = 144
    ReportForm = {19000000}
  end
  object frDesigner: TfrDesigner
    Left = 96
    Top = 152
  end
end