ufrm_customer.dfm

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

inherited frm_customer: Tfrm_customer
  Left = 254
  Top = 127
  Width = 669
  Height = 411
  Caption = 'frm_customer'
  PixelsPerInch = 96
  TextHeight = 13
  inherited CoolBar1: TCoolBar
    Width = 661
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 29
        Width = 657
      end>
    inherited ToolBar1: TToolBar
      Width = 644
      inherited ToolButton18: TToolButton
        Left = 346
        Wrap = False
      end
      inherited tbSave: TToolButton
        Left = 354
        Top = 0
      end
      inherited tbUnsave: TToolButton
        Left = 384
        Top = 0
      end
      inherited ToolButton19: TToolButton
        Left = 414
        Top = 0
      end
      inherited tbConfirm: TToolButton
        Left = 421
        Top = 0
      end
      inherited tbUnconfirm: TToolButton
        Left = 451
        Top = 0
      end
      inherited ToolButton20: TToolButton
        Left = 481
        Top = 0
      end
      inherited tbPrint: TToolButton
        Left = 494
        Top = 0
      end
      inherited tbExcel: TToolButton
        Left = 524
        Top = 0
      end
      inherited tbHelp: TToolButton
        Left = 554
        Top = 0
      end
      inherited tbother: TToolButton
        Left = 584
        Top = 0
      end
    end
  end
  inherited Page01: TPageControl
    Width = 661
    Height = 351
    ActivePage = TabSheet1
    TabIndex = 0
    inherited TabSheet1: TTabSheet
      inherited panelEdit: TPanel
        Width = 653
        Height = 320
        object Label1: TLabel
          Left = 16
          Top = 24
          Width = 51
          Height = 13
          Caption = #23458#25143#32534#21495':'
        end
        object Label2: TLabel
          Left = 16
          Top = 56
          Width = 51
          Height = 13
          Caption = #23458#25143#31616#31216':'
        end
        object Label3: TLabel
          Left = 16
          Top = 89
          Width = 51
          Height = 13
          Caption = #23458#25143#20840#31216':'
        end
        object Label4: TLabel
          Left = 16
          Top = 122
          Width = 51
          Height = 13
          Caption = #23458#25143#31867#21035':'
        end
        object Label5: TLabel
          Left = 40
          Top = 155
          Width = 27
          Height = 13
          Caption = #21306#22495':'
        end
        object Label6: TLabel
          Left = 16
          Top = 188
          Width = 51
          Height = 13
          Caption = #23458#25143#22320#22336':'
        end
        object Label7: TLabel
          Left = 16
          Top = 221
          Width = 51
          Height = 13
          Caption = #32852#31995#30005#35805':'
        end
        object Label8: TLabel
          Left = 16
          Top = 254
          Width = 51
          Height = 13
          Caption = #20256#30495#21495#30721':'
        end
        object Label9: TLabel
          Left = 16
          Top = 287
          Width = 51
          Height = 13
          Caption = #30830#35748#26631#24535':'
        end
        object DBEdit1: TDBEdit
          Left = 72
          Top = 18
          Width = 121
          Height = 21
          DataField = 'CUSTNO'
          DataSource = ds_master
          ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
          TabOrder = 0
        end
        object DBEdit2: TDBEdit
          Left = 72
          Top = 50
          Width = 121
          Height = 21
          DataField = 'SHORTNAME'
          DataSource = ds_master
          ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
          TabOrder = 1
        end
        object DBEdit3: TDBEdit
          Left = 72
          Top = 83
          Width = 313
          Height = 21
          DataField = 'FULLNAME'
          DataSource = ds_master
          ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
          TabOrder = 2
        end
        object DBEdit4: TDBEdit
          Left = 72
          Top = 116
          Width = 121
          Height = 21
          DataField = 'CUSTTYPE'
          DataSource = ds_master
          ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
          TabOrder = 3
        end
        object DBEdit5: TDBEdit
          Left = 72
          Top = 149
          Width = 121
          Height = 21
          DataField = 'REGION'
          DataSource = ds_master
          ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
          TabOrder = 4
        end
        object DBEdit6: TDBEdit
          Left = 72
          Top = 181
          Width = 313
          Height = 21
          DataField = 'ADDRESS'
          DataSource = ds_master
          ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
          TabOrder = 5
        end
        object DBEdit7: TDBEdit
          Left = 72
          Top = 214
          Width = 121
          Height = 21
          DataField = 'TEL'
          DataSource = ds_master
          ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
          TabOrder = 6
        end
        object DBEdit8: TDBEdit
          Left = 72
          Top = 247
          Width = 121
          Height = 21
          DataField = 'FAX'
          DataSource = ds_master
          ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
          TabOrder = 7
        end
        object DBEdit9: TDBEdit
          Left = 72
          Top = 280
          Width = 121
          Height = 21
          DataField = 'ACTI'
          DataSource = ds_master
          ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
          TabOrder = 8
        end
      end
    end
    inherited TabSheet2: TTabSheet
      inherited dbGrid: TdxDBGrid
        Width = 653
        Height = 320
        KeyField = 'CUSTNO'
        Filter.Criteria = {00000000}
        HeaderFont.Height = -11
        object dbGridCUSTNO: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'CUSTNO'
        end
        object dbGridSHORTNAME: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'SHORTNAME'
        end
        object dbGridFULLNAME: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'FULLNAME'
        end
        object dbGridCUSTTYPE: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'CUSTTYPE'
        end
        object dbGridREGION: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'REGION'
        end
        object dbGridADDRESS: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'ADDRESS'
        end
        object dbGridTEL: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'TEL'
        end
        object dbGridFAX: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'FAX'
        end
        object dbGridACTI: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'ACTI'
        end
        object dbGridOWUS: TdxDBGridMaskColumn
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'OWUS'
        end
        object dbGridGRUP: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'GRUP'
        end
        object dbGridCRET: TdxDBGridDateColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'CRET'
        end
        object dbGridMODU: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'MODU'
        end
        object dbGridMODT: TdxDBGridDateColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'MODT'
        end
      end
    end
  end
  inherited qy_master: TQuery
    DatabaseName = 'JXC_CSD'
    SQL.Strings = (
      'SELECT * FROM T_CUSTOMER')
    object qy_masterCUSTNO: TStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'CUSTNO'
      Origin = 'JXC_CSD.T_CUSTOMER.CUSTNO'
      Size = 10
    end
    object qy_masterSHORTNAME: TStringField
      DisplayLabel = #23458#25143#31616#31216
      FieldName = 'SHORTNAME'
      Origin = 'JXC_CSD.T_CUSTOMER.SHORTNAME'
      Size = 8
    end
    object qy_masterFULLNAME: TStringField
      DisplayLabel = #23458#25143#20840#31216
      FieldName = 'FULLNAME'
      Origin = 'JXC_CSD.T_CUSTOMER.FULLNAME'
      Size = 50
    end
    object qy_masterCUSTTYPE: TStringField
      DisplayLabel = #23458#25143#20998#31867
      FieldName = 'CUSTTYPE'
      Origin = 'JXC_CSD.T_CUSTOMER.CUSTTYPE'
      Size = 4
    end
    object qy_masterREGION: TStringField
      DisplayLabel = #21306#22495
      FieldName = 'REGION'
      Origin = 'JXC_CSD.T_CUSTOMER.REGION'
      Size = 10
    end
    object qy_masterADDRESS: TStringField
      DisplayLabel = #23458#25143#22320#22336
      FieldName = 'ADDRESS'
      Origin = 'JXC_CSD.T_CUSTOMER.ADDRESS'
      Size = 60
    end
    object qy_masterTEL: TStringField
      DisplayLabel = #32852#31995#30005#35805
      FieldName = 'TEL'
      Origin = 'JXC_CSD.T_CUSTOMER.TEL'
      Size = 30
    end
    object qy_masterFAX: TStringField
      DisplayLabel = #20256#30495#21495#30721
      FieldName = 'FAX'
      Origin = 'JXC_CSD.T_CUSTOMER.FAX'
      Size = 30
    end
    object qy_masterACTI: TStringField
      DisplayLabel = #30830#35748#26631#24535
      FieldName = 'ACTI'
      Origin = 'JXC_CSD.T_CUSTOMER.ACTI'
      Size = 1
    end
    object qy_masterOWUS: TStringField
      FieldName = 'OWUS'
      Origin = 'JXC_CSD.T_CUSTOMER.OWUS'
      Size = 10
    end
    object qy_masterGRUP: TStringField
      DisplayLabel = #32676#32452
      FieldName = 'GRUP'
      Origin = 'JXC_CSD.T_CUSTOMER.GRUP'
      Size = 10
    end
    object qy_masterCRET: TDateTimeField
      DisplayLabel = #24314#31435#26085#26399
      FieldName = 'CRET'
      Origin = 'JXC_CSD.T_CUSTOMER.CRET'
    end
    object qy_masterMODU: TStringField
      DisplayLabel = #26368#36817#20462#25913#32773
      FieldName = 'MODU'
      Origin = 'JXC_CSD.T_CUSTOMER.MODU'
      Size = 10
    end
    object qy_masterMODT: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'MODT'
      Origin = 'JXC_CSD.T_CUSTOMER.MODT'
    end
  end
end