jydjform.dfm

地址档案管理系统

object FormJYDJ: TFormJYDJ
  Tag = 27
  Left = 430
  Top = 124
  Width = 348
  Height = 317
  Caption = #20511#38405#30331#35760
  Color = clBtnFace
  Constraints.MaxHeight = 534
  Constraints.MaxWidth = 800
  Constraints.MinHeight = 317
  Constraints.MinWidth = 348
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 112
    Top = 88
    Width = 41
    Height = 13
    AutoSize = False
    Caption = #26723#26696#21495
  end
  object Label2: TLabel
    Left = 56
    Top = 24
    Width = 65
    Height = 13
    AutoSize = False
    Caption = #35835#32773#32534#21495
  end
  object Label4: TLabel
    Left = 152
    Top = 24
    Width = 65
    Height = 13
    AutoSize = False
    Caption = #20511#38405#26085#26399
  end
  object Label5: TLabel
    Left = 248
    Top = 88
    Width = 33
    Height = 13
    AutoSize = False
    Caption = #22871#21495
  end
  object Label6: TLabel
    Left = 56
    Top = 88
    Width = 49
    Height = 13
    AutoSize = False
    Caption = #24211#31867#21035
  end
  object Label8: TLabel
    Left = 56
    Top = 152
    Width = 33
    Height = 13
    AutoSize = False
    Caption = #25253#21578
  end
  object Label9: TLabel
    Left = 96
    Top = 152
    Width = 33
    Height = 13
    AutoSize = False
    Caption = #38468#22270
  end
  object Label10: TLabel
    Left = 136
    Top = 152
    Width = 25
    Height = 13
    AutoSize = False
    Caption = #38468#20214
  end
  object Label11: TLabel
    Left = 176
    Top = 152
    Width = 33
    Height = 13
    AutoSize = False
    Caption = #38468#34920
  end
  object Label12: TLabel
    Left = 216
    Top = 152
    Width = 33
    Height = 13
    AutoSize = False
    Caption = #38598#20876
  end
  object Label13: TLabel
    Left = 256
    Top = 152
    Width = 33
    Height = 13
    AutoSize = False
    Caption = #33014#29255
  end
  object Label14: TLabel
    Left = 56
    Top = 216
    Width = 49
    Height = 13
    AutoSize = False
    Caption = #22791#27880
  end
  object lkcbDZBH: TwwDBLookupCombo
    Left = 56
    Top = 40
    Width = 81
    Height = 21
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      #35835#32773#32534#21495#9'9'#9#35835#32773#32534#21495#9'T'
      #35835#32773#22995#21517#9'8'#9#35835#32773#22995#21517#9'T'
      #25152#23646#21333#20301#9'24'#9#25152#23646#21333#20301#9'T'
      #30005#35805#9'7'#9#30005#35805#9'T'
      #22320#22336#9'20'#9#22320#22336#9'T')
    DataField = 'ZRZ'
    LookupTable = qryDZ
    LookupField = #35835#32773#32534#21495
    ImeMode = imDisable
    TabOrder = 0
    AutoDropDown = False
    ShowButton = True
    UseTFields = False
    PreciseEditRegion = False
    AllowClearKey = False
    ShowMatchText = True
    OnNotInList = lkcbDZBHNotInList
  end
  object btnCommit: TButton
    Left = 248
    Top = 232
    Width = 49
    Height = 25
    Caption = #30830#23450
    TabOrder = 12
    OnClick = btnCommitClick
  end
  object edtDAH: TEdit
    Left = 112
    Top = 104
    Width = 121
    Height = 21
    TabOrder = 4
  end
  object lkcbKL: TwwDBLookupCombo
    Left = 56
    Top = 104
    Width = 41
    Height = 21
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'detail_code'#9'4'#9'detail_code'#9'T'
      'caption'#9'5'#9'caption'#9'T'
      'note'#9'10'#9'note'#9'T')
    DataField = 'ZRZ'
    LookupTable = qryKL
    LookupField = 'detail_code'
    ImeMode = imDisable
    TabOrder = 2
    AutoDropDown = False
    ShowButton = True
    UseTFields = False
    PreciseEditRegion = False
    AllowClearKey = False
    ShowMatchText = True
    OnNotInList = lkcbDZBHNotInList
  end
  object edtTH: TEdit
    Left = 248
    Top = 104
    Width = 33
    Height = 21
    TabOrder = 3
    Text = '(1)'
  end
  object mskBG: TMaskEdit
    Left = 56
    Top = 168
    Width = 29
    Height = 21
    EditMask = '!990;1;_'
    MaxLength = 3
    TabOrder = 5
    Text = '  0'
  end
  object edtBZ: TEdit
    Left = 56
    Top = 232
    Width = 177
    Height = 21
    TabOrder = 11
  end
  object dpJYRQ: TDateTimePicker
    Left = 152
    Top = 40
    Width = 89
    Height = 21
    Date = 38290.875386817130000000
    Time = 38290.875386817130000000
    TabOrder = 1
  end
  object mskFT: TMaskEdit
    Left = 96
    Top = 168
    Width = 29
    Height = 21
    EditMask = '!990;1;_'
    MaxLength = 3
    TabOrder = 6
    Text = '  0'
  end
  object mskFJ: TMaskEdit
    Left = 136
    Top = 168
    Width = 29
    Height = 21
    EditMask = '!990;1;_'
    MaxLength = 3
    TabOrder = 7
    Text = '  0'
  end
  object mskFB: TMaskEdit
    Left = 176
    Top = 168
    Width = 29
    Height = 21
    EditMask = '!990;1;_'
    MaxLength = 3
    TabOrder = 8
    Text = '  0'
  end
  object mskJC: TMaskEdit
    Left = 216
    Top = 168
    Width = 29
    Height = 21
    EditMask = '!990;1;_'
    MaxLength = 3
    TabOrder = 9
    Text = '  0'
  end
  object mskJP: TMaskEdit
    Left = 256
    Top = 168
    Width = 29
    Height = 21
    EditMask = '!990;1;_'
    MaxLength = 3
    TabOrder = 10
    Text = '  0'
  end
  object qryDZ: TADOQuery
    AutoCalcFields = False
    Connection = DM.DBCnt
    CursorType = ctStatic
    LockType = ltReadOnly
    ParamCheck = False
    Parameters = <>
    SQL.Strings = (
      
        'SELECT TOP 100 PERCENT a.id AS '#35835#32773#32534#21495', a.name AS '#35835#32773#22995#21517', b.name AS '#25152 +
        #23646#21333#20301', '
      '      a.TELE AS '#30005#35805', a.ADDR AS '#22320#22336
      'FROM dbo.DWDZ b INNER JOIN'
      '      dbo.DZ a ON b.id = a.dwid'
      'ORDER BY a.id')
    Left = 8
    Top = 256
    object qryDZDSDesigner: TWideStringField
      DisplayWidth = 7
      FieldName = #35835#32773#32534#21495
      Size = 7
    end
    object qryDZDSDesigner2: TWideStringField
      DisplayWidth = 8
      FieldName = #35835#32773#22995#21517
      Size = 8
    end
    object qryDZDSDesigner3: TWideStringField
      DisplayWidth = 24
      FieldName = #25152#23646#21333#20301
      Size = 24
    end
    object qryDZDSDesigner4: TWideStringField
      DisplayWidth = 7
      FieldName = #30005#35805
      Size = 7
    end
    object qryDZDSDesigner5: TWideStringField
      DisplayWidth = 20
      FieldName = #22320#22336
    end
  end
  object tblJYK: TADOTable
    AutoCalcFields = False
    Connection = DM.DBCnt
    CursorType = ctStatic
    TableName = 'JYK'
    Left = 88
    Top = 256
    object tblJYKid: TWideStringField
      FieldName = 'id'
      Size = 7
    end
    object tblJYKjydate: TDateTimeField
      FieldName = 'jydate'
    end
    object tblJYKDAH: TWideStringField
      FieldName = 'DAH'
      Size = 30
    end
    object tblJYKTH: TWideStringField
      FieldName = 'TH'
      Size = 3
    end
    object tblJYKKL: TWideStringField
      FieldName = 'KL'
      Size = 1
    end
    object tblJYKGHDATE: TDateTimeField
      FieldName = 'GHDATE'
    end
    object tblJYKXJDATE: TDateTimeField
      FieldName = 'XJDATE'
    end
    object tblJYKBG: TIntegerField
      FieldName = 'BG'
    end
    object tblJYKFT: TIntegerField
      FieldName = 'FT'
    end
    object tblJYKFJ: TIntegerField
      FieldName = 'FJ'
    end
    object tblJYKFB: TIntegerField
      FieldName = 'FB'
    end
    object tblJYKJC: TIntegerField
      FieldName = 'JC'
    end
    object tblJYKJP: TIntegerField
      FieldName = 'JP'
    end
    object tblJYKFZ: TWideStringField
      FieldName = 'FZ'
    end
  end
  object qryKL: TADOQuery
    AutoCalcFields = False
    Connection = DM.DBCnt
    CursorType = ctStatic
    LockType = ltReadOnly
    ParamCheck = False
    Parameters = <>
    SQL.Strings = (
      'select detail_code, caption, note'
      'from detail_code'
      'where master_code='#39'KL'#39
      'order by detail_code')
    Left = 48
    Top = 256
    object qryKLdetail_code: TWideStringField
      FieldName = 'detail_code'
      Size = 50
    end
    object qryKLcaption: TWideStringField
      FieldName = 'caption'
      Size = 50
    end
    object qryKLnote: TWideStringField
      FieldName = 'note'
      Size = 50
    end
  end
end