object f_closetable: Tf_closetable
  Left = 166
  Top = 79
  ActiveControl = Edit1
  BorderStyle = bsDialog
  Caption = 'Close Table Account'
  ClientHeight = 606
  ClientWidth = 754
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object DBCtrlGrid1: TDBCtrlGrid
    Left = 0
    Top = 65
    Width = 754
    Height = 541
    Align = alClient
    AllowDelete = False
    AllowInsert = False
    ColCount = 3
    Color = 16774378
    DataSource = DataSource1
    PanelHeight = 108
    PanelWidth = 246
    ParentColor = False
    TabOrder = 0
    RowCount = 5
    SelectedColor = 16764319
    OnKeyPress = DBCtrlGrid1KeyPress
    object Label1: TLabel
      Left = 8
      Top = 34
      Width = 29
      Height = 13
      Caption = 'Acc #'
      FocusControl = DBEdit1
    end
    object Label2: TLabel
      Left = 4
      Top = 56
      Width = 71
      Height = 13
      Caption = 'Account Name'
      FocusControl = DBEdit2
    end
    object Image1: TImage
      Left = 0
      Top = 0
      Width = 49
      Height = 33
      Picture.Data = {
        [encoded data, 21888 characters]
        01FA0380FE071B43DCE2FFF0B9BD0000000049454E44AE426082}
      Stretch = True
    end
    object DBEdit1: TDBEdit
      Left = 42
      Top = 34
      Width = 124
      Height = 21
      DataField = 'SID'
      DataSource = DataSource1
      ReadOnly = True
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 4
      Top = 71
      Width = 201
      Height = 21
      DataField = 'SNAME'
      DataSource = DataSource1
      ReadOnly = True
      TabOrder = 1
    end
  end
  object RzPanel1: TRzPanel
    Left = 0
    Top = 0
    Width = 754
    Height = 65
    Align = alTop
    TabOrder = 1
    object btnexit: TRzBitBtn
      Left = 584
      Top = 2
      Width = 168
      Height = 61
      ModalResult = 2
      Align = alRight
      Caption = 'Cancel'
      Color = 15791348
      HighlightColor = 16026986
      HotTrack = True
      HotTrackColor = 3983359
      TabOrder = 0
      Glyph.Data = {
        36060000424D3606000000000000360400002800000020000000100000000100
        0800000000000002000000000000000000000001000000000000000000003300
        00006600000099000000CC000000FF0000000033000033330000663300009933
        0000CC330000FF33000000660000336600006666000099660000CC660000FF66
        000000990000339900006699000099990000CC990000FF99000000CC000033CC
        000066CC000099CC0000CCCC0000FFCC000000FF000033FF000066FF000099FF
        0000CCFF0000FFFF000000003300330033006600330099003300CC003300FF00
        330000333300333333006633330099333300CC333300FF333300006633003366
        33006666330099663300CC663300FF6633000099330033993300669933009999
        3300CC993300FF99330000CC330033CC330066CC330099CC3300CCCC3300FFCC
        330000FF330033FF330066FF330099FF3300CCFF3300FFFF3300000066003300
        66006600660099006600CC006600FF0066000033660033336600663366009933
        6600CC336600FF33660000666600336666006666660099666600CC666600FF66
        660000996600339966006699660099996600CC996600FF99660000CC660033CC
        660066CC660099CC6600CCCC6600FFCC660000FF660033FF660066FF660099FF
        6600CCFF6600FFFF660000009900330099006600990099009900CC009900FF00
        990000339900333399006633990099339900CC339900FF339900006699003366
        99006666990099669900CC669900FF6699000099990033999900669999009999
        9900CC999900FF99990000CC990033CC990066CC990099CC9900CCCC9900FFCC
        990000FF990033FF990066FF990099FF9900CCFF9900FFFF99000000CC003300
        CC006600CC009900CC00CC00CC00FF00CC000033CC003333CC006633CC009933
        CC00CC33CC00FF33CC000066CC003366CC006666CC009966CC00CC66CC00FF66
        CC000099CC003399CC006699CC009999CC00CC99CC00FF99CC0000CCCC0033CC
        CC0066CCCC0099CCCC00CCCCCC00FFCCCC0000FFCC0033FFCC0066FFCC0099FF
        CC00CCFFCC00FFFFCC000000FF003300FF006600FF009900FF00CC00FF00FF00
        FF000033FF003333FF006633FF009933FF00CC33FF00FF33FF000066FF003366
        FF006666FF009966FF00CC66FF00FF66FF000099FF003399FF006699FF009999
        FF00CC99FF00FF99FF0000CCFF0033CCFF0066CCFF0099CCFF00CCCCFF00FFCC
        FF0000FFFF0033FFFF0066FFFF0099FFFF00CCFFFF00FFFFFF00000080000080
        000000808000800000008000800080800000C0C0C00080808000191919004C4C
        4C00B2B2B200E5E5E500C8AC2800E0CC6600F2EABF00B59B2400D8E9EC009933
        6600D075A300ECC6D900646F710099A8AC00E2EFF10000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000E8E8E8E8E8E8
        E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8
        E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8
        E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8B46C6C6CE8
        E8E8E8E8B46C6C6CE8E8E8E2DFDFDFE8E8E8E8E8E2DFDFDFE8E8E8B49090906C
        E8E8E8B49090906CE8E8E8E2818181DFE8E8E8E2818181DFE8E8E8E8B4909090
        6CE8B49090906CE8E8E8E8E8E2818181DFE8E2818181DFE8E8E8E8E8E8B49090
        906C9090906CE8E8E8E8E8E8E8E2818181DF818181DFE8E8E8E8E8E8E8E8B490
        909090906CE8E8E8E8E8E8E8E8E8E28181818181DFE8E8E8E8E8E8E8E8E8E8B4
        9090906CE8E8E8E8E8E8E8E8E8E8E8E2818181DFE8E8E8E8E8E8E8E8E8E8B490
        909090906CE8E8E8E8E8E8E8E8E8E28181818181DFE8E8E8E8E8E8E8E8B49090
        906C9090906CE8E8E8E8E8E8E8E2818181DF818181DFE8E8E8E8E8E8B4909090
        6CE8B49090906CE8E8E8E8E8E2818181DFE8E2818181DFE8E8E8E8B49090906C
        E8E8E8B49090906CE8E8E8E2818181DFE8E8E8E2818181DFE8E8E8B4B4B4B4E8
        E8E8E8E8B4B4B4B4E8E8E8E2E2E2E2E8E8E8E8E8E2E2E2E2E8E8E8E8E8E8E8E8
        E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8
        E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8}
      NumGlyphs = 2
    end
    object Edit1: TEdit
      Left = 8
      Top = 24
      Width = 241
      Height = 21
      TabOrder = 1
      OnChange = Edit1Change
      OnKeyPress = Edit1KeyPress
    end
    object RzBitBtn1: TRzBitBtn
      Left = 296
      Top = 2
      Width = 288
      Height = 61
      Align = alRight
      Caption = 'Ok'
      Color = 16766640
      HighlightColor = 16026986
      HotTrack = True
      HotTrackColor = 3983359
      TabOrder = 2
      OnClick = RzBitBtn1Click
      Glyph.Data = {
        36060000424D3606000000000000360400002800000020000000100000000100
        0800000000000002000000000000000000000001000000000000000000003300
        00006600000099000000CC000000FF0000000033000033330000663300009933
        0000CC330000FF33000000660000336600006666000099660000CC660000FF66
        000000990000339900006699000099990000CC990000FF99000000CC000033CC
        000066CC000099CC0000CCCC0000FFCC000000FF000033FF000066FF000099FF
        0000CCFF0000FFFF000000003300330033006600330099003300CC003300FF00
        330000333300333333006633330099333300CC333300FF333300006633003366
        33006666330099663300CC663300FF6633000099330033993300669933009999
        3300CC993300FF99330000CC330033CC330066CC330099CC3300CCCC3300FFCC
        330000FF330033FF330066FF330099FF3300CCFF3300FFFF3300000066003300
        66006600660099006600CC006600FF0066000033660033336600663366009933
        6600CC336600FF33660000666600336666006666660099666600CC666600FF66
        660000996600339966006699660099996600CC996600FF99660000CC660033CC
        660066CC660099CC6600CCCC6600FFCC660000FF660033FF660066FF660099FF
        6600CCFF6600FFFF660000009900330099006600990099009900CC009900FF00
        990000339900333399006633990099339900CC339900FF339900006699003366
        99006666990099669900CC669900FF6699000099990033999900669999009999
        9900CC999900FF99990000CC990033CC990066CC990099CC9900CCCC9900FFCC
        990000FF990033FF990066FF990099FF9900CCFF9900FFFF99000000CC003300
        CC006600CC009900CC00CC00CC00FF00CC000033CC003333CC006633CC009933
        CC00CC33CC00FF33CC000066CC003366CC006666CC009966CC00CC66CC00FF66
        CC000099CC003399CC006699CC009999CC00CC99CC00FF99CC0000CCCC0033CC
        CC0066CCCC0099CCCC00CCCCCC00FFCCCC0000FFCC0033FFCC0066FFCC0099FF
        CC00CCFFCC00FFFFCC000000FF003300FF006600FF009900FF00CC00FF00FF00
        FF000033FF003333FF006633FF009933FF00CC33FF00FF33FF000066FF003366
        FF006666FF009966FF00CC66FF00FF66FF000099FF003399FF006699FF009999
        FF00CC99FF00FF99FF0000CCFF0033CCFF0066CCFF0099CCFF00CCCCFF00FFCC
        FF0000FFFF0033FFFF0066FFFF0099FFFF00CCFFFF00FFFFFF00000080000080
        000000808000800000008000800080800000C0C0C00080808000191919004C4C
        4C00B2B2B200E5E5E500C8AC2800E0CC6600F2EABF00B59B2400D8E9EC009933
        6600D075A300ECC6D900646F710099A8AC00E2EFF10000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000E8E8E8E8E8E8
        E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8
        E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8180C
        E8E8E8E8E8E8E8E8E8E8E8E8E8E8E2DFE8E8E8E8E8E8E8E8E8E8E8E8E8181212
        0CE8E8E8E8E8E8E8E8E8E8E8E8E28181DFE8E8E8E8E8E8E8E8E8E8E818121212
        120CE8E8E8E8E8E8E8E8E8E8E281818181DFE8E8E8E8E8E8E8E8E81812121212
        12120CE8E8E8E8E8E8E8E8E2818181818181DFE8E8E8E8E8E8E8E81812120C18
        1212120CE8E8E8E8E8E8E8E28181DFE2818181DFE8E8E8E8E8E8E818120CE8E8
        181212120CE8E8E8E8E8E8E281DFE8E8E2818181DFE8E8E8E8E8E8180CE8E8E8
        E8181212120CE8E8E8E8E8E2DFE8E8E8E8E2818181DFE8E8E8E8E8E8E8E8E8E8
        E8E8181212120CE8E8E8E8E8E8E8E8E8E8E8E2818181DFE8E8E8E8E8E8E8E8E8
        E8E8E8181212120CE8E8E8E8E8E8E8E8E8E8E8E2818181DFE8E8E8E8E8E8E8E8
        E8E8E8E81812120CE8E8E8E8E8E8E8E8E8E8E8E8E28181DFE8E8E8E8E8E8E8E8
        E8E8E8E8E818120CE8E8E8E8E8E8E8E8E8E8E8E8E8E281DFE8E8E8E8E8E8E8E8
        E8E8E8E8E8E8180CE8E8E8E8E8E8E8E8E8E8E8E8E8E8E2DFE8E8E8E8E8E8E8E8
        E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8
        E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8}
      NumGlyphs = 2
    end
  end
  object Query1: TQuery
    BeforeOpen = Query1BeforeOpen
    SQL.Strings = (
      'select *  from sub'
      'where attention=:myattention'
      ''
      ''
      'order by sid desc ')
    Left = 384
    Top = 248
    ParamData = <
      item
        DataType = ftString
        Name = 'myattention'
        ParamType = ptUnknown
      end>
    object Query1SID: TStringField
      FieldName = 'SID'
      Origin = 'SERVER.SUB.SID'
    end
    object Query1SNAME: TStringField
      FieldName = 'SNAME'
      Origin = 'SERVER.SUB.SNAME'
      Size = 50
    end
    object Query1ATTENTION: TStringField
      FieldName = 'ATTENTION'
      Origin = 'SERVER.SUB.ATTENTION'
      Size = 50
    end
    object Query1MID: TStringField
      FieldName = 'MID'
      Origin = 'SERVER.SUB.MID'
    end
    object Query1SMAIN: TStringField
      FieldName = 'SMAIN'
      Origin = 'SERVER.SUB.SMAIN'
      Size = 5
    end
    object Query1SCURRID: TIntegerField
      FieldName = 'SCURRID'
      Origin = 'SERVER.SUB.SCURRID'
    end
    object Query1SDEBIT: TFloatField
      FieldName = 'SDEBIT'
      Origin = 'SERVER.SUB.SDEBIT'
    end
    object Query1SCREDIT: TFloatField
      FieldName = 'SCREDIT'
      Origin = 'SERVER.SUB.SCREDIT'
    end
    object Query1SDEBITLC: TFloatField
      FieldName = 'SDEBITLC'
      Origin = 'SERVER.SUB.SDEBITLC'
    end
    object Query1SCREDITLC: TFloatField
      FieldName = 'SCREDITLC'
      Origin = 'SERVER.SUB.SCREDITLC'
    end
    object Query1SLEVEL: TIntegerField
      FieldName = 'SLEVEL'
      Origin = 'SERVER.SUB.SLEVEL'
    end
    object Query1CREDITLIMIT: TFloatField
      FieldName = 'CREDITLIMIT'
      Origin = 'SERVER.SUB.CREDITLIMIT'
    end
    object Query1PRICETYPE: TIntegerField
      FieldName = 'PRICETYPE'
      Origin = 'SERVER.SUB.PRICETYPE'
    end
    object Query1MGROUP: TIntegerField
      FieldName = 'MGROUP'
      Origin = 'SERVER.SUB.MGROUP'
    end
    object Query1ADDRESS1: TStringField
      FieldName = 'ADDRESS1'
      Origin = 'SERVER.SUB.ADDRESS1'
      Size = 100
    end
    object Query1ADDRESS2: TStringField
      FieldName = 'ADDRESS2'
      Origin = 'SERVER.SUB.ADDRESS2'
      Size = 100
    end
    object Query1TEL1: TStringField
      FieldName = 'TEL1'
      Origin = 'SERVER.SUB.TEL1'
    end
    object Query1TEL2: TStringField
      FieldName = 'TEL2'
      Origin = 'SERVER.SUB.TEL2'
    end
    object Query1FAX: TStringField
      FieldName = 'FAX'
      Origin = 'SERVER.SUB.FAX'
    end
    object Query1EMAIL: TStringField
      FieldName = 'EMAIL'
      Origin = 'SERVER.SUB.EMAIL'
      Size = 80
    end
    object Query1CONTACT: TIntegerField
      FieldName = 'CONTACT'
      Origin = 'SERVER.SUB.CONTACT'
    end
    object Query1SALESMAN: TIntegerField
      FieldName = 'SALESMAN'
      Origin = 'SERVER.SUB.SALESMAN'
    end
    object Query1JOB: TIntegerField
      FieldName = 'JOB'
      Origin = 'SERVER.SUB.JOB'
    end
    object Query1DAYS: TIntegerField
      FieldName = 'DAYS'
      Origin = 'SERVER.SUB.DAYS'
    end
    object Query1DISCOUNT: TFloatField
      FieldName = 'DISCOUNT'
      Origin = 'SERVER.SUB.DISCOUNT'
    end
    object Query1STARTDATE: TDateTimeField
      FieldName = 'STARTDATE'
      Origin = 'SERVER.SUB.STARTDATE'
    end
    object Query1ENDDATE: TDateTimeField
      FieldName = 'ENDDATE'
      Origin = 'SERVER.SUB.ENDDATE'
    end
    object Query1ACCACTIVE: TStringField
      FieldName = 'ACCACTIVE'
      Origin = 'SERVER.SUB.ACCACTIVE'
      Size = 5
    end
    object Query1SDEBITM: TFloatField
      FieldName = 'SDEBITM'
      Origin = 'SERVER.SUB.SDEBITM'
    end
    object Query1SCREDITM: TFloatField
      FieldName = 'SCREDITM'
      Origin = 'SERVER.SUB.SCREDITM'
    end
    object Query1SDEBITLCM: TFloatField
      FieldName = 'SDEBITLCM'
      Origin = 'SERVER.SUB.SDEBITLCM'
    end
    object Query1SCREDITLCM: TFloatField
      FieldName = 'SCREDITLCM'
      Origin = 'SERVER.SUB.SCREDITLCM'
    end
    object Query1NEXT_: TIntegerField
      FieldName = 'NEXT_'
      Origin = 'SERVER.SUB.NEXT_'
    end
    object Query1DBALANCE: TFloatField
      FieldName = 'DBALANCE'
      Origin = 'SERVER.SUB.DBALANCE'
    end
    object Query1OBALANCE: TFloatField
      FieldName = 'OBALANCE'
      Origin = 'SERVER.SUB.OBALANCE'
    end
    object Query1SCURRVAL: TFloatField
      FieldName = 'SCURRVAL'
      Origin = 'SERVER.SUB.SCURRVAL'
    end
    object Query1SEXCHLL: TFloatField
      FieldName = 'SEXCHLL'
      Origin = 'SERVER.SUB.SEXCHLL'
    end
    object Query1OBALANCELC: TFloatField
      FieldName = 'OBALANCELC'
      Origin = 'SERVER.SUB.OBALANCELC'
    end
    object Query1USER_: TStringField
      FieldName = 'USER_'
      Origin = 'SERVER.SUB.USER_'
      Size = 30
    end
    object Query1SBALANCELC: TFloatField
      FieldName = 'SBALANCELC'
      Origin = 'SERVER.SUB.SBALANCELC'
    end
    object Query1SBALANCE: TFloatField
      FieldName = 'SBALANCE'
      Origin = 'SERVER.SUB.SBALANCE'
    end
    object Query1ENTYPE: TStringField
      FieldName = 'ENTYPE'
      Origin = 'SERVER.SUB.ENTYPE'
      Size = 30
    end
    object Query1ENMTYPE: TStringField
      FieldName = 'ENMTYPE'
      Origin = 'SERVER.SUB.ENMTYPE'
      Size = 30
    end
    object Query1OBLJOB: TStringField
      FieldName = 'OBLJOB'
      Origin = 'SERVER.SUB.OBLJOB'
      Size = 5
    end
    object Query1AUTONO: TIntegerField
      FieldName = 'AUTONO'
      Origin = 'SERVER.SUB.AUTONO'
    end
    object Query1OBLDEPART: TStringField
      FieldName = 'OBLDEPART'
      Origin = 'SERVER.SUB.OBLDEPART'
      Size = 5
    end
    object Query1OBLCONTACT: TStringField
      FieldName = 'OBLCONTACT'
      Origin = 'SERVER.SUB.OBLCONTACT'
      Size = 5
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 392
    Top = 344
  end
  object IvTranslator1: TIvTranslator
    DictionaryName = 'Dictionary1'
    CharsetChange = ivccDisabled
    Options = [ivtoAutoTranslate, ivtoAutoOpen]
    Left = 296
    Top = 180
    TargetsData = (
      1
      6
      (
        ''
        'Hint'
        0)
      (
        ''
        'Caption'
        0)
      (
        ''
        'Filter'
        0)
      (
        ''
        'DisplayLabel'
        0)
      (
        ''
        'Title'
        0)
      (
        'TMemo'
        'Text'
        0))
  end
end
