mdcontract.dfm

来自「三层ERP系统 (SQL)」· DFM 代码 · 共 558 行

inherited frmContract: TfrmContract
  Left = 234
  Top = 72
  Caption = #21512#21516#31649#29702
  ClientHeight = 572
  ClientWidth = 833
  PixelsPerInch = 96
  TextHeight = 15
  inherited plTitle: TPanel
    Width = 833
    inherited Panel3: TPanel
      Left = 367
      inherited editNO: TwwDBEdit
        Frame.FocusBorders = [efBottomBorder]
      end
    end
  end
  inherited PnlEdit: TPanel
    Width = 821
    Height = 419
    inherited pnEdit: TPanel
      Width = 821
      Height = 293
      object Label7: TLabel [0]
        Left = 80
        Top = 57
        Width = 64
        Height = 15
        Caption = #23458'    '#25142
      end
      object btncustomer: TSpeedButton [1]
        Left = 290
        Top = 57
        Width = 23
        Height = 22
        Glyph.Data = {
          D6000000424DD60000000000000076000000280000000B0000000C0000000100
          04000000000060000000C40E0000C40E00001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888880
          0000888888888880000088800000888000008888888888800000888880888880
          0000888800088880000088700000888000008800000008800000888800088880
          0000888800088880000088880008888000008888888888800000}
        OnClick = btncustomerClick
      end
      object Label8: TLabel [2]
        Left = 80
        Top = 83
        Width = 64
        Height = 15
        Caption = #31805#35330#22320#40670
      end
      object Label21: TLabel [3]
        Left = 411
        Top = 113
        Width = 72
        Height = 15
        Caption = #23450#37329#38989'(%)'
      end
      object Label9: TLabel [4]
        Left = 415
        Top = 85
        Width = 64
        Height = 15
        Caption = #31805#35330#26178#38291
      end
      object Label10: TLabel [5]
        Left = 80
        Top = 109
        Width = 64
        Height = 15
        Caption = #20132#36008#26085#26399
      end
      object Label12: TLabel [6]
        Left = 40
        Top = 134
        Width = 104
        Height = 15
        Caption = #32080#31639#26399#38480','#26041#24335
      end
      object Label13: TLabel [7]
        Left = 342
        Top = 134
        Width = 104
        Height = 15
        Caption = #20132#36008#26399#38480','#26041#24335
      end
      object Label14: TLabel [8]
        Left = 0
        Top = 159
        Width = 144
        Height = 15
        Caption = #36074#37327#35201#27714#21450#25216#26414#27161#20934
      end
      object Label15: TLabel [9]
        Left = 40
        Top = 203
        Width = 104
        Height = 15
        Caption = #20132#36008#22320#40670','#26041#24335
      end
      object Label16: TLabel [10]
        Left = 0
        Top = 227
        Width = 144
        Height = 15
        Caption = #36939#36664#26041#24335#21450#36027#29992#36000#25812
      end
      object Label18: TLabel [11]
        Left = 7
        Top = 251
        Width = 136
        Height = 15
        Caption = #39511#25910#27161#20934','#26041#27861#21450#25552
      end
      object Label19: TLabel [12]
        Left = 7
        Top = 267
        Width = 80
        Height = 15
        Caption = #20986#30064#35696#26399#38480
      end
      object Label17: TLabel [13]
        Left = 614
        Top = 57
        Width = 64
        Height = 15
        Caption = #21253#35037#27161#20934
      end
      object Label11: TLabel [14]
        Left = 614
        Top = 157
        Width = 144
        Height = 15
        Caption = #35299#27770#21512#21516#31998#20998#30340#26041#24335
      end
      object Label20: TLabel [15]
        Left = 614
        Top = 228
        Width = 96
        Height = 15
        Caption = #20854#23427#32004#23450#20107#38917
      end
      inherited plStandard: TPanel
        Width = 821
        Height = 57
        inherited Label6: TLabel
          Left = 79
          Top = 31
        end
        inherited plcalendar: TPanel
          Left = 325
          Height = 57
        end
        inherited EdtNO_S: TwwDBEdit
          Left = 148
          Top = 28
        end
      end
      object wwDBEdit4: TwwDBEdit
        Left = 148
        Top = 56
        Width = 137
        Height = 21
        Hint = 'fcustomerCode'
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 1
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBEdit5: TwwDBEdit
        Left = 316
        Top = 56
        Width = 291
        Height = 21
        Hint = 'fcustomername'
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 2
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBEdit6: TwwDBEdit
        Left = 148
        Top = 81
        Width = 257
        Height = 21
        Hint = 'fqyaddress'
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 3
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBEdit13: TwwDBEdit
        Left = 487
        Top = 106
        Width = 120
        Height = 21
        Hint = 'fearnest'
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 4
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBEdit8: TwwDBEdit
        Left = 148
        Top = 131
        Width = 187
        Height = 21
        Hint = 'fbalancemethod'
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 5
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBEdit9: TwwDBEdit
        Left = 448
        Top = 131
        Width = 159
        Height = 21
        Hint = 'fdeliverymethod'
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 6
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object DBMemo1: TDBMemo
        Left = 148
        Top = 155
        Width = 460
        Height = 42
        Hint = 'fquality'
        Ctl3D = False
        ParentCtl3D = False
        ScrollBars = ssVertical
        TabOrder = 7
      end
      object wwDBEdit10: TwwDBEdit
        Left = 148
        Top = 200
        Width = 460
        Height = 21
        Hint = 'fdeliveryaddress'
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 8
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBEdit11: TwwDBEdit
        Left = 148
        Top = 224
        Width = 460
        Height = 21
        Hint = 'ftransportmethod'
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 9
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object DBMemo3: TDBMemo
        Left = 148
        Top = 248
        Width = 460
        Height = 42
        Hint = 'fcheck'
        Ctl3D = False
        ParentCtl3D = False
        ScrollBars = ssVertical
        TabOrder = 10
      end
      object DBMemo2: TDBMemo
        Left = 615
        Top = 79
        Width = 200
        Height = 73
        Hint = 'fcasing'
        Ctl3D = False
        ParentCtl3D = False
        ScrollBars = ssVertical
        TabOrder = 11
      end
      object DBMemo4: TDBMemo
        Left = 615
        Top = 179
        Width = 200
        Height = 42
        Hint = 'fdisension'
        Ctl3D = False
        ParentCtl3D = False
        ScrollBars = ssVertical
        TabOrder = 12
      end
      object DBMemo5: TDBMemo
        Left = 615
        Top = 249
        Width = 200
        Height = 42
        Hint = 'fother'
        Ctl3D = False
        ParentCtl3D = False
        ScrollBars = ssVertical
        TabOrder = 13
      end
      object DBDateTimeEditEh1: TDBDateTimeEditEh
        Left = 487
        Top = 81
        Width = 120
        Height = 21
        Hint = 'fdate'
        Ctl3D = False
        EditButtons = <>
        Kind = dtkDateEh
        ParentCtl3D = False
        TabOrder = 14
        Visible = True
      end
      object DBDateTimeEditEh2: TDBDateTimeEditEh
        Left = 148
        Top = 106
        Width = 120
        Height = 21
        Hint = 'fdeliveryDate'
        Ctl3D = False
        EditButtons = <>
        Kind = dtkDateEh
        ParentCtl3D = False
        TabOrder = 15
        Visible = True
      end
    end
    inherited plGrid: TPanel
      Top = 293
      Width = 821
      Height = 88
      inherited Grid: TDBGridEh
        Width = 821
        Height = 38
      end
      inherited plOther: TPanel
        Top = 38
        Width = 821
      end
    end
    inherited plButton: TPanel
      Top = 381
      Width = 821
      inherited Panel1: TPanel
        Left = 656
      end
      inherited Button15: TButton
        Visible = False
      end
    end
  end
  inherited DSMaster: TDataSource
    Top = 81
  end
  inherited frBaseinfo: TfrReport
    ReportForm = {19000000}
  end
  object CDSCustomer: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 219
    Top = 211
    object CDSCustomerfCode: TWideStringField
      DisplayLabel = #23458#25142#20195#30908
      DisplayWidth = 12
      FieldName = 'fCode'
      Size = 50
    end
    object CDSCustomerfName: TWideStringField
      DisplayLabel = #21517#31281
      DisplayWidth = 32
      FieldName = 'fName'
      Size = 50
    end
    object CDSCustomerfID: TAutoIncField
      DisplayWidth = 10
      FieldName = 'fID'
      ReadOnly = True
      Visible = False
    end
    object CDSCustomerfFullName: TWideStringField
      DisplayWidth = 200
      FieldName = 'fFullName'
      Visible = False
      Size = 200
    end
    object CDSCustomerfAreaCode: TWideStringField
      DisplayWidth = 50
      FieldName = 'fAreaCode'
      Visible = False
      Size = 50
    end
    object CDSCustomerfTypeCode: TWideStringField
      DisplayWidth = 50
      FieldName = 'fTypeCode'
      Visible = False
      Size = 50
    end
    object CDSCustomerfAddress: TWideStringField
      DisplayWidth = 50
      FieldName = 'fAddress'
      Visible = False
      Size = 50
    end
    object CDSCustomerfPostCode: TWideStringField
      DisplayWidth = 50
      FieldName = 'fPostCode'
      Visible = False
      Size = 50
    end
    object CDSCustomerfTel: TWideStringField
      DisplayWidth = 50
      FieldName = 'fTel'
      Visible = False
      Size = 50
    end
    object CDSCustomerfFax: TWideStringField
      DisplayWidth = 50
      FieldName = 'fFax'
      Visible = False
      Size = 50
    end
    object CDSCustomerfRelation: TWideStringField
      DisplayWidth = 50
      FieldName = 'fRelation'
      Visible = False
      Size = 50
    end
    object CDSCustomerfMobilePhone: TWideStringField
      DisplayWidth = 50
      FieldName = 'fMobilePhone'
      Visible = False
      Size = 50
    end
    object CDSCustomerfPosition: TWideStringField
      DisplayWidth = 50
      FieldName = 'fPosition'
      Visible = False
      Size = 50
    end
    object CDSCustomerfEmail: TWideStringField
      DisplayWidth = 50
      FieldName = 'fEmail'
      Visible = False
      Size = 50
    end
    object CDSCustomerfTaxAccount: TWideStringField
      DisplayWidth = 50
      FieldName = 'fTaxAccount'
      Visible = False
      Size = 50
    end
    object CDSCustomerfBank: TWideStringField
      DisplayWidth = 50
      FieldName = 'fBank'
      Visible = False
      Size = 50
    end
    object CDSCustomerfBankAccount: TWideStringField
      DisplayWidth = 50
      FieldName = 'fBankAccount'
      Visible = False
      Size = 50
    end
    object CDSCustomerfOriginSum: TBCDField
      DisplayWidth = 11
      FieldName = 'fOriginSum'
      Visible = False
      Precision = 10
      Size = 2
    end
    object CDSCustomerfRemain: TBCDField
      DisplayWidth = 11
      FieldName = 'fRemain'
      Visible = False
      Precision = 10
      Size = 2
    end
    object CDSCustomerfMaxPaySum: TBCDField
      DisplayWidth = 11
      FieldName = 'fMaxPaySum'
      Visible = False
      Precision = 10
      Size = 2
    end
    object CDSCustomerfMaxRemain: TBCDField
      DisplayWidth = 13
      FieldName = 'fMaxRemain'
      Visible = False
      Precision = 12
      Size = 2
    end
    object CDSCustomerfRate: TBCDField
      DisplayWidth = 6
      FieldName = 'fRate'
      Visible = False
      Precision = 5
      Size = 2
    end
    object CDSCustomerfBeginDate: TDateTimeField
      DisplayWidth = 18
      FieldName = 'fBeginDate'
      Visible = False
    end
    object CDSCustomerfHomePage: TWideStringField
      DisplayWidth = 200
      FieldName = 'fHomePage'
      Visible = False
      Size = 200
    end
    object CDSCustomerfEnglishName: TWideStringField
      DisplayWidth = 188
      FieldName = 'fEnglishName'
      Visible = False
      Size = 188
    end
    object CDSCustomerfNotes: TWideStringField
      DisplayWidth = 200
      FieldName = 'fNotes'
      Visible = False
      Size = 200
    end
  end
  object wwLookupDlg: TwwLookupDialog
    Selected.Strings = (
      'fCode'#9'12'#9#23458#25142#20195#30908#9'F'
      'fName'#9'32'#9#21517#31281#9'F')
    GridTitleAlignment = taLeftJustify
    GridColor = clWhite
    GridOptions = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgPerfectRowFit]
    LookupTable = CDSCustomer
    Caption = #26597#25214
    MaxWidth = 0
    MaxHeight = 209
    CharCase = ecNormal
    Left = 304
    Top = 240
  end
end