frmmakeinventory.dfm

物流供应链管理系统

object FormMakeInventory: TFormMakeInventory
  Left = 183
  Top = 147
  Width = 588
  Height = 458
  Caption = #30424#28857
  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 = 8
    Top = 16
    Width = 108
    Height = 12
    Caption = #30424#28857#32534#21495#65288#21482#35835#65289#65306
  end
  object Label2: TLabel
    Left = 240
    Top = 24
    Width = 36
    Height = 12
    Caption = #30424#28857#20154
  end
  object Label3: TLabel
    Left = 24
    Top = 56
    Width = 36
    Height = 12
    Caption = #23457#26680#20154
  end
  object DBEdtId: TDBEdit
    Left = 96
    Top = 16
    Width = 121
    Height = 20
    DataField = 'Id'
    DataSource = DSInventMaster
    Enabled = False
    ReadOnly = True
    TabOrder = 0
  end
  object DBEdtOperatorId: TDBEdit
    Left = 288
    Top = 16
    Width = 105
    Height = 20
    DataField = 'OperatorId'
    DataSource = DSInventMaster
    TabOrder = 1
  end
  object DBEdtAuditor: TDBEdit
    Left = 80
    Top = 56
    Width = 121
    Height = 20
    DataField = 'Auditor'
    DataSource = DSInventMaster
    TabOrder = 2
  end
  object BtnBegin: TButton
    Left = 264
    Top = 48
    Width = 89
    Height = 33
    Caption = #24320#22987#30424#28857'(&B)'
    TabOrder = 3
    OnClick = BtnBeginClick
  end
  object GroupBox1: TGroupBox
    Left = 48
    Top = 88
    Width = 521
    Height = 241
    Caption = #30424#28857#35814#32454#20449#24687
    TabOrder = 4
    object Label4: TLabel
      Left = 24
      Top = 56
      Width = 48
      Height = 12
      Caption = #26465#24418#30721#65306
    end
    object Label5: TLabel
      Left = 288
      Top = 96
      Width = 96
      Height = 12
      Caption = #24080#38754#25968#37327'('#21482#35835')'#65306
    end
    object Label6: TLabel
      Left = 216
      Top = 64
      Width = 60
      Height = 12
      Caption = #23454#38469#25968#37327#65306
    end
    object Label7: TLabel
      Left = 24
      Top = 88
      Width = 36
      Height = 12
      Caption = #36135#20301#65306
    end
    object LCDBOperatTool1: TLCDBOperatTool
      Left = 16
      Top = 16
      Width = 481
      Height = 25
      Enabled = False
      VisibleBtn = [tbAdd, tbDel, tbEdit, tbPost, tbCancel]
      EnabledBtn = [tbAdd, tbDel, tbEdit, tbPost, tbCancel]
      DataSource = DSInventSlave
      OnModeChange = LCDBOperatTool1ModeChange
    end
    object DBEdtBarCode: TDBEdit
      Left = 72
      Top = 56
      Width = 105
      Height = 20
      DataField = 'BarCode'
      DataSource = DSInventSlave
      Enabled = False
      TabOrder = 1
    end
    object DBEdtAccountAmount: TDBEdit
      Left = 384
      Top = 88
      Width = 65
      Height = 20
      DataField = 'AccountAmount'
      DataSource = DSInventSlave
      Enabled = False
      TabOrder = 2
    end
    object DBEdtRealAmount: TDBEdit
      Left = 312
      Top = 56
      Width = 89
      Height = 20
      DataField = 'RealAmount'
      DataSource = DSInventSlave
      TabOrder = 3
    end
    object DBEdtGoodsPosition: TDBEdit
      Left = 72
      Top = 88
      Width = 105
      Height = 20
      DataField = 'GoodsPosition'
      DataSource = DSInventSlave
      Enabled = False
      TabOrder = 4
    end
    object DBGrid1: TDBGrid
      Left = 16
      Top = 120
      Width = 497
      Height = 113
      DataSource = DSInventSlave
      Enabled = False
      ReadOnly = True
      TabOrder = 5
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'BarCode'
          Title.Caption = #26465#24418#30721
          Width = 150
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'AccountAmount'
          Title.Caption = #24080#38754#25968#37327
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'RealAmount'
          Title.Caption = #23454#38469#25968#37327
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'GoodsPosition'
          Title.Caption = #36135#20301
          Width = 150
          Visible = True
        end>
    end
    object Button11: TButton
      Left = 184
      Top = 88
      Width = 81
      Height = 25
      Caption = #21462#24471#24080#38754#25968#37327
      TabOrder = 6
      OnClick = Button11Click
    end
  end
  object Button2: TButton
    Left = 408
    Top = 16
    Width = 33
    Height = 17
    Caption = '...'
    TabOrder = 5
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 208
    Top = 56
    Width = 25
    Height = 17
    Caption = '...'
    TabOrder = 6
    OnClick = Button3Click
  end
  object BtnEnd: TButton
    Left = 376
    Top = 48
    Width = 97
    Height = 33
    Caption = #30424#28857#32467#26463'(&O)'
    Enabled = False
    TabOrder = 7
    OnClick = BtnEndClick
  end
  object Button1: TButton
    Left = 264
    Top = 344
    Width = 121
    Height = 25
    Caption = #20445#23384#30424#28857#32467#26524
    TabOrder = 8
    OnClick = Button1Click
  end
  object Button4: TButton
    Left = 408
    Top = 344
    Width = 105
    Height = 25
    Caption = #36733#20837#30424#28857#32467#26524
    TabOrder = 9
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 144
    Top = 344
    Width = 105
    Height = 25
    Caption = #25171#21360#30424#28857#25253#34920
    TabOrder = 10
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 16
    Top = 344
    Width = 121
    Height = 25
    Caption = #30424#28857#32467#26524#20445#23384#20026'Excel'
    TabOrder = 11
    OnClick = Button6Click
  end
  object Button7: TButton
    Left = 16
    Top = 376
    Width = 121
    Height = 25
    Caption = #25253#28322#34920#23384#20026'Excel'
    TabOrder = 12
    OnClick = Button7Click
  end
  object Button8: TButton
    Left = 144
    Top = 376
    Width = 105
    Height = 25
    Caption = #25253#28322#34920#25253#34920
    TabOrder = 13
    OnClick = Button8Click
  end
  object Button9: TButton
    Left = 264
    Top = 376
    Width = 121
    Height = 25
    Caption = #25253#25439#34920#23384#20026'Excel'
    TabOrder = 14
    OnClick = Button9Click
  end
  object Button10: TButton
    Left = 408
    Top = 376
    Width = 105
    Height = 25
    Caption = #25253#25439#34920#25253#34920
    TabOrder = 15
    OnClick = Button10Click
  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 = 16
    Top = 72
  end
  object ADOQInventMaster: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      'select * from t_MakeInventoryMaster where 1=2')
    Left = 72
    Top = 24
  end
  object ADOQInventSlave: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      'select * from t_MakeInventorySlave where 1=2')
    Left = 72
    Top = 56
  end
  object ADOQInfo: TADOQuery
    Connection = ADOCon
    Parameters = <>
    Prepared = True
    Left = 64
    Top = 104
  end
  object dspInventMaster: TDataSetProvider
    DataSet = ADOQInventMaster
    Options = [poAllowCommandText]
    Left = 144
    Top = 8
  end
  object dspInventSlave: TDataSetProvider
    DataSet = ADOQInventSlave
    Options = [poAllowCommandText]
    Left = 144
    Top = 64
  end
  object cdsInventMaster: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspInventMaster'
    Left = 216
    Top = 8
    object cdsInventMasterId: TWideStringField
      FieldName = 'Id'
      Size = 10
    end
    object cdsInventMasterWareHouseId: TWideStringField
      FieldName = 'WareHouseId'
      Size = 5
    end
    object cdsInventMasterInventoryDate: TDateTimeField
      FieldName = 'InventoryDate'
    end
    object cdsInventMasterOperatorId: TWideStringField
      FieldName = 'OperatorId'
      Size = 10
    end
    object cdsInventMasterAuditor: TWideStringField
      FieldName = 'Auditor'
      Size = 10
    end
  end
  object cdsInventSlave: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspInventSlave'
    Left = 216
    Top = 64
    object cdsInventSlaveMasterId: TWideStringField
      FieldName = 'MasterId'
      Size = 10
    end
    object cdsInventSlaveBarCode: TWideStringField
      FieldName = 'BarCode'
      Size = 30
    end
    object cdsInventSlaveGoodsPosition: TWideStringField
      FieldName = 'GoodsPosition'
      Size = 30
    end
    object cdsInventSlaveAccountAmount: TLargeintField
      FieldName = 'AccountAmount'
    end
    object cdsInventSlaveRealAmount: TLargeintField
      FieldName = 'RealAmount'
    end
  end
  object DSInventMaster: TDataSource
    DataSet = cdsInventMaster
    Left = 288
    Top = 8
  end
  object DSInventSlave: TDataSource
    DataSet = cdsInventSlave
    Left = 288
    Top = 64
  end
  object SaveDlg: TSaveDialog
    Filter = '*.xml|*.xml'
    Left = 296
    Top = 280
  end
  object OpenDlg: TOpenDialog
    Filter = '*.xml|*.xml'
    Left = 448
    Top = 280
  end
  object ADOQGoodsMaster: TADOQuery
    Connection = ADOCon
    Parameters = <>
    Prepared = True
    Left = 64
    Top = 160
  end
  object ADOQGoodsSlave: TADOQuery
    Connection = ADOCon
    Parameters = <>
    Prepared = True
    Left = 64
    Top = 208
  end
  object cdsMoreLess: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 176
    Top = 288
    object cdsMoreLessBarCode: TWideStringField
      FieldName = 'BarCode'
    end
    object cdsMoreLessAccountAmount: TLargeintField
      FieldName = 'AccountAmount'
    end
    object cdsMoreLessRealAmount: TLargeintField
      FieldName = 'RealAmount'
    end
    object cdsMoreLessGoodsPostion: TWideStringField
      FieldName = 'GoodsPosition'
    end
  end
end