ipprocess.dfm

来自「群星医药系统源码」· DFM 代码 · 共 702 行 · 第 1/3 页

      00000000000000000000000000000000000000009F676D255E636D256D256D25
      6D25DD293F3679153F4F3F4F3F36BE25000000000000C168036D256D456D456D
      446D236D22710171C06CA060FF7F000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000009F679F679F675E635E635E63
      3D5B9A193F367D3E3742FF4A3F3A160D000000000000C16C2471467167716671
      6571447123712275E070A064FF7F000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000009F6B9F679F679F675E635E63
      5E6329250000813CA248603C6C2D0000000000000000E26C667188719176FF7F
      BC7FDE7FDD7F42750175C064FF7F000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000BF6F9F679F679F679F675E63
      5E6321040004C24CE250E250C5280000000000000000036D6771A971FF7FF57A
      87710B76DE7F2C7A0175C164FF7F000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000BF73BF6F9F679F679F679F67
      4208630C435963616361435DA040000000000000000024718971F57AD47AA971
      FF7F86756475FF7F2371E264FF7F000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000DF73BF73BF6F9F679F679F67
      8410A514A469C56DE571C56D425900000000000000004671CA71FF7FAA71A971
      FF7F667144719B7F23710365FF7F000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000BF736D25BF6F6D256D256D25
      A514C6188459257A467E257A636100000000000000004671CB75FF7FAA718971
      FF7F667144719B7F24710465FF7F000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000DF77BF73BF73BF6F9F679F67
      630C0821A514024DA46D467A625100000000000000006771EC75177BD47A8971
      FF7F46712471FF7F25712465FF7F000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000DF77DF77BF73BF739F6B9F6F
      A51429256C2D2925402CC24C410C000000000000000067710D765076BD7F8971
      687146710C76DE7F45712565FF7F000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000FF7BBF73DF77BF73BF73BF6F
      9F6F8410CE393146945229250000000000000000000089714F760D76D47AFF7F
      7A7FBC7FFE7F467146712565FF7F000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000FF7BFF7BDF77DF77DF73DF73
      BF739F6F9F6FA514A514000000000000000000000000CA71B37A50762D76EC75
      EB75CB75CA71897167710465FF7F000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000FF7BDF7BDF77DF77DF73DF6F
      BF6FBF6FBF6F5F5F3242000000000000000000000000CB75D47A70762E760D76
      EC75EC75CB75A97167710465FF7F000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000FF7FFF7BDF7BDF7BDF77BF77
      BF73DC4A5C1E1A1AD756000000000000000000000000DE7FCA71A97188716771
      6771467145714571036D8969FF7F000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000FF7F6D256D256D256D25BF77
      DF731D4FBF1A592A5B67000000000000000000000000FF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7F0000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000FF7FFF7FFF7FDF7FDF7BDE77
      DF775D57793A3A67000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000007C6B7C6B3C5F3C5F3C5F3C5F
      FC521C5700000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      2800000040000000140000000100010000000000A00000000000000000000000
      000000000000000000000000FFFFFF00FE01FFFF000000008000FFFF00000000
      8000C003000000008000C003000000008000C003000000008001C00300000000
      8003C003000000008003C003000000008001C003000000008001C00300000000
      8001C003000000008001C003000000008003C003000000008003C00300000000
      8007C003000000008007C003000000008007C00300000000800FC00300000000
      801FFFFF00000000807FFFFF0000000000000000000000000000000000000000
      000000000000}
  end
  object Server: TIdTCPServer
    Bindings = <>
    CommandHandlers = <>
    DefaultPort = 47110
    Greeting.NumericCode = 0
    ListenQueue = 50
    MaxConnectionReply.NumericCode = 0
    OnConnect = ServerConnect
    OnExecute = ServerExecute
    OnDisconnect = ServerDisconnect
    ReplyExceptionCode = 0
    ReplyTexts = <>
    ReplyUnknownCommand.NumericCode = 0
    ThreadMgr = IdThread
    Left = 544
    Top = 152
  end
  object IdThread: TIdThreadMgrDefault
    Left = 590
    Top = 152
  end
  object TrayICo: TRzTrayIcon
    Hint = #33647#21338#22763#28040#24687#22788#29702#26381#21153#22120'...'
    PopupMenu = PopExit
    IconIndex = -1
    Left = 500
    Top = 327
  end
  object PopExit: TPopupMenu
    Images = ImgList
    Left = 547
    Top = 327
    object N1: TMenuItem
      AutoHotkeys = maManual
      Bitmap.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000C40E0000C40E00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777770777777777777770077777777777770307777777777770330777777
        77770033300000000777703330FF07777777703300FF07777477703330FF0777
        4477703330FF07744444703330FF07444444703330FF0774444470330FFF0777
        44777030FFFF07777477700FFFFF077777777000000007777777}
      Caption = '[&C]'#20851#38381
      SubMenuImages = ImgList
      ImageIndex = 1
      OnClick = BtnExitClick
    end
  end
  object adsMsg: TADODataSet
    Connection = AdoConn
    CommandText = 'select * from TcpMsg'
    DataSource = DsUser
    IndexFieldNames = 'UserId;AccountName'
    MasterFields = 'UserId;AccountName'
    Parameters = <>
    Left = 352
    Top = 102
    object adsMsgMsgUnique: TAutoIncField
      FieldName = 'MsgUnique'
      ReadOnly = True
    end
    object adsMsgAccountName: TStringField
      FieldName = 'AccountName'
      FixedChar = True
      Size = 32
    end
    object adsMsgUserId: TStringField
      FieldName = 'UserId'
      FixedChar = True
    end
    object adsMsgMsg: TStringField
      FieldName = 'Msg'
      Size = 200
    end
    object adsMsgMsgDateTime: TDateTimeField
      FieldName = 'MsgDateTime'
    end
    object adsMsgModuleID: TStringField
      FieldName = 'ModuleID'
      Size = 40
    end
    object adsMsgBillNo: TStringField
      FieldName = 'BillNo'
      Size = 40
    end
    object adsMsgDestId: TStringField
      FieldName = 'DestId'
    end
    object adsMsgCopyTo: TBooleanField
      FieldName = 'CopyTo'
    end
    object adsMsgCommand: TBooleanField
      FieldName = 'Command'
    end
  end
  object DsUser: TDataSource
    DataSet = adsUser
    Left = 298
    Top = 102
  end
  object adsUser: TADODataSet
    Connection = AdoConn
    CursorType = ctStatic
    CommandText = 'select * from TcpUser'
    DataSource = DsAccount
    IndexFieldNames = 'AccountName'
    MasterFields = 'AccountName'
    Parameters = <>
    Left = 241
    Top = 103
    object adsUserUsrUnique: TAutoIncField
      FieldName = 'UsrUnique'
      ReadOnly = True
    end
    object adsUserAccountName: TStringField
      FieldName = 'AccountName'
      Size = 32
    end
    object adsUserUserId: TStringField
      FieldName = 'UserId'
    end
    object adsUserUserIP: TStringField
      FieldName = 'UserIP'
      Size = 15
    end
    object adsUserOnline: TBooleanField
      FieldName = 'Online'
    end
  end
  object AdoConn: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=SA;Initi' +
      'al Catalog=ChainEnt;Data Source=server-x\sql2000'
    KeepConnection = False
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'SQLOLEDB.1'
    Left = 181
    Top = 104
  end
  object adsAccount: TADODataSet
    Connection = AdoConn
    CursorType = ctStatic
    CommandText = 'select * from TcpAccount'
    Parameters = <>
    Left = 240
    Top = 184
    object adsAccountAccountName: TStringField
      FieldName = 'AccountName'
      Size = 32
    end
  end
  object DsAccount: TDataSource
    DataSet = adsAccount
    Left = 312
    Top = 184
  end
end