ord140_04.dfm.svn-base

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

          Width = 113
          Height = 20
          Color = clBtnFace
          Enabled = False
          TabOrder = 1
        end
        object Edit17: TEdit
          Left = 248
          Top = 16
          Width = 177
          Height = 20
          Color = clBtnFace
          Enabled = False
          TabOrder = 2
        end
        object CheckBox8: TCheckBox
          Left = 16
          Top = 18
          Width = 81
          Height = 17
          Caption = #20132#36135#22320#21306
          TabOrder = 0
        end
      end
    end
    object TabSheet3: TTabSheet [3]
      Caption = 'TabSheet3'
      ImageIndex = 4
      TabVisible = False
      object Label5: TLabel
        Left = 16
        Top = 8
        Width = 96
        Height = 12
        Caption = #35774#32622#20215#26684#25110#25240#25187#29575
      end
      object dbgOrd140B: TwwDBGrid
        Tag = 99
        Left = 16
        Top = 32
        Width = 289
        Height = 281
        ControlType.Strings = (
          'FCode;CustomEdit;edtItem;F')
        Selected.Strings = (
          'FCode'#9'18'#9#32534#21495#9#9
          'FName'#9'27'#9#21517#31216#9'T'#9)
        IniAttributes.Delimiter = ';;'
        TitleColor = clBtnFace
        FixedCols = 0
        ShowHorzScrollBar = True
        DataSource = dsOrd140B
        KeyOptions = [dgEnterToTab, dgAllowDelete, dgAllowInsert]
        TabOrder = 0
        TitleAlignment = taCenter
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Pitch = fpFixed
        TitleFont.Style = []
        TitleLines = 1
        TitleButtons = False
      end
      object dbgOrd140C: TwwDBGrid
        Tag = 99
        Left = 312
        Top = 32
        Width = 144
        Height = 281
        Selected.Strings = (
          'FMoney'#9'10'#9#25968#37327#37329#39069#9#9
          'FDiscount'#9'10'#9#20215#26684#25240#25187#9#9)
        IniAttributes.Delimiter = ';;'
        TitleColor = clBtnFace
        FixedCols = 0
        ShowHorzScrollBar = True
        DataSource = dsOrd140C
        KeyOptions = [dgEnterToTab, dgAllowDelete, dgAllowInsert]
        TabOrder = 1
        TitleAlignment = taLeftJustify
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Pitch = fpFixed
        TitleFont.Style = []
        TitleLines = 1
        TitleButtons = False
      end
      object CheckBox9: TCheckBox
        Left = 312
        Top = 8
        Width = 145
        Height = 17
        Caption = #30456#21516#30340#20215#26684#25110#25240#25187#29575
        TabOrder = 2
      end
      object edtItem: TwwDBComboDlg
        Left = 40
        Top = 72
        Width = 121
        Height = 20
        ShowButton = True
        Style = csDropDown
        TabOrder = 3
        WordWrap = False
        UnboundDataType = wwDefault
      end
    end
  end
  object qryItems: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      
        'select I150_001 as FNo,I150_002 as FCode,I150_003 as FName from ' +
        'INV150')
    Left = 120
    Top = 368
    object qryItemsFCode: TWideStringField
      DisplayLabel = #32534#21495
      FieldName = 'FCode'
      Size = 30
    end
    object qryItemsFName: TWideStringField
      DisplayLabel = #21517#31216
      FieldName = 'FName'
      Size = 60
    end
    object qryItemsFNo: TAutoIncField
      FieldName = 'FNo'
      ReadOnly = True
      Visible = False
    end
  end
  object adsOrd140B: TADODataSet
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    FieldDefs = <
      item
        Name = 'FNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FCode'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'FName'
        DataType = ftString
        Size = 60
      end>
    Parameters = <>
    StoreDefs = True
    Left = 216
    Top = 168
    object adsOrd140BFCode: TStringField
      DisplayLabel = #32534#21495
      DisplayWidth = 18
      FieldName = 'FCode'
      Size = 30
    end
    object adsOrd140BFName: TStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 27
      FieldName = 'FName'
      Size = 60
    end
    object adsOrd140BFNo: TIntegerField
      FieldName = 'FNo'
      Visible = False
    end
  end
  object qryOrd140B: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from ord140B')
    Left = 248
    Top = 168
    object qryOrd140BO140B_001: TIntegerField
      FieldName = 'O140B_001'
    end
    object qryOrd140BO140B_002: TSmallintField
      FieldName = 'O140B_002'
    end
    object qryOrd140BO140B_003: TIntegerField
      FieldName = 'O140B_003'
    end
  end
  object dsOrd140B: TDataSource
    DataSet = adsOrd140B
    Left = 184
    Top = 168
  end
  object dsOrd140C: TDataSource
    DataSet = adsOrd140C
    Left = 456
    Top = 168
  end
  object adsOrd140C: TADODataSet
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    FieldDefs = <
      item
        Name = 'FNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FMoney'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FDiscount'
        Attributes = [faFixed]
        DataType = ftFloat
      end>
    Parameters = <>
    StoreDefs = True
    Left = 488
    Top = 168
    object adsOrd140CFNo: TIntegerField
      DisplayLabel = #30005#33041#32534#21495
      FieldName = 'FNo'
      Visible = False
    end
    object adsOrd140CFMoney: TFloatField
      DisplayLabel = #25968#37327#37329#39069
      DisplayWidth = 10
      FieldName = 'FMoney'
    end
    object adsOrd140CFDiscount: TFloatField
      DisplayLabel = #20215#26684#25240#25187
      DisplayWidth = 10
      FieldName = 'FDiscount'
    end
  end
  object qryOrd140C: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from ord140C')
    Left = 520
    Top = 168
    object qryOrd140CO140C_001: TIntegerField
      FieldName = 'O140C_001'
    end
    object qryOrd140CO140C_002: TFloatField
      FieldName = 'O140C_002'
    end
    object qryOrd140CO140C_003: TFloatField
      FieldName = 'O140C_003'
    end
  end
  object qryGld100: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from GLD100')
    Left = 80
    Top = 368
  end
  object ADOQuery1: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from ORD140A order by O140A_002')
    Left = 48
    Top = 368
  end
  object qryInv150: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select I150_001,I150_002,I150_003 from INV150 order by I150_002')
    Left = 328
    Top = 40
    object qryInv150I150_001: TAutoIncField
      FieldName = 'I150_001'
      ReadOnly = True
      Visible = False
    end
    object qryInv150I150_002: TWideStringField
      DisplayLabel = #26009#21697#32534#21495
      FieldName = 'I150_002'
      Size = 30
    end
    object qryInv150I150_003: TWideStringField
      DisplayLabel = #26009#21697#21517#31216
      FieldName = 'I150_003'
      Size = 60
    end
  end
end