frmrequestordertoorderlist.dfm

物流供应链管理系统

object FormRequestOrderToOrderList: TFormRequestOrderToOrderList
  Left = 184
  Top = 129
  Width = 610
  Height = 548
  Caption = #35831#36141#21333#36716#37319#36141#21333
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  OnHide = FormHide
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Label2: TLabel
    Left = 8
    Top = 56
    Width = 48
    Height = 12
    Caption = #35831#36141#26085#26399
  end
  object Label3: TLabel
    Left = 240
    Top = 56
    Width = 84
    Height = 12
    Caption = #35831#36141#37096#38376#32534#21495#65306
  end
  object Label4: TLabel
    Left = 0
    Top = 88
    Width = 72
    Height = 12
    Caption = #35831#36141#20154#32534#21495#65306
  end
  object Button1: TButton
    Left = 304
    Top = 8
    Width = 113
    Height = 25
    Caption = #26597#35810#27492#35831#36141#21333'(&Q)'
    TabOrder = 0
    OnClick = Button1Click
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 104
    Width = 585
    Height = 81
    DataSource = DSRequestOrderSlave
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  object BtnConvert: TButton
    Left = 320
    Top = 200
    Width = 161
    Height = 25
    Caption = #35831#36141#21333#36716#37319#36141#21333'(&C)'
    Enabled = False
    TabOrder = 2
    OnClick = BtnConvertClick
  end
  object DBGrid2: TDBGrid
    Left = 16
    Top = 392
    Width = 545
    Height = 89
    DataSource = DSOrderListSlave
    TabOrder = 3
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  object LEdtRequestOrderId: TLabeledEdit
    Left = 160
    Top = 8
    Width = 121
    Height = 20
    EditLabel.Width = 90
    EditLabel.Height = 12
    EditLabel.Caption = #35831#36141#21333#32534#21495'(&I)'#65306
    LabelPosition = lpLeft
    TabOrder = 4
  end
  object Button3: TButton
    Left = 16
    Top = 488
    Width = 97
    Height = 25
    Caption = #20445#23384#21040#25968#25454#24211
    TabOrder = 5
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 136
    Top = 488
    Width = 121
    Height = 25
    Caption = #20445#23384#20026'Excel'#25991#20214
    TabOrder = 6
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 272
    Top = 488
    Width = 89
    Height = 25
    Caption = #20445#23384#20026'XML'#25991#20214
    TabOrder = 7
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 384
    Top = 488
    Width = 89
    Height = 25
    Caption = #25171#21360#27492#37319#36141#21333
    TabOrder = 8
  end
  object Button7: TButton
    Left = 488
    Top = 488
    Width = 73
    Height = 25
    Caption = 'Email'#27492#21333
    TabOrder = 9
    OnClick = Button7Click
  end
  object DBEdtRequestDate: TDBEdit
    Left = 72
    Top = 48
    Width = 121
    Height = 20
    DataField = 'RequestDate'
    DataSource = DSRequestOrderMaster
    ReadOnly = True
    TabOrder = 10
  end
  object DBEdtDepartId: TDBEdit
    Left = 336
    Top = 48
    Width = 121
    Height = 20
    DataField = 'RequestDepartId'
    DataSource = DSRequestOrderMaster
    ReadOnly = True
    TabOrder = 11
  end
  object DBEdtOperator: TDBEdit
    Left = 72
    Top = 80
    Width = 121
    Height = 20
    DataField = 'RequestOperatorId'
    DataSource = DSRequestOrderMaster
    ReadOnly = True
    TabOrder = 12
  end
  object DBCBChecked: TDBCheckBox
    Left = 288
    Top = 88
    Width = 97
    Height = 17
    Caption = #26159#21542#24050#23457#26680
    DataField = 'IsChecked'
    DataSource = DSRequestOrderMaster
    ReadOnly = True
    TabOrder = 13
    ValueChecked = 'True'
    ValueUnchecked = 'False'
  end
  object DBCBProcessed: TDBCheckBox
    Left = 440
    Top = 88
    Width = 97
    Height = 17
    Caption = #26159#21542#24050#22788#29702
    DataField = 'IsProcessed'
    DataSource = DSRequestOrderMaster
    ReadOnly = True
    TabOrder = 14
    ValueChecked = 'True'
    ValueUnchecked = 'False'
  end
  object GroupBox1: TGroupBox
    Left = 24
    Top = 232
    Width = 569
    Height = 49
    Caption = #37319#36141#21333#20027#35201#20449#24687
    TabOrder = 15
    object Label1: TLabel
      Left = 256
      Top = 29
      Width = 72
      Height = 12
      Caption = #20379#24212#21830#32534#21495#65306
    end
    object LEdtOrderListId: TLabeledEdit
      Left = 96
      Top = 21
      Width = 121
      Height = 20
      EditLabel.Width = 84
      EditLabel.Height = 12
      EditLabel.Caption = #37319#36141#21333#32534#21495'(&R):'
      LabelPosition = lpLeft
      TabOrder = 0
    end
    object DBEdtVendorId: TDBEdit
      Left = 328
      Top = 24
      Width = 145
      Height = 20
      DataField = 'VendorId'
      DataSource = DSOrderListMaster
      TabOrder = 1
    end
  end
  object GroupBox2: TGroupBox
    Left = 24
    Top = 288
    Width = 577
    Height = 65
    Caption = #37319#36141#21333#35814#32454#20449#24687
    TabOrder = 16
    object Label5: TLabel
      Left = 8
      Top = 32
      Width = 36
      Height = 12
      Caption = #26465#30721#65306
    end
    object Label6: TLabel
      Left = 184
      Top = 32
      Width = 36
      Height = 12
      Caption = #25968#37327#65306
    end
    object Label7: TLabel
      Left = 368
      Top = 32
      Width = 78
      Height = 12
      Caption = #39044#23450#25910#36135#26085#26399':'
    end
    object DBEdtBarCode: TDBEdit
      Left = 48
      Top = 24
      Width = 121
      Height = 20
      DataField = 'BarCode'
      DataSource = DSOrderListSlave
      TabOrder = 0
    end
    object DBEdtAccount: TDBEdit
      Left = 232
      Top = 24
      Width = 121
      Height = 20
      DataField = 'Amount'
      DataSource = DSOrderListSlave
      TabOrder = 1
    end
    object DBDTPReceivableDate: TDBDateTimePicker
      Left = 448
      Top = 24
      Width = 113
      Height = 20
      Date = 38198.466450671300000000
      Time = 38198.466450671300000000
      TabOrder = 2
      DataField = 'ReceivableDate'
      DataSource = DSOrderListSlave
      ReadOnly = False
    end
  end
  object BtnCheckIt: TButton
    Left = 432
    Top = 8
    Width = 169
    Height = 25
    Caption = #27492#21333#24453#23457#26680#65292#28857#27492#38190#23457#26680#27492#21333
    TabOrder = 17
    Visible = False
    OnClick = BtnCheckItClick
  end
  object CBVendorId: TComboBox
    Left = 120
    Top = 200
    Width = 169
    Height = 20
    ItemHeight = 12
    TabOrder = 18
  end
  object LCDBOperatTool1: TLCDBOperatTool
    Left = 32
    Top = 360
    Width = 433
    Height = 25
    VisibleBtn = [tbAdd, tbDel, tbEdit, tbPost, tbCancel]
    EnabledBtn = [tbAdd, tbDel, tbEdit]
    DataSource = DSOrderListSlave
    OnModeChange = LCDBOperatTool1ModeChange
  end
  object DataSetToExcel: TDataSetToExcel
    DataSet = cdsOrderListSlave
    Left = 320
    Top = 424
  end
  object SaveDlg: TSaveDialog
    Filter = '*.xls|*.xls'
    Left = 232
    Top = 424
  end
  object SocketConnRequestOrder: TSocketConnection
    ServerGUID = '{9F5E5485-E21E-476E-8705-33E722205F38}'
    ServerName = 'RequestOrderBiz.mtsRequestOrderBiz'
    Address = '127.0.0.1'
    Left = 24
    Top = 96
  end
  object cdsRequestOrderMaster: TClientDataSet
    Aggregates = <>
    Params = <>
    RemoteServer = SocketConnRequestOrder
    Left = 88
    Top = 8
    object cdsRequestOrderMasterId: TWideStringField
      FieldName = 'Id'
    end
    object cdsRequestOrderMasterIsChecked: TBooleanField
      FieldName = 'IsChecked'
    end
    object cdsRequestOrderMasterIsProcessed: TBooleanField
      FieldName = 'IsProcessed'
    end
    object cdsRequestOrderMasterRequestDepartId: TWideStringField
      FieldName = 'RequestDepartId'
    end
    object cdsRequestOrderMasterRequestOperatorId: TWideStringField
      FieldName = 'RequestOperatorId'
    end
    object cdsRequestOrderMasterRequestDate: TDateTimeField
      FieldName = 'RequestDate'
    end
  end
  object DSRequestOrderMaster: TDataSource
    DataSet = cdsRequestOrderMaster
    Left = 192
  end
  object cdsOrderListMaster: TClientDataSet
    Aggregates = <>
    Params = <>
    RemoteServer = SocketConnRequestOrder
    Left = 88
    Top = 112
    object cdsOrderListMasterId: TWideStringField
      FieldName = 'Id'
    end
    object cdsOrderListMasterIsProcessed: TBooleanField
      FieldName = 'IsProcessed'
    end
    object cdsOrderListMasterVendorId: TWideStringField
      FieldName = 'VendorId'
    end
    object cdsOrderListMasterGenerateDate: TDateTimeField
      FieldName = 'GenerateDate'
    end
  end
  object DSOrderListMaster: TDataSource
    DataSet = cdsOrderListMaster
    Left = 176
    Top = 112
  end
  object DSRequestOrderSlave: TDataSource
    DataSet = cdsRequestOrderSlave
    Left = 184
    Top = 48
  end
  object cdsRequestOrderSlave: TClientDataSet
    Aggregates = <>
    Params = <>
    RemoteServer = SocketConnRequestOrder
    Left = 88
    Top = 48
    object cdsRequestOrderSlaveMasterId: TWideStringField
      FieldName = 'MasterId'
    end
    object cdsRequestOrderSlaveReceivableDate: TDateTimeField
      FieldName = 'ReceivableDate'
    end
    object cdsRequestOrderSlaveAmount: TLargeintField
      FieldName = 'Amount'
    end
    object cdsRequestOrderSlaveBarCode: TWideStringField
      FieldName = 'BarCode'
    end
  end
  object cdsOrderListSlave: TClientDataSet
    Aggregates = <>
    Params = <>
    RemoteServer = SocketConnRequestOrder
    Left = 88
    Top = 168
    object cdsOrderListSlaveAmount: TIntegerField
      FieldName = 'Amount'
    end
    object cdsOrderListSlaveBarCode: TWideStringField
      FieldName = 'BarCode'
    end
    object cdsOrderListSlaveMasterId: TWideStringField
      FieldName = 'MasterId'
      Size = 0
    end
    object cdsOrderListSlaveReceivableDate: TDateTimeField
      FieldName = 'ReceivableDate'
    end
  end
  object DSOrderListSlave: TDataSource
    DataSet = cdsOrderListSlave
    Left = 176
    Top = 168
  end
  object SocketConnOrderList: TSocketConnection
    ServerGUID = '{496F8503-91BD-4112-977B-B9D2AC73D6F1}'
    ServerName = 'PurchaseListBiz.mtsPurchaseListBiz'
    Address = '127.0.0.1'
    Left = 24
    Top = 168
  end
  object SocketConnVendor: TSocketConnection
    Connected = True
    ServerGUID = '{5E832DAE-3ADC-4454-933B-17199232C6CF}'
    ServerName = 'DataBaseQueryData.mtsQueryObj'
    Address = '127.0.0.1'
    Left = 24
    Top = 216
  end
  object cdsVendor: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspQuery'
    RemoteServer = SocketConnVendor
    Left = 88
    Top = 216
  end
  object DSVendor: TDataSource
    DataSet = cdsVendor
    Left = 176
    Top = 224
  end
  object SocketConGoodsInfo: TSocketConnection
    ServerGUID = '{C421BD69-80BE-4695-82FB-F360528676EB}'
    ServerName = 'QueryGoodsBiz.mtsQueryGoodsObj'
    Address = '127.0.0.1'
    Left = 24
    Top = 272
  end
end