uinputreimburse.dfm

天涯進銷存系統

  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 = 10
    DataSource = BillBodyData
  end
  object SaveButton: TLBButton
    Left = 656
    Top = 462
    Width = 62
    Height = 19
    Cursor = crHandPoint
    Caption = #20445#23384'(&S)'
    TabOrder = 11
    OnClick = Action9Execute
  end
  object CancelButton: TLBButton
    Left = 727
    Top = 462
    Width = 62
    Height = 19
    Cursor = crHandPoint
    Caption = #21462#28040'(&C)'
    TabOrder = 12
    OnClick = Action10Execute
  end
  object ProviderDBEdit: TLBDBEdit
    Left = 64
    Top = 70
    Width = 158
    Height = 18
    ParentColor = True
    Color = clWhite
    TabOrder = 0
    Text = 'ProviderDBEdit'
    OnEnter = ProviderDBEditEnter
    OnExit = ProviderDBEditExit
    OnKeyDown = ProviderDBEditKeyDown
    AutoSize = False
    BorderStyle = bsNone
    DataField = 'PROVIDERNAME'
    DataSource = BillHandDs
  end
  object InPutBillCodeDBEdit: TLBDBEdit
    Left = 360
    Top = 70
    Width = 158
    Height = 18
    ParentColor = True
    Color = clWhite
    TabOrder = 1
    Text = 'InPutBillCodeDBEdit'
    OnKeyDown = InPutBillCodeDBEditKeyDown
    AutoSize = False
    BorderStyle = bsNone
    DataField = 'ORDERBILLNO'
    DataSource = BillHandDs
  end
  object EXECUTEMANDBEdit: TLBDBComboBox
    Left = 360
    Top = 94
    Width = 173
    Height = 20
    Color = clWhite
    ArrowColor = clBlack
    ButtonColor = 10395294
    ButStyle = cbsXp
    ItemHeight = 12
    TabOrder = 4
    Text = 'EXECUTEMANDBEdit'
    ItemIndex = -1
    OnDropDown = EXECUTEMANDBEditEnter
    OnEnter = EXECUTEMANDBEditEnter
    OnKeyDown = EXECUTEMANDBEditKeyDown
    DataField = 'EXECUTEMAN'
    DataSource = BillHandDs
  end
  object HintPanel: TPanel
    Left = 9
    Top = 459
    Width = 545
    Height = 19
    BevelOuter = bvNone
    Color = clWhite
    TabOrder = 13
    object Label26: TLabel
      Left = 22
      Top = 5
      Width = 408
      Height = 12
      Caption = #38190#30424#25805#20316#25552#31034#65306' 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 = #20986#24211
      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 ReimburseBillHand'
    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
    end
    object BillHandDataBILLDATE: TSQLTimeStampField
      FieldName = 'BILLDATE'
    end
    object BillHandDataPROVIDERCODE: TStringField
      FieldName = 'PROVIDERCODE'
      Size = 50
    end
    object BillHandDataPROVIDERNAME: TStringField
      FieldName = 'PROVIDERNAME'
      Size = 100
    end
    object BillHandDataDEPOTCODE: TStringField
      FieldName = 'DEPOTCODE'
    end
    object BillHandDataDEPOTNAME: TStringField
      FieldName = 'DEPOTNAME'
      Size = 50
    end
    object BillHandDataCAUSE: TStringField
      FieldName = 'CAUSE'
      Size = 100
    end
    object BillHandDataORDERBILLNO: TStringField
      FieldName = 'ORDERBILLNO'
    end
    object BillHandDataTOTALSUM: TBCDField
      FieldName = 'TOTALSUM'
      DisplayFormat = #65509'0.00'
      Precision = 9
      Size = 2
    end
    object BillHandDataBIGSUM: TStringField
      FieldName = 'BIGSUM'
      Size = 50
    end
    object BillHandDataACCEPTSUM: TBCDField
      FieldName = 'ACCEPTSUM'
      Precision = 9
      Size = 2
    end
    object BillHandDataAGIOSUM: TBCDField
      FieldName = 'AGIOSUM'
      Precision = 9
      Size = 2
    end
    object BillHandDataISACCEPT: TStringField
      FieldName = 'ISACCEPT'
      FixedChar = True
      Size = 1
    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 BillHandDataMEMO: TStringField
      FieldName = 'MEMO'
      Size = 100
    end
    object BillHandDataREIMBURSETYPE: TStringField
      FieldName = 'REIMBURSETYPE'
      FixedChar = True
      Size = 1
    end
    object BillHandDataOPERATIONMAN: TStringField
      FieldName = 'OPERATIONMAN'
      Size = 50
    end
    object BillHandDataOPERATOR: TStringField
      FieldName = 'OPERATOR'
      Size = 50
    end
  end
  object BillHandDs: TDataSource
    DataSet = BillHandData
    Left = 480
    Top = 504
  end
  object BillBodyData: TSimpleDataSet
    Aggregates = <>
    Connection = dmData.SQLConnection
    DataSet.CommandText = 'Select * from ReimburseBillBody'
    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'
      Size = 10
    end
    object BillBodyDataDEPOTPLACE: TStringField
      FieldName = 'DEPOTPLACE'
    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 BillBodyDataREIMBURSEQRY: TBCDField
      FieldName = 'REIMBURSEQRY'
      Precision = 9
      Size = 2
    end
    object BillBodyDataORDERID: TIntegerField
      FieldName = 'ORDERID'
    end
    object BillBodyDataOUTPUTQRY: TBCDField
      FieldName = 'OUTPUTQRY'
      Precision = 9
      Size = 2
    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