frmundersafetystock.dfm

物流供应链管理系统

object FormUnderSafetyStock: TFormUnderSafetyStock
  Left = 230
  Top = 118
  Width = 544
  Height = 388
  Caption = #24211#23384#37327#20302#20110#23433#20840#24211#23384#30340#21830#21697
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 24
    Top = 16
    Width = 48
    Height = 13
    Caption = #26465#24418#30721#65306
  end
  object Label2: TLabel
    Left = 200
    Top = 16
    Width = 36
    Height = 13
    Caption = #21517#31216#65306
  end
  object Label3: TLabel
    Left = 360
    Top = 24
    Width = 72
    Height = 13
    Caption = #20379#24212#21830#32534#21495#65306
  end
  object Label4: TLabel
    Left = 24
    Top = 48
    Width = 36
    Height = 13
    Caption = #25968#37327#65306
  end
  object Label5: TLabel
    Left = 176
    Top = 56
    Width = 72
    Height = 13
    Caption = #26368#23567#23450#36141#37327#65306
  end
  object Label6: TLabel
    Left = 360
    Top = 48
    Width = 72
    Height = 13
    Caption = #26368#22823#23450#36141#37327#65306
  end
  object Label7: TLabel
    Left = 24
    Top = 80
    Width = 63
    Height = 13
    Caption = #32463#27982#35746#36135#37327':'
  end
  object Label8: TLabel
    Left = 208
    Top = 88
    Width = 51
    Height = 13
    Caption = #23433#20840#24211#23384':'
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 112
    Width = 521
    Height = 193
    DataSource = DSQuery
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'BarCode'
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Name'
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'VendorId'
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Amount'
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MinOrder'
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MaxOrder'
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'EOQ'
        Width = 80
        Visible = True
      end>
  end
  object DBEdit1: TDBEdit
    Left = 72
    Top = 16
    Width = 97
    Height = 21
    DataField = 'BarCode'
    DataSource = DSQuery
    TabOrder = 1
  end
  object DBEdit2: TDBEdit
    Left = 248
    Top = 16
    Width = 97
    Height = 21
    DataField = 'Name'
    DataSource = DSQuery
    TabOrder = 2
  end
  object DBEdit3: TDBEdit
    Left = 424
    Top = 16
    Width = 89
    Height = 21
    DataField = 'VendorId'
    DataSource = DSQuery
    TabOrder = 3
  end
  object DBEdit4: TDBEdit
    Left = 72
    Top = 48
    Width = 89
    Height = 21
    DataField = 'Amount'
    DataSource = DSQuery
    TabOrder = 4
  end
  object DBEdit5: TDBEdit
    Left = 256
    Top = 48
    Width = 89
    Height = 21
    DataField = 'MinOrder'
    DataSource = DSQuery
    TabOrder = 5
  end
  object DBEdit6: TDBEdit
    Left = 432
    Top = 48
    Width = 89
    Height = 21
    DataField = 'MaxOrder'
    DataSource = DSQuery
    TabOrder = 6
  end
  object DBEdit7: TDBEdit
    Left = 104
    Top = 80
    Width = 89
    Height = 21
    DataField = 'EOQ'
    DataSource = DSQuery
    TabOrder = 7
  end
  object Button1: TButton
    Left = 56
    Top = 320
    Width = 113
    Height = 25
    Caption = #23548#20986#21040'E&xcel'#25991#20214
    TabOrder = 8
    OnClick = Button1Click
  end
  object Button3: TButton
    Left = 304
    Top = 320
    Width = 137
    Height = 25
    Caption = #29983#25104#25253#34920'(&P)'
    TabOrder = 9
    OnClick = Button3Click
  end
  object DBEdit8: TDBEdit
    Left = 272
    Top = 88
    Width = 121
    Height = 21
    DataField = 'SafetyStock'
    DataSource = DSQuery
    TabOrder = 10
  end
  object SocketConQuery: TSocketConnection
    ServerGUID = '{C421BD69-80BE-4695-82FB-F360528676EB}'
    ServerName = 'QueryGoodsBiz.mtsQueryGoodsObj'
    Address = '127.0.0.1'
    Left = 104
    Top = 192
  end
  object cdsQuery: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 192
    Top = 192
    Data = {
      A90000009619E0BD010000001800000007000000000003000000A90007426172
      436F646501004A0000000100055749445448020002002800044E616D6501004A
      00000001000557494454480200020028000856656E646F72496401004A000000
      010005574944544802000200280006416D6F756E740800010000000000084D69
      6E4F726465720800010000000000084D61784F72646572080001000000000003
      454F5108000100000000000000}
    object cdsQueryBarCode: TWideStringField
      DisplayLabel = #26465#24418#30721
      DisplayWidth = 12
      FieldName = 'BarCode'
      ReadOnly = True
    end
    object cdsQueryName: TWideStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 14
      FieldName = 'Name'
      ReadOnly = True
    end
    object cdsQueryVendorId: TWideStringField
      DisplayLabel = #20379#24212#21830#32534#21495
      DisplayWidth = 24
      FieldName = 'VendorId'
      ReadOnly = True
    end
    object cdsQueryAmount: TLargeintField
      DisplayLabel = #25968#37327
      DisplayWidth = 18
      FieldName = 'Amount'
      ReadOnly = True
    end
    object cdsQueryMinOrder: TLargeintField
      DisplayLabel = #26368#23567#23450#36141#37327
      DisplayWidth = 18
      FieldName = 'MinOrder'
      ReadOnly = True
    end
    object cdsQueryMaxOrde: TLargeintField
      DisplayLabel = #26368#22823#23450#36141#37327
      DisplayWidth = 18
      FieldName = 'MaxOrder'
      ReadOnly = True
    end
    object cdsQueryEOQ: TLargeintField
      DisplayLabel = #32463#27982#35746#36135#37327
      DisplayWidth = 18
      FieldName = 'EOQ'
      ReadOnly = True
    end
    object cdsQuerySafetyStock: TLargeintField
      FieldKind = fkCalculated
      FieldName = 'SafetyStock'
      Calculated = True
    end
  end
  object DSQuery: TDataSource
    DataSet = cdsQuery
    Left = 240
    Top = 192
  end
  object DataSetToExcel: TDataSetToExcel
    DataSet = cdsQuery
    Left = 80
    Top = 208
  end
  object ExcelDlg: TSaveDialog
    Filter = '*.xls(Excel'#25991#20214')|*.xls'
    Left = 120
    Top = 256
  end
end