posfrm.dfm

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

            Name = 'Title2'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlue
            Font.Height = -14
            Font.Name = #40657#20307
            Font.Style = []
            Effect.Shadow.Enabled = True
            Effect.Shadow.OffsetX = 1
            Effect.Shadow.OffsetY = 1
          end
          item
            Name = 'Title3'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlue
            Font.Height = -16
            Font.Name = #26999#20307'_GB2312'
            Font.Style = [fsBold]
            Effect.Shadow.Enabled = True
          end>
        Labels = <
          item
            Name = 'Left'
            Style = lsLeftJustify
          end
          item
            Name = 'Center'
            Style = lsCenter
          end
          item
            Name = 'Right'
            Style = lsRightJustify
          end
          item
            Name = 'Owner'
            Style = lsRegOwner
          end
          item
            Name = 'Organization'
            Style = lsRegOrganization
          end
          item
            Name = 'AppTitle'
            Style = lsAppTitle
          end
          item
            Name = 'Date'
            Style = lsDate
          end
          item
            Name = 'Time'
            Style = lsTime
          end>
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        Text.Lines.Strings = (
          '<Title1><Center>'#24555#25463#25353#38190
          '<Left><Title3>F2'#12288#34917#25171#21069#21333
          '<Title3>F3'#12288#25171#24320#38065#31665
          '<Title3>F4'#12288#21024#24403#21069#34892
          '<Title3>F5'#12288#21830#21697#25171#25240
          '<Title3>F6'#12288#25346#21333'/'#25552#21333
          '<Title3>F7'#12288#25972#21333#25171#25240
          '<Title3>F8'#12288#25972#21333#20316#24223
          '<Title3>F9'#12288#21830#21697#26597#35810
          '<Title3>F11(+)'#12288#25910#27454)
        Text.Quality = aqHigh
      end
    end
  end
  object ActionList1: TActionList
    Left = 180
    Top = 200
    object ActSave: TAction
      Caption = #20445#23384'(&S)'
      ShortCut = 123
    end
    object ActPrintPreBill: TAction
      Caption = #34917#25171#21069#21333
      OnExecute = ActPrintPreBillExecute
    end
    object ActOpenMoneyBox: TAction
      Caption = #25171#24320#38065#31665
      OnExecute = ActOpenMoneyBoxExecute
    end
    object ActQuery: TModlAction
      Caption = #38144#21806#26597#35810
      OnExecute = ActQueryExecute
      ActionID = 22
      Flag2 = 0
    end
    object ActExit: TAction
      Caption = #19979#29677#20102#65281
      OnExecute = ActExitExecute
    end
    object ActGoodsSplit: TAction
      Caption = #25286#38646'/'#19981#25286#38646
    end
    object ActNewBill: TAction
      Caption = #26032#38144#21806#21333
      OnExecute = ActNewBillExecute
    end
    object ActDel: TAction
      Caption = 'ActDel'
      OnExecute = ActDelExecute
    end
    object ActHangSaleBill: TAction
      Caption = #25346#21333'(&H)'
      OnExecute = ActHangSaleBillExecute
    end
  end
  object DS_Retail: TDataSource
    Left = 260
    Top = 200
  end
  object DS_RetailList: TDataSource
    Left = 340
    Top = 200
  end
  object Qr_GoodsCalc: TADOQuery
    Parameters = <>
    Left = 200
    Top = 100
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 20
    Top = 200
  end
  object Timer2: TTimer
    Enabled = False
    Interval = 5000
    OnTimer = Timer2Timer
    Left = 100
    Top = 200
  end
  object Qr_Retail: TADOQuery
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM RETAIL')
    Left = 420
    Top = 200
    object Qr_RetailBranchID: TIntegerField
      DisplayLabel = #24215#21495
      FieldName = 'BranchID'
      Required = True
    end
    object Qr_RetailMachNo: TIntegerField
      DisplayLabel = #25910#27454#26426#21495
      FieldName = 'MachNo'
      Required = True
    end
    object Qr_RetailBillNo: TWideStringField
      DisplayLabel = #23567#31080#21495
      FieldName = 'BillNo'
      Required = True
      Size = 12
    end
    object Qr_RetailDepot: TWideStringField
      DisplayLabel = #20986#36135#20179#24211
      FieldName = 'Depot'
      Required = True
      Size = 8
    end
    object Qr_RetailFDate: TDateTimeField
      DisplayLabel = #26085#26399
      FieldName = 'FDate'
      Required = True
    end
    object Qr_RetailTeamNo: TWordField
      DisplayLabel = #29677#27425
      FieldName = 'TeamNo'
      Required = True
    end
    object Qr_RetailOperator: TWideStringField
      DisplayLabel = #25910#38134#21592
      FieldName = 'Operator'
      Required = True
      Size = 8
    end
    object Qr_RetailAmount: TFloatField
      DisplayLabel = #37329#39069
      FieldName = 'Amount'
      DisplayFormat = '0.00'
    end
    object Qr_RetailPayMoney: TFloatField
      DisplayLabel = #23458#25143#20184#27454
      FieldName = 'PayMoney'
    end
    object Qr_RetailChange: TFloatField
      DisplayLabel = #25214#38646
      FieldName = 'Change'
      DisplayFormat = '0.00'
    end
    object Qr_RetailSended: TBooleanField
      DisplayLabel = #24050#23545#24080
      FieldName = 'Sended'
    end
    object Qr_RetailBornSum: TFloatField
      FieldName = 'BornSum'
    end
    object Qr_RetailEmpID: TWideStringField
      DisplayLabel = #19994#21153#21592'ID'
      FieldName = 'EmpID'
      Size = 8
    end
    object Qr_RetailCustNo: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'CustNo'
      Size = 12
    end
    object Qr_RetailAudit: TStringField
      DisplayLabel = #22797#26680#21592
      FieldName = 'Audit'
      Size = 8
    end
    object Qr_RetailPosTrans: TBooleanField
      DisplayLabel = #36807#24080
      FieldName = 'PosTrans'
    end
  end
  object Qr_RetailList: TADOQuery
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'BranchID'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'MACHNO'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'BillNo'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      
        'SELECT * FROM RETAILLIST WHERE(BranchID=:BranchID)AND(MACHNO=:MA' +
        'CHNO)AND(BillNo=:BillNo) ORDER BY ITEMNO')
    Left = 500
    Top = 200
    object Qr_RetailListBranchID: TIntegerField
      DisplayLabel = #24215#21495
      FieldName = 'BranchID'
    end
    object Qr_RetailListMachNo: TIntegerField
      DisplayLabel = #25910#27454#26426
      FieldName = 'MachNo'
    end
    object Qr_RetailListBillNo: TWideStringField
      DisplayLabel = #21333#21495
      FieldName = 'BillNo'
      Size = 12
    end
    object Qr_RetailListItemNo: TIntegerField
      DisplayLabel = #39033#27425
      FieldName = 'ItemNo'
    end
    object Qr_RetailListGoodsID: TWideStringField
      DisplayLabel = #33647#21697#20195#30721
      FieldName = 'GoodsID'
      Required = True
      Size = 14
    end
    object Qr_RetailListGoodsName: TStringField
      DisplayLabel = #33647#21697#21517#31216
      FieldKind = fkCalculated
      FieldName = 'GoodsName'
      Calculated = True
    end
    object Qr_RetailListGoodsSpecs: TStringField
      DisplayLabel = #35268#26684
      FieldKind = fkCalculated
      FieldName = 'GoodsSpecs'
      Calculated = True
    end
    object Qr_RetailListUnit: TWideStringField
      DisplayLabel = #21333#20301
      FieldName = 'Unit'
      Size = 8
    end
    object Qr_RetailListNumber: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'Number'
      Required = True
    end
    object Qr_RetailListPrice: TFloatField
      DisplayLabel = #21333#20215
      FieldName = 'Price'
      DisplayFormat = '0.00'
    end
    object Qr_RetailListRebate: TFloatField
      DisplayLabel = #25240'(%)'
      FieldName = 'Rebate'
    end
    object Qr_RetailListAmount: TFloatField
      DisplayLabel = #37329#39069
      FieldName = 'Amount'
      DisplayFormat = '#,##0.00'
    end
    object Qr_RetailListPriceModified: TBooleanField
      DisplayLabel = #21806#20215#24322#21160
      FieldName = 'PriceModified'
    end
  end
  object Qr_Temp: TADOQuery
    AutoCalcFields = False
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      
        'INSERT INTO EMPLOYEES(EMPID,NAME,DEPT) VALUES('#39'10010002'#39','#39'001'#39','#39 +
        #37319#36141#37096#39')')
    Left = 580
    Top = 200
  end
  object Qr_PosInfo: TADOQuery
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM POSINFO')
    Left = 300
    Top = 100
    object Qr_PosInfoServer: TWideStringField
      FieldName = 'Server'
    end
    object Qr_PosInfoDatabase: TWideStringField
      FieldName = 'Database'
    end
    object Qr_PosInfoBranchID: TIntegerField
      FieldName = 'BranchID'
    end
    object Qr_PosInfoDepot: TWideStringField
      FieldName = 'Depot'
      Size = 8
    end
    object Qr_PosInfoDepotName: TStringField
      FieldKind = fkCalculated
      FieldName = 'DepotName'
      Size = 16
      Calculated = True
    end
    object Qr_PosInfoMachNo: TIntegerField
      FieldName = 'MachNo'
    end
    object Qr_PosInfoTeamCount: TSmallintField
      FieldName = 'TeamCount'
    end
    object Qr_PosInfoBillPrefix: TWideStringField
      FieldName = 'BillPrefix'
      Size = 12
    end
    object Qr_PosInfoBillSUFFIX: TWordField
      FieldName = 'BillSUFFIX'
    end
    object Qr_PosInfoPriceModus: TWordField
      FieldName = 'PriceModus'
    end
    object Qr_PosInfoPriceModulus: TFloatField
      FieldName = 'PriceModulus'
    end
    object Qr_PosInfoSoonCalcSum: TBooleanField
      FieldName = 'SoonCalcSum'
    end
    object Qr_PosInfoBaleFilePath: TWideStringField
      FieldName = 'BaleFilePath'
      Size = 50
    end
    object Qr_PosInfoBaleFileName: TWideStringField
      FieldName = 'BaleFileName'
      Size = 12
    end
    object Qr_PosInfoEmailAddr: TWideStringField
      FieldName = 'EmailAddr'
      Size = 50
    end
    object Qr_PosInfoDBLastDate: TIntegerField
      FieldName = 'DBLastDate'
    end
    object Qr_PosInfoStartDate: TDateTimeField
      FieldName = 'StartDate'
    end
  end
end