untpossendbill.dfm

适合行业为眼镜业

        Transparent = False
      end
      object BillTitle: TLabel
        Left = 7
        Top = 4
        Width = 162
        Height = 22
        AutoSize = False
        Caption = #21516#20215#37197#36865#21333
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -20
        Font.Name = #23435#20307
        Font.Style = [fsBold, fsUnderline]
        ParentFont = False
      end
    end
    object EdtRecvStock: TEdit
      Left = 511
      Top = 68
      Width = 192
      Height = 20
      Anchors = [akTop, akRight]
      ReadOnly = True
      TabOrder = 1
      OnKeyDown = EdtRecvStockKeyDown
    end
    object EdtM: TEdit
      Left = 91
      Top = 97
      Width = 109
      Height = 20
      ReadOnly = True
      TabOrder = 2
      OnKeyDown = EdtMKeyDown
    end
    object EdtG: TEdit
      Left = 360
      Top = 97
      Width = 109
      Height = 20
      ReadOnly = True
      TabOrder = 3
      OnKeyDown = EdtGKeyDown
    end
    object EdtC: TEdit
      Left = 595
      Top = 97
      Width = 109
      Height = 20
      Anchors = [akTop, akRight]
      ReadOnly = True
      TabOrder = 4
      OnKeyDown = EdtCKeyDown
    end
    object EdtMemo: TEdit
      Left = 90
      Top = 123
      Width = 638
      Height = 20
      Anchors = [akTop, akRight]
      MaxLength = 66
      TabOrder = 5
      OnKeyDown = EdtMemoKeyDown
    end
    object StaticText1: TStaticText
      Left = 16
      Top = 46
      Width = 82
      Height = 16
      Caption = #21333#25454#32534#21495'[&N]:'
      TabOrder = 7
    end
    object EdtBillNo: TEdit
      Left = 91
      Top = 42
      Width = 233
      Height = 20
      TabStop = False
      ReadOnly = True
      TabOrder = 8
      Text = 'PS00001-000001'
    end
    object edtpart: TLabeledEdit
      Left = 512
      Top = 43
      Width = 189
      Height = 20
      EditLabel.Width = 72
      EditLabel.Height = 12
      EditLabel.Caption = #30003#35831#37096#38376'[&P]:'
      LabelPosition = lpLeft
      LabelSpacing = 3
      ReadOnly = True
      TabOrder = 9
      OnChange = edtpartChange
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 452
    Width = 762
    Height = 41
    Align = alBottom
    BevelOuter = bvLowered
    Color = 16573127
    TabOrder = 1
    object BitBtn1: TBitBtn
      Left = 600
      Top = 8
      Width = 75
      Height = 25
      Caption = #20445#23384'[&S]'
      TabOrder = 0
      OnClick = BitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 680
      Top = 8
      Width = 75
      Height = 25
      Caption = #36864#20986'[&X]'
      TabOrder = 1
      OnClick = BitBtn2Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
        0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
        0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
        0333337F777FFFFF7F3333000000000003333377777777777333}
      NumGlyphs = 2
    end
    object bitcheck: TBitBtn
      Left = 521
      Top = 8
      Width = 75
      Height = 25
      Caption = #23457#26680
      TabOrder = 2
      OnClick = bitcheckClick
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 153
    Width = 762
    Height = 299
    Align = alClient
    TabOrder = 2
    object sgorder: TStringGrid
      Left = 44
      Top = 1
      Width = 717
      Height = 297
      Align = alClient
      ColCount = 8
      Ctl3D = False
      DefaultRowHeight = 22
      FixedColor = 16573127
      RowCount = 2
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing]
      ParentCtl3D = False
      TabOrder = 0
      OnDblClick = sgorderDblClick
      OnDrawCell = sgorderDrawCell
      OnKeyDown = sgorderKeyDown
      OnKeyPress = sgorderKeyPress
      OnMouseMove = sgorderMouseMove
      OnSelectCell = sgorderSelectCell
      ColWidths = (
        64
        90
        86
        64
        81
        71
        64
        64)
    end
    object Panel10: TPanel
      Left = 1
      Top = 1
      Width = 43
      Height = 297
      Align = alLeft
      Color = clSkyBlue
      TabOrder = 1
      object Cmd_Delete: TSpeedButton
        Left = 2
        Top = 52
        Width = 40
        Height = 25
        Caption = #20943#34892
        Flat = True
        NumGlyphs = 2
        OnClick = Cmd_DeleteClick
      end
      object Cmd_Add: TSpeedButton
        Left = 2
        Top = 27
        Width = 40
        Height = 25
        Caption = #22686#34892
        Flat = True
        NumGlyphs = 2
        OnClick = Cmd_AddClick
      end
    end
  end
  object CdsMasterData: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'PubProvider'
    RemoteServer = frm_Data.Socket_Connection
    Left = 272
    Top = 192
  end
  object CdsDetailData: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'PubProvider'
    RemoteServer = frm_Data.Socket_Connection
    Left = 344
    Top = 192
  end
end