frmorderlist.dfm

物流供应链管理系统

object FormOrderList: TFormOrderList
  Left = 192
  Top = 116
  Width = 554
  Height = 393
  Caption = 'FormOrderList'
  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 = 56
    Width = 72
    Height = 12
    Caption = #20379#24212#21830#32534#30721#65306
  end
  object Label2: TLabel
    Left = 256
    Top = 56
    Width = 60
    Height = 12
    Caption = #21457#20986#26085#26399#65306
  end
  object BtnFind: TButton
    Left = 224
    Top = 16
    Width = 75
    Height = 25
    Caption = #26597#25214'(&F)'
    TabOrder = 0
    OnClick = BtnFindClick
  end
  object BtnNew: TButton
    Left = 312
    Top = 16
    Width = 97
    Height = 25
    Caption = #24320#31435#26032#37319#36141#21333
    TabOrder = 1
    OnClick = BtnNewClick
  end
  object LEdtId: TLabeledEdit
    Left = 88
    Top = 16
    Width = 121
    Height = 20
    EditLabel.Width = 72
    EditLabel.Height = 12
    EditLabel.Caption = #37319#36141#21333#21495'(&I):'
    LabelPosition = lpLeft
    TabOrder = 2
  end
  object DBEdtGenDate: TDBEdit
    Left = 320
    Top = 48
    Width = 121
    Height = 20
    DataField = 'GenerateDate'
    DataSource = DSOrderListMaster
    ReadOnly = True
    TabOrder = 3
  end
  object DBSDEVendorId: TDBSelectDlgEdit
    Left = 104
    Top = 48
    Width = 129
    Height = 25
    EditWidth = 100
    ButtonWidth = 29
    ListDataField = 'id'
    ListDataSource = DSBaseInfo
    DataField = 'VendorId'
    DataSource = DSOrderListMaster
    ReadOnly = False
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 128
    Width = 521
    Height = 225
    Caption = #37319#36141#21333#26126#32454'(&D)'#65306
    TabOrder = 5
    object Label8: TLabel
      Left = 312
      Top = 88
      Width = 54
      Height = 12
      Caption = #25968#37327'(&N)'#65306
    end
    object Label9: TLabel
      Left = 24
      Top = 120
      Width = 90
      Height = 12
      Caption = #39044#23450#25910#36135#26399'(&S)'#65306
    end
    object Label10: TLabel
      Left = 40
      Top = 88
      Width = 66
      Height = 12
      Caption = #26465#24418#30721'(&B)'#65306
    end
    object LCDBOperatTool1: TLCDBOperatTool
      Left = 24
      Top = 40
      Width = 393
      Height = 25
      VisibleBtn = [tbAdd, tbDel, tbEdit, tbPost, tbCancel]
      EnabledBtn = [tbAdd, tbDel, tbEdit]
      DelConfirmId = 'purchaseDeOrderList'
      DataSource = DSOrderListSlave
      OnModeChange = LCDBOperatTool1ModeChange
      OnClick = LCDBOperatTool1Click
    end
    object DBEdtBarCode: TDBEdit
      Left = 120
      Top = 80
      Width = 105
      Height = 20
      DataField = 'BarCode'
      DataSource = DSOrderListSlave
      TabOrder = 1
    end
    object DBEdAmount: TDBEdit
      Left = 376
      Top = 80
      Width = 121
      Height = 20
      DataField = 'Amount'
      DataSource = DSOrderListSlave
      TabOrder = 2
    end
    object DBGrid1: TDBGrid
      Left = 16
      Top = 136
      Width = 497
      Height = 81
      DataSource = DSOrderListSlave
      ReadOnly = True
      TabOrder = 3
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
    end
    object DBDateTimePicker1: TDBDateTimePicker
      Left = 128
      Top = 112
      Width = 161
      Height = 20
      Date = 38193.576801134260000000
      Time = 38193.576801134260000000
      TabOrder = 4
      DataField = 'ReceivableDate'
      DataSource = DSOrderListSlave
      ReadOnly = False
    end
  end
  object BtnPost: TButton
    Left = 424
    Top = 16
    Width = 97
    Height = 25
    Caption = #37319#36141#21333#26356#25913#23436#27605
    TabOrder = 6
    OnClick = BtnPostClick
  end
  object DBCheckBox1: TDBCheckBox
    Left = 24
    Top = 80
    Width = 97
    Height = 17
    Caption = #26159#21542#24050#32463#22788#29702
    DataField = 'IsProcessed'
    DataSource = DSOrderListMaster
    ReadOnly = True
    TabOrder = 7
    ValueChecked = 'True'
    ValueUnchecked = 'False'
  end
  object SocketConOrderList: TSocketConnection
    Connected = True
    ServerGUID = '{496F8503-91BD-4112-977B-B9D2AC73D6F1}'
    ServerName = 'PurchaseListBiz.mtsPurchaseListBiz'
    Address = '127.0.0.1'
    Left = 176
    Top = 72
  end
  object SocketConBaseInfo: TSocketConnection
    Connected = True
    ServerGUID = '{D5BD1246-D633-4FE9-8F95-D67905A4003A}'
    ServerName = 'BaseInfoBiz.mtsBaseInfoBiz'
    Address = '127.0.0.1'
    Left = 176
    Top = 160
  end
  object cdsOrderListMaster: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 248
    Top = 56
    Data = {
      4C0000009619E0BD0100000018000000020000000000030000004C000856656E
      646F72496401004A00040001000557494454480200020028000C47656E657261
      74654461746504000600040000000000}
    object cdsOrderListMasterId: TWideStringField
      FieldKind = fkCalculated
      FieldName = 'Id'
      Calculated = True
    end
    object cdsOrderListMasterVendorId: TWideStringField
      FieldName = 'VendorId'
      Required = True
    end
    object cdsOrderListMasterGenerateDate: TDateField
      FieldName = 'GenerateDate'
      Required = True
    end
    object cdsOrderListMasterIsProcessed: TBooleanField
      FieldKind = fkCalculated
      FieldName = 'IsProcessed'
      Calculated = True
    end
  end
  object cdsOrderListSlave: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 248
    Top = 96
    Data = {
      790000009619E0BD0100000018000000040000000000030000007900084D6173
      746572496401004A000000010005574944544802000200280007426172436F64
      6501004A000400010005574944544802000200280006416D6F756E7408000100
      000000000E52656365697661626C654461746508000800000000000000}
    object cdsOrderListSlaveMasterId: TWideStringField
      FieldName = 'MasterId'
    end
    object cdsOrderListSlaveBarCode: TWideStringField
      FieldName = 'BarCode'
      Required = True
    end
    object cdsOrderListSlaveAmount: TLargeintField
      FieldName = 'Amount'
    end
    object cdsOrderListSlaveReceivableDate: TDateTimeField
      FieldName = 'ReceivableDate'
    end
  end
  object cdsBaseInfo: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspVendor'
    RemoteServer = SocketConBaseInfo
    Left = 248
    Top = 160
  end
  object DSOrderListMaster: TDataSource
    DataSet = cdsOrderListMaster
    Left = 304
    Top = 56
  end
  object DSOrderListSlave: TDataSource
    DataSet = cdsOrderListSlave
    Left = 304
    Top = 96
  end
  object DSBaseInfo: TDataSource
    DataSet = cdsBaseInfo
    Left = 304
    Top = 160
  end
  object SocketConQuery: TSocketConnection
    ServerGUID = '{5E832DAE-3ADC-4454-933B-17199232C6CF}'
    ServerName = 'DataBaseQueryData.mtsQueryObj'
    Address = '127.0.0.1'
    Left = 184
    Top = 232
  end
end