tas520_04.dfm.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

object Tas520_04Form: TTas520_04Form
  Left = 192
  Top = 107
  BorderStyle = bsSingle
  Caption = #25253#34920#25171#21360
  ClientHeight = 143
  ClientWidth = 297
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Bevel1: TBevel
    Left = 8
    Top = 8
    Width = 281
    Height = 97
    Shape = bsFrame
  end
  object lblReport: TLabel
    Left = 32
    Top = 32
    Width = 48
    Height = 12
    Caption = #25253#34920#21517#31216
  end
  object lblCopys: TLabel
    Left = 32
    Top = 56
    Width = 48
    Height = 12
    Caption = #25171#21360#20221#25968
  end
  object cbReport: TComboBox
    Left = 88
    Top = 24
    Width = 177
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    ItemIndex = 0
    TabOrder = 0
    Text = #31354#30333#26381#21153#25253#21578'-'#32500#20462#37096
    Items.Strings = (
      #31354#30333#26381#21153#25253#21578'-'#32500#20462#37096
      #31354#30333#26381#21153#25253#21578'-'#25216#26415#37096)
  end
  object bbtnOk: TBitBtn
    Left = 128
    Top = 112
    Width = 75
    Height = 25
    Caption = #30830#23450'(&O)'
    TabOrder = 4
    OnClick = bbtnOkClick
  end
  object bbtnExit: TBitBtn
    Left = 208
    Top = 112
    Width = 75
    Height = 25
    Caption = #36864#20986'(&X)'
    TabOrder = 5
    OnClick = bbtnExitClick
  end
  object cbPrintCode: TCheckBox
    Left = 88
    Top = 72
    Width = 177
    Height = 17
    Caption = #25171#21360#21333#25454#32534#21495
    Checked = True
    State = cbChecked
    TabOrder = 3
  end
  object edtCopys: TEdit
    Left = 88
    Top = 48
    Width = 161
    Height = 20
    TabOrder = 1
    Text = '1'
    OnKeyPress = edtCopysKeyPress
  end
  object udCopys: TUpDown
    Left = 249
    Top = 48
    Width = 15
    Height = 20
    Associate = edtCopys
    Min = 1
    Max = 0
    Position = 1
    TabOrder = 2
    Wrap = False
  end
  object frReport1: TfrReport
    Dataset = frDBDataSet1
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    RebuildPrinter = False
    Left = 8
    Top = 96
    ReportForm = {19000000}
  end
  object frDBDataSet1: TfrDBDataSet
    DataSet = ADODataSet1
    Left = 40
    Top = 96
  end
  object ADODataSet1: TADODataSet
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    FieldDefs = <
      item
        Name = 'FID'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FCode'
        DataType = ftString
        Size = 30
      end>
    Parameters = <>
    StoreDefs = True
    Left = 72
    Top = 96
  end
end