u_order.dfm

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

inherited F_Order: TF_Order
  Left = 120
  Top = 15
  VertScrollBar.Range = 0
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #23458#25143#35746#21333
  ClientHeight = 443
  ClientWidth = 641
  PixelsPerInch = 96
  TextHeight = 13
  inherited pnl_operate: TPanel
    Top = 400
    Width = 641
    Height = 43
    inherited btn_insert: TSpeedButton
      Left = 160
      Top = 11
    end
    inherited btn_find: TSpeedButton
      Left = 410
      Top = 11
    end
    inherited btn_save: TSpeedButton
      Left = 360
      Top = 11
    end
    inherited btn_cancel: TSpeedButton
      Left = 310
      Top = 11
    end
    inherited btn_delete: TSpeedButton
      Left = 210
      Top = 11
    end
    inherited btn_edit: TSpeedButton
      Left = 260
      Top = 11
    end
    inherited btn_refresh: TSpeedButton
      Left = 297
      Top = 44
      Visible = False
    end
    inherited btn_print: TSpeedButton
      Left = 577
      Top = 11
      OnClick = btn_printClick
    end
    inherited DBNavigator: TDBNavigator
      Top = 11
    end
    object Check: TCheckBox
      Left = 488
      Top = 14
      Width = 85
      Height = 17
      Caption = #25171#21360#25240#25187#29575
      TabOrder = 1
    end
  end
  inherited Panel1: TPanel
    Width = 641
    Height = 145
    object Label1: TLabel
      Left = 29
      Top = 16
      Width = 52
      Height = 13
      Caption = #23458#25143#32534#21495
      FocusControl = ECustno
    end
    object Label2: TLabel
      Left = 30
      Top = 43
      Width = 52
      Height = 13
      Caption = #23458#25143#21517#31216
      FocusControl = ECustname
    end
    object Label3: TLabel
      Left = 244
      Top = 14
      Width = 40
      Height = 13
      Caption = #20256'  '#30495
      FocusControl = Efax
    end
    object Label4: TLabel
      Left = 244
      Top = 38
      Width = 40
      Height = 13
      Caption = #30005'  '#35805
      FocusControl = ETel
    end
    object Label5: TLabel
      Left = 30
      Top = 97
      Width = 54
      Height = 13
      Caption = #22320'    '#22336
      FocusControl = EAdd
    end
    object Label6: TLabel
      Left = 428
      Top = 11
      Width = 52
      Height = 13
      Caption = #35746#36135#26085#26399
      FocusControl = EOrderDate
    end
    object Label7: TLabel
      Left = 428
      Top = 38
      Width = 52
      Height = 13
      Caption = #20132#36135#26085#26399
      FocusControl = EDelidate
    end
    object Label8: TLabel
      Left = 432
      Top = 70
      Width = 52
      Height = 13
      Caption = #35746#21333#32534#21495
      FocusControl = EOrderno
    end
    object Label9: TLabel
      Left = 246
      Top = 67
      Width = 39
      Height = 13
      Caption = #32463#25163#20154
    end
    object Label10: TLabel
      Left = 29
      Top = 70
      Width = 53
      Height = 13
      Caption = #25286' '#25187' '#29575
      FocusControl = EZkrate
    end
    object ECustno: TDBEdit
      Left = 85
      Top = 10
      Width = 146
      Height = 21
      DataField = 'Custno'
      DataSource = Ds_Master
      TabOrder = 0
      OnExit = ECustnoExit
      OnKeyPress = ECustnoKeyPress
    end
    object ECustname: TDBEdit
      Left = 85
      Top = 37
      Width = 146
      Height = 21
      DataField = 'Custname'
      DataSource = Ds_Master
      ReadOnly = True
      TabOrder = 1
    end
    object Efax: TDBEdit
      Left = 287
      Top = 9
      Width = 132
      Height = 21
      DataField = 'Fax'
      DataSource = Ds_Master
      ReadOnly = True
      TabOrder = 2
    end
    object ETel: TDBEdit
      Left = 287
      Top = 37
      Width = 132
      Height = 21
      DataField = 'Tel'
      DataSource = Ds_Master
      ReadOnly = True
      TabOrder = 3
    end
    object EAdd: TDBEdit
      Left = 86
      Top = 92
      Width = 529
      Height = 21
      DataField = 'DeliAddress'
      DataSource = Ds_Master
      ReadOnly = True
      TabOrder = 4
    end
    object EOrderDate: TDBEdit
      Left = 492
      Top = 11
      Width = 121
      Height = 21
      DataField = 'OrderDate'
      DataSource = Ds_Master
      TabOrder = 5
    end
    object EDelidate: TDBEdit
      Left = 492
      Top = 38
      Width = 121
      Height = 21
      DataField = 'DeliDate'
      DataSource = Ds_Master
      TabOrder = 6
    end
    object EOrderno: TDBEdit
      Left = 492
      Top = 65
      Width = 121
      Height = 21
      Color = clMoneyGreen
      DataField = 'OrderNo'
      DataSource = Ds_Master
      ReadOnly = True
      TabOrder = 7
    end
    object EOperateman: TEdit
      Left = 287
      Top = 63
      Width = 132
      Height = 21
      Color = clMoneyGreen
      Enabled = False
      ReadOnly = True
      TabOrder = 8
    end
    object EZkrate: TDBEdit
      Left = 86
      Top = 64
      Width = 145
      Height = 21
      DataField = 'ZkRate'
      DataSource = Ds_Master
      ReadOnly = True
      TabOrder = 9
    end
    object CheckBox1: TCheckBox
      Left = 32
      Top = 120
      Width = 97
      Height = 17
      Caption = #29992#25163#24037#36755#20837
      TabOrder = 10
    end
  end
  inherited DBGridEh: TDBGridEh
    Top = 145
    Width = 641
    Height = 255
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking]
    OnColExit = DBGridEhColExit
    Columns = <
      item
        EditButtons = <>
        FieldName = 'ProductTm'
        Footer.Value = #21512#35745
        Footer.ValueType = fvtStaticText
        Footers = <>
        ReadOnly = False
      end
      item
        EditButtons = <>
        FieldName = 'ItemNO'
        Footers = <>
        ReadOnly = False
        Width = 56
      end
      item
        EditButtons = <>
        FieldName = 'Groupname'
        Footers = <>
        ReadOnly = False
        Width = 78
      end
      item
        EditButtons = <>
        FieldName = 'handCount'
        Footer.ValueType = fvtSum
        Footers = <>
        ReadOnly = False
        Width = 57
      end
      item
        EditButtons = <>
        FieldName = 'Perhandcount'
        Footers = <>
        ReadOnly = False
        Width = 62
      end
      item
        EditButtons = <>
        FieldName = 'OrderCount'
        Footer.ValueType = fvtSum
        Footers = <>
        ReadOnly = False
      end
      item
        EditButtons = <>
        FieldName = 'OrderPrice'
        Footers = <>
        ReadOnly = False
        Width = 49
      end
      item
        EditButtons = <>
        FieldName = 'OrderMoney'
        Footer.ValueType = fvtSum
        Footers = <>
        ReadOnly = False
        Width = 73
      end>
  end
  inherited Ds_Master: TDataSource
    Left = 264
    Top = 65528
  end
  inherited Ado_Master: TADOTable
    Connection = F_Dm.DBcon
    CursorType = ctStatic
    BeforePost = Ado_MasterBeforePost
    TableName = 'OrderMaster'
    Left = 224
    Top = 16
    object ADO_masterOrderNo: TStringField
      DisplayLabel = #35746#21333#32534#21495
      FieldName = 'OrderNo'
    end
    object ADO_masterCustno: TStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'Custno'
      Size = 6
    end
    object ADO_masterCustname: TStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'Custname'
      Size = 30
    end
    object ADO_masterFax: TStringField
      DisplayLabel = #20256#30495
      FieldName = 'Fax'
      Size = 13
    end
    object ADO_masterTel: TStringField
      DisplayLabel = #30005#35805
      FieldName = 'Tel'
      Size = 13
    end
    object ADO_masterDeliAddress: TStringField
      DisplayLabel = #22320#22336
      FieldName = 'DeliAddress'
      Size = 30
    end
    object ADO_masterEmail: TStringField
      FieldName = 'Email'
      Size = 30
    end
    object ADO_masterOrderDate: TDateTimeField
      DisplayLabel = #35746#36135#26085#26399
      FieldName = 'OrderDate'
    end
    object ADO_masterDeliDate: TDateTimeField
      DisplayLabel = #20132#36135#26085#26399
      FieldName = 'DeliDate'
    end
    object ADO_masterAllhandCount: TIntegerField
      FieldName = 'AllhandCount'
    end
    object ADO_masterAllcount: TFloatField
      FieldName = 'Allcount'
    end
    object ADO_masterAllmoney: TBCDField
      FieldName = 'Allmoney'
      Precision = 19
    end
    object ADO_masterZkRate: TFloatField
      DisplayLabel = #25286#25187#29575
      FieldName = 'ZkRate'
    end
    object ADO_masterZkAllmoney: TBCDField
      FieldName = 'ZkAllmoney'
      Precision = 19
    end
    object Ado_MasterOperateMan: TStringField
      FieldName = 'OperateMan'
      Size = 18
    end
  end
  inherited ADO_Detail: TADOTable
    Connection = F_Dm.DBcon
    CursorType = ctStatic
    AfterInsert = ADO_DetailAfterInsert
    BeforePost = ADO_DetailBeforePost
    MasterFields = 'OrderNo'
    MasterSource = Ds_Master
    TableName = 'OrderDetail'
    Left = 464
    Top = 288
    object ADO_DetailProductTm: TStringField
      DisplayLabel = #20135#21697#30721
      DisplayWidth = 16
      FieldName = 'ProductTm'
    end
    object ADO_DetailItemNO: TStringField
      DisplayLabel = #27454#21495
      DisplayWidth = 7
      FieldName = 'ItemNO'
      Size = 6
    end
    object ADO_DetailGroupname: TStringField
      DisplayLabel = #32452#21035
      FieldName = 'Groupname'
      Size = 30
    end
    object ADO_DetailhandCount: TIntegerField
      DisplayLabel = #25163#25968
      DisplayWidth = 10
      FieldName = 'handCount'
    end
    object ADO_DetailPerhandcount: TIntegerField
      DisplayLabel = #27599#25163#25968#37327
      DisplayWidth = 10
      FieldName = 'Perhandcount'
    end
    object ADO_DetailOrderCount: TIntegerField
      DisplayLabel = #25968#37327
      DisplayWidth = 10
      FieldName = 'OrderCount'
    end
    object ADO_DetailOrderMoney: TBCDField
      DisplayLabel = #37329#39069
      DisplayWidth = 20
      FieldName = 'OrderMoney'
      Precision = 19
    end
    object ADO_DetailOrderNo: TStringField
      FieldName = 'OrderNo'
    end
    object ADO_DetailOrderPrice: TFloatField
      DisplayLabel = #21333#20215
      FieldName = 'OrderPrice'
    end
    object ADO_DetailGroupNO: TStringField
      FieldName = 'GroupNO'
      Size = 3
    end
  end
  inherited SkinData1: TSkinData
    SkinStream = {00000000}
  end
end