ghdjform.dfm

地址档案管理系统

object FormGHDJ: TFormGHDJ
  Tag = 29
  Left = 457
  Top = 420
  Width = 348
  Height = 317
  Caption = #24402#36824#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 = 152
    Top = 24
    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 = 128
    Top = 88
    Width = 65
    Height = 13
    AutoSize = False
    Caption = #32493#20511#26085#26399
  end
  object Label5: TLabel
    Left = 272
    Top = 88
    Width = 33
    Height = 13
    AutoSize = False
    Caption = #22871#21495
  end
  object Label6: TLabel
    Left = 216
    Top = 88
    Width = 49
    Height = 13
    AutoSize = False
    Caption = #24211#31867#21035
  end
  object Label14: TLabel
    Left = 56
    Top = 192
    Width = 33
    Height = 13
    AutoSize = False
    Caption = #22791#27880
  end
  object Label3: TLabel
    Left = 40
    Top = 88
    Width = 73
    Height = 13
    AutoSize = False
    Caption = #21407#20511#38405#26085#26399
  end
  object Label7: TLabel
    Left = 128
    Top = 144
    Width = 73
    Height = 13
    AutoSize = False
    Caption = #24402#36824#26085#26399
  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')
    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 = 208
    Width = 49
    Height = 25
    Caption = #30830#23450
    TabOrder = 8
    OnClick = btnCommitClick
  end
  object edtTH: TEdit
    Left = 272
    Top = 104
    Width = 33
    Height = 21
    Color = clInactiveCaption
    Enabled = False
    TabOrder = 5
  end
  object edtBZ: TEdit
    Left = 56
    Top = 208
    Width = 177
    Height = 21
    TabOrder = 7
  end
  object dpGHRQ: TDateTimePicker
    Left = 128
    Top = 160
    Width = 89
    Height = 21
    Date = 38290.875386817130000000
    Time = 38290.875386817130000000
    TabOrder = 6
  end
  object lkcbDAH: TwwDBLookupCombo
    Left = 152
    Top = 40
    Width = 129
    Height = 21
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'dah'#9'30'#9#26723#26696#21495#9'F'
      'jydate'#9'18'#9#20511#38405#26085#26399#9'F'
      'th'#9'3'#9#22871#21495#9'F'
      'kl'#9'1'#9#24211#31867#9'F'
      'fz'#9'20'#9#22791#27880#9'F')
    LookupTable = qryDAH
    LookupField = 'dah'
    Options = [loTitles]
    ImeMode = imDisable
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    AutoDropDown = False
    ShowButton = True
    UseTFields = False
    PreciseEditRegion = False
    AllowClearKey = False
    ShowMatchText = True
    OnChange = lkcbDAHChange
    OnBeforeDropDown = lkcbDAHBeforeDropDown
    OnNotInList = lkcbDZBHNotInList
  end
  object edtKL: TEdit
    Left = 216
    Top = 104
    Width = 41
    Height = 21
    Color = clInactiveCaption
    Enabled = False
    TabOrder = 4
  end
  object edtJYDATE: TEdit
    Left = 40
    Top = 104
    Width = 73
    Height = 21
    Color = clInactiveCaption
    Enabled = False
    TabOrder = 2
  end
  object edtXJDate: TEdit
    Left = 128
    Top = 104
    Width = 73
    Height = 21
    Color = clInactiveCaption
    Enabled = False
    TabOrder = 3
  end
  object qryDZ: TADOQuery
    Active = True
    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'
      'where a.id in (select id from jyk where ghdate is null)'
      'ORDER BY a.id')
    Left = 8
    Top = 256
    object qryDZDSDesigner: TWideStringField
      FieldName = #35835#32773#32534#21495
      Size = 7
    end
    object qryDZDSDesigner2: TWideStringField
      FieldName = #35835#32773#22995#21517
      Size = 8
    end
    object qryDZDSDesigner3: TWideStringField
      FieldName = #25152#23646#21333#20301
      Size = 24
    end
    object qryDZDSDesigner4: TWideStringField
      FieldName = #30005#35805
      Size = 7
    end
    object qryDZDSDesigner5: TWideStringField
      FieldName = #22320#22336
    end
  end
  object tblJYK: TADOTable
    Active = True
    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 qryDAH: TADOQuery
    AutoCalcFields = False
    Connection = DM.DBCnt
    CursorType = ctStatic
    LockType = ltReadOnly
    Parameters = <
      item
        Name = 'rid'
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 7
        Value = Null
      end>
    Prepared = True
    SQL.Strings = (
      'select dah, jydate, xjdate, th, kl, fz'
      'from jyk'
      'where ghdate is null and id=:rid')
    Left = 48
    Top = 256
    object qryDAHdah: TWideStringField
      FieldName = 'dah'
      Size = 30
    end
    object qryDAHjydate: TDateTimeField
      FieldName = 'jydate'
    end
    object qryDAHxjdate: TDateTimeField
      FieldName = 'xjdate'
    end
    object qryDAHth: TWideStringField
      FieldName = 'th'
      Size = 3
    end
    object qryDAHkl: TWideStringField
      FieldName = 'kl'
      Size = 1
    end
    object qryDAHfz: TWideStringField
      FieldName = 'fz'
    end
  end
end