frmrequestordermanage.dfm

物流供应链管理系统

object FormRequestOrderManage: TFormRequestOrderManage
  Left = 361
  Top = 243
  Width = 576
  Height = 460
  Caption = #35831#36141#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
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 16
    Top = 64
    Width = 30
    Height = 12
    Caption = #32534#21495':'
  end
  object Label2: TLabel
    Left = 168
    Top = 64
    Width = 54
    Height = 12
    Caption = #35831#36141#26085#26399':'
  end
  object Label3: TLabel
    Left = 344
    Top = 64
    Width = 78
    Height = 12
    Caption = #35831#36141#37096#38376#32534#21495':'
  end
  object Label4: TLabel
    Left = 16
    Top = 96
    Width = 66
    Height = 12
    Caption = #35831#36141#20154#32534#21495':'
  end
  object LCDBOperatTool1: TLCDBOperatTool
    Left = 8
    Top = 8
    Width = 345
    Height = 33
    VisibleBtn = [tbDel, tbEdit, tbPost, tbCancel]
    EnabledBtn = [tbAdd, tbDel, tbEdit]
    DataSource = DSRequestOrderListMaster
    OnClick = LCDBOperatTool1Click
  end
  object DBCheckBox1: TDBCheckBox
    Left = 256
    Top = 96
    Width = 97
    Height = 17
    Caption = #26159#21542#23457#26680
    DataField = 'IsChecked'
    DataSource = DSRequestOrderListMaster
    TabOrder = 1
    ValueChecked = 'True'
    ValueUnchecked = 'False'
  end
  object DBCheckBox2: TDBCheckBox
    Left = 384
    Top = 96
    Width = 97
    Height = 17
    Caption = #26159#21542#24050#32463#22788#29702
    DataField = 'IsProcessed'
    DataSource = DSRequestOrderListMaster
    TabOrder = 2
    ValueChecked = 'True'
    ValueUnchecked = 'False'
  end
  object DBEdit1: TDBEdit
    Left = 56
    Top = 64
    Width = 97
    Height = 20
    DataField = 'Id'
    DataSource = DSRequestOrderListMaster
    Enabled = False
    ReadOnly = True
    TabOrder = 3
  end
  object DBDateTimePicker1: TDBDateTimePicker
    Left = 232
    Top = 64
    Width = 105
    Height = 20
    Date = 38197.004492430550000000
    Time = 38197.004492430550000000
    TabOrder = 4
    DataField = 'RequestDate'
    DataSource = DSRequestOrderListMaster
    ReadOnly = False
  end
  object DBSelectDlgEdit1: TDBSelectDlgEdit
    Left = 424
    Top = 56
    Width = 137
    Height = 25
    EditWidth = 100
    ButtonWidth = 29
    ListDataField = 'id'
    ListDataSource = DSDepartment
    DataField = 'RequestDepartId'
    DataSource = DSRequestOrderListMaster
    ReadOnly = False
  end
  object DBSelectDlgEdit2: TDBSelectDlgEdit
    Left = 87
    Top = 88
    Width = 137
    Height = 25
    EditWidth = 108
    ButtonWidth = 29
    ListDataField = 'id'
    ListDataSource = DSEmployee
    DataField = 'RequestOperatorId'
    DataSource = DSRequestOrderListMaster
    ReadOnly = False
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 120
    Width = 553
    Height = 89
    DataSource = DSRequestOrderListMaster
    TabOrder = 7
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 216
    Width = 553
    Height = 209
    Caption = #35814#32454#20449#24687
    TabOrder = 8
    object Label5: TLabel
      Left = 16
      Top = 56
      Width = 36
      Height = 12
      Caption = #26465#30721#65306
    end
    object Label6: TLabel
      Left = 176
      Top = 56
      Width = 36
      Height = 12
      Caption = #25968#37327#65306
    end
    object Label7: TLabel
      Left = 328
      Top = 56
      Width = 84
      Height = 12
      Caption = #39044#23450#25910#36135#26085#26399#65306
    end
    object LCDBOperatTool2: TLCDBOperatTool
      Left = 16
      Top = 16
      Width = 481
      Height = 25
      VisibleBtn = [tbAdd, tbDel, tbEdit, tbPost, tbCancel]
      EnabledBtn = [tbAdd, tbDel, tbEdit]
      DataSource = DSRequestOrderListSlave
      OnClick = LCDBOperatTool2Click
    end
    object DBEdit2: TDBEdit
      Left = 48
      Top = 48
      Width = 113
      Height = 20
      DataField = 'BarCode'
      DataSource = DSRequestOrderListSlave
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 224
      Top = 48
      Width = 89
      Height = 20
      DataField = 'Amount'
      DataSource = DSRequestOrderListSlave
      TabOrder = 2
    end
    object DBDateTimePicker2: TDBDateTimePicker
      Left = 416
      Top = 48
      Width = 105
      Height = 20
      Date = 38197.009628287030000000
      Time = 38197.009628287030000000
      TabOrder = 3
      DataField = 'ReceivableDate'
      DataSource = DSRequestOrderListSlave
      ReadOnly = False
    end
    object DBGrid2: TDBGrid
      Left = 16
      Top = 88
      Width = 521
      Height = 97
      DataSource = DSRequestOrderListSlave
      TabOrder = 4
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
    end
  end
  object Button1: TButton
    Left = 392
    Top = 8
    Width = 97
    Height = 33
    Caption = #23457#26680#36890#36807#27492#21333
    TabOrder = 9
    OnClick = Button1Click
  end
  object ADOCon: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=GoodsManagementSystem_Data;Data Source=' +
      '127.0.0.1'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 352
    Top = 176
  end
  object ADOTRequestOrderListMaster: TADOTable
    Connection = ADOCon
    CursorType = ctStatic
    TableName = 't_RequestOrderListMaster'
    Left = 416
    Top = 144
    object ADOTRequestOrderListMasterId: TWideStringField
      FieldName = 'Id'
      ReadOnly = True
      Size = 10
    end
    object ADOTRequestOrderListMasterRequestDate: TDateTimeField
      FieldName = 'RequestDate'
    end
    object ADOTRequestOrderListMasterRequestDepartId: TWideStringField
      FieldName = 'RequestDepartId'
      Size = 5
    end
    object ADOTRequestOrderListMasterRequestOperatorId: TWideStringField
      FieldName = 'RequestOperatorId'
      Size = 10
    end
    object ADOTRequestOrderListMasterIsChecked: TBooleanField
      FieldName = 'IsChecked'
    end
    object ADOTRequestOrderListMasterIsProcessed: TBooleanField
      FieldName = 'IsProcessed'
      ReadOnly = True
    end
  end
  object ADOTRequestOrderListSlave: TADOTable
    Connection = ADOCon
    CursorType = ctStatic
    IndexFieldNames = 'MasterId'
    MasterFields = 'Id'
    MasterSource = DSRequestOrderListMaster
    TableName = 't_RequestOrderListSlave'
    Left = 416
    Top = 200
    object ADOTRequestOrderListSlaveBarCode: TWideStringField
      FieldName = 'BarCode'
      Required = True
      Size = 30
    end
    object ADOTRequestOrderListSlaveAmount: TLargeintField
      FieldName = 'Amount'
      Required = True
    end
    object ADOTRequestOrderListSlaveReceivableDate: TDateTimeField
      FieldName = 'ReceivableDate'
      Required = True
    end
    object ADOTRequestOrderListSlaveMasterId: TWideStringField
      FieldName = 'MasterId'
      ReadOnly = True
      Size = 10
    end
  end
  object ADOTEmployee: TADOTable
    Connection = ADOCon
    TableName = 't_Employee'
    Left = 408
    Top = 232
  end
  object DSRequestOrderListMaster: TDataSource
    DataSet = ADOTRequestOrderListMaster
    Left = 480
    Top = 144
  end
  object DSRequestOrderListSlave: TDataSource
    DataSet = ADOTRequestOrderListSlave
    Left = 480
    Top = 200
  end
  object DSEmployee: TDataSource
    DataSet = ADOTEmployee
    Left = 480
    Top = 240
  end
  object DSDepartment: TDataSource
    DataSet = ADOTDepartment
    Left = 480
    Top = 304
  end
  object ADOTDepartment: TADOTable
    Connection = ADOCon
    TableName = 't_Department'
    Left = 416
    Top = 304
  end
end