uni_outlaypayout.~dfm

来自「一个非常不错的经费报销管理软件」· ~DFM 代码 · 共 1,440 行 · 第 1/4 页

      Caption = #23457#26680
      ImageIndex = 37
      OnClick = tbAuditingClick
    end
    object TB_AuditingCancel: TToolButton
      Left = 148
      Top = 0
      AutoSize = True
      Caption = #21453#23457
      ImageIndex = 39
      OnClick = TB_AuditingCancelClick
    end
    object ToolButton2: TToolButton
      Left = 183
      Top = 0
      Width = 8
      ImageIndex = 11
      Style = tbsSeparator
    end
    object tbSave: TToolButton
      Left = 191
      Top = 0
      AutoSize = True
      Caption = #20445#23384
      Enabled = False
      ImageIndex = 5
      OnClick = tbSaveClick
    end
    object tbCancel: TToolButton
      Left = 226
      Top = 0
      AutoSize = True
      Caption = #21462#28040
      Enabled = False
      ImageIndex = 6
      OnClick = tbCancelClick
    end
    object TB_DelLine: TToolButton
      Left = 261
      Top = 0
      AutoSize = True
      Caption = #21024#34892
      Enabled = False
      ImageIndex = 13
      OnClick = TB_DelLineClick
    end
    object ToolButton5: TToolButton
      Left = 296
      Top = 0
      Width = 8
      Caption = 'ToolButton5'
      ImageIndex = 11
      Style = tbsSeparator
    end
    object ToolButton1: TToolButton
      Left = 304
      Top = 0
      AutoSize = True
      Caption = #30446#24405
      ImageIndex = 36
      OnClick = ToolButton1Click
    end
    object ToolButton4: TToolButton
      Left = 339
      Top = 0
      Width = 8
      ImageIndex = 11
      Style = tbsSeparator
    end
    object TB_First: TToolButton
      Left = 347
      Top = 0
      AutoSize = True
      Caption = #26368#21069
      ImageIndex = 16
      OnClick = TB_FirstClick
    end
    object TB_Prior: TToolButton
      Left = 382
      Top = 0
      AutoSize = True
      Caption = #21521#21069
      ImageIndex = 17
      OnClick = TB_PriorClick
    end
    object TB_Next: TToolButton
      Left = 417
      Top = 0
      AutoSize = True
      Caption = #21521#21518
      ImageIndex = 18
      OnClick = TB_NextClick
    end
    object TB_Last: TToolButton
      Left = 452
      Top = 0
      AutoSize = True
      Caption = #26368#21518
      ImageIndex = 19
      OnClick = TB_LastClick
    end
    object ToolButton3: TToolButton
      Left = 487
      Top = 0
      Width = 8
      ImageIndex = 11
      Style = tbsSeparator
    end
    object tbRefresh: TToolButton
      Left = 495
      Top = 0
      AutoSize = True
      Caption = #21047#26032
      ImageIndex = 26
      OnClick = tbRefreshClick
    end
    object ToolButton7: TToolButton
      Left = 530
      Top = 0
      Width = 8
      ImageIndex = 12
      Style = tbsSeparator
    end
    object tbHelp: TToolButton
      Left = 538
      Top = 0
      AutoSize = True
      Caption = #24110#21161
      ImageIndex = 9
      OnClick = tbHelpClick
    end
    object ToolButton6: TToolButton
      Left = 573
      Top = 0
      Width = 8
      ImageIndex = 12
      Style = tbsSeparator
    end
    object tbExit: TToolButton
      Left = 581
      Top = 0
      AutoSize = True
      Caption = #36864#20986
      ImageIndex = 10
      OnClick = tbExitClick
    end
  end
  object popNavigator: TPopupMenu
    AutoHotkeys = maManual
    OwnerDraw = True
    Left = 512
    Top = 248
    object mniList: TMenuItem
      Caption = #21015#34920
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object mniFirst: TMenuItem
      Caption = #26368#21069
      ImageIndex = 16
      OnClick = mniFirstClick
    end
    object mniPrior: TMenuItem
      Tag = 1
      Caption = #19978#19968#26465
      ImageIndex = 17
      OnClick = mniFirstClick
    end
    object mniNext: TMenuItem
      Tag = 2
      Caption = #19979#19968#26465
      ImageIndex = 18
      OnClick = mniFirstClick
    end
    object mniLast: TMenuItem
      Tag = 3
      Caption = #26368#21518
      ImageIndex = 19
      OnClick = mniFirstClick
    end
  end
  object dsMain: TDataSource
    DataSet = qryMain
    Left = 712
    Top = 48
  end
  object qryMain: TADOQuery
    Connection = DM.Server
    CursorType = ctStatic
    AfterScroll = qryMainAfterScroll
    Parameters = <>
    SQL.Strings = (
      'select * from PayoutHost')
    Left = 744
    Top = 48
    object qryMainid: TStringField
      DisplayLabel = #20027#38190
      FieldName = 'id'
      Visible = False
      Size = 40
    end
    object qryMaincNum: TStringField
      DisplayLabel = #21333#25454#21495
      FieldName = 'cNum'
    end
    object qryMaincbranchsNum: TStringField
      DisplayLabel = #37096#38376#32534#21495
      FieldName = 'cbranchsNum'
      Size = 40
    end
    object qryMaincBranchsName: TStringField
      DisplayLabel = #37096#38376#21517#31216
      FieldKind = fkLookup
      FieldName = 'cBranchsName'
      LookupDataSet = DM.bsBranchs
      LookupKeyFields = 'ID'
      LookupResultField = 'cNAME'
      KeyFields = 'cbranchsNum'
      Size = 40
      Lookup = True
    end
    object qryMaincUser: TStringField
      DisplayLabel = #25805#20316#21592
      FieldName = 'cUser'
    end
    object qryMaincAuditUser: TStringField
      DisplayLabel = #23457#26680#20154
      FieldName = 'cAuditUser'
    end
    object qryMaindtSaveTime: TDateTimeField
      DisplayLabel = #21046#21333#26102#38388
      FieldName = 'dtSaveTime'
    end
    object qryMaindtAuditTime: TDateTimeField
      DisplayLabel = #23457#26680#26102#38388
      FieldName = 'dtAuditTime'
    end
    object qryMainiState: TIntegerField
      DisplayLabel = #29366#24577
      FieldName = 'iState'
      Visible = False
    end
    object qryMainiReco: TLargeintField
      DisplayLabel = #35760#24405#21495
      FieldName = 'iReco'
      Visible = False
    end
    object qryMaincRemark: TStringField
      DisplayLabel = #35828#26126
      FieldName = 'cRemark'
      Size = 100
    end
  end
  object dsDetail: TDataSource
    DataSet = qryDetail
    Left = 712
    Top = 80
  end
  object qryDetail: TADOQuery
    Connection = DM.Server
    CursorType = ctStatic
    AfterInsert = qryDetailAfterInsert
    Parameters = <>
    SQL.Strings = (
      'select * from PayoutMX')
    Left = 744
    Top = 80
    object qryDetailid: TStringField
      DisplayLabel = #20027#38190
      FieldName = 'id'
      Visible = False
      Size = 40
    end
    object qryDetailcNum: TStringField
      DisplayLabel = #21333#25454#21495
      FieldName = 'cNum'
    end
    object qryDetailcItemNum: TStringField
      DisplayLabel = #32463#36153#39033#30446#32534#21495
      FieldName = 'cItemNum'
      Visible = False
      Size = 40
    end
    object qryDetailcItemNO: TStringField
      DisplayLabel = #39033#30446#32534#30721
      FieldKind = fkLookup
      FieldName = 'cItemNO'
      LookupDataSet = DM.bsItem
      LookupKeyFields = 'id'
      LookupResultField = 'cNum'
      KeyFields = 'cItemNum'
      Size = 40
      Lookup = True
    end
    object qryDetailcItemName: TStringField
      DisplayLabel = #39033#30446#21517#31216
      FieldKind = fkLookup
      FieldName = 'cItemName'
      LookupDataSet = DM.bsItem
      LookupKeyFields = 'id'
      LookupResultField = 'cName'
      KeyFields = 'cItemNum'
      Size = 40
      Lookup = True
    end
    object qryDetailcbranchsNum: TStringField
      DisplayLabel = #37096#38376'ID'
      FieldName = 'cbranchsNum'
      Size = 40
    end
    object qryDetailcbranchsNo: TStringField
      DisplayLabel = #37096#38376#32534#30721
      FieldKind = fkLookup
      FieldName = 'cbranchsNo'
      LookupDataSet = DM.bsBranchs
      LookupKeyFields = 'ID'
      LookupResultField = 'cNum'
      KeyFields = 'cbranchsNum'
      Lookup = True
    end
    object qryDetailcBranchsName: TStringField
      DisplayLabel = #37096#38376#21517#31216
      FieldKind = fkLookup
      FieldName = 'cBranchsName'
      LookupDataSet = DM.bsBranchs
      LookupKeyFields = 'ID'
      LookupResultField = 'cNAME'
      KeyFields = 'cbranchsNum'
      Size = 40
      Lookup = True
    end
    object qryDetailfMancount: TFloatField
      DisplayLabel = #35745#21010#20154#25968
      FieldName = 'fMancount'
    end
    object qryDetailfStandard: TFloatField
      DisplayLabel = #36153#29992#26631#20934
      FieldName = 'fStandard'
    end
    object qryDetailfPayoutMoney: TFloatField
      DisplayLabel = #25903#20986#37329#39069
      FieldName = 'fPayoutMoney'
    end
    object qryDetailiState: TIntegerField
      DisplayLabel = #29366#24577
      FieldName = 'iState'
      Visible = False
    end
  end
  object mnuXP: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = GB2312_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Color = clBtnFace
    IconBackColor = clBtnFace