frmstockoutlistmanage.dfm

物流供应链管理系统

object FormStockOutListManage: TFormStockOutListManage
  Left = 319
  Top = 57
  Width = 544
  Height = 415
  ActiveControl = EdtId
  Caption = #20986#24211#21333#31649#29702
  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 Label1: TLabel
    Left = 16
    Top = 16
    Width = 78
    Height = 12
    Caption = #20986#24211#21333#21495'(&I)'#65306
    FocusControl = EdtId
  end
  object Label2: TLabel
    Left = 8
    Top = 40
    Width = 96
    Height = 12
    Caption = #25552#36135#21333#20301#32534#30721'(&V):'
  end
  object Label3: TLabel
    Left = 16
    Top = 80
    Width = 84
    Height = 12
    Caption = #24212#25552#36135#26085#26399'(&X):'
  end
  object Label4: TLabel
    Left = 272
    Top = 80
    Width = 72
    Height = 12
    Caption = #22833#25928#26085#26399'(&T):'
  end
  object EdtId: TEdit
    Left = 104
    Top = 8
    Width = 113
    Height = 20
    TabOrder = 0
  end
  object Button1: TButton
    Left = 232
    Top = 8
    Width = 65
    Height = 25
    Caption = #26597#25214#27492#21333
    TabOrder = 1
    OnClick = Button1Click
  end
  object DBDateTimePicker1: TDBDateTimePicker
    Left = 96
    Top = 72
    Width = 129
    Height = 20
    Date = 38193.605912442130000000
    Time = 38193.605912442130000000
    TabOrder = 2
    OnChange = DBDateTimePicker1Change
    DataField = 'PickableDate'
    DataSource = DSStockOutListMaster
    ReadOnly = False
  end
  object DBDateTimePicker2: TDBDateTimePicker
    Left = 344
    Top = 72
    Width = 137
    Height = 20
    Date = 38193.605951145830000000
    Time = 38193.605951145830000000
    TabOrder = 3
    OnChange = DBDateTimePicker1Change
    DataField = 'DeadTime'
    DataSource = DSStockOutListMaster
    ReadOnly = False
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 104
    Width = 529
    Height = 233
    Caption = #20986#24211#21333#26126#32454
    TabOrder = 4
    object Label5: TLabel
      Left = 40
      Top = 56
      Width = 66
      Height = 12
      Caption = #26465#24418#30721'(&B)'#65306
    end
    object Label6: TLabel
      Left = 272
      Top = 56
      Width = 66
      Height = 12
      Caption = #24212#25552#37327'(&N)'#65306
    end
    object LCDBOperatTool1: TLCDBOperatTool
      Left = 8
      Top = 16
      Width = 505
      Height = 25
      VisibleBtn = [tbAdd, tbDel, tbEdit, tbPost, tbCancel]
      EnabledBtn = [tbAdd, tbDel, tbEdit]
      DelConfirmId = 'SaleDepartStockOutListManage'
      DataSource = DSStockOutListSlave
      OnModeChange = LCDBOperatTool1ModeChange
      OnClick = LCDBOperatTool1Click
    end
    object DBEdit2: TDBEdit
      Left = 120
      Top = 56
      Width = 121
      Height = 20
      DataField = 'BarCode'
      DataSource = DSStockOutListSlave
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 360
      Top = 56
      Width = 121
      Height = 20
      DataField = 'PickableAmount'
      DataSource = DSStockOutListSlave
      TabOrder = 2
    end
    object DBGrid1: TDBGrid
      Left = 8
      Top = 80
      Width = 513
      Height = 145
      DataSource = DSStockOutListSlave
      ReadOnly = True
      TabOrder = 3
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
    end
  end
  object BtnPost: TButton
    Left = 376
    Top = 8
    Width = 113
    Height = 25
    Caption = #25552#20132#26356#25913
    Enabled = False
    TabOrder = 5
    OnClick = BtnPostClick
  end
  object DBEdit1: TDBEdit
    Left = 112
    Top = 40
    Width = 113
    Height = 20
    DataField = 'PickDepartmentId'
    DataSource = DSStockOutListMaster
    TabOrder = 6
    OnChange = DBDateTimePicker1Change
  end
  object Button2: TButton
    Left = 272
    Top = 352
    Width = 145
    Height = 25
    Caption = #36755#20986#27492#21333#21040'Excel'#25991#20214'(&X)'
    TabOrder = 7
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 80
    Top = 352
    Width = 129
    Height = 25
    Caption = #25171#21360#27492#21333'(&S)'
    TabOrder = 8
  end
  object cdsStockOutListMaster: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 88
    Top = 200
    Data = {
      910000009619E0BD010000001800000005000000000003000000910002496401
      004A0000000100055749445448020002002800105069636B4465706172746D65
      6E74496401004A00000001000557494454480200020028000C47656E65726174
      654461746508000800000000000C5069636B61626C6544617465080008000000
      0000084465616454696D6508000800000000000000}
    object cdsStockOutListMasterId: TWideStringField
      DisplayLabel = #32534#21495
      FieldName = 'Id'
      ReadOnly = True
      Required = True
    end
    object cdsStockOutListMasterPickDepartmentId: TWideStringField
      DisplayLabel = #25552#36135#21333#20301#32534#30721
      FieldName = 'PickDepartmentId'
      Required = True
    end
    object cdsStockOutListMasterGenerateDate: TDateTimeField
      DisplayLabel = #29983#25104#26085#26399
      FieldName = 'GenerateDate'
      Required = True
    end
    object cdsStockOutListMasterPickableDate: TDateTimeField
      DisplayLabel = #24212#25552#36135#26085#26399
      FieldName = 'PickableDate'
      Required = True
    end
    object cdsStockOutListMasterDeadTime: TDateTimeField
      DisplayLabel = #22833#25928#26085#26399
      FieldName = 'DeadTime'
      Required = True
    end
  end
  object cdsStockOutListSlave: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 88
    Top = 248
    Data = {
      6A0000009619E0BD0100000018000000030000000000030000006A00084D6173
      746572496401004A000000010005574944544802000200280007426172436F64
      6501004A00000001000557494454480200020028000E5069636B61626C65416D
      6F756E7408000100000000000000}
    object cdsStockOutListSlaveMasterId: TWideStringField
      DisplayLabel = #20027#34920#21333#21495
      FieldName = 'MasterId'
    end
    object cdsStockOutListSlaveBarCode: TWideStringField
      DisplayLabel = #26465#24418#30721
      FieldName = 'BarCode'
    end
    object cdsStockOutListSlavePickableAmount: TLargeintField
      DisplayLabel = #24212#25552#37327
      FieldName = 'PickableAmount'
    end
  end
  object DSStockOutListMaster: TDataSource
    DataSet = cdsStockOutListMaster
    Left = 152
    Top = 200
  end
  object DSStockOutListSlave: TDataSource
    DataSet = cdsStockOutListSlave
    Left = 152
    Top = 248
  end
  object SocketConStockOutList: TSocketConnection
    ServerGUID = '{B69D8A64-A164-499F-B284-6307FC75C521}'
    ServerName = 'StockOutListBiz.mtsStockOutListBiz'
    Address = '127.0.0.1'
    Left = 40
    Top = 200
  end
  object SocketConQuery: TSocketConnection
    Connected = True
    ServerGUID = '{5E832DAE-3ADC-4454-933B-17199232C6CF}'
    ServerName = 'DataBaseQueryData.mtsQueryObj'
    Address = '127.0.0.1'
    Left = 264
    Top = 40
  end
end