ufrm_invoice_head.dfm

来自「完整的进销存系统。 设计文件及完整的源代码。 Delphi6.0」· DFM 代码 · 共 385 行

inherited frm_invoice_head: Tfrm_invoice_head
  Left = 293
  Top = 216
  Caption = 'frm_invoice_head'
  PixelsPerInch = 96
  TextHeight = 13
  inherited Splitter1: TSplitter
    Top = 177
  end
  inherited Page01: TPageControl
    Height = 144
    inherited TabSheet1: TTabSheet
      inherited panelEdit: TPanel
        Height = 113
        object Label1: TLabel
          Left = 16
          Top = 11
          Width = 51
          Height = 13
          Caption = #21457#31080#21495#30721':'
        end
        object Label2: TLabel
          Left = 16
          Top = 35
          Width = 51
          Height = 13
          Caption = #21457#31080#26085#26399':'
        end
        object Label3: TLabel
          Left = 16
          Top = 59
          Width = 51
          Height = 13
          Caption = #35746#21333#32534#21495':'
        end
        object Label4: TLabel
          Left = 16
          Top = 83
          Width = 51
          Height = 13
          Caption = #23458#25143#32534#21495':'
        end
        object Label5: TLabel
          Left = 240
          Top = 83
          Width = 51
          Height = 13
          Caption = #30830#35748#26631#24535':'
        end
        object DBText1: TDBText
          Left = 296
          Top = 83
          Width = 65
          Height = 17
          DataField = 'ACTI'
          DataSource = ds_master
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object invoiceno: TDBEdit
          Left = 72
          Top = 11
          Width = 121
          Height = 21
          DataField = 'INVOICENO'
          DataSource = ds_master
          ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
          TabOrder = 0
        end
        object dxDBButtonEdit1: TdxDBButtonEdit
          Left = 72
          Top = 59
          Width = 121
          ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
          TabOrder = 1
          DataField = 'SHIPNO'
          DataSource = ds_master
          Buttons = <
            item
              Default = True
            end>
          OnButtonClick = dxDBButtonEdit1ButtonClick
          ExistButtons = True
        end
        object dxDBButtonEdit2: TdxDBButtonEdit
          Left = 72
          Top = 83
          Width = 121
          ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
          TabOrder = 2
          DataField = 'CUSTNO'
          DataSource = ds_master
          Buttons = <
            item
              Default = True
            end>
          OnButtonClick = dxDBButtonEdit2ButtonClick
          ExistButtons = True
        end
        object invoicedate: TdxDBDateEdit
          Left = 72
          Top = 35
          Width = 121
          ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
          TabOrder = 3
          DataField = 'INVOICEDATE'
          DataSource = ds_master
        end
      end
    end
  end
  inherited PanelDetail1: TPanel
    Top = 180
    Height = 264
    inherited dbGrid: TdxDBGrid
      Height = 260
      KeyField = 'INVOICEITEM'
      Filter.Active = True
      Filter.Criteria = {00000000}
      OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoSmartReload, edgoUseBookmarks]
      object dbGridINVOICENO: TdxDBGridMaskColumn
        Visible = False
        Width = 67
        BandIndex = 0
        RowIndex = 0
        FieldName = 'INVOICENO'
      end
      object dbGridINVOICEITEM: TdxDBGridMaskColumn
        BandIndex = 0
        RowIndex = 0
        FieldName = 'INVOICEITEM'
      end
      object dbGridGOODSNO: TdxDBGridMaskColumn
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'GOODSNO'
      end
      object dbGridUNIT: TdxDBGridMaskColumn
        Width = 52
        BandIndex = 0
        RowIndex = 0
        FieldName = 'UNIT'
      end
      object dbGridGOODSQTY: TdxDBGridMaskColumn
        BandIndex = 0
        RowIndex = 0
        FieldName = 'GOODSQTY'
      end
      object dbGridPRICE: TdxDBGridMaskColumn
        BandIndex = 0
        RowIndex = 0
        FieldName = 'PRICE'
      end
      object dbGridCURRENCY: TdxDBGridMaskColumn
        Width = 52
        BandIndex = 0
        RowIndex = 0
        FieldName = 'CURRENCY'
      end
      object dbGridAMOUNT: TdxDBGridMaskColumn
        BandIndex = 0
        RowIndex = 0
        FieldName = 'AMOUNT'
      end
      object dbGridSHIPNO: TdxDBGridMaskColumn
        MaxLength = 20
        Width = 100
        BandIndex = 0
        RowIndex = 0
        FieldName = 'SHIPNO'
      end
      object dbGridSHIPITEM: TdxDBGridMaskColumn
        Width = 92
        BandIndex = 0
        RowIndex = 0
        FieldName = 'SHIPITEM'
      end
      object dbGridACTI: TdxDBGridMaskColumn
        Visible = False
        Width = 31
        BandIndex = 0
        RowIndex = 0
        FieldName = 'ACTI'
      end
      object dbGridOWUS: TdxDBGridMaskColumn
        BandIndex = 0
        RowIndex = 0
        FieldName = 'OWUS'
      end
      object dbGridGRUP: TdxDBGridMaskColumn
        Visible = False
        Width = 66
        BandIndex = 0
        RowIndex = 0
        FieldName = 'GRUP'
      end
      object dbGridCRET: TdxDBGridDateColumn
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'CRET'
      end
      object dbGridMODU: TdxDBGridMaskColumn
        Visible = False
        Width = 66
        BandIndex = 0
        RowIndex = 0
        FieldName = 'MODU'
      end
      object dbGridMODT: TdxDBGridDateColumn
        Visible = False
        Width = 116
        BandIndex = 0
        RowIndex = 0
        FieldName = 'MODT'
      end
    end
  end
  inherited Query1: TQuery
    DatabaseName = 'JXC_CSD'
    Left = 192
    Top = 32
  end
  inherited qy_master: TQuery
    DatabaseName = 'JXC_CSD'
    SQL.Strings = (
      'SELECT * FROM T_INVOICEHEAD')
    Left = 224
    Top = 32
    object qy_masterINVOICENO: TStringField
      FieldName = 'INVOICENO'
      Origin = 'JXC_CSD.T_INVOICEHEAD.INVOICENO'
      Size = 10
    end
    object qy_masterINVOICEDATE: TDateTimeField
      FieldName = 'INVOICEDATE'
      Origin = 'JXC_CSD.T_INVOICEHEAD.INVOICEDATE'
    end
    object qy_masterCUSTNO: TStringField
      FieldName = 'CUSTNO'
      Origin = 'JXC_CSD.T_INVOICEHEAD.CUSTNO'
      Size = 10
    end
    object qy_masterSHIPNO: TStringField
      FieldName = 'SHIPNO'
      Origin = 'JXC_CSD.T_INVOICEHEAD.SHIPNO'
      Size = 10
    end
    object qy_masterACTI: TStringField
      FieldName = 'ACTI'
      Origin = 'JXC_CSD.T_INVOICEHEAD.ACTI'
      Size = 1
    end
    object qy_masterOWUS: TStringField
      FieldName = 'OWUS'
      Origin = 'JXC_CSD.T_INVOICEHEAD.OWUS'
      Size = 10
    end
    object qy_masterGRUP: TStringField
      FieldName = 'GRUP'
      Origin = 'JXC_CSD.T_INVOICEHEAD.GRUP'
      Size = 10
    end
    object qy_masterCRET: TDateTimeField
      FieldName = 'CRET'
      Origin = 'JXC_CSD.T_INVOICEHEAD.CRET'
    end
    object qy_masterMODU: TStringField
      FieldName = 'MODU'
      Origin = 'JXC_CSD.T_INVOICEHEAD.MODU'
      Size = 10
    end
    object qy_masterMODT: TDateTimeField
      FieldName = 'MODT'
      Origin = 'JXC_CSD.T_INVOICEHEAD.MODT'
    end
  end
  inherited ds_master: TDataSource
    Left = 256
    Top = 32
  end
  inherited qy_detail: TQuery
    DatabaseName = 'JXC_CSD'
    SQL.Strings = (
      'SELECT * FROM T_INVOICELIST')
    Left = 296
    Top = 32
    object qy_detailINVOICENO: TStringField
      FieldName = 'INVOICENO'
      Origin = 'JXC_CSD.T_INVOICELIST.INVOICENO'
      Size = 10
    end
    object qy_detailINVOICEITEM: TIntegerField
      DisplayLabel = #21457#31080#39033#27425
      FieldName = 'INVOICEITEM'
      Origin = 'JXC_CSD.T_INVOICELIST.INVOICEITEM'
    end
    object qy_detailGOODSNO: TStringField
      DisplayLabel = #36135#21697#32534#21495
      FieldName = 'GOODSNO'
      Origin = 'JXC_CSD.T_INVOICELIST.GOODSNO'
    end
    object qy_detailUNIT: TStringField
      DisplayLabel = #21333#20301
      FieldName = 'UNIT'
      Origin = 'JXC_CSD.T_INVOICELIST.UNIT'
      Size = 8
    end
    object qy_detailGOODSQTY: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'GOODSQTY'
      Origin = 'JXC_CSD.T_INVOICELIST.GOODSQTY'
    end
    object qy_detailPRICE: TFloatField
      DisplayLabel = #21333#20215
      FieldName = 'PRICE'
      Origin = 'JXC_CSD.T_INVOICELIST.PRICE'
    end
    object qy_detailCURRENCY: TStringField
      DisplayLabel = #24065#21035
      FieldName = 'CURRENCY'
      Origin = 'JXC_CSD.T_INVOICELIST.CURRENCY'
      Size = 8
    end
    object qy_detailAMOUNT: TFloatField
      DisplayLabel = #37329#39069
      FieldName = 'AMOUNT'
      Origin = 'JXC_CSD.T_INVOICELIST.AMOUNT'
    end
    object qy_detailSHIPNO: TStringField
      DisplayLabel = #38144#36135#21333#21495
      FieldName = 'SHIPNO'
      Origin = 'JXC_CSD.T_INVOICELIST.SHIPNO'
      Size = 50
    end
    object qy_detailSHIPITEM: TIntegerField
      DisplayLabel = #38144#36135#21333#39033#27425
      FieldName = 'SHIPITEM'
      Origin = 'JXC_CSD.T_INVOICELIST.SHIPITEM'
    end
    object qy_detailACTI: TStringField
      FieldName = 'ACTI'
      Origin = 'JXC_CSD.T_INVOICELIST.ACTI'
      Size = 1
    end
    object qy_detailOWUS: TStringField
      DisplayLabel = #24314#31435#32773
      FieldName = 'OWUS'
      Origin = 'JXC_CSD.T_INVOICELIST.OWUS'
      Size = 10
    end
    object qy_detailGRUP: TStringField
      DisplayLabel = #32676#32452
      FieldName = 'GRUP'
      Origin = 'JXC_CSD.T_INVOICELIST.GRUP'
      Size = 10
    end
    object qy_detailCRET: TDateTimeField
      DisplayLabel = #24314#31435#26102#38388
      FieldName = 'CRET'
      Origin = 'JXC_CSD.T_INVOICELIST.CRET'
    end
    object qy_detailMODU: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'MODU'
      Origin = 'JXC_CSD.T_INVOICELIST.MODU'
      Size = 10
    end
    object qy_detailMODT: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'MODT'
      Origin = 'JXC_CSD.T_INVOICELIST.MODT'
    end
  end
  inherited ds_detail: TDataSource
    Left = 328
    Top = 32
  end
end