tscmain.dfm.svn-base

一个用Delphi开发的ERP软件

      17C301014300000000000000000308088D1515BC2B2BC56868F211117200003B
      0F0F970F0FB63E3EEE5D5DF40F0F7B0000030000000000000000000000000000
      000000000808210B0B740101681717BD0B0B9C00003300001A00000D00005D16
      16CA08088800000200000000000000006E1818CC0E0EA40A0AB73D3DE90B0B7C
      02028A1212BD0101911313CD3F3FEA0606530000000000000000000000000000
      0000000001013B2424D91C1CC12A2ACD1818BC09099005057801016601016108
      087F0E0EAA00005401015A05054C00002C0909B62D2DE00606830707B03434E2
      0606831212C308087800007A1616CF2828CF01011D0000000000000000000000
      000000000000091111B53E3EF69696FF9A9AFE8787F74F4FE11212B11212AD20
      20C51A1ABF0F0FA30D0D9F1212B303032F0000671E1ED72C2CD30202790A0AB9
      2D2DD20808991919C10000330000942020DC0F0F870000000000000000000000
      0000000000000000001301015507075C1C1C9E3D3DD74444F22C2CD66A6AF093
      93FF9494FF8080FC2222CC4C4CE03E3EC10A0A230101832D2DE62323C0010178
      1010C32525C21B1BC80707720000440303AA2121D40101290000000000000000
      000000000000000000000000000000000000000000020606843939F011119E1C
      1C903131A72D2DD22828D62525A32323710505180000100202963535EB1717A4
      0000791A1ACF2828CE1010AF00002800007C1111C60E0E840000000000000202
      1900001D0000060000000000000000000000000000000000070A0A943434E407
      07620000040000571E1ED80F0F8D00000E00000000000000001B0505A53434EA
      0A0A790000812626DB3939E306067400003C01019F1919C80000170000001C1C
      9209097B00003D0000200000070000000000000000000000000000080E0EA52C
      2CD904044E00000603038C2424DA0A0A8800002B00000500000000002E0909B7
      2727D70202450101992E2EE92323C80101510A0A932929BC05054F0000000B0B
      951818C21010A70D0D8D11117A05053000000000000000000000000000001311
      11B62222C801013300001D0C0CB42020CE0A0A92010153000026000010000068
      1A1ABF0A0A8E0000290707B63B3BF112129E01017E1E1ED112128E0000000303
      642929DD2E2ED41010B90E0E7D05054200001600000300000000000000000000
      00271515C81111A40000130101792B2BE62222CA1616B209098D03036800005F
      10108B0B0BA50000000000471313CD3C3CEA01014C0101A21616A40000000000
      103030CC7272FE4D4DE51919AD07077C01015900004400002E00001A00000D00
      000106067B1818C302025A0000131313A32020D72E2ECC7373E95C5CE23535CB
      3535D11919A90000000000000000230B0B4B0000000000000000000000000000
      000000061616695454D28484FE7474F14040D21919A908087F03036200005400
      00570909741818AA04048300000000000905058F2929CA25259B5757C87272D4
      5555B40B0B2D0000000000000000000000000000000000000000000000000000
      000000000000000000000707392D2D896565D08A8AFE8787F86C6CE64B4BD135
      35C03636C24D4DDC0B0B7D000000000000000000000003000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000002021812124D2C2C7849499858
      58AA5151A22B2B71020211000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000000000000000FFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFE7DFFFFFE3870C3FE187001FE186000FC003000FC0000007C0000007E000
      0003FE0000031F0060010780100103C0000100E00081000000CF800100FFF001
      DFFFFE01FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    PopupMenu = PopupMenu1
    OnDblClick = RxTrayIcon1DblClick
    Left = 240
    Top = 88
  end
  object PopupMenu1: TPopupMenu
    Left = 272
    Top = 88
    object N1: TMenuItem
      Action = ActShowMain
    end
    object T1: TMenuItem
      Action = ActStart
    end
    object P1: TMenuItem
      Action = ActStop
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object X1: TMenuItem
      Action = ActExit
    end
  end
  object dsSys500E: TDataSource
    DataSet = adsSys500E
    Left = 88
    Top = 104
  end
  object qrySys500E: TADOQuery
    Connection = TSCDM.ADOC
    Parameters = <>
    SQL.Strings = (
      
        'select A.*,B.S500A_002 from SYS500E A, SYS500A B where S500E_001' +
        '=S500A_001')
    Left = 128
    Top = 144
    object qrySys500ES500A_002: TWideStringField
      DisplayLabel = #29992#25143#21517#31216
      FieldName = 'S500A_002'
    end
    object qrySys500ES500E_002: TDateTimeField
      DisplayLabel = #30331#24405#26102#38388
      FieldName = 'S500E_002'
    end
    object qrySys500ES500E_003: TDateTimeField
      DisplayLabel = #21047#26032#26102#38388
      FieldName = 'S500E_003'
    end
    object qrySys500ES500E_004: TWideStringField
      DisplayLabel = 'IP'#22320#22336
      FieldName = 'S500E_004'
    end
    object qrySys500ES500E_005: TWideStringField
      DisplayLabel = #30005#33041#21517#31216
      FieldName = 'S500E_005'
      Size = 30
    end
    object qrySys500ES500E_006: TSmallintField
      DisplayLabel = #29366#24577
      FieldName = 'S500E_006'
      OnGetText = qrySys500ES500E_006GetText
    end
    object qrySys500ES500E_001: TIntegerField
      FieldName = 'S500E_001'
      Visible = False
    end
  end
  object IdMsgSend: TIdMessage
    BccList = <>
    CCList = <>
    ContentType = 'text/plain'
    Recipients = <>
    ReplyTo = <>
    Left = 212
    Top = 148
  end
  object SMTP: TIdSMTP
    RecvBufferSize = 8192
    Left = 272
    Top = 151
  end
  object ImageList1: TImageList
    Left = 384
    Top = 8
  end
  object adsSys500E: TADODataSet
    Connection = TSCDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    FieldDefs = <
      item
        Name = 'FDatabase'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'FUser'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FLogin'
        Attributes = [faFixed]
        DataType = ftDateTime
      end
      item
        Name = 'FLast'
        Attributes = [faFixed]
        DataType = ftDateTime
      end
      item
        Name = 'FIP'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FComputer'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'FStatus'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FUserNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end>
    Parameters = <>
    StoreDefs = True
    Left = 88
    Top = 144
    object adsSys500EFDatabase: TStringField
      DisplayLabel = #24080#22871
      FieldName = 'FDatabase'
      Size = 50
    end
    object adsSys500EFUser: TStringField
      DisplayLabel = #29992#25143#21517#31216
      FieldName = 'FUser'
    end
    object adsSys500EFLogin: TDateTimeField
      DisplayLabel = #30331#24405#26102#38388
      FieldName = 'FLogin'
    end
    object adsSys500EFLast: TDateTimeField
      DisplayLabel = #21047#26032#26102#38388
      FieldName = 'FLast'
    end
    object adsSys500EFIP: TStringField
      DisplayLabel = 'IP'#22320#22336
      FieldName = 'FIP'
    end
    object adsSys500EFComputer: TStringField
      DisplayLabel = #24037#20316#31449#21517
      FieldName = 'FComputer'
      Size = 30
    end
    object adsSys500EFStatus: TStringField
      DisplayLabel = #29366#24577
      FieldName = 'FStatus'
    end
    object adsSys500EFUserNo: TIntegerField
      FieldName = 'FUserNo'
      Visible = False
    end
  end
  object qrySys910: TADOQuery
    Connection = TSCDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      
        'select * from SYS910 where S910_007<>0 and S910_008=0 order by S' +
        '910_001,S910_005')
    Left = 176
    Top = 216
    object qrySys910S910_001: TIntegerField
      FieldName = 'S910_001'
    end
    object qrySys910S910_002: TDateTimeField
      FieldName = 'S910_002'
    end
    object qrySys910S910_003: TWideStringField
      FieldName = 'S910_003'
      Size = 255
    end
    object qrySys910S910_004: TWideStringField
      FieldName = 'S910_004'
      Size = 50
    end
    object qrySys910S910_005: TIntegerField
      FieldName = 'S910_005'
    end
    object qrySys910S910_006: TSmallintField
      FieldName = 'S910_006'
    end
    object qrySys910S910_007: TBooleanField
      FieldName = 'S910_007'
    end
    object qrySys910S910_008: TBooleanField
      FieldName = 'S910_008'
    end
    object qrySys910S910_009: TBooleanField
      FieldName = 'S910_009'
    end
    object qrySys910S910_010: TBooleanField
      FieldName = 'S910_010'
    end
    object qrySys910S910_011: TDateTimeField
      FieldName = 'S910_011'
    end
    object qrySys910S910_012: TSmallintField
      FieldName = 'S910_012'
    end
    object qrySys910S910A_002: TStringField
      FieldKind = fkLookup
      FieldName = 'S910A_002'
      LookupDataSet = qrySys910A
      LookupKeyFields = 'S910A_001'
      LookupResultField = 'S910A_002'
      KeyFields = 'S910_001'
      Size = 255
      Lookup = True
    end
    object qrySys910S500A_007: TStringField
      FieldKind = fkLookup
      FieldName = 'S500A_007'
      LookupDataSet = qrySys500A
      LookupKeyFields = 'S500A_001'
      LookupResultField = 'S500A_007'
      KeyFields = 'S910_005'
      Size = 50
      Lookup = True
    end
    object qrySys910S500A_008: TStringField
      FieldKind = fkLookup
      FieldName = 'S500A_008'
      LookupDataSet = qrySys500A
      LookupKeyFields = 'S500A_001'
      LookupResultField = 'S500A_008'
      KeyFields = 'S910_005'
      Size = 50
      Lookup = True
    end
  end
  object qrySys500A: TADOQuery
    Connection = TSCDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from SYS500A')
    Left = 240
    Top = 216
  end
  object qrySys910A: TADOQuery
    Connection = TSCDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from SYS910A')
    Left = 288
    Top = 216
  end
end