upartsmove.dfm

天涯進銷存系統

    Color = clWhite
    TabOrder = 8
    Text = 'MemoDBEdit'
    AutoSize = False
    BevelInner = bvNone
    BevelOuter = bvNone
    BorderStyle = bsNone
    DataField = 'MEMO'
    DataSource = BillHandDs
    ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
  end
  object LBDBScrollBar1: TLBDBScrollBar
    Left = 659
    Top = 119
    Width = 19
    Height = 307
    Color = 16774127
    LineColor = clBackground
    DownFontColor = clBlack
    Font.Charset = SYMBOL_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Marlett'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 9
    DataSource = BillBodyData
  end
  object SaveButton: TLBButton
    Left = 547
    Top = 462
    Width = 62
    Height = 19
    Cursor = crHandPoint
    Caption = #20445#23384'(&S)'
    TabOrder = 10
    OnClick = Action9Execute
  end
  object CancelButton: TLBButton
    Left = 618
    Top = 462
    Width = 62
    Height = 19
    Cursor = crHandPoint
    Caption = #21462#28040'(&C)'
    TabOrder = 11
    OnClick = Action10Execute
  end
  object EXECUTEMANDBEdit: TLBDBComboBox
    Left = 564
    Top = 94
    Width = 114
    Height = 20
    Color = clWhite
    ArrowColor = clBlack
    ButtonColor = 10395294
    ButStyle = cbsXp
    ItemHeight = 12
    TabOrder = 3
    Text = 'EXECUTEMANDBEdit'
    ItemIndex = -1
    OnDropDown = EXECUTEMANDBEditEnter
    OnEnter = EXECUTEMANDBEditEnter
    OnKeyDown = EXECUTEMANDBEditKeyDown
    DataField = 'EXECUTEMAN'
    DataSource = BillHandDs
    ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
  end
  object OutPutDepotDBEdit: TLBDBComboBox
    Left = 160
    Top = 70
    Width = 173
    Height = 20
    Color = clWhite
    ArrowColor = clBlack
    ButtonColor = 10395294
    ButStyle = cbsXp
    ItemHeight = 12
    TabOrder = 0
    Text = 'OutPutDepotDBEdit'
    ItemIndex = -1
    OnChange = OutPutDepotDBEditChange
    OnDropDown = OutPutDepotDBEditEnter
    OnEnter = OutPutDepotDBEditEnter
    OnExit = OutPutDepotDBEditExit
    OnKeyDown = InPutDepotDBEditKeyDown
    DataField = 'OUTPUTDEPOTNAME'
    DataSource = BillHandDs
    ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
  end
  object HintPanel: TPanel
    Left = 105
    Top = 459
    Width = 392
    Height = 19
    BevelOuter = bvNone
    Color = clWhite
    TabOrder = 12
    object Label26: TLabel
      Left = 22
      Top = 5
      Width = 324
      Height = 12
      Caption = #38190#30424#25805#20316#25552#31034#65306'Insert '#22686#21152#37197#20214'   Delete '#21024#38500#24403#21069#37197#20214'   '
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Image1: TImage
      Left = 1
      Top = 0
      Width = 18
      Height = 20
      AutoSize = True
      Picture.Data = {
        0A544A504547496D6167656B020000FFD8FFE000104A46494600010200006400
        640000FFEC00114475636B79000100040000003C0000FFEE000E41646F626500
        64C000000001FFDB0084000604040405040605050609060506090B080606080B
        0C0A0A0B0A0A0C100C0C0C0C0C0C100C0E0F100F0E0C1313141413131C1B1B1B
        1C1F1F1F1F1F1F1F1F1F1F010707070D0C0D181010181A1511151A1F1F1F1F1F
        1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
        1F1F1F1F1F1F1F1F1F1F1F1FFFC00011080014001203011100021101031101FF
        C400830000020300000000000000000000000000060704050801000203010000
        0000000000000000000004050002030610000004040404020B00000000000000
        0001020304001112052131131441512215710681325262233343342507171100
        01040102020B00000000000000000001001102030421123142415171A1C132D2
        13232405FFDA000C03010002110311003F00D3177BE236D14486494595702209
        1139634E731308006717AEB32E0B3B6E8D61E4590EDCFCF0E5A948AA4891431C
        00A46A035899511968944B898E3961978473D3FD4B064FB422FAB2635E34655E
        F7D19D194C7D9E13F4F287E82497F3CB8506E6FD645C99516CF53135C2AF82DC
        A3EB1478C884298040B8425C7B6DAB3858EF503AFA55F2F2312DC49564816797
        870975AB7FD50D53717CBB3C7A7070F9BD056C29081DBA492818980C186B294F
        57BB28E8B36159B8D911AC80EDD3A10D8D59AAA15B92026940CB64BD7DFC6FBE
        2DBDDA770DC0EE2BD4D2D79F557F4B3CE7840DF0EEE5DDE284FAFBB9773F7A36
        B4F67DA7E236FB4A87ED28D3AB8FCBE99F3824A2D4C88A2FFFD9}
    end
  end
  object ActionList1: TActionList
    Images = frmMain.ToolbarImageList
    Left = 348
    Top = 504
    object Action1: TAction
      Caption = #22686#21152
      Enabled = False
      ImageIndex = 0
      ShortCut = 45
      OnExecute = Action1Execute
    end
    object Action2: TAction
      Caption = #20462#25913
      Enabled = False
      ImageIndex = 1
      ShortCut = 13
      OnExecute = Action2Execute
    end
    object Action3: TAction
      Caption = #21024#38500
      Enabled = False
      ImageIndex = 2
      ShortCut = 46
      OnExecute = Action3Execute
    end
    object Action4: TAction
      Caption = #25171#21360
      Enabled = False
      ImageIndex = 5
      ShortCut = 16464
      OnExecute = Action4Execute
    end
    object Action5: TAction
      Caption = #23457#26680
      Enabled = False
      ImageIndex = 7
      OnExecute = Action5Execute
    end
    object Action6: TAction
      Caption = #31227#20179
      Enabled = False
      ImageIndex = 8
      ShortCut = 16466
      OnExecute = Action6Execute
    end
    object Action7: TAction
      Caption = #26597#25214
      Enabled = False
      ImageIndex = 3
      ShortCut = 16454
      OnExecute = Action7Execute
    end
    object Action8: TAction
      Caption = #21047#26032
      Enabled = False
      ImageIndex = 4
      ShortCut = 16466
      OnExecute = Action8Execute
    end
    object Action9: TAction
      Caption = #20445#23384
      ShortCut = 16467
      OnExecute = Action9Execute
    end
    object Action10: TAction
      Caption = #21462#28040
      ShortCut = 27
      OnExecute = Action10Execute
    end
  end
  object BillHandData: TSimpleDataSet
    Aggregates = <>
    Connection = dmData.SQLConnection
    DataSet.CommandText = 'Select * from DepotPartsMoveHand'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    FetchOnDemand = False
    PacketRecords = 1
    Params = <>
    ReadOnly = True
    AfterScroll = BillHandDataAfterScroll
    Left = 384
    Top = 504
    object BillHandDataBILLCODE: TStringField
      FieldName = 'BILLCODE'
      Required = True
    end
    object BillHandDataBILLDATE: TSQLTimeStampField
      FieldName = 'BILLDATE'
    end
    object BillHandDataOUTPUTDEPOTNAME: TStringField
      FieldName = 'OUTPUTDEPOTNAME'
      Size = 50
    end
    object BillHandDataOUTPUTDEPOTCODE: TStringField
      FieldName = 'OUTPUTDEPOTCODE'
    end
    object BillHandDataINPUTDEPOTNAME: TStringField
      FieldName = 'INPUTDEPOTNAME'
      Size = 50
    end
    object BillHandDataINPUTDEPOTCODE: TStringField
      FieldName = 'INPUTDEPOTCODE'
    end
    object BillHandDataISAUDITING: TStringField
      FieldName = 'ISAUDITING'
      FixedChar = True
      Size = 1
    end
    object BillHandDataAUDITINGMAN: TStringField
      FieldName = 'AUDITINGMAN'
      Size = 50
    end
    object BillHandDataAUDITINGDATE: TSQLTimeStampField
      FieldName = 'AUDITINGDATE'
    end
    object BillHandDataISEXECUTE: TStringField
      FieldName = 'ISEXECUTE'
      FixedChar = True
      Size = 1
    end
    object BillHandDataEXECUTEMAN: TStringField
      FieldName = 'EXECUTEMAN'
      Size = 50
    end
    object BillHandDataEXECUTEDATE: TSQLTimeStampField
      FieldName = 'EXECUTEDATE'
    end
    object BillHandDataOPERATIONMAN: TStringField
      FieldName = 'OPERATIONMAN'
      Size = 50
    end
    object BillHandDataOPERATOR: TStringField
      FieldName = 'OPERATOR'
      Size = 50
    end
    object BillHandDataMEMO: TStringField
      FieldName = 'MEMO'
      Size = 100
    end
  end
  object BillHandDs: TDataSource
    DataSet = BillHandData
    Left = 416
    Top = 504
  end
  object BillBodyData: TSimpleDataSet
    Aggregates = <>
    Connection = dmData.SQLConnection
    DataSet.CommandText = 'Select * from DepotPartsMoveBody'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    FetchOnDemand = False
    Params = <>
    ReadOnly = True
    Left = 446
    Top = 504
    object BillBodyDataBILLCODE: TStringField
      FieldName = 'BILLCODE'
      Required = True
      FixedChar = True
    end
    object BillBodyDataID: TIntegerField
      FieldName = 'ID'
      Required = True
    end
    object BillBodyDataPARTCODE: TStringField
      FieldName = 'PARTCODE'
      Size = 50
    end
    object BillBodyDataPARTNAME: TStringField
      FieldName = 'PARTNAME'
      Size = 100
    end
    object BillBodyDataBORNCODE: TStringField
      FieldName = 'BORNCODE'
      Size = 50
    end
    object BillBodyDataCARMODEL: TStringField
      FieldName = 'CARMODEL'
      Size = 50
    end
    object BillBodyDataPRODUCING: TStringField
      FieldName = 'PRODUCING'
      Size = 50
    end
    object BillBodyDataDEPOTPLACE: TStringField
      FieldName = 'DEPOTPLACE'
    end
    object BillBodyDataUNITS: TStringField
      FieldName = 'UNITS'
      Size = 10
    end
    object BillBodyDataQUANTITY: TBCDField
      FieldName = 'QUANTITY'
      Precision = 9
      Size = 2
    end
    object BillBodyDataOUTPUTQRY: TBCDField
      FieldName = 'OUTPUTQRY'
      Precision = 9
      Size = 2
    end
  end
  object BillBodyDs: TDataSource
    DataSet = BillBodyData
    Left = 480
    Top = 504
  end
  object Report: TfrReport
    Dataset = ReportDataSet
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    Left = 516
    Top = 504
    ReportForm = {18000000}
  end
  object ReportDataSet: TfrDBDataSet
    DataSource = BillBodyDs
    Left = 549
    Top = 503
  end
end