servers.dfm

三層進銷存 使用接口和連接池 是他人的面试作品 delphi语言编写

object frmservers: Tfrmservers
  Left = 265
  Top = 187
  ActiveControl = Grid
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Multi-tier Distributed Application Services'
  ClientHeight = 287
  ClientWidth = 497
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Icon.Data = {
    0000010002002020100000000000E8020000260000002020000000000000A808
    00000E0300002800000020000000400000000100040000000000800200000000
    0000000000000000000000000000000000000000800000800000008080008000
    0000800080008080000080808000C0C0C0000000FF0000FF000000FFFF00FF00
    0000FF00FF00FFFF0000FFFFFF00000000000000000000000000000000000000
    000033330000000013330000000000003333BBB31000000033BB33000000003B
    BBBBBBBB100000003BBBBBB00000000BBBBBBBBBFFFFFF003BBBBBBBB000000B
    BBBBBBB3FFFFFFFF13BBBBBBB000000BBBBBBBB00FFFFFFF83BBBBBB0000000B
    BBBBBB00FFFFFFFF8B333BB00000000003BBBB0FFFFFFFFF8B3003B000000000
    00BBB0FFF8FFFFFFFB0000B000000000000B0FFFF8FFFFFFFF00070000000000
    00000FFFFFFFFFFFFF0000000000000000000FFFF8FFFFFFFF00000000000000
    00000FFFFFFFFFFFFF0000000000000000000FFFFFFFFFFFFF00000000000000
    000000FFFFFFFFFFFF000000000000000000008FFFFFFFFF8000000000000000
    00000007FFFFFF88F0000000000000000000000FFFFFFFFF0000000000000000
    00000007FFFFFFFF000000000000000000000000F888FFFF0000000000000000
    00000000883388F00000000000000000000000000BB333807000000000000000
    000000003BBBB3B00000000000000000000000000BBBBB000000000000000000
    00000000F03300F0000000000000000000000000F00077F00000000000000000
    0000000037007800000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000FFDFF9FFFE0FF07FF000003FC000001FE000
    0007E0000007E000000FE000001FF800001FFC00001FFC00001FFC00001FFC00
    001FFE00001FFF00003FFF00003FFF00003FFF80007FFF8000FFFFC001FFFFE0
    01FFFFF003FFFFF003FFFFF007FFFFF007FFFFE007FFFFE007FFFFE007FFFFE0
    07FFFFE007FFFFF00FFFFFF81FFF280000002000000040000000010008000000
    0000800400000000000000000000000000000000000000000000000080000080
    000000808000800000008000800080800000C0C0C000C0DCC000F0CAA6000404
    0400080808000C0C0C0011111100161616001C1C1C0022222200292929005555
    55004D4D4D004242420039393900807CFF005050FF009300D600FFECCC00C6D6
    EF00D6E7E70090A9AD000000330000006600000099000000CC00003300000033
    330000336600003399000033CC000033FF000066000000663300006666000066
    99000066CC000066FF00009900000099330000996600009999000099CC000099
    FF0000CC000000CC330000CC660000CC990000CCCC0000CCFF0000FF660000FF
    990000FFCC00330000003300330033006600330099003300CC003300FF003333
    00003333330033336600333399003333CC003333FF0033660000336633003366
    6600336699003366CC003366FF00339900003399330033996600339999003399
    CC003399FF0033CC000033CC330033CC660033CC990033CCCC0033CCFF0033FF
    330033FF660033FF990033FFCC0033FFFF006600000066003300660066006600
    99006600CC006600FF00663300006633330066336600663399006633CC006633
    FF00666600006666330066666600666699006666CC0066990000669933006699
    6600669999006699CC006699FF0066CC000066CC330066CC990066CCCC0066CC
    FF0066FF000066FF330066FF990066FFCC00CC00FF00FF00CC00999900009933
    9900990099009900CC009900000099333300990066009933CC009900FF009966
    00009966330099336600996699009966CC009933FF0099993300999966009999
    99009999CC009999FF0099CC000099CC330066CC660099CC990099CCCC0099CC
    FF0099FF000099FF330099CC660099FF990099FFCC0099FFFF00CC0000009900
    3300CC006600CC009900CC00CC0099330000CC333300CC336600CC339900CC33
    CC00CC33FF00CC660000CC66330099666600CC669900CC66CC009966FF00CC99
    0000CC993300CC996600CC999900CC99CC00CC99FF00CCCC0000CCCC3300CCCC
    6600CCCC9900CCCCCC00CCCCFF00CCFF0000CCFF330099FF6600CCFF9900CCFF
    CC00CCFFFF00CC003300FF006600FF009900CC330000FF333300FF336600FF33
    9900FF33CC00FF33FF00FF660000FF663300CC666600FF669900FF66CC00CC66
    FF00FF990000FF993300FF996600FF999900FF99CC00FF99FF00FFCC0000FFCC
    3300FFCC6600FFCC9900FFCCCC00FFCCFF00FFFF3300CCFF6600FFFF9900FFFF
    CC006666FF0066FF660066FFFF00FF666600FF66FF00FFFF66002100A5005F5F
    5F00777777008686860096969600CBCBCB00B2B2B200D7D7D700DDDDDD00E3E3
    E300EAEAEA00F1F1F100F8F8F800F0FBFF00A4A0A000808080000000FF0000FF
    000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000000000000000
    2200000000000000000000222200000000000000000000000000000000223030
    3030000000000000000023303030430000000000000000000000303030303838
    3230230000000000000029303232303000000000000000003032383832383838
    3832230000000000000030323838383859000000000000000038383838383232
    3838FFFFFFFFFFFF000029323838383838383800000000000038383838383838
    3830FFFFFFFFFFFFFFFF23303838383838385900000000000038383838325938
    380000FFFFFFFFFFFFFFBC303838383838380000000000000032383838383838
    0000FFFFFFFFFFFFFFFFBC383030303838000000000000000000003038383838
    00FFFFFFFFFFFFFFFFFFBC383000003038000000000000000000000032593800
    FFFFFFBCFFFFFFFFFFFFFF3800000000590000000000000000000000003843FF
    FFFFFFBCFFFFFFFFFFFFFFFF43000092000000000000000000000000000000FF
    FFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000FF
    FFFFFFBCFFFFFFFFFFFFFFFF00000000000000000000000000000000000000FF
    FFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000043FF
    FFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000000000000000000000
    FFFFFFFFFFFFFFFFFFFFFFFF4343000000000000000000000000000000000000
    BCFFFFFFFFFFFFFFFFFFBC000000000000000000000000000000000000000000
    0092FFFFFFFFFFFFBCBCFF000000000000000000000000000000000000000000
    00FFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000000000
    0092FFFFFFFFFFFFFFFF00000000000000000000000000000000000000000000
    0000FFBCBCBCFFFFFFFF00000000000000000000000000000000000000000000
    0000BCBC3030BCBCFF0000000000000000000000000000000000000000000000
    0000433859303030BC0092000000000000000000000000000000000000000000
    0000303838595930380000000000000000000000000000000000000000000000
    0000003838595937000000000000000000000000000000000000000000000000
    0000FF0030300000FF0000000000000000000000000000000000000000000000
    001DFF4300006D92FF0000000000000000000000000000000000000000000000
    00003092000092BC000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000043430000000000000000000000000000000000000000000000
    00000000000000000000000000000000000000000000FFDFF9FFFE0FF07FF000
    003FC000001FE0000007E0000007E000000FE000001FF800001FFC00001FFC00
    001FFC00001FFC00001FFE00001FFF00003FFF00003FFF00003FFF80007FFF80
    00FFFFC001FFFFE001FFFFF003FFFFF003FFFFF007FFFFF007FFFFE007FFFFE0
    07FFFFE007FFFFE007FFFFE007FFFFF00FFFFFF81FFF}
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object imagetop: TImage
    Left = 0
    Top = 0
    Width = 497
    Height = 49
    Align = alTop
    Stretch = True
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 268
    Width = 497
    Height = 19
    Panels = <>
  end
  object Grid: TDBGrid
    Left = 0
    Top = 49
    Width = 497
    Height = 219
    Align = alClient
    DataSource = DSgrid
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'fid'
        Title.Alignment = taCenter
        Title.Caption = 'Sn'
        Width = 40
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fonline'
        Title.Alignment = taCenter
        Title.Caption = 'State'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fport'
        Title.Alignment = taCenter
        Title.Caption = 'Port'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fpcname'
        Title.Alignment = taCenter
        Title.Caption = 'Client Name'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fpcip'
        Title.Alignment = taCenter
        Title.Caption = 'Client IP'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'flogintime'
        Title.Alignment = taCenter
        Title.Caption = 'Login Time'
        Visible = True
      end>
  end
  object CDSgrid: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 180
    Top = 104
    object CDSgridfid: TIntegerField
      FieldName = 'fid'
    end
    object CDSgridfonline: TIntegerField
      FieldName = 'fonline'
      OnGetText = CDSgridfonlineGetText
    end
    object CDSgridfport: TStringField
      FieldName = 'fport'
      Size = 5
    end
    object CDSgridfpcname: TStringField
      FieldName = 'fpcname'
      Size = 18
    end
    object CDSgridfpcip: TStringField
      FieldName = 'fpcip'
      Size = 16
    end
    object CDSgridflogintime: TStringField
      FieldName = 'flogintime'
      Size = 26
    end
  end
  object DSgrid: TDataSource
    AutoEdit = False
    DataSet = CDSgrid
    Left = 149
    Top = 104
  end
  object MainMenu1: TMainMenu
    Left = 88
    Top = 104
    object System1: TMenuItem
      Caption = 'System'
      object StartServerS1: TMenuItem
        Action = A01start
      end
      object N1: TMenuItem
        Caption = '-'
      end