ufrm_payment.~dfm

完整的进销存系统。 设计文件及完整的源代码。 Delphi6.0

inherited frm_payment: Tfrm_payment
  Left = 217
  Top = 158
  Width = 726
  Height = 497
  Caption = 'frm_payment'
  PixelsPerInch = 96
  TextHeight = 13
  inherited CoolBar1: TCoolBar
    Width = 718
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 29
        Width = 714
      end>
    inherited ToolBar1: TToolBar
      Width = 701
    end
  end
  inherited Page01: TPageControl
    Width = 718
    Height = 437
    ActivePage = TabSheet1
    TabIndex = 0
    inherited TabSheet1: TTabSheet
      inherited panelEdit: TPanel
        Width = 710
        Height = 406
        object Label1: TLabel
          Left = 29
          Top = 36
          Width = 72
          Height = 13
          Caption = #20379#24212#21830#32534#21495#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label2: TLabel
          Left = 29
          Top = 98
          Width = 72
          Height = 13
          Caption = #20379#24212#21830#31616#31216#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label3: TLabel
          Left = 29
          Top = 165
          Width = 72
          Height = 13
          Caption = #20379#24212#21830#20840#31216#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label10: TLabel
          Left = 29
          Top = 223
          Width = 48
          Height = 13
          Caption = #30906#35469#21542#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object ACTI: TDBText
          Left = 120
          Top = 224
          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 F01: TDBEdit
          Tag = 1
          Left = 120
          Top = 32
          Width = 121
          Height = 21
          DataField = 'F01'
          DataSource = ds_master
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object F02: TDBEdit
          Left = 120
          Top = 96
          Width = 425
          Height = 21
          DataField = 'F02'
          DataSource = ds_master
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
        object za05: TDBRadioGroup
          Left = 120
          Top = 151
          Width = 178
          Height = 41
          Columns = 3
          DataField = 'F03'
          DataSource = ds_master
          Items.Strings = (
            #25903#31080
            #36716#36134
            'L/C')
          TabOrder = 2
          Values.Strings = (
            '1'
            '2'
            '3')
        end
      end
    end
    inherited TabSheet2: TTabSheet
      inherited dbGrid: TdxDBGrid
        Width = 710
        Height = 406
        KeyField = 'F01'
        Filter.Criteria = {00000000}
        object dbGridF01: TdxDBGridMaskColumn
          Caption = #20184#27454#26041#24335
          BandIndex = 0
          RowIndex = 0
          FieldName = 'F01'
        end
        object dbGridF02: TdxDBGridMaskColumn
          Caption = #20184#27454#26041#24335#35828#26126
          BandIndex = 0
          RowIndex = 0
          FieldName = 'F02'
        end
        object dbGridF03: TdxDBGridMaskColumn
          Caption = #20184#27454#31867#21035
          BandIndex = 0
          RowIndex = 0
          FieldName = 'F03'
        end
        object dbGridACTI: TdxDBGridMaskColumn
          Caption = #30830#35748#21542
          BandIndex = 0
          RowIndex = 0
          FieldName = 'ACTI'
        end
        object dbGridOWUS: TdxDBGridMaskColumn
          Caption = #25152#26377#32773
          BandIndex = 0
          RowIndex = 0
          FieldName = 'OWUS'
        end
        object dbGridGRUP: TdxDBGridMaskColumn
          Caption = #25152#26377#32773#32452
          BandIndex = 0
          RowIndex = 0
          FieldName = 'GRUP'
        end
        object dbGridCRET: TdxDBGridDateColumn
          Caption = #21019#24314#26085#26399
          BandIndex = 0
          RowIndex = 0
          FieldName = 'CRET'
        end
        object dbGridMODU: TdxDBGridMaskColumn
          Caption = #20462#25913#32773
          BandIndex = 0
          RowIndex = 0
          FieldName = 'MODU'
        end
        object dbGridMODT: TdxDBGridDateColumn
          Caption = #20462#25913#26085#26399
          BandIndex = 0
          RowIndex = 0
          FieldName = 'MODT'
        end
      end
    end
  end
  inherited qy_master: TQuery
    DatabaseName = 'JXC_CSD'
    SQL.Strings = (
      '')
    object qy_masterF01: TStringField
      FieldName = 'F01'
      Origin = 'JXC_CSD.T_PAYMENTTERM.F01'
      FixedChar = True
      Size = 10
    end
    object qy_masterF02: TStringField
      FieldName = 'F02'
      Origin = 'JXC_CSD.T_PAYMENTTERM.F02'
      FixedChar = True
    end
    object qy_masterF03: TStringField
      FieldName = 'F03'
      Origin = 'JXC_CSD.T_PAYMENTTERM.F03'
      FixedChar = True
      Size = 1
    end
    object qy_masterACTI: TStringField
      FieldName = 'ACTI'
      Origin = 'JXC_CSD.T_PAYMENTTERM.ACTI'
      FixedChar = True
      Size = 1
    end
    object qy_masterOWUS: TStringField
      FieldName = 'OWUS'
      Origin = 'JXC_CSD.T_PAYMENTTERM.OWUS'
      FixedChar = True
      Size = 10
    end
    object qy_masterGRUP: TStringField
      FieldName = 'GRUP'
      Origin = 'JXC_CSD.T_PAYMENTTERM.GRUP'
      FixedChar = True
      Size = 10
    end
    object qy_masterCRET: TDateTimeField
      FieldName = 'CRET'
      Origin = 'JXC_CSD.T_PAYMENTTERM.CRET'
    end
    object qy_masterMODU: TStringField
      FieldName = 'MODU'
      Origin = 'JXC_CSD.T_PAYMENTTERM.MODU'
      FixedChar = True
      Size = 10
    end
    object qy_masterMODT: TDateTimeField
      FieldName = 'MODT'
      Origin = 'JXC_CSD.T_PAYMENTTERM.MODT'
    end
  end
end