u_inwarehouse.dfm

这是一个用条码录入的数据的进销存(只对成品）---做童装的

inherited F_InWarehouse: TF_InWarehouse
  Left = 188
  Top = 78
  VertScrollBar.Range = 0
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #25104#21697#20837#20179
  ClientHeight = 413
  ClientWidth = 644
  PixelsPerInch = 96
  TextHeight = 13
  inherited pnl_operate: TPanel
    Top = 384
    Width = 644
    inherited btn_find: TSpeedButton
      Left = 565
    end
    inherited btn_save: TSpeedButton
      Left = 338
    end
    inherited btn_cancel: TSpeedButton
      Left = 288
    end
    inherited btn_delete: TSpeedButton
      Left = 188
    end
    inherited btn_edit: TSpeedButton
      Left = 238
    end
    inherited btn_refresh: TSpeedButton
      Left = 491
    end
    inherited btn_print: TSpeedButton
      Left = 388
    end
  end
  inherited Panel1: TPanel
    Width = 644
    Height = 83
    object Label1: TLabel
      Left = 247
      Top = 20
      Width = 52
      Height = 13
      Caption = #20837#20179#21333#21495
      FocusControl = EInNO
    end
    object Label2: TLabel
      Left = 247
      Top = 51
      Width = 52
      Height = 13
      Caption = #20837#20179#26085#26399
      FocusControl = EInDate
    end
    object Label3: TLabel
      Left = 16
      Top = 22
      Width = 61
      Height = 13
      Caption = #20179'     '#24211
    end
    object Label4: TLabel
      Left = 20
      Top = 53
      Width = 53
      Height = 13
      Caption = #32463' '#25163' '#20154
      FocusControl = EUsername
    end
    object LWareNO: TLabel
      Left = 208
      Top = 24
      Width = 7
      Height = 13
    end
    object EInNO: TDBEdit
      Left = 319
      Top = 14
      Width = 129
      Height = 21
      DataField = 'InNO'
      DataSource = Ds_Master
      Enabled = False
      ReadOnly = True
      TabOrder = 0
    end
    object EInDate: TDBEdit
      Left = 319
      Top = 44
      Width = 129
      Height = 21
      DataField = 'Indate'
      DataSource = Ds_Master
      Enabled = False
      ReadOnly = True
      TabOrder = 1
    end
    object EUsername: TDBEdit
      Left = 88
      Top = 46
      Width = 113
      Height = 21
      DataField = 'Username'
      DataSource = Ds_Master
      Enabled = False
      ReadOnly = True
      TabOrder = 2
    end
    object EWarehouse: TDBComboBox
      Left = 88
      Top = 16
      Width = 113
      Height = 21
      DataField = 'Warehouseno'
      DataSource = Ds_Master
      ItemHeight = 13
      TabOrder = 3
      OnExit = EWarehouseExit
    end
  end
  inherited DBGridEh: TDBGridEh
    Top = 83
    Width = 644
    Height = 301
    OnColExit = DBGridEhColExit
    Columns = <
      item
        EditButtons = <>
        FieldName = 'ProductTm'
        Footers = <>
        Width = 133
      end
      item
        EditButtons = <>
        FieldName = 'ItemNo'
        Footers = <>
        Width = 72
      end
      item
        EditButtons = <>
        FieldName = 'Groupname'
        Footers = <>
        Width = 82
      end
      item
        EditButtons = <>
        FieldName = 'handCount'
        Footer.ValueType = fvtSum
        Footers = <>
        Width = 68
      end
      item
        EditButtons = <>
        FieldName = 'Perhandcount'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'Incount'
        Footer.ValueType = fvtSum
        Footers = <>
        Width = 66
      end
      item
        EditButtons = <>
        FieldName = 'InPrice'
        Footers = <>
        Width = 67
      end
      item
        EditButtons = <>
        FieldName = 'Inmoney'
        Footer.ValueType = fvtSum
        Footers = <>
        Width = 65
      end>
  end
  inherited Ds_Master: TDataSource
    Left = 584
    Top = 8
  end
  inherited Ado_Master: TADOTable
    Active = True
    Connection = F_Dm.DBcon
    CursorType = ctStatic
    TableName = 'InWarehouseMaster'
    Left = 584
    Top = 48
    object Ado_MasterInNO: TStringField
      DisplayLabel = #20837#20179#21333#21495
      FieldName = 'InNO'
    end
    object Ado_MasterIndate: TDateTimeField
      DisplayLabel = #20837#20179#26085#26399
      FieldName = 'Indate'
    end
    object Ado_MasterWarehouseno: TStringField
      DisplayLabel = #25152#20837#20179#24211
      FieldName = 'Warehouseno'
      Size = 30
    end
    object Ado_MasterUsername: TStringField
      DisplayLabel = #32463#25163#20154
      FieldName = 'Username'
      Size = 16
    end
    object Ado_MasterAllhandcount: TIntegerField
      FieldName = 'Allhandcount'
    end
    object Ado_MasterAllCount: TIntegerField
      FieldName = 'AllCount'
    end
    object Ado_MasterAllmoney: TBCDField
      FieldName = 'Allmoney'
      Precision = 19
    end
  end
  inherited ADO_Detail: TADOTable
    Active = True
    Connection = F_Dm.DBcon
    CursorType = ctStatic
    AfterInsert = ADO_DetailAfterInsert
    BeforePost = ADO_DetailBeforePost
    IndexFieldNames = 'InNo'
    MasterFields = 'InNO'
    MasterSource = Ds_Master
    TableName = 'InWarehouseDetail'
    Left = 456
    Top = 344
    object ADO_DetailGroupname: TStringField
      DisplayLabel = #32452#21035
      FieldName = 'Groupname'
      Size = 30
    end
    object ADO_DetailInNo: TStringField
      FieldName = 'InNo'
    end
    object ADO_DetailProductTm: TStringField
      DisplayLabel = #20135#21697#30721
      FieldName = 'ProductTm'
    end
    object ADO_DetailItemNo: TStringField
      DisplayLabel = #27454#21495
      FieldName = 'ItemNo'
      Size = 6
    end
    object ADO_DetailUnit: TStringField
      FieldName = 'Unit'
      Size = 10
    end
    object ADO_DetailhandCount: TIntegerField
      DisplayLabel = #25163#25968
      FieldName = 'handCount'
    end
    object ADO_DetailIncount: TIntegerField
      DisplayLabel = #25968#37327
      FieldName = 'Incount'
    end
    object ADO_DetailPerhandcount: TIntegerField
      DisplayLabel = #27599#25163#25968#37327
      FieldName = 'Perhandcount'
    end
    object ADO_DetailInPrice: TBCDField
      DisplayLabel = #38646#21806#20215
      FieldName = 'InPrice'
      Precision = 19
    end
    object ADO_DetailInmoney: TBCDField
      DisplayLabel = #37329#39069
      FieldName = 'Inmoney'
      Precision = 19
    end
    object ADO_DetailWarehouseno: TStringField
      FieldName = 'Warehouseno'
      Size = 30
    end
  end
  inherited SkinData1: TSkinData
    Left = 608
    Top = 24
    SkinStream = {00000000}
  end
end