uproducebill_e.dfm

进销存以及BOM管理,SQl Server数据库程序

        Top = 60
        Width = 83
        Height = 13
        AutoSize = False
        Caption = #29289#26009#25511#21046#36827#24230
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label16: TLabel
        Left = 207
        Top = 33
        Width = 59
        Height = 13
        AutoSize = False
        Caption = #23436#25104#26085#26399
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label17: TLabel
        Left = 207
        Top = 60
        Width = 81
        Height = 13
        AutoSize = False
        Caption = #29983#20135#25511#21046#36827#24230
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object wwCheckBox2: TwwCheckBox
        Left = 6
        Top = 8
        Width = 87
        Height = 17
        DisableThemes = False
        AlwaysTransparent = False
        ValueChecked = 'True'
        ValueUnchecked = 'False'
        DisplayValueChecked = 'True'
        DisplayValueUnchecked = 'False'
        NullAndBlankState = cbUnchecked
        Caption = #24320#22987#29983#20135
        DataField = 'fisbproduce'
        DataSource = frmproducebill.dsBaseInfo
        TabOrder = 0
      end
      object wwDBDateTimePicker2: TwwDBDateTimePicker
        Left = 79
        Top = 31
        Width = 124
        Height = 20
        CalendarAttributes.Font.Charset = DEFAULT_CHARSET
        CalendarAttributes.Font.Color = clWindowText
        CalendarAttributes.Font.Height = -11
        CalendarAttributes.Font.Name = 'MS Sans Serif'
        CalendarAttributes.Font.Style = []
        DataField = 'fisbdate'
        DataSource = frmproducebill.dsBaseInfo
        Epoch = 1950
        ShowButton = True
        TabOrder = 1
      end
      object wwDBDateTimePicker3: TwwDBDateTimePicker
        Left = 283
        Top = 31
        Width = 124
        Height = 20
        CalendarAttributes.Font.Charset = DEFAULT_CHARSET
        CalendarAttributes.Font.Color = clWindowText
        CalendarAttributes.Font.Height = -11
        CalendarAttributes.Font.Name = 'MS Sans Serif'
        CalendarAttributes.Font.Style = []
        DataField = 'fisfdate'
        DataSource = frmproducebill.dsBaseInfo
        Epoch = 1950
        ShowButton = True
        TabOrder = 3
      end
      object wwDBLookupCombo1: TwwDBLookupCombo
        Left = 79
        Top = 56
        Width = 125
        Height = 20
        DropDownAlignment = taLeftJustify
        Selected.Strings = (
          'state'#9'18'#9#29366#24577#9'F')
        DataField = 'fismcontrol'
        DataSource = frmproducebill.dsBaseInfo
        LookupTable = CDSmaterial
        LookupField = 'state'
        Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
        TabOrder = 2
        AutoDropDown = False
        ShowButton = True
        PreciseEditRegion = False
        AllowClearKey = False
      end
      object wwDBLookupCombo2: TwwDBLookupCombo
        Left = 283
        Top = 55
        Width = 125
        Height = 20
        DropDownAlignment = taLeftJustify
        Selected.Strings = (
          'state'#9'18'#9#29366#24577#9'F')
        DataField = 'fispcontrol'
        DataSource = frmproducebill.dsBaseInfo
        LookupTable = CDSproduce
        LookupField = 'state'
        Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
        TabOrder = 4
        AutoDropDown = False
        ShowButton = True
        PreciseEditRegion = False
        AllowClearKey = False
      end
    end
    object wwDBDateTimePicker1: TwwDBDateTimePicker
      Left = 70
      Top = 41
      Width = 135
      Height = 20
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      DataField = 'fdate_finish'
      DataSource = frmproducebill.dsBaseInfo
      Epoch = 1950
      ShowButton = True
      TabOrder = 1
    end
    object wwDBDateTimePicker4: TwwDBDateTimePicker
      Left = 274
      Top = 232
      Width = 121
      Height = 20
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      DataField = 'fbill_date'
      DataSource = frmproducebill.dsBaseInfo
      Epoch = 1950
      ShowButton = True
      TabOrder = 10
    end
    object wwDBLookupCombo3: TwwDBLookupCombo
      Left = 64
      Top = 232
      Width = 121
      Height = 20
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'fname'#9'18'#9#20154#21592#36164#26009#9'F')
      DataField = 'fbill_user'
      DataSource = frmproducebill.dsBaseInfo
      LookupTable = Quser
      LookupField = 'fname'
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      TabOrder = 9
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
  end
  inherited Button1: TButton
    Left = 440
    TabOrder = 2
  end
  inherited Button2: TButton
    Left = 440
    TabOrder = 3
  end
  inherited Button3: TButton
    Left = 440
    Top = 240
    TabOrder = 1
  end
  inherited wwCheckBox1: TwwCheckBox
    Left = 216
    Top = 153
    Caption = #23436#25104#29366#24577
    DataField = 'fisfinish'
    DataSource = frmproducebill.dsBaseInfo
  end
  inherited iscopy: TwwCheckBox
    Left = 440
    Top = 272
    TabOrder = 0
  end
  inherited QIsUnique: TADOQuery
    Left = 296
    Top = 144
  end
  object CDSmaterial: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 124
    Top = 209
    object CDSmaterialstate: TStringField
      DisplayLabel = #29366#24577
      DisplayWidth = 18
      FieldName = 'state'
      Size = 18
    end
  end
  object CDSproduce: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 332
    Top = 209
    object CDSproducestate: TStringField
      DisplayLabel = #29366#24577
      DisplayWidth = 18
      FieldName = 'state'
      Size = 18
    end
  end
  object Quser: TADOQuery
    CacheSize = 1000
    Connection = DataM.AdoConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    MarshalOptions = moMarshalModifiedOnly
    Parameters = <>
    Left = 120
    Top = 248
    object Quserfname: TStringField
      DisplayLabel = #20154#21592#36164#26009
      DisplayWidth = 18
      FieldName = 'fname'
      Size = 18
    end
  end
  object spGetOutNumber: TADOStoredProc
    CacheSize = 1000
    Connection = DataM.AdoConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    MarshalOptions = moMarshalModifiedOnly
    ProcedureName = 'pGetOutNumber;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@BillType'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@OutNumber'
        Attributes = [paNullable]
        DataType = ftWideString
        Direction = pdInputOutput
        Size = 50
        Value = Null
      end>
    Left = 472
    Top = 104
  end
  object Qitem: TADOQuery
    CacheSize = 1000
    Connection = DataM.AdoConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    MarshalOptions = moMarshalModifiedOnly
    Parameters = <>
    Left = 464
    Top = 144
    object Qitemfcode: TWideStringField
      FieldName = 'fcode'
    end
    object Qitemfname: TWideStringField
      FieldName = 'fname'
      Size = 38
    end
    object Qitemfdesc: TWideStringField
      FieldName = 'fdesc'
      Size = 48
    end
    object Qitemfcolor: TWideStringField
      FieldName = 'fcolor'
      Size = 18
    end
    object Qitemfunit: TWideStringField
      FieldName = 'funit'
      Size = 12
    end
    object Qitemfid: TIntegerField
      FieldName = 'fid'
    end
  end
end