usale.dfm

在打沙场用的最简单

  end
  inherited Grid: TDBGridEh
    Left = 8
    Top = 224
    Width = 529
    Height = 57
    Align = alCustom
    Font.Charset = DEFAULT_CHARSET
    Font.Height = -15
    Visible = False
    OnColEnter = GridColEnter
    OnEnter = GridEnter
    Columns = <
      item
        AlwaysShowEditButton = True
        ButtonStyle = cbsDropDown
        EditButtons = <>
        FieldName = 'fcode'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -17
        Font.Name = #23435#20307
        Font.Style = []
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #36135#21697#20195#30721
        Width = 68
        OnEditButtonDown = GridColumns3EditButtonDown
      end
      item
        EditButtons = <>
        FieldName = 'fname'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -17
        Font.Name = #23435#20307
        Font.Style = []
        Footers = <>
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #36135#21697#21517#31216
        Width = 79
      end
      item
        EditButtons = <>
        FieldName = 'chcode'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -17
        Font.Name = #23435#20307
        Font.Style = []
        Footers = <>
        Title.Caption = #36710#22411#20195#30721
      end
      item
        EditButtons = <>
        FieldName = 'chname'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -17
        Font.Name = #23435#20307
        Font.Style = []
        Footers = <>
        ReadOnly = True
        Title.Caption = #36710#22411#21517#31216
        Width = 62
      end
      item
        EditButtons = <>
        FieldName = 'fqty'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -17
        Font.Name = #23435#20307
        Font.Style = []
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #25968#37327
      end
      item
        EditButtons = <>
        FieldName = 'total'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -17
        Font.Name = #23435#20307
        Font.Style = []
        Footer.FieldName = 'total'
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Caption = #37329#39069
        Width = 69
      end
      item
        EditButtons = <>
        FieldName = 'fnote'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -17
        Font.Name = #23435#20307
        Font.Style = []
        Footers = <>
        Title.Caption = #22791#27880
        Width = 132
      end
      item
        EditButtons = <>
        FieldName = 'famt'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -17
        Font.Name = #23435#20307
        Font.Style = []
        Footers = <>
        Title.Caption = #26684#24335#37329#39069
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'funit'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -17
        Font.Name = #23435#20307
        Font.Style = []
        Footer.Value = #21512#35745#65306
        Footer.ValueType = fvtStaticText
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21333#20301
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'fprice'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -17
        Font.Name = #23435#20307
        Font.Style = []
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21333#20215
        Visible = False
        Width = 58
      end
      item
        EditButtons = <>
        FieldName = 'ftype'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -17
        Font.Name = #23435#20307
        Font.Style = []
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #31867#21035
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'khcode'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -17
        Font.Name = #23435#20307
        Font.Style = []
        Footers = <>
        Title.Caption = #29289#26009#32534#21495'('#23458#25143')'
        Visible = False
        Width = 91
      end
      item
        EditButtons = <>
        FieldName = 'famount'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -17
        Font.Name = #23435#20307
        Font.Style = []
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Alignment = taCenter
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'fid'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -17
        Font.Name = #23435#20307
        Font.Style = []
        Footers = <>
        Title.Alignment = taCenter
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'fresid'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -17
        Font.Name = #23435#20307
        Font.Style = []
        Footers = <>
        Title.Alignment = taCenter
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'fitemid'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -17
        Font.Name = #23435#20307
        Font.Style = []
        Footers = <>
        Title.Alignment = taCenter
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'zs'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -17
        Font.Name = #23435#20307
        Font.Style = []
        Footers = <>
        Title.Caption = #25903#25976
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'colorno'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -17
        Font.Name = #23435#20307
        Font.Style = []
        Footers = <>
        Title.Caption = #33394#34399
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'color'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -17
        Font.Name = #23435#20307
        Font.Style = []
        Footers = <>
        Title.Caption = #38991#33394
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'gno'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -17
        Font.Name = #23435#20307
        Font.Style = []
        Footers = <>
        Title.Caption = #32568#34399
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'bt'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -17
        Font.Name = #23435#20307
        Font.Style = []
        Footers = <>
        Visible = False
      end>
  end
  inherited ActionList: TActionList
    Left = 304
    Top = 17
  end
  inherited ToolButtonImages: TImageList
    Left = 161
    Top = 282
  end
  inherited CDSmaster: TClientDataSet
    Left = 512
    Top = 168
    object CDSmasterfid: TAutoIncField
      FieldName = 'fid'
      ReadOnly = True
    end
    object CDSmasterfresid: TIntegerField
      FieldName = 'fresid'
    end
    object CDSmasterfrefno: TWideStringField
      FieldName = 'frefno'
      Size = 18
    end
    object CDSmasterfprovider: TWideStringField
      FieldName = 'fprovider'
      Size = 30
    end
    object CDSmasterfsaleer: TWideStringField
      FieldName = 'fsaleer'
    end
    object CDSmasterfdelivdate: TDateTimeField
      FieldName = 'fdelivdate'
    end
    object CDSmasterfnote: TWideStringField
      FieldName = 'fnote'
      Size = 50
    end
    object CDSmasterfcreadate: TDateTimeField
      FieldName = 'fcreadate'
    end
    object CDSmasterfcreauser: TWideStringField
      FieldName = 'fcreauser'
    end
    object CDSmasterfk: TStringField
      FieldName = 'fk'
      Size = 10
    end
    object CDSmasterpz: TStringField
      FieldName = 'pz'
      Size = 10
    end
    object CDSmasterbz: TStringField
      FieldName = 'bz'
      Size = 10
    end
    object CDSmasterfsaleno: TWideStringField
      FieldName = 'fsaleno'
      Size = 40
    end
    object CDSmasterfsalestore: TStringField
      FieldName = 'fsalestore'
      Size = 30
    end
    object CDSmasterbc: TStringField
      FieldName = 'bc'
      Size = 2
    end
    object CDSmasterhcode: TStringField
      FieldName = 'hcode'
      Size = 2
    end
    object CDSmasterchcode: TStringField
      FieldName = 'chcode'
      Size = 2
    end
    object CDSmasterchname: TStringField
      FieldName = 'chname'
      Size = 16
    end
    object CDSmastertamt: TFloatField
      FieldName = 'tamt'
    end
    object CDSmastertqty: TFloatField
      FieldName = 'tqty'
    end
    object CDSmasterhname: TStringField
      FieldName = 'hname'
      Size = 16
    end
  end
  inherited dsMaster: TDataSource
    Left = 328
    Top = 280
  end
  inherited CDSsub: TClientDataSet
    OnCalcFields = CDSsubCalcFields
    Left = 104
    Top = 240
    object CDSsubfid: TAutoIncField
      FieldName = 'fid'
      ReadOnly = True
    end
    object CDSsubfresid: TIntegerField
      FieldName = 'fresid'
    end
    object CDSsubfitemid: TIntegerField
      FieldName = 'fitemid'
    end
    object CDSsubfamount: TFloatField
      FieldKind = fkCalculated
      FieldName = 'famount'
      Calculated = True
    end
    object CDSsubcolorno: TStringField
      DisplayWidth = 15
      FieldName = 'colorno'
    end
    object CDSsubgno: TStringField
      DisplayWidth = 15
      FieldName = 'gno'
    end
    object CDSsubfnote: TStringField
      FieldName = 'fnote'
      Size = 50
    end
    object CDSsubfcode: TStringField
      FieldName = 'fcode'
      Size = 30
    end
    object CDSsubfname: TStringField
      FieldName = 'fname'
      Size = 200
    end
    object CDSsubfunit: TStringField
      FieldName = 'funit'
      Size = 10
    end
    object CDSsubftype: TStringField
      FieldName = 'ftype'
      Size = 10
    end
    object CDSsubcolor: TStringField
      FieldName = 'color'
      Size = 15
    end
    object CDSsubzs: TStringField
      FieldName = 'zs'
      Size = 10
    end
    object CDSsuboldfqty: TBCDField
      FieldName = 'oldfqty'
      Size = 2
    end
    object CDSsubfamt: TWideStringField
      FieldName = 'famt'
      Size = 50
    end
    object CDSsubbt: TStringField
      FieldName = 'bt'
      Size = 2
    end
    object CDSsubkhcode: TStringField
      FieldName = 'khcode'
      Size = 30
    end
    object CDSsubfqty: TFloatField
      FieldName = 'fqty'
    end
    object CDSsubfprice: TFloatField
      FieldName = 'fprice'
    end
    object CDSsubtotal: TFloatField
      FieldName = 'total'
    end
    object CDSsubchcode: TStringField
      FieldName = 'chcode'
      Size = 10
    end
    object CDSsubchname: TStringField
      FieldName = 'chname'
      Size = 50
    end
  end
  inherited dsSub: TDataSource
    Left = 208
    Top = 240
  end
  inherited CDSselectsub: TClientDataSet
    Left = 464
    Top = 272
  end
  inherited frDSMaster: TfrDBDataSet
    Left = 432
    Top = 176
  end
  inherited frDSsub: TfrDBDataSet
    Left = 472
    Top = 176
  end
  inherited frMD: TfrReport
    Left = 352
    Top = 128
    ReportForm = {19000000}
  end
  inherited popupprint: TPopupMenu
    Left = 320
    Top = 192
    inherited N1: TMenuItem
      Caption = #25171#21360#39044#35272
    end
    inherited N5: TMenuItem
      Caption = #25171#21360#35774#32622
    end
    inherited N7: TMenuItem
      Caption = #25253#34920#35774#32622
    end
    inherited N9: TMenuItem
      Caption = #30005#23376#34920#26684
    end
    object N10: TMenuItem
      Caption = #20132#29677#34920
      OnClick = N10Click
    end
  end
  inherited ActionListprint: TActionList
    Left = 72
    Top = 240
  end
  object CDSstore: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 120
    Top = 288
    object CDSstoreField: TStringField
      DisplayWidth = 20
      FieldName = #36873#39033
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 256
    Top = 248
  end
  object con1: TADOConnection
    LoginPrompt = False
    Left = 160
    Top = 240
  end
  object ADOQuery1: TADOQuery
    Connection = con1
    Parameters = <>
    Left = 208
    Top = 272
  end
  object ADOQuery2: TADOQuery
    Connection = con1
    Parameters = <>
    Left = 272
    Top = 256
  end
  object ADOQuery3: TADOQuery
    Connection = con1
    Parameters = <>
    Left = 312
    Top = 256
  end
  object Query1: TQuery
    DatabaseName = 'sc'
    Left = 360
    Top = 264
  end
  object Query2: TQuery
    DatabaseName = 'sc'
    Left = 400
    Top = 264
  end
  object frDBDataSet1: TfrDBDataSet
    DataSet = Query1
    Left = 392
    Top = 176
  end
  object Query3: TQuery
    DatabaseName = 'sc'
    Left = 232
    Top = 201
  end
  object frDBDataSet2: TfrDBDataSet
    DataSet = Query2
    Left = 376
    Top = 209
  end
end