pfm_tuihuodmx.dfm

POS收银系统

object fm_tuihuodmx: Tfm_tuihuodmx
  Left = 98
  Top = 218
  Width = 757
  Height = 511
  Caption = 'fm_tuihuodmx'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 449
    Height = 121
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 16
      Width = 36
      Height = 13
      Caption = '流水号'
    end
    object Label5: TLabel
      Left = 8
      Top = 44
      Width = 48
      Height = 13
      Caption = '退货客户'
    end
    object Label16: TLabel
      Left = 208
      Top = 20
      Width = 24
      Height = 13
      Caption = '日期'
    end
    object Label11: TLabel
      Left = 192
      Top = 44
      Width = 48
      Height = 13
      Caption = '接收单位'
    end
    object Label21: TLabel
      Left = 208
      Top = 68
      Width = 36
      Height = 13
      Caption = '经办人'
    end
    object Label20: TLabel
      Left = 24
      Top = 68
      Width = 36
      Height = 13
      Caption = '操作员'
    end
    object Label22: TLabel
      Left = 24
      Top = 92
      Width = 36
      Height = 13
      Caption = '审核人'
    end
    object Edit1: TEdit
      Left = 64
      Top = 16
      Width = 121
      Height = 21
      Color = clMenu
      ReadOnly = True
      TabOrder = 0
      Text = 'Edit1'
    end
    object Edit2: TEdit
      Left = 256
      Top = 16
      Width = 121
      Height = 21
      Color = clMenu
      ReadOnly = True
      TabOrder = 1
      Text = 'Edit2'
    end
    object Edit3: TEdit
      Left = 64
      Top = 40
      Width = 121
      Height = 21
      Color = clMenu
      ReadOnly = True
      TabOrder = 2
      Text = 'Edit3'
    end
    object Edit4: TEdit
      Left = 256
      Top = 40
      Width = 121
      Height = 21
      Color = clMenu
      ReadOnly = True
      TabOrder = 3
      Text = 'Edit4'
    end
    object Edit5: TEdit
      Left = 64
      Top = 64
      Width = 121
      Height = 21
      Color = clMenu
      ReadOnly = True
      TabOrder = 4
      Text = 'Edit5'
    end
    object Edit6: TEdit
      Left = 256
      Top = 64
      Width = 121
      Height = 21
      Color = clMenu
      ReadOnly = True
      TabOrder = 5
      Text = 'Edit6'
    end
    object Edit7: TEdit
      Left = 64
      Top = 88
      Width = 121
      Height = 21
      Color = clMenu
      ReadOnly = True
      TabOrder = 6
      Text = 'Edit7'
    end
  end
  object DBNavigator1: TDBNavigator
    Left = 64
    Top = 459
    Width = 225
    Height = 25
    DataSource = DataSource1
    VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
    TabOrder = 1
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 128
    Width = 449
    Height = 329
    Caption = '退货商品信息'
    TabOrder = 2
    object DBGrid1: TDBGrid
      Left = 8
      Top = 16
      Width = 433
      Height = 265
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'spbm'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'sptxm'
          Width = 99
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'thdj'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'thnum'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'djhm'
          Width = 92
          Visible = True
        end>
    end
  end
  object ADOQuery1: TADOQuery
    Connection = AdoDm.ADOConnection1
    CursorType = ctStatic
    AfterInsert = ADOQuery1AfterInsert
    BeforePost = ADOQuery1BeforePost
    Parameters = <
      item
        Name = 'lsh'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = 0
      end>
    SQL.Strings = (
      'select * from tb_tuihuodmx where lsh=:lsh')
    Left = 8
    Top = 96
    object ADOQuery1lsh: TIntegerField
      DisplayWidth = 12
      FieldName = 'lsh'
    end
    object ADOQuery1spbm: TStringField
      DisplayWidth = 7
      FieldName = 'spbm'
      FixedChar = True
      Size = 6
    end
    object ADOQuery1sptxm: TStringField
      DisplayWidth = 16
      FieldName = 'sptxm'
      FixedChar = True
      Size = 13
    end
    object ADOQuery1thdj: TBCDField
      DisplayWidth = 16
      FieldName = 'thdj'
      Precision = 18
      Size = 2
    end
    object ADOQuery1thnum: TIntegerField
      DisplayWidth = 12
      FieldName = 'thnum'
    end
    object ADOQuery1djhm: TStringField
      DisplayWidth = 24
      FieldName = 'djhm'
      FixedChar = True
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 40
    Top = 96
  end
end