checkhanding.dfm

PosEasy收银系统源码,Pos机前后台管理代码

object checkhandfm: Tcheckhandfm
  Left = 52
  Top = 68
  Width = 731
  Height = 447
  BorderIcons = []
  Caption = 'chehanfm'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = -1
    Top = 0
    Width = 673
    Height = 41
    Color = 13023021
    TabOrder = 0
    object SpeedButton1: TSpeedButton
      Left = 25
      Top = 0
      Width = 55
      Height = 41
      Flat = True
      Glyph.Data = {
        76020000424D7602000000000000760000002800000020000000200000000100
        0400000000000002000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888888888888888888888888888888000888888888888888888888888888
        80BBB0888888888888888888888888880BB0BB08888888888888888888888880
        BB0B0BB088888888888888888888880BB0BBB0BB0888888888888888888880BB
        0BBBBB0BB08888888888888888880BB0BBBBBBB0BB088888888888888880BB0B
        BBBBBBBB0BB0888888888888880BB0BBBBB0BBBBB0BB08888888888880BB0BBB
        BB000BBBBB0BB088888888880BB0BBBBB00000BBBBB0BB0888888880BB0BBBBB
        0000000BBBBB0BB08888880BB0BBBBB000000000BBBBB0BB088880BB0BBBBBB0
        00000000BBBBBB0BB0880BB0BBBBBBBBBB000BBBBBBBBBB0BB080B0BBBBBBBBB
        BB000BBBBBBBBBBB0B080BB0BBBBBBBBBB000BBBBBBBBBB0BB0880BB0BBBBBBB
        BB000BBBBBBBBB0BB088880BB0BBBBBBBB000BBBBBBBB0BB08888880BB0BBBBB
        BB000BBBBBBB0BB0888888880BB0BBBBBB000BBBBBB0BB088888888880BB0BBB
        BB000BBBBB0BB08888888888880BB0BBBB000BBBB0BB0888888888888880BB0B
        BBBBBBBB0BB088888888888888880BB0BBBBBBB0BB08888888888888888880BB
        0BBBBB0BB0888888888888888888880BB0BBB0BB088888888888888888888880
        BB0B0BB08888888888888888888888880BB0BB08888888888888888888888888
        80BBB08888888888888888888888888888000888888888888888}
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 80
      Top = 0
      Width = 55
      Height = 41
      Flat = True
      Glyph.Data = {
        76020000424D7602000000000000760000002800000020000000200000000100
        0400000000000002000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888888888888888888888888888888000888888888888888888888888888
        80BBB0888888888888888888888888880BB0BB08888888888888888888888880
        BB0B0BB088888888888888888888880BB0BBB0BB0888888888888888888880BB
        0BBBBB0BB08888888888888888880BB0BBBBBBB0BB088888888888888880BB0B
        BBBBBBBB0BB0888888888888880BB0BBBB000BBBB0BB08888888888880BB0BBB
        BB000BBBBB0BB088888888880BB0BBBBBB000BBBBBB0BB0888888880BB0BBBBB
        BB000BBBBBBB0BB08888880BB0BBBBBBBB000BBBBBBBB0BB088880BB0BBBBBBB
        BB000BBBBBBBBB0BB0880BB0BBBBBBBBBB000BBBBBBBBBB0BB080B0BBBBBBBBB
        BB000BBBBBBBBBBB0B080BB0BBBBBBBBBB000BBBBBBBBBB0BB0880BB0BBBBBB0
        00000000BBBBBB0BB088880BB0BBBBB000000000BBBBB0BB08888880BB0BBBBB
        0000000BBBBB0BB0888888880BB0BBBBB00000BBBBB0BB088888888880BB0BBB
        BB000BBBBB0BB08888888888880BB0BBBBB0BBBBB0BB0888888888888880BB0B
        BBBBBBBB0BB088888888888888880BB0BBBBBBB0BB08888888888888888880BB
        0BBBBB0BB0888888888888888888880BB0BBB0BB088888888888888888888880
        BB0B0BB08888888888888888888888880BB0BB08888888888888888888888888
        80BBB08888888888888888888888888888000888888888888888}
      OnClick = SpeedButton2Click
    end
    object SpeedButton3: TSpeedButton
      Left = 135
      Top = 0
      Width = 55
      Height = 41
      Flat = True
      Glyph.Data = {
        76020000424D7602000000000000760000002800000020000000200000000100
        0400000000000002000000000000000000001000000010000000CCFFFF00FF66
        9900FF996600CC66660033333300DDDDDD00BBBBBB00AAAAAA00888888004444
        44001111110000000000C8C8C800DDDDDD00BBBBBB00AAAAAA00006666666666
        66666666666666666600008888888888888888888888888886000BBBBBBBBBBB
        BBBBBBBBBBBBBBBB86000B8888888888888888888888888B86000B0555555555
        555555555555558B86000B0577777777777757777777758B86000B0533373333
        333753337333758B86000B0522372222223752237223758B86000B0522372222
        223752237223758B86000B0577777777777757777223758B86000B0533373337
        333753337223758B86000B0522372237223752237223758B86000B0522372237
        223752237223758B86000B0577777777777757777777758B86000B0533373337
        333753337333758B86000B0522372237223752237223758B86000B0522372237
        223752237223758B86000B0577777777777757777777758B86000B0533373337
        333753337333758B86000B0522372237223752237223758B86000B0522372237
        223752237223758B86000B0555555555555555555555558B86000B05A9999999
        999999999999958B86000B05A1114111411141114111958B86000B05A1414141
        414141414141958B86000B05A1114111411141114111958B86000B05A1414141
        414141414141958B86000B05A1114111411141114111958B86000B05AAAAAAAA
        AAAAAAAAAAAAA58B86000B0555555555555555555555558B86000B0000000000
        000000000000008B00000BBBBBBBBBBBBBBBBBBBBBBBBBBB0000}
      OnClick = SpeedButton3Click
    end
    object SpeedButton4: TSpeedButton
      Left = 190
      Top = 0
      Width = 55
      Height = 41
      Flat = True
      Glyph.Data = {
        76020000424D7602000000000000760000002800000020000000200000000100
        0400000000000002000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        888888888888888888888888888877888888888887708888888888888877F808
        888888877FF800888888888877FFFF8088888777FFF8880088888877FFFFFFF8
        00877887FFF88888008877FFFFF44FFFF8008F07FFF8888877087FFFF44FF44F
        FFF80777FFF88888870887F44FF44FFFF8877FF7FFF888888708887FF44FFFF8
        877FFFF7FFF88888880888877FFFF8877FFFFFF7FFFF8888887088877778877F
        FFFFFFF7FFFF888888708887FF077FFFFFFFFFFF7FFF888888808887877FFFFF
        FFFFFFFF7FFFF888888088877FFFFFFFFFFFFFFF7FFFF8888808887FFFFFFFFF
        FFFFFF77FFFFFF888808887FFFFFFFFFFFFF77FFFFFFFFF88878887FFFFFFFFF
        FFF7FFFFFFFFFFFF7788887FFFFFFFFFFF7FFFFFFFFFFF770888887FFFFFFFFF
        F7FFFFFFFFFF77770888887FFFFFFFFF7FFFFFFFFF77FF7088888887FFFFFFF7
        FFFFFFFF778F8F8808888887FFFFF77FFFF08F778FFF8FF8088888887FF77FFF
        F08F778FFFFFF8FF78888888777FFFF08F778FFFFFFFF8778888888887FFF08F
        778FFFFFFFFF778888888888887FFF77FF8FFFFFFF7788888888888888877787
        FF88FFFF7788888888888888888888887FF8FF77888888888888888888888888
        7FF7778888888888888888888888888887788888888888888888888888888888
        8888888888888888888888888888888888888888888888888888}
      OnClick = SpeedButton4Click
    end
    object Label1: TLabel
      Left = 320
      Top = 8
      Width = 64
      Height = 15
      Caption = '应收货款'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '楷体_GB2312'
      Font.Style = []
      ParentFont = False
    end
    object SpeedButton5: TSpeedButton
      Left = 245
      Top = 0
      Width = 55
      Height = 41
      Flat = True
      Glyph.Data = {
        76020000424D7602000000000000760000002800000020000000200000000100
        0400000000000002000000000000000000001000000000000000000000000000
        AA0000A000000080800080000000800080008080000078787800C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888888888888888888888888888888888888008888888888888888888888
        88888888808888888888888888888888888888FF808888888888888800000000
        00088FF08000000888888888888888888808FF00888888008888888F00000000
        080FF02000000880088888F80222222208FF022222222088088888F020222222
        0FF022222222220800888F80202222220F7222222222220880888F0222022222
        0FF72222222222208008F802220222220FFF7222222222208808F02222207777
        0FFFF727777777220808F7222220FFFFFFFFFF77FF0222770808FF7222220FF0
        7FFFFFF7F022222278088F7222220007FFFFFFFFF022222278088FF722222227
        FFFFFFFF02222227F88888F72222227FFFFFFFFF77222227F78887FF7222227F
        FFFFFFFFFF77227F88888FF0222227FFFFFFFFFFFFFF777F7888F777777777FF
        F0000000000FFFF88888FFFFFFFFFFF00FF772222220F0088888888888FFF002
        20FFF772222088088888888888F0022220FFF722222208008888888888F72222
        220F7222222208808888888888FF7222220F72222207208008888888888F7222
        22272222220F708808888888888FF7222227222220FFFF08088888888888F722
        2272222220F78FF8888888888888FF77777777777FF888888888888888888FFF
        FFFFFFFFFF888888888888888888888888888888888888888888}
      OnClick = SpeedButton5Click
    end
    object Edit1: TEdit
      Left = 392
      Top = 8
      Width = 121
      Height = 21
      BorderStyle = bsNone
      TabOrder = 0
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 48
    Width = 720
    Height = 361
    Caption = 'Panel2'
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 718
      Height = 359
      Align = alClient
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'Msum'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Isource'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Caim'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Ireason'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Cpname'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Dptime'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Crname'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Drtime'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Iinhand'
          Visible = True
        end>
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 336
    Top = 288
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'guohua3'
    SQL.Strings = (
      'select * from zjlshtab where iinhand=1')
    Left = 296
    Top = 288
  end
  object PrinterSetupDialog1: TPrinterSetupDialog
    Left = 376
    Top = 288
  end
  object Database1: TDatabase
    AliasName = 'guohua'
    Connected = True
    DatabaseName = 'guohua3'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=lee'
      'password=lee')
    SessionName = 'Default'
    Left = 256
    Top = 288
  end
end