frmmakestockoutlist.dfm

物流供应链管理系统

object FormMakeStockOutList: TFormMakeStockOutList
  Left = 219
  Top = 103
  Width = 551
  Height = 395
  Caption = #24320#20986#24211#21333
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 12
  object GroupBox1: TGroupBox
    Left = 16
    Top = 40
    Width = 521
    Height = 89
    Caption = #20027#35201#20449#24687
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      Top = 24
      Width = 48
      Height = 12
      Caption = #21333#21495'(&I):'
    end
    object Label2: TLabel
      Left = 216
      Top = 16
      Width = 102
      Height = 12
      Caption = #25552#36135#21333#20301#32534#30721'(&D)'#65306
    end
    object Label3: TLabel
      Left = 16
      Top = 48
      Width = 72
      Height = 12
      Caption = #24212#25552#26085#26399'(&A):'
    end
    object Label4: TLabel
      Left = 248
      Top = 48
      Width = 72
      Height = 12
      Caption = #22833#25928#26085#26399'(&T):'
    end
    object DBEdtId: TDBEdit
      Left = 80
      Top = 16
      Width = 121
      Height = 20
      DataField = 'Id'
      DataSource = DSStockOutListMaster
      ReadOnly = True
      TabOrder = 0
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 328
      Top = 16
      Width = 161
      Height = 20
      DataField = 'PickDepartmentId'
      DataSource = DSStockOutListMaster
      KeyField = 'Id'
      ListField = 'Name'
      ListSource = DSDepart
      TabOrder = 1
    end
    object DBDateTimePicker1: TDBDateTimePicker
      Left = 96
      Top = 48
      Width = 121
      Height = 20
      Date = 38193.942238449080000000
      Time = 38193.942238449080000000
      TabOrder = 2
      DataField = 'PickableDate'
      DataSource = DSStockOutListMaster
      ReadOnly = False
    end
    object DBDateTimePicker2: TDBDateTimePicker
      Left = 328
      Top = 48
      Width = 121
      Height = 20
      Date = 38193.942238449080000000
      Time = 38193.942238449080000000
      TabOrder = 3
      DataField = 'DeadTime'
      DataSource = DSStockOutListMaster
      ReadOnly = False
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 184
    Width = 537
    Height = 145
    Caption = #35814#32454#20449#24687
    TabOrder = 1
    object Label5: TLabel
      Left = 32
      Top = 24
      Width = 48
      Height = 12
      Caption = #26465#30721'(&B):'
    end
    object Label6: TLabel
      Left = 280
      Top = 16
      Width = 72
      Height = 12
      Caption = #24212#25552#25968#37327'(&C]:'
    end
    object DBEdit2: TDBEdit
      Left = 96
      Top = 16
      Width = 137
      Height = 20
      DataField = 'BarCode'
      DataSource = DSStockOutListSlave
      TabOrder = 0
    end
    object DBEdit3: TDBEdit
      Left = 368
      Top = 16
      Width = 97
      Height = 20
      DataField = 'PickableAmount'
      DataSource = DSStockOutListSlave
      TabOrder = 1
    end
    object DBGrid1: TDBGrid
      Left = 16
      Top = 40
      Width = 497
      Height = 97
      DataSource = DSStockOutListSlave
      ReadOnly = True
      TabOrder = 2
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'MasterId'
          Title.Caption = #20027#34920#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'BarCode'
          Title.Caption = #26465#30721
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PickableAmount'
          Title.Caption = #24212#25552#25968#37327
          Visible = True
        end>
    end
  end
  object BtnMakeStockOutList: TButton
    Left = 32
    Top = 8
    Width = 113
    Height = 25
    Caption = #26032#24314#20986#24211#21333
    TabOrder = 2
    OnClick = BtnMakeStockOutListClick
  end
  object BtnPostMaster: TButton
    Left = 192
    Top = 8
    Width = 113
    Height = 25
    Caption = #20445#23384#20986#24211#21333
    Enabled = False
    TabOrder = 3
    OnClick = BtnPostMasterClick
  end
  object Button3: TButton
    Left = 336
    Top = 8
    Width = 129
    Height = 25
    Caption = #36864#20986
    TabOrder = 4
    OnClick = Button3Click
  end
  object LCDBOperatTool1: TLCDBOperatTool
    Left = 24
    Top = 152
    Width = 425
    Height = 25
    VisibleBtn = [tbAdd, tbDel, tbEdit, tbPost, tbCancel]
    EnabledBtn = [tbAdd, tbDel, tbEdit]
    DelConfirmId = 'MakeStockOutList'
    DataSource = DSStockOutListSlave
    OnModeChange = LCDBOperatTool1ModeChange
    OnClick = LCDBOperatTool1Click
  end
  object Button1: TButton
    Left = 72
    Top = 336
    Width = 129
    Height = 25
    Caption = #25171#21360#27492#21333'(&S)'
    TabOrder = 6
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 264
    Top = 336
    Width = 145
    Height = 25
    Caption = #36755#20986#27492#21333#21040'Excel'#25991#20214'(&X)'
    TabOrder = 7
    OnClick = Button2Click
  end
  object SocketConStockOutList: TSocketConnection
    ServerGUID = '{B69D8A64-A164-499F-B284-6307FC75C521}'
    ServerName = 'StockOutListBiz.mtsStockOutListBiz'
    Address = '127.0.0.1'
    Left = 80
    Top = 104
  end
  object cdsStockOutListMaster: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 136
    Top = 80
    Data = {
      910000009619E0BD010000001800000005000000000003000000910002496401
      004A0000000100055749445448020002002800105069636B4465706172746D65
      6E74496401004A00000001000557494454480200020028000C47656E65726174
      654461746508000800000000000C5069636B61626C6544617465080008000000
      0000084465616454696D6508000800000000000000}
    object cdsStockOutListMasterId: TWideStringField
      FieldName = 'Id'
    end
    object cdsStockOutListMasterPickDepartmentId: TWideStringField
      FieldName = 'PickDepartmentId'
    end
    object cdsStockOutListMasterGenerateDate: TDateTimeField
      FieldName = 'GenerateDate'
    end
    object cdsStockOutListMasterPickableDate: TDateTimeField
      FieldName = 'PickableDate'
    end
    object cdsStockOutListMasterDeadTime: TDateTimeField
      FieldName = 'DeadTime'
    end
  end
  object cdsStockOutListSlave: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 136
    Top = 128
    Data = {
      6A0000009619E0BD0100000018000000030000000000030000006A00084D6173
      746572496401004A000000010005574944544802000200280007426172436F64
      6501004A00000001000557494454480200020028000E5069636B61626C65416D
      6F756E7408000100000000000000}
    object cdsStockOutListSlaveMasterId: TWideStringField
      FieldName = 'MasterId'
    end
    object cdsStockOutListSlaveBarCode: TWideStringField
      FieldName = 'BarCode'
    end
    object cdsStockOutListSlavePickableAmount: TLargeintField
      FieldName = 'PickableAmount'
    end
  end
  object DSStockOutListMaster: TDataSource
    DataSet = cdsStockOutListMaster
    Left = 184
    Top = 80
  end
  object DSStockOutListSlave: TDataSource
    DataSet = cdsStockOutListSlave
    Left = 176
    Top = 128
  end
  object cdsDepart: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspDepartment'
    RemoteServer = SocketConBaseInfo
    Left = 152
    Top = 184
  end
  object SocketConBaseInfo: TSocketConnection
    ServerGUID = '{D5BD1246-D633-4FE9-8F95-D67905A4003A}'
    ServerName = 'BaseInfoBiz.mtsBaseInfoBiz'
    Address = '127.0.0.1'
    Left = 80
    Top = 176
  end
  object DSDepart: TDataSource
    DataSet = cdsDepart
    Left = 224
    Top = 192
  end
  object SocketConQuery: TSocketConnection
    ServerGUID = '{5E832DAE-3ADC-4454-933B-17199232C6CF}'
    ServerName = 'DataBaseQueryData.mtsQueryObj'
    Address = '127.0.0.1'
    Left = 80
    Top = 248
  end
  object DataSetToExcel: TDataSetToExcel
    DataSet = cdsStockOutListSlave
    Left = 304
    Top = 272
  end
  object XlsDlg: TSaveDialog
    Filter = '*.xls(Excel'#25991#20214')|*.xls'
    Left = 344
    Top = 272
  end
end