ustockorder.dfm

天涯進銷存系統

      Align = alBottom
      Pen.Color = 14282231
    end
    object Shape25: TShape
      Left = 0
      Top = 26
      Width = 790
      Height = 1
      Align = alBottom
      Pen.Color = clWhite
    end
    object LBSpeecButton9: TLBSpeecButton
      Left = 344
      Top = 3
      Width = 51
      Height = 22
      Cursor = crHandPoint
      Action = Action5
      Flat = True
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000000000000000000000000000000000000FF00FF000000
        0000000000000000000000000000000000000000000000000000000000000000
        000000000000000000000000000000000000FF00FF00FF00FF00FF00FF000000
        000000FFFFBFFFFFFF0000FFFFBFFFFFFF00800000BFFFFFFF0000FFFFBFFFFF
        FF0000FFFFBFFFFFFF0000FFFF0000000000FF00FF00FF00FF00FF00FF000000
        0000FFFFFF000000000000000080800000008000008080000000000000000000
        000000000000000000000000000000000000FF00FF00FF00FF00FF00FF000000
        000000FFFFBFFFFFFF008000008080000000800000808000000000FFFFBFFFFF
        FF0000FFFFBFFFFFFF0000FFFF0000000000FF00FF00FF00FF00FF00FF000000
        0000FFFFFF808000000080000080800000008000008080000000800000BFFFFF
        FF00FFFFFFBFFFFFFF00FFFFFF0000000000FF00FF00FF00FF00FF00FF000000
        0000800000808000000080000080C0C0C000C0C0C080C0C0C000800000808000
        0000C0C0C080C0C0C000FFFFFF0000000000FF00FF00FF00FF00FF00FF000000
        0000FFFFFF8080000000FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFF808000
        0000FFFFFFBFFFFFFF00FFFFFF0000000000FF00FF00FF00FF00FF00FF000000
        0000FFFFFF80C0C0C000C0C0C080C0C0C000C0C0C080C0C0C000C0C0C080C0C0
        C00080000080C0C0C000FFFFFF0000000000FF00FF00FF00FF00FF00FF000000
        0000FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF
        FF00FFFFFF8080000000FFFFFF0000000000FF00FF00FF00FF00FF00FF000000
        0000FFFFFF80C0C0C000C0C0C080C0C0C000C0C0C080C0C0C000C0C0C080C0C0
        C000C0C0C080C0C0C0008000000000000000FF00FF00FF00FF00FF00FF000000
        0000FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF
        FF00FFFFFFBFFFFFFF00FFFFFF8080000000FF00FF00FF00FF00FF00FF000000
        000000FFFFBFFFFFFF0000FFFFBFFFFFFF0000FFFFBFFFFFFF0000FFFFBFFFFF
        FF000000000000000000000000000000000080000000FF00FF00FF00FF000000
        0000FFFFFF000000000000000000000000000000000000000000000000000000
        0000000000BFFFFFFF0000000000FF00FF00FF00FF8080000000FF00FF000000
        000000FFFFBFFFFFFF0000FFFFBFFFFFFF0000FFFFBFFFFFFF0000FFFFBFFFFF
        FF000000000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000
        0000000000000000000000000000000000000000000000000000000000000000
        000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
      Style = tbsButton
    end
    object BillInfoLabel: TLabel
      Left = 781
      Top = 11
      Width = 6
      Height = 12
      Alignment = taRightJustify
      BiDiMode = bdRightToLeft
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentBiDiMode = False
      ParentFont = False
    end
  end
  object LBDBScrollBar1: TLBDBScrollBar
    Left = 769
    Top = 119
    Width = 19
    Height = 309
    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 = 11
    DataSource = BillBodyData
  end
  object SaveButton: TLBButton
    Left = 656
    Top = 462
    Width = 62
    Height = 19
    Cursor = crHandPoint
    Caption = #20445#23384'(&S)'
    TabOrder = 12
    OnClick = Action8Execute
  end
  object CancelButton: TLBButton
    Left = 727
    Top = 462
    Width = 62
    Height = 19
    Cursor = crHandPoint
    Caption = #21462#28040'(&C)'
    TabOrder = 13
    OnClick = Action9Execute
  end
  object HintPanel: TPanel
    Left = 9
    Top = 459
    Width = 545
    Height = 19
    BevelOuter = bvNone
    Color = clWhite
    TabOrder = 14
    object Label26: TLabel
      Left = 22
      Top = 5
      Width = 510
      Height = 12
      Caption = #38190#30424#25805#20316#25552#31034#65306'Insert '#22686#21152#37197#20214'   Delete '#21024#38500#24403#21069#37197#20214'    Ctrl+S '#20445#23384#21333#25454'   Esc '#21462#28040#32534#36753
      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 = 412
    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 = #26597#25214
      Enabled = False
      ImageIndex = 3
      ShortCut = 16454
      OnExecute = Action6Execute
    end
    object Action7: TAction
      Caption = #21047#26032
      Enabled = False
      ImageIndex = 4
      ShortCut = 16466
      OnExecute = Action7Execute
    end
    object Action8: TAction
      Caption = #20445#23384
      ShortCut = 16467
      OnExecute = Action8Execute
    end
    object Action9: TAction
      Caption = #21462#28040
      ShortCut = 27
      OnExecute = Action9Execute
    end
  end
  object BillHandData: TSimpleDataSet
    Aggregates = <>
    Connection = dmData.SQLConnection
    DataSet.CommandText = 'select * from OrderBillHand'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    FetchOnDemand = False
    PacketRecords = 1
    Params = <>
    ReadOnly = True
    AfterScroll = BillHandDataAfterScroll
    Left = 448
    Top = 504
    object BillHandDataBILLCODE: TStringField
      FieldName = 'BILLCODE'
      Required = True
      FixedChar = True
    end
    object BillHandDataBILLDATE: TSQLTimeStampField
      FieldName = 'BILLDATE'
    end
    object BillHandDataORDERMAN: TStringField
      FieldName = 'ORDERMAN'
      Size = 50
    end
    object BillHandDataPROVIDER: TStringField
      FieldName = 'PROVIDER'
      Size = 100
    end
    object BillHandDataPROVIDERCODE: TStringField
      FieldName = 'PROVIDERCODE'
      Size = 50
    end
    object BillHandDataDELIVERYADDRESS: TStringField
      FieldName = 'DELIVERYADDRESS'
      Size = 100
    end
    object BillHandDataFORECASTDVEDATE: TSQLTimeStampField
      FieldName = 'FORECASTDVEDATE'
    end
    object BillHandDataTOTALSUM: TBCDField
      FieldName = 'TOTALSUM'
      DisplayFormat = #65509'0.00'
      Precision = 9
      Size = 2
    end
    object BillHandDataBIGSUM: TStringField
      FieldName = 'BIGSUM'
      Size = 50
    end
    object BillHandDataOPERATOR: TStringField
      FieldName = 'OPERATOR'
    end
    object BillHandDataAUDITINGMAN: TStringField
      FieldName = 'AUDITINGMAN'
    end
    object BillHandDataISAUDITING: TStringField
      FieldName = 'ISAUDITING'
      FixedChar = True
      Size = 1
    end
    object BillHandDataAUDITINGDATE: TSQLTimeStampField
      FieldName = 'AUDITINGDATE'
    end
    object BillHandDataISEXECUTE: TStringField
      FieldName = 'ISEXECUTE'
      FixedChar = True
      Size = 1
    end
    object BillHandDataEXECUTEDATE: TSQLTimeStampField
      FieldName = 'EXECUTEDATE'
    end
    object BillHandDataEXECUTEMAN: TStringField
      FieldName = 'EXECUTEMAN'
    end
    object BillHandDataORDERTYPE: TStringField
      FieldName = 'ORDERTYPE'
      FixedChar = True
      Size = 1
    end
    object BillHandDataDEPTNAME: TStringField
      FieldName = 'DEPTNAME'
      Size = 50
    end
    object BillHandDataMEMO: TStringField
      FieldName = 'MEMO'
      Size = 100
    end
  end
  object BillHandDs: TDataSource
    DataSet = BillHandData
    Left = 480
    Top = 504
  end
  object BillBodyData: TSimpleDataSet
    Aggregates = <>
    Connection = dmData.SQLConnection
    DataSet.CommandText = 'select * from OrderBillBody'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    FetchOnDemand = False
    Params = <>
    ReadOnly = True
    Left = 510
    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 BillBodyDataUNITS: TStringField
      FieldName = 'UNITS'
    end
    object BillBodyDataDEPOTPLACE: TStringField
      FieldName = 'DEPOTPLACE'
      Size = 50
    end
    object BillBodyDataQUANTITY: TBCDField
      FieldName = 'QUANTITY'
      Precision = 9
      Size = 2
    end
    object BillBodyDataPRICE: TBCDField
      FieldName = 'PRICE'
      Precision = 9
      Size = 2
    end
    object BillBodyDataCESS: TBCDField
      FieldName = 'CESS'
      Precision = 9
      Size = 2
    end
    object BillBodyDataAGIO: TBCDField
      FieldName = 'AGIO'
      Precision = 9
      Size = 2
    end
    object BillBodyDataTOTALSUM: TBCDField
      FieldName = 'TOTALSUM'
      DisplayFormat = #65509'0.00'
      Precision = 9
      Size = 2
    end
    object BillBodyDataRECEIPTQUR: TBCDField
      FieldName = 'RECEIPTQUR'
      Precision = 9
      Size = 2
    end
    object BillBodyDataISEXECUTE: TStringField
      FieldName = 'ISEXECUTE'
      FixedChar = True
      Size = 1
    end
  end
  object BillBodyDs: TDataSource
    DataSet = BillBodyData
    Left = 544
    Top = 504
  end
  object Report: TfrReport
    Dataset = ReportDataSet
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    Left = 580
    Top = 504
    ReportForm = {18000000}
  end
  object ReportDataSet: TfrDBDataSet
    DataSource = BillBodyDs
    Left = 613
    Top = 503
  end
end