unit28.dfm

来自「人寿保险的管理信息系统」· DFM 代码 · 共 145 行

object F_cust: TF_cust
  Left = 483
  Top = 175
  Width = 633
  Height = 410
  Caption = #23458#25143#20449#24687
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 625
    Height = 217
    Align = alTop
    Color = clInactiveCaptionText
    DataSource = mydm.cust1src
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899#36755#20837#27861' 3.0 '#29256
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'Cust_ID'
        Title.Caption = #23458#25143#32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Cust_Gender'
        Title.Caption = #24615#21035
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Cust_nation'
        Title.Caption = #27665#26063
        Width = 45
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Cust_prof'
        Title.Caption = #32844#19994
        Width = 54
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Cust_birthday'
        Title.Caption = #20986#29983#26085#26399
        Width = 62
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Cust_marriage'
        Title.Caption = #23130#21542
        Width = 54
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Cust_name'
        Title.Caption = #23458#25143#22995#21517
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Cust_IDCard'
        Title.Caption = #36523#20221#35777#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Cust_Housephone'
        Title.Caption = #20303#23429#30005#35805
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Cust_Officephone'
        Title.Caption = #31227#21160#30005#35805
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Cust_homeaddr'
        Title.Caption = #20303#22336
        Width = 109
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Cust_workaddr'
        Title.Caption = #21333#20301#22320#22336
        Width = 141
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Cust_post'
        Title.Caption = #37038#32534
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Cust_creat'
        Title.Caption = #24314#26723#26085#26399
        Visible = True
      end>
  end
  object Button1: TButton
    Left = 192
    Top = 272
    Width = 75
    Height = 25
    Caption = #30830#23450
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 360
    Top = 272
    Width = 75
    Height = 25
    Caption = #21462#28040
    TabOrder = 2
    OnClick = Button2Click
  end
end