object f_pospr: Tf_pospr
  Left = 142
  Top = 34
  ActiveControl = RzPanel4
  BiDiMode = bdLeftToRight
  BorderStyle = bsNone
  Caption = '-'
  ClientHeight = 700
  ClientWidth = 1024
  Color = 16770764
  Constraints.MinHeight = 53
  Constraints.MinWidth = 130
  DefaultMonitor = dmPrimary
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Menu = suiMainMenu1
  OldCreateOrder = False
  ParentBiDiMode = False
  PopupMenu = PopupMenu1
  Position = poDefault
  Scaled = False
  Visible = True
  WindowState = wsMaximized
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object RzPanel2: TRzPanel
    Left = 0
    Top = 2
    Width = 1024
    Height = 671
    Align = alClient
    Color = 8951726
    GradientColorStart = 4938093
    GradientColorStop = 14672874
    GradientDirection = gdHorizontalBox
    TabOrder = 0
    UseGradients = True
    object DBText2: TDBText
      Left = 2
      Top = 652
      Width = 1020
      Height = 17
      Align = alBottom
      Color = 16759936
      DataField = 'MYPRN'
      DataSource = posmodule.dconfigs
      ParentColor = False
    end
  end
  object RzPanel3: TRzPanel
    Left = 0
    Top = 0
    Width = 1024
    Height = 2
    Align = alTop
    BorderOuter = fsNone
    TabOrder = 1
    Transparent = True
  end
  object RzPanel4: TRzPanel
    Left = 0
    Top = 2
    Width = 1024
    Height = 671
    Align = alClient
    Color = -2147483621
    TabOrder = 2
    Transparent = True
    object Image2: TImage
      Left = 60
      Top = 2
      Width = 962
      Height = 667
      Align = alClient
      Picture.Data = {
        [encoded data, 15168 characters]
        5007FFD9}
      Stretch = True
    end
    object RzURLLabel1: TRzURLLabel
      Left = 62
      Top = 13
      Width = 187
      Height = 33
      Alignment = taCenter
      AutoSize = False
      Caption = 'POS View'
      Font.Charset = ANSI_CHARSET
      Font.Color = 16775924
      Font.Height = -24
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object RzURLLabel23: TRzURLLabel
      Left = 64
      Top = 45
      Width = 169
      Height = 33
      Alignment = taCenter
      AutoSize = False
      Caption = 'By Dolly Soft'
      Font.Charset = ANSI_CHARSET
      Font.Color = 16775924
      Font.Height = -29
      Font.Name = 'Palace Script MT'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
      Transparent = True
    end
    object RzDBLabel2: TRzDBLabel
      Left = 336
      Top = 35
      Width = 369
      Height = 43
      Anchors = []
      BiDiMode = bdRightToLeftNoAlign
      Color = clBlack
      Font.Charset = ARABIC_CHARSET
      Font.Color = clLime
      Font.Height = -32
      Font.Name = 'Verdana'
      Font.Style = [fsBold]
      ParentBiDiMode = False
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      Transparent = True
      BorderSides = []
      BorderColor = clBtnText
      FlatColor = clLime
      ShadowColor = clNone
      DataField = 'CASHNAME'
      DataSource = posmodule.dconfigs
    end
    object RzPanel1: TRzPanel
      Left = 2
      Top = 2
      Width = 58
      Height = 667
      Align = alLeft
      Color = clBlack
      GradientColorStart = clBlack
      GradientColorStop = 1907997
      TabOrder = 0
      object DBText1: TDBText
        Left = 2
        Top = 648
        Width = 54
        Height = 17
        Align = alBottom
        Alignment = taCenter
        DataField = 'MYPRN'
        DataSource = posmodule.dconfigs
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Image1: TImage
        Left = 2
        Top = 2
        Width = 54
        Height = 58
        Align = alTop
        Picture.Data = {
          [encoded data, 4224 characters]
          514575D2A718C74386AC9C9EA260FB514515A107FFD9}
        Stretch = True
      end
    end
    object AdvGlassButton4: TAdvGlassButton
      Left = 720
      Top = 483
      Width = 170
      Height = 130
      BackColor = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ForeColor = clWhite
      GlowColor = 16760205
      InnerBorderColor = clBlack
      OuterBorderColor = clWhite
      Picture.Data = {
        [encoded data, 10816 characters]
        EA7FFFD9}
      ParentFont = False
      ShineColor = clWhite
      ShortCutHintPos = shpCenter
      ShowCaption = False
      TabOrder = 1
      Version = '1.3.0.0'
      OnClick = AdvGlassButton4Click
    end
    object AdvGlassButton2: TAdvGlassButton
      Left = 480
      Top = 483
      Width = 192
      Height = 130
      BackColor = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ForeColor = clWhite
      GlowColor = 16760205
      InnerBorderColor = clBlack
      OuterBorderColor = clWhite
      Picture.Data = {
        [encoded data, 26880 characters]
        0FFFD9}
      ParentFont = False
      ShineColor = clWhite
      ShortCutHintPos = shpCenter
      ShowCaption = False
      TabOrder = 2
      Version = '1.3.0.0'
      OnClick = AdvGlassButton2Click
    end
    object AdvGlassButton9: TAdvGlassButton
      Left = 776
      Top = 371
      Width = 193
      Height = 130
      BackColor = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ForeColor = clWhite
      GlowColor = 16760205
      InnerBorderColor = clBlack
      OuterBorderColor = clWhite
      Picture.Data = {
        [encoded data, 8192 characters]
        428A28A0028A28A00FFFD9}
      ParentFont = False
      ShineColor = clWhite
      ShortCutHintPos = shpCenter
      ShowCaption = False
      TabOrder = 3
      Version = '1.3.0.0'
      Visible = False
      OnClick = AdvGlassButton9Click
    end
    object btnbar: TAdvGlassButton
      Left = 664
      Top = 553
      Width = 192
      Height = 130
      BackColor = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ForeColor = clWhite
      GlowColor = 16760205
      InnerBorderColor = clBlack
      OuterBorderColor = clWhite
      Picture.Data = {
        [encoded data, 4160 characters]
        FFD9}
      ParentFont = False
      ShineColor = clWhite
      ShortCutHintPos = shpCenter
      ShowCaption = False
      TabOrder = 4
      Version = '1.3.0.0'
      Visible = False
      OnClick = btnbarClick
    end
    object btncash: TAdvGlassButton
      Left = 624
      Top = 545
      Width = 193
      Height = 130
      BackColor = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ForeColor = clWhite
      GlowColor = 16760205
      InnerBorderColor = clBlack
      OuterBorderColor = clWhite
      Picture.Data = {
        [encoded data, 6848 characters]
        2B0A87551DCFFFD9}
      ParentFont = False
      ShineColor = clWhite
      ShortCutHintPos = shpCenter
      ShowCaption = False
      TabOrder = 5
      Version = '1.3.0.0'
      Visible = False
      OnClick = btncashClick
    end
    object btnrest: TAdvGlassButton
      Left = 696
      Top = 561
      Width = 170
      Height = 130
      BackColor = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ForeColor = clWhite
      GlowColor = 16760205
      InnerBorderColor = clBlack
      OuterBorderColor = clWhite
      Picture.Data = {
        [encoded data, 9152 characters]
        8554FF00757B7F3AE9638D51700549B475A5AECA749451CD29B96E7FFFD9}
      ParentFont = False
      ShineColor = clWhite
      ShortCutHintPos = shpCenter
      ShowCaption = False
      TabOrder = 6
      Version = '1.3.0.0'
      Visible = False
      OnClick = btnrestClick
    end
    object AdvGlassButton3: TAdvGlassButton
      Left = 64
      Top = 484
      Width = 192
      Height = 130
      BackColor = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ForeColor = clWhite
      GlowColor = 16760205
      InnerBorderColor = clBlack
      OuterBorderColor = clWhite
      Picture.Data = {
        [encoded data, 8064 characters]
        8EA73CF4A28AA117564F9467713F5FFEBD14514AE23FFFD9}
      ParentFont = False
      ShineColor = clWhite
      ShortCutHintPos = shpCenter
      ShowCaption = False
      TabOrder = 7
      Version = '1.3.0.0'
      OnClick = AdvGlassButton3Click
    end
    object AdvGlassButton5: TAdvGlassButton
      Left = 264
      Top = 484
      Width = 193
      Height = 130
      BackColor = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ForeColor = clWhite
      GlowColor = 16760205
      InnerBorderColor = clBlack
      OuterBorderColor = clWhite
      Picture.Data = {
        [encoded data, 6080 characters]
        370F127FC7ABD79EA7FAE93F0FEB4515380F84E99FC27FFFD9}
      ParentFont = False
      ShineColor = clWhite
      ShortCutHintPos = shpCenter
      ShowCaption = False
      TabOrder = 8
      Version = '1.3.0.0'
      OnClick = AdvGlassButton5Click
    end
    object AdvGlassButton8: TAdvGlassButton
      Left = 848
      Top = 380
      Width = 170
      Height = 130
      BackColor = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ForeColor = clWhite
      GlowColor = 16760205
      InnerBorderColor = clBlack
      OuterBorderColor = clWhite
      Picture.Data = {
        [encoded data, 6208 characters]
        3FB36D87FC06B9AD43506D426F35A28E33E8828A28114A8A28A00FFFD9}
      ParentFont = False
      ShineColor = clWhite
      ShortCutHintPos = shpCenter
      ShowCaption = False
      TabOrder = 9
      Version = '1.3.0.0'
      Visible = False
      OnClick = AdvGlassButton8Click
    end
    object DBCtrlGrid1: TDBCtrlGrid
      Left = 64
      Top = 88
      Width = 856
      Height = 381
      AllowDelete = False
      AllowInsert = False
      ColCount = 4
      Color = 16643566
      DataSource = DataSource1
      PanelHeight = 127
      PanelWidth = 210
      ParentColor = False
      TabOrder = 10
      RowCount = 3
      SelectedColor = 15780518
      OnClick = DBCtrlGrid1Click
      object DBText6: TDBText
        Left = 8
        Top = 8
        Width = 153
        Height = 17
        DataField = 'Name'
        DataSource = DataSource1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        OnClick = DBCtrlGrid1Click
      end
      object DBText7: TDBText
        Left = 8
        Top = 40
        Width = 168
        Height = 47
        DataField = 'Ip'
        DataSource = DataSource1
        WordWrap = True
        OnClick = DBCtrlGrid1Click
      end
    end
  end
  object RzStatusBar1: TRzStatusBar
    Left = 0
    Top = 673
    Width = 1024
    Height = 27
    AutoStyle = False
    BiDiMode = bdLeftToRight
    BorderInner = fsNone
    BorderOuter = fsNone
    BorderSides = [sdLeft, sdTop, sdRight, sdBottom]
    BorderWidth = 0
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentBiDiMode = False
    ParentFont = False
    TabOrder = 3
    object RzMarqueeStatus1: TRzMarqueeStatus
      Left = 0
      Top = 0
      Width = 537
      Height = 27
      Align = alLeft
      Color = 16774118
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Caption = 
        'F10 :Stock Refresh  F12 :Z-Close F1:Current Zed  F2:Printer On/O' +
        'ff  Ctrl+Alt+D : Design report'
    end
    object RzClockStatus1: TRzClockStatus
      Left = 874
      Top = 0
      Height = 27
      Align = alRight
    end
    object RzFieldStatus1: TRzFieldStatus
      Left = 537
      Top = 0
      Height = 27
      Align = alLeft
      OnClick = RzFieldStatus1Click
      Caption = 'Minimize'
    end
    object RzFieldStatus2: TRzFieldStatus
      Left = 637
      Top = 0
      Height = 27
      Align = alLeft
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Caption = 'Ver. 2017  '
    end
  end
  object mypass: TsuiInputDialog
    Position = poScreenCenter
    Caption = 'Password'
    UIStyle = FromThemeFile
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    CaptionFont.Charset = DEFAULT_CHARSET
    CaptionFont.Color = clWhite
    CaptionFont.Height = -11
    CaptionFont.Name = 'Tahoma'
    CaptionFont.Style = [fsBold]
    PasswordChar = '*'
    PromptText = 'Enter Password:'
    ButtonOKCaption = 'OK'
    ButtonCancelCaption = 'Cancel'
    ButtonCursor = crHandPoint
    Left = 184
    Top = 480
  end
  object touser: TTable
    TableName = 'user_.db'
    Left = 192
    Top = 440
  end
  object sourceinv: TQuery
    DatabaseName = 'pos'
    SessionName = 'Default'
    SQL.Strings = (
      'select * from invoice2'
      ''
      'order by id')
    Left = 528
    Top = 346
  end
  object bminv: TBatchMove
    Destination = destinv
    Mappings.Strings = (
      'ID=id'
      'FDATE=fdate'
      'FIDATE=FIDATE'
      'CURRID=CURRID'
      'CURRVAL=CURRVAL'
      'JOB=job'
      'SID=SID'
      'SITE=SITE'
      'SSID=SSID'
      'VATSID=VATSID'
      'SUBTOTAL=SUBTOTAL'
      'other=DISCOUNT'
      'VAT=VAT'
      'NET=NET'
      'NETLC=NETLC'
      'USER_=USER_'
      'YESNO=yesno'
      'FTYPE=FTYPE'
      'STOTAL=STOTAL'
      'CURRVALLC=CURRVALLC')
    Source = sourceinv
    Left = 296
    Top = 242
  end
  object destinv: TTable
    DatabaseName = 'Server'
    SessionName = 'Default'
    TableName = 'INVOICE'
    Left = 304
    Top = 314
  end
  object sourceitems: TQuery
    DatabaseName = 'pos'
    SessionName = 'Default'
    SQL.Strings = (
      'select MID,ITEM,SITE,STTYPE,'
      'sum(QTY) as qty,'
      'sum(FRAC) as frac,'
      'PACK,'
      'PRICE,'
      'DISCOUNT,'
      'VAT,'
      'sum(VATAMOUNT) as VATAMOUNT,'
      'BARCODE,'
      'max(YESNO) as yesno,'
      'sum(TOTAL) as total,'
      'max(FDATE) as fDATE,'
      'sum(ALLQTY)  as allqty,'
      'max(JOB) as job,'
      'max(SID) as sid,'
      'max(SALESMAN) as SALESMAN,'
      'max(CONTACT)  as CONTACT,'
      'TSITE,'
      'max(AUTOCURRFAC) as AUTOCURRFAC from items2'
      
        'group by MID,ITEM,SITE,STTYPE,PACK,PRICE,DISCOUNT,VAT,BARCODE,TS' +
        'ITE'
      'order by id')
    Left = 864
    Top = 250
  end
  object bmitems: TBatchMove
    Destination = destitems
    Mappings.Strings = (
      'MID=mid'
      'ITEM=item'
      'SITE=site'
      'STTYPE=sttype'
      'qty=qty'
      'frac=frac'
      'PACK=pack'
      'PRICE=price'
      'DISCOUNT=discount'
      'VAT=vat'
      'VATAMOUNT=vatamount'
      'BARCODE=barcode'
      'yesno=yesno'
      'total=total'
      'fDATE=fdate'
      'allqty=allqty'
      'job=job'
      'sid=sid'
      'CONTACT=CONTACT')
    Source = sourceitems
    Left = 856
    Top = 290
  end
  object destitems: TTable
    DatabaseName = 'Server'
    SessionName = 'Default'
    TableName = 'ITEMS'
    Left = 840
    Top = 162
  end
  object sourceitems2: TQuery
    DatabaseName = 'pos'
    SessionName = 'Default'
    SQL.Strings = (
      'select MID,ITEM,SITE,STTYPE,'
      ' qty,'
      ' frac,'
      'PACK,'
      'PRICE,'
      'DISCOUNT,'
      'VAT,'
      'VATAMOUNT,'
      'BARCODE,'
      'yesno,'
      'total,'
      ' fDATE,'
      'fidate,'
      ' allqty,'
      'job,'
      'sid,'
      'SALESMAN,'
      ' CONTACT,'
      'TSITE,'
      ' AUTOCURRFAC from items2'
      'order by id')
    Left = 776
    Top = 594
  end
  object bmitems2: TBatchMove
    AbortOnKeyViol = False
    AbortOnProblem = False
    Destination = destitems2
    Mappings.Strings = (
      'MID=mid'
      'ITEM=item'
      'SITE=site'
      'STTYPE=sttype'
      'qty=qty'
      'frac=frac'
      'PACK=pack'
      'PRICE=price'
      'DISCOUNT=discount'
      'VAT=vat'
      'VATAMOUNT=vatamount'
      'BARCODE=barcode'
      'yesno=yesno'
      'total=total'
      'fDATE=fdate'
      'fiDATE=fidate'
      'allqty=allqty'
      'job=job'
      'sid=sid'
      'CONTACT=CONTACT'
      'AUTOCURRFAC=AUTOCURRFAC')
    Source = sourceitems2
    Left = 408
    Top = 314
  end
  object destitems2: TTable
    DatabaseName = 'Server'
    SessionName = 'Default'
    TableName = 'ITEMS2'
    Left = 816
    Top = 594
  end
  object PopupMenu1: TPopupMenu
    Left = 465
    Top = 385
    object StockRefres1: TMenuItem
      Caption = 'Stock Refresh'
      ShortCut = 121
      OnClick = StockRefres1Click
    end
  end
  object IvBinaryDictionary1: TIvBinaryDictionary
    DictionaryName = 'Dictionary1'
    Binding = ivbiNone
    Options = [ivdoAutoTranslate]
    Euro = iveBusiness
    CheckLevel = ivclNone
    FileName = 'D:\dolly2008\pospremier\pospremier.mld'
    Left = 160
    Top = 132
    DictionaryCode = 4
  end
  object IvTranslator1: TIvTranslator
    DictionaryName = 'Dictionary1'
    CharsetChange = ivccDisabled
    Options = [ivtoAutoTranslate, ivtoAutoOpen]
    Left = 296
    Top = 180
    TargetsData = (
      1
      6
      (
        ''
        'Hint'
        0)
      (
        ''
        'Caption'
        0)
      (
        ''
        'Title'
        0)
      (
        ''
        'Filter'
        0)
      (
        ''
        'DisplayLabel'
        0)
      (
        'TMemo'
        'Text'
        0))
  end
  object maxdate: TQuery
    DatabaseName = 'pos'
    SQL.Strings = (
      'select max(fdate) from invoice2')
    Left = 793
    Top = 337
    object maxdateMAX: TDateTimeField
      FieldName = 'MAX'
    end
  end
  object ssss: TRaDBSearch
    DataSet = posmodule.CURRFAC
    SearchKind = skContext
    Left = 353
    Top = 305
    Fields = <>
  end
  object fromcurrfac: TQuery
    DatabaseName = 'pos'
    SessionName = 'Default'
    SQL.Strings = (
      'select * from CURRFAC'
      ''
      '')
    Left = 528
    Top = 314
  end
  object Table1: TTable
    DatabaseName = 'Server'
    SessionName = 'Default'
    TableName = 'currfac'
    Left = 376
    Top = 266
  end
  object suiMainMenu1: TMainMenu
    BiDiMode = bdLeftToRight
    ParentBiDiMode = False
    Left = 496
    Top = 352
    object Utilities1: TMenuItem
      Caption = 'Utilities'
      ShortCut = 120
      object Maintenance1: TMenuItem
        Caption = 'Maintenance'
        OnClick = Maintenance1Click
      end
      object TransferdatetoServer1: TMenuItem
        Caption = 'Transfer data to Server'
        OnClick = TransferdatetoServer1Click
      end
      object RestaurentConfiguration1: TMenuItem
        Caption = 'Restaurent Configuration'
        Visible = False
        OnClick = RestaurentConfiguration1Click
      end
      object PrintZReport1: TMenuItem
        Caption = 'X : Print Current Z- Report  F1'
        OnClick = PrintZReport1Click
      end
      object PrintDetailReport1: TMenuItem
        Caption = 'Print Current Detail Report'
        OnClick = PrintDetailReport1Click
      end
      object PrintOldZReport1: TMenuItem
        Caption = 'Print Old Z-Report'
        OnClick = PrintOldZReport1Click
      end
      object PrintChefDetail1: TMenuItem
        Caption = 'Print Chef Detail'
        OnClick = PrintChefDetail1Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object DatabaseMaintenance1: TMenuItem
        Caption = 'Database Maintenance'
        OnClick = DatabaseMaintenance1Click
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object PrintInvoiceByNo1: TMenuItem
        Caption = 'Print Invoice By No'
        OnClick = PrintInvoiceByNo1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object ExternalCompanies1: TMenuItem
        Caption = 'External Companies'
        Visible = False
        OnClick = ExternalCompanies1Click
      end
      object PosList1: TMenuItem
        Caption = 'Pos List'
        OnClick = PosList1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object ImportExportToFiles1: TMenuItem
        Caption = 'Import/Export To Files'
        ShortCut = 122
        OnClick = ImportExportToFiles1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Ftp1: TMenuItem
        Caption = 'Ftp'
        OnClick = Ftp1Click
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object exit1: TMenuItem
        Caption = 'Exit'
        OnClick = exit1Click
      end
    end
    object About1: TMenuItem
      Caption = 'Help'
      object Language1: TMenuItem
        Caption = 'Language'
        object Arabic1: TMenuItem
          Caption = 'Arabic'
          OnClick = Arabic1Click
        end
        object English1: TMenuItem
          Caption = 'English'
          OnClick = English1Click
        end
        object Portuguese1: TMenuItem
          Caption = 'Portuguese'
          OnClick = Portuguese1Click
        end
        object Frensh1: TMenuItem
          Caption = 'Frensh'
          OnClick = Frensh1Click
        end
      end
      object EmptyPosdata1: TMenuItem
        Caption = 'Empty Pos data'
        OnClick = EmptyPosdata1Click
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object Register1: TMenuItem
        Caption = 'Registration'
        OnClick = Register1Click
      end
    end
  end
  object openinv: TQuery
    DatabaseName = 'pos'
    SQL.Strings = (
      'select * from currfac '
      'where iactive='#39'C'#39' or   iactive='#39'D'#39)
    Left = 696
    Top = 386
  end
  object ttt: TAdvPopupTouchKeyBoard
    AutoFollowFocus = True
    AutoHide = True
    HighlightCaps = clRed
    HighlightAltGr = clNavy
    KeyboardType = ktQWERTY
    Left = 360
    Top = 112
  end
  object MYSYS: TAHMSystemDetails
    Left = 64
    Top = 128
  end
  object c3: TQuery
    DatabaseName = 'server'
    SessionName = 'Default'
    SQL.Strings = (
      
        'CREATE TRIGGER CONTACTDETTRIGGER3 FOR CONTACTDET AFTER UPDATE PO' +
        'SITION 0 AS'
      'BEGIN'
      
        'update contactlist  set pointin=(select sum(pointin) from  CONTA' +
        'CTDET where mid=new.mid) where id=new.mid;'
      
        'update contactlist  set pointout=(select sum(pointout) from  CON' +
        'TACTDET where mid=new.mid) where id=new.mid;'
      
        'update contactlist  set total=(select sum(total) from  CONTACTDE' +
        'T where mid=new.mid) where id=new.mid;'
      ''
      'END')
    Left = 765
    Top = 446
  end
  object c2: TQuery
    DatabaseName = 'server'
    SessionName = 'Default'
    SQL.Strings = (
      
        'CREATE TRIGGER CONTACTDETTRIGGER2 FOR CONTACTDET AFTER INSERT PO' +
        'SITION 0 AS'
      'BEGIN'
      
        'update contactlist  set pointin=(select sum(pointin) from  CONTA' +
        'CTDET where mid=new.mid) where id=new.mid;'
      
        'update contactlist  set pointout=(select sum(pointout) from  CON' +
        'TACTDET where mid=new.mid) where id=new.mid;'
      
        'update contactlist  set total=(select sum(total) from  CONTACTDE' +
        'T where mid=new.mid) where id=new.mid;'
      ''
      'END')
    Left = 797
    Top = 478
  end
  object c1: TQuery
    DatabaseName = 'server'
    SessionName = 'Default'
    SQL.Strings = (
      
        'CREATE TRIGGER CONTACTDETTRIGGER1 FOR CONTACTDET BEFORE INSERT P' +
        'OSITION 0 AS'
      'BEGIN'
      'if (new.pointin is null) then new.pointin=0;'
      'if (new.total is null) then new.total=0;'
      'if (new.pointout is null) then new.pointout=0;'
      'if (new.id is null) then'
      'new.id=gen_id(genall,1);'
      'END')
    Left = 821
    Top = 510
  end
  object AdvMenuStyler1: TAdvMenuStyler
    AntiAlias = aaNone
    Background.Position = bpCenter
    SelectedItem.Font.Charset = DEFAULT_CHARSET
    SelectedItem.Font.Color = clWindowText
    SelectedItem.Font.Height = -11
    SelectedItem.Font.Name = 'Microsoft Sans Serif'
    SelectedItem.Font.Style = []
    SelectedItem.NotesFont.Charset = DEFAULT_CHARSET
    SelectedItem.NotesFont.Color = clWindowText
    SelectedItem.NotesFont.Height = -8
    SelectedItem.NotesFont.Name = 'Microsoft Sans Serif'
    SelectedItem.NotesFont.Style = []
    RootItem.Font.Charset = DEFAULT_CHARSET
    RootItem.Font.Color = clWindowText
    RootItem.Font.Height = -11
    RootItem.Font.Name = 'Microsoft Sans Serif'
    RootItem.Font.Style = []
    Glyphs.SubMenu.Data = {
      5A000000424D5A000000000000003E0000002800000004000000070000000100
      0100000000001C0000000000000000000000020000000200000000000000FFFF
      FF0070000000300000001000000000000000100000003000000070000000}
    Glyphs.Check.Data = {
      7E000000424D7E000000000000003E0000002800000010000000100000000100
      010000000000400000000000000000000000020000000200000000000000FFFF
      FF00FFFF0000FFFF0000FFFF0000FFFF0000FDFF0000F8FF0000F07F0000F23F
      0000F71F0000FF8F0000FFCF0000FFEF0000FFFF0000FFFF0000FFFF0000FFFF
      0000}
    Glyphs.Radio.Data = {
      7E000000424D7E000000000000003E0000002800000010000000100000000100
      010000000000400000000000000000000000020000000200000000000000FFFF
      FF00FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FC3F0000F81F0000F81F
      0000F81F0000F81F0000FC3F0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF
      0000}
    SideBar.Font.Charset = DEFAULT_CHARSET
    SideBar.Font.Color = clWhite
    SideBar.Font.Height = -19
    SideBar.Font.Name = 'Tahoma'
    SideBar.Font.Style = [fsBold, fsItalic]
    SideBar.Image.Position = bpCenter
    SideBar.Background.Position = bpCenter
    SideBar.SplitterColorTo = clBlack
    Separator.GradientType = gtBoth
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Microsoft Sans Serif'
    Font.Style = []
    NotesFont.Charset = DEFAULT_CHARSET
    NotesFont.Color = clGray
    NotesFont.Height = -8
    NotesFont.Name = 'Microsoft Sans Serif'
    NotesFont.Style = []
    ButtonAppearance.CaptionFont.Charset = DEFAULT_CHARSET
    ButtonAppearance.CaptionFont.Color = clWindowText
    ButtonAppearance.CaptionFont.Height = -11
    ButtonAppearance.CaptionFont.Name = 'Tahoma'
    ButtonAppearance.CaptionFont.Style = []
    Left = 744
    Top = 98
  end
  object AdvMainMenu1: TAdvMainMenu
    MenuStyler = AdvMenuStyler1
    Version = '2.5.4.0'
    Left = 784
    Top = 42
    object HKJH1: TMenuItem
      Caption = 'HKJH'
      object JHKHJ1: TMenuItem
        Caption = 'JHKHJ'
      end
      object KJJKLJLK1: TMenuItem
        Caption = 'KJJKLJLK'
      end
    end
  end
  object query3: TTable
    AfterPost = query3AfterPost
    SessionName = 'Default'
    IndexFieldNames = 'Iid'
    TableName = 'pos.db'
    Left = 136
    Top = 288
    object query3Iid: TAutoIncField
      FieldName = 'Iid'
      ReadOnly = True
    end
    object query3Name: TStringField
      FieldName = 'Name'
      Size = 50
    end
    object query3Ip: TStringField
      FieldName = 'Ip'
      Size = 200
    end
  end
  object DataSource1: TDataSource
    DataSet = query3
    Left = 192
    Top = 288
  end
end
