pfm_viewcksyd.dfm

POS收银系统

object fm_viewcksyd: Tfm_viewcksyd
  Left = 225
  Top = 54
  Width = 788
  Height = 538
  Caption = '查看损溢单'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 337
    Top = 0
    Width = 3
    Height = 511
    Cursor = crHSplit
  end
  object GroupBox2: TGroupBox
    Left = 340
    Top = 0
    Width = 440
    Height = 511
    Align = alClient
    Caption = '损溢单明细'
    TabOrder = 1
    object DBGrid2: TDBGrid
      Left = 2
      Top = 49
      Width = 436
      Height = 460
      Align = alClient
      Color = clInfoBk
      DataSource = DataSource2
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnDrawDataCell = DBGrid2DrawDataCell
      Columns = <
        item
          Expanded = False
          FieldName = 'spbm'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'sptxm'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'synum'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'jhdj'
          Width = 93
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'sycause'
          Visible = True
        end>
    end
    object Panel1: TPanel
      Left = 2
      Top = 15
      Width = 436
      Height = 34
      Align = alTop
      BevelOuter = bvLowered
      TabOrder = 1
      object RButton3: TRadioButton
        Left = 16
        Top = 8
        Width = 89
        Height = 17
        Caption = '全部记录'
        Checked = True
        TabOrder = 0
        TabStop = True
        OnClick = RButton3Click
      end
      object RButton1: TRadioButton
        Left = 128
        Top = 8
        Width = 89
        Height = 17
        Caption = '报溢记录'
        TabOrder = 1
        OnClick = RButton1Click
      end
      object RButton2: TRadioButton
        Left = 232
        Top = 8
        Width = 113
        Height = 17
        Caption = '报损记录'
        TabOrder = 2
        OnClick = RButton2Click
      end
    end
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 337
    Height = 511
    Align = alLeft
    Caption = '损溢单流水记录'
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 2
      Top = 97
      Width = 333
      Height = 412
      Align = alClient
      Color = clInfoBk
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'lsh'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ckmc'
          Width = 122
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'rq'
          Visible = True
        end>
    end
    object Panel2: TPanel
      Left = 2
      Top = 15
      Width = 333
      Height = 82
      Align = alTop
      BevelOuter = bvLowered
      TabOrder = 1
      object Label1: TLabel
        Left = 12
        Top = 8
        Width = 52
        Height = 13
        Caption = '选择仓库'
      end
      object CbBox1: TComboBox
        Left = 12
        Top = 28
        Width = 145
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 0
        OnChange = CbBox1Change
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Query2
    Left = 304
    Top = 20
  end
  object DataSource2: TDataSource
    DataSet = Query3
    Left = 448
    Top = 80
  end
  object Query1: TQuery
    DatabaseName = 'posdb'
    Left = 262
    Top = 39
  end
  object Query2: TQuery
    DatabaseName = 'posdb'
    SQL.Strings = (
      'select * from tb_syd order by lsh desc')
    Left = 226
    Top = 31
  end
  object Query3: TQuery
    DatabaseName = 'posdb'
    DataSource = DataSource1
    SQL.Strings = (
      'select * from tb_sydmx where lsh=:lsh')
    Left = 392
    Top = 92
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'lsh'
        ParamType = ptUnknown
      end>
  end
end