pay510_01.dfm.svn-base

一个用Delphi开发的ERP软件

      Caption = #21047#26032
      Hint = #21462#24471#26368#26032#30340#25968#25454
      ImageIndex = 9
      ShortCut = 32850
      OnExecute = ActRefreshExecute
    end
    object ActLocate: TAction
      Caption = #26597#25214
      Hint = #24555#36895#23450#20301#35760#24405
      ImageIndex = 10
      ShortCut = 32847
      OnExecute = ActLocateExecute
    end
    object ActSearch: TAction
      Caption = #26597#35810
      Hint = #25353#26465#20214#26597#35810#25968#25454
      ImageIndex = 11
      ShortCut = 32849
      OnExecute = ActSearchExecute
    end
    object ActPrint: TAction
      Caption = #25171#21360
      Hint = #23558#25968#25454#25171#21360#20986#26469
      ImageIndex = 12
      ShortCut = 32848
      OnExecute = ActPrintExecute
    end
    object ActExport: TAction
      Caption = #23548#20986#21040'Excel'
      Hint = #23548#20986#21040'Excel'#25991#20214#20013
      ShortCut = 32852
      OnExecute = ActExportExecute
    end
    object ActSet: TAction
      Caption = #35774#32622
      Hint = #35774#32622#21592#24037#34218#36164#32467#26500
      ImageIndex = 20
      OnExecute = ActSetExecute
    end
    object ActExit: TAction
      Caption = #36864#20986
      Hint = #20851#38381#24403#21069#31383#21475
      ImageIndex = 15
      ShortCut = 32856
      OnExecute = ActExitExecute
    end
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'xls'
    Filter = 'Excel'#25991#20214'(*.xls)|*.xls'
    Left = 328
    Top = 48
  end
  object qryHrm150: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    AfterScroll = qryHrm150AfterScroll
    Parameters = <>
    SQL.Strings = (
      'select H150_001,H150_002,H150_003 from HRM150 order by H150_002')
    Left = 40
    Top = 176
    object qryHrm150H150_001: TAutoIncField
      FieldName = 'H150_001'
      ReadOnly = True
      Visible = False
    end
    object qryHrm150H150_002: TStringField
      DisplayLabel = #21592#24037#32534#21495
      FieldName = 'H150_002'
      FixedChar = True
      Size = 10
    end
    object qryHrm150H150_003: TStringField
      DisplayLabel = #21592#24037#22995#21517
      FieldName = 'H150_003'
    end
  end
  object qryPay510A: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    AfterScroll = qryPay510AAfterScroll
    Parameters = <>
    SQL.Strings = (
      'select * from PAY510A order by P510A_004 desc')
    Left = 440
    Top = 264
    object qryPay510AP510A_004: TDateTimeField
      DisplayLabel = #29983#25928#26085#26399
      FieldName = 'P510A_004'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object qryPay510AP160A_002: TStringField
      DisplayLabel = #31867#21035#32534#21495
      FieldKind = fkLookup
      FieldName = 'P160A_002'
      LookupDataSet = qryPay160A
      LookupKeyFields = 'P160A_001'
      LookupResultField = 'P160A_002'
      KeyFields = 'P510A_003'
      Size = 10
      Lookup = True
    end
    object qryPay510AP160A_003: TStringField
      DisplayLabel = #31867#21035#21517#31216
      FieldKind = fkLookup
      FieldName = 'P160A_003'
      LookupDataSet = qryPay160A
      LookupKeyFields = 'P160A_001'
      LookupResultField = 'P160A_003'
      KeyFields = 'P510A_003'
      Size = 50
      Lookup = True
    end
    object qryPay510AP510A_001: TAutoIncField
      DisplayLabel = #30005#33041#32534#21495
      FieldName = 'P510A_001'
      ReadOnly = True
      Visible = False
    end
    object qryPay510AP510A_002: TIntegerField
      DisplayLabel = #21592#24037#32534#21495
      FieldName = 'P510A_002'
      Visible = False
    end
    object qryPay510AP510A_003: TIntegerField
      DisplayLabel = #31867#21035#32534#21495
      FieldName = 'P510A_003'
      Visible = False
      OnChange = qryPay510AP510A_003Change
    end
    object qryPay510AH150_002: TStringField
      DisplayLabel = #21592#24037#32534#21495
      FieldKind = fkLookup
      FieldName = 'H150_002'
      LookupDataSet = qryHrm150
      LookupKeyFields = 'H150_001'
      LookupResultField = 'H150_002'
      KeyFields = 'P510A_002'
      Visible = False
      Lookup = True
    end
    object qryPay510AH150_003: TStringField
      DisplayLabel = #21592#24037#22995#21517
      FieldKind = fkLookup
      FieldName = 'H150_003'
      LookupDataSet = qryHrm150
      LookupKeyFields = 'H150_001'
      LookupResultField = 'H150_003'
      KeyFields = 'P510A_002'
      Visible = False
      Lookup = True
    end
  end
  object qryPay150: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from PAY150')
    Left = 352
    Top = 280
    object qryPay150P150_001: TAutoIncField
      FieldName = 'P150_001'
      ReadOnly = True
      Visible = False
    end
    object qryPay150P150_002: TStringField
      DisplayLabel = #39033#30446#32534#21495
      FieldName = 'P150_002'
    end
    object qryPay150P150_003: TStringField
      DisplayLabel = #39033#30446#21517#31216
      FieldName = 'P150_003'
      Size = 50
    end
    object qryPay150P150_009: TSmallintField
      DisplayLabel = #21152#39033#20943#39033
      FieldName = 'P150_009'
    end
  end
  object dsPay510B: TDataSource
    DataSet = qryPay510B
    Left = 302
    Top = 270
  end
  object qryPay510B: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    DataSource = dsPay510A
    Parameters = <
      item
        Name = 'P510A_001'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from PAY510B where P510B_001= :P510A_001')
    Left = 312
    Top = 280
    object qryPay510BP150_009: TSmallintField
      DisplayLabel = #21152#39033#20943#39033
      FieldKind = fkLookup
      FieldName = 'P150_009'
      LookupDataSet = qryPay150
      LookupKeyFields = 'P150_001'
      LookupResultField = 'P150_009'
      KeyFields = 'P510B_002'
      OnGetText = qryPay510BP150_009GetText
      Lookup = True
    end
    object qryPay510BP150_002: TStringField
      DisplayLabel = #39033#30446#32534#21495
      FieldKind = fkLookup
      FieldName = 'P150_002'
      LookupDataSet = qryPay150
      LookupKeyFields = 'P150_001'
      LookupResultField = 'P150_002'
      KeyFields = 'P510B_002'
      Lookup = True
    end
    object qryPay510BP150_003: TStringField
      DisplayLabel = #39033#30446#21517#31216
      FieldKind = fkLookup
      FieldName = 'P150_003'
      LookupDataSet = qryPay150
      LookupKeyFields = 'P150_001'
      LookupResultField = 'P150_003'
      KeyFields = 'P510B_002'
      Size = 50
      Lookup = True
    end
    object qryPay510BP510B_003: TFloatField
      DisplayLabel = #39033#30446#37329#39069
      FieldName = 'P510B_003'
    end
    object qryPay510BP510B_004: TBooleanField
      DisplayLabel = #36873#25321
      FieldName = 'P510B_004'
    end
    object qryPay510BP510B_001: TIntegerField
      DisplayLabel = #30005#33041#32534#21495
      FieldName = 'P510B_001'
      Visible = False
    end
    object qryPay510BP510B_002: TIntegerField
      DisplayLabel = #39033#30446#32534#21495
      FieldName = 'P510B_002'
      Visible = False
    end
  end
  object qryPay160A: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from PAY160A')
    Left = 472
    Top = 264
    object qryPay160AP160A_001: TAutoIncField
      FieldName = 'P160A_001'
      ReadOnly = True
      Visible = False
    end
    object qryPay160AP160A_002: TStringField
      DisplayLabel = #31867#21035#32534#21495
      FieldName = 'P160A_002'
      Size = 10
    end
    object qryPay160AP160A_003: TStringField
      DisplayLabel = #31867#21035#21517#31216
      FieldName = 'P160A_003'
      Size = 50
    end
  end
  object dsPay160A: TDataSource
    DataSet = qryPay160A
    Left = 488
    Top = 264
  end
  object adsPay510: TADODataSet
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    FieldDefs = <
      item
        Name = 'P150_009'
        Attributes = [faFixed]
        DataType = ftSmallint
      end
      item
        Name = 'P150_001'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'P150_002'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'P150_003'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'P510B_003'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'P510B_004'
        Attributes = [faFixed]
        DataType = ftBoolean
      end>
    Parameters = <>
    StoreDefs = True
    Left = 432
    Top = 312
    object adsPay510P150_009: TSmallintField
      DisplayLabel = #21152#39033#20943#39033
      FieldName = 'P150_009'
      OnGetText = adsPay510P150_009GetText
    end
    object adsPay510P150_001: TIntegerField
      DisplayLabel = #30005#33041#32534#21495
      FieldName = 'P150_001'
      Visible = False
    end
    object adsPay510P150_002: TStringField
      DisplayLabel = #39033#30446#32534#21495
      FieldName = 'P150_002'
    end
    object adsPay510P150_003: TStringField
      DisplayLabel = #39033#30446#21517#31216
      FieldName = 'P150_003'
      Size = 50
    end
    object adsPay510P510B_003: TFloatField
      DisplayLabel = #39033#30446#37329#39069
      FieldName = 'P510B_003'
    end
    object adsPay510P510B_004: TBooleanField
      DisplayLabel = #36873#25321
      FieldName = 'P510B_004'
    end
  end
  object dsPay510: TDataSource
    DataSet = adsPay510
    Left = 464
    Top = 312
  end
end