unitdwzy.dfm

适合行业为眼镜业

        EditLabel.Font.Style = [fsBold]
        EditLabel.ParentFont = False
        LabelPosition = lpLeft
        LabelSpacing = 3
        TabOrder = 1
      end
    end
  end
  object Panel3: TPanel
    Left = 489
    Top = 30
    Width = 278
    Height = 3
    BevelOuter = bvSpace
    TabOrder = 1
  end
  object Panel4: TPanel
    Left = 0
    Top = 64
    Width = 249
    Height = 409
    BevelInner = bvLowered
    BevelOuter = bvLowered
    Color = clInactiveCaption
    TabOrder = 2
    object Treebm: TTreeView
      Left = 2
      Top = 0
      Width = 241
      Height = 409
      Color = clCream
      HotTrack = True
      Indent = 19
      ReadOnly = True
      TabOrder = 0
      OnClick = TreebmClick
    end
  end
  object Panel5: TPanel
    Left = 248
    Top = 64
    Width = 545
    Height = 409
    BevelInner = bvLowered
    BevelOuter = bvLowered
    Color = clBtnShadow
    TabOrder = 3
    object DBGrid2: TDBGrid
      Left = 2
      Top = 2
      Width = 541
      Height = 405
      Align = alClient
      Color = clCream
      DataSource = dsygda
      FixedColor = clCream
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDblClick = wwDBGrid2DblClick
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'p_no'
          Title.Alignment = taCenter
          Title.Caption = #21592#24037#32534#21495
          Width = 70
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'p_name'
          Title.Alignment = taCenter
          Title.Caption = #21592#24037#22995#21517
          Width = 70
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'p_sex'
          Title.Alignment = taCenter
          Title.Caption = #24615#21035
          Width = 50
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'p_icno'
          Title.Alignment = taCenter
          Title.Caption = 'IC'#21345#21495
          Width = 70
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'p_workdata'
          Title.Alignment = taCenter
          Title.Caption = #24037#20316#26102#38388
          Width = 70
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'p_headset'
          Title.Alignment = taCenter
          Title.Caption = #32852#31995#30005#35805
          Width = 100
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'p_address'
          Title.Alignment = taCenter
          Title.Caption = #32852#31995#22320#22336
          Width = 100
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'p_worklb'
          Title.Alignment = taCenter
          Title.Caption = #24037#20316#31867#21035
          Width = 70
          Visible = True
        end>
    end
    object Pnltext: TPanel
      Left = 4
      Top = 2
      Width = 530
      Height = 5
      BevelOuter = bvNone
      Color = clCream
      TabOrder = 1
      object Lbcompany: TLabel
        Left = 208
        Top = 16
        Width = 76
        Height = 19
        Caption = #20844#21496#21517#31216
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -19
        Font.Name = #21326#25991#34892#26999
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label1: TLabel
        Left = 16
        Top = 56
        Width = 95
        Height = 19
        Caption = #20844#21496#27861#20154#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -19
        Font.Name = #21326#25991#34892#26999
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label2: TLabel
        Left = 16
        Top = 84
        Width = 95
        Height = 19
        Caption = #20844#21496#32593#22336#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -19
        Font.Name = #21326#25991#34892#26999
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label3: TLabel
        Left = 272
        Top = 56
        Width = 110
        Height = 19
        Caption = #20844#21496'E_Mail'#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -19
        Font.Name = #21326#25991#34892#26999
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label4: TLabel
        Left = 16
        Top = 115
        Width = 95
        Height = 19
        Caption = #20844#21496#22320#22336#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -19
        Font.Name = #21326#25991#34892#26999
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object lbfman: TLabel
        Left = 104
        Top = 56
        Width = 64
        Height = 17
        Caption = #20844#21496#21517#31216
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -16
        Font.Name = #21326#25991#34892#26999
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object lbemail: TLabel
        Left = 376
        Top = 57
        Width = 64
        Height = 17
        Caption = #20844#21496#21517#31216
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -16
        Font.Name = #21326#25991#34892#26999
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object lbhttp: TLabel
        Left = 104
        Top = 85
        Width = 64
        Height = 17
        Caption = #20844#21496#21517#31216
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -16
        Font.Name = #21326#25991#34892#26999
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object lbaddress: TLabel
        Left = 104
        Top = 117
        Width = 64
        Height = 17
        Caption = #20844#21496#21517#31216
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -16
        Font.Name = #21326#25991#34892#26999
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Panel6: TPanel
        Left = 0
        Top = -232
        Width = 530
        Height = 237
        Align = alBottom
        BevelOuter = bvNone
        Color = clCream
        TabOrder = 0
        object DBGrid1: TDBGrid
          Left = 0
          Top = 0
          Width = 530
          Height = 237
          Align = alClient
          BorderStyle = bsNone
          Color = clCream
          DataSource = dsview
          FixedColor = clCream
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          OnTitleClick = DBGrid1TitleClick
          Columns = <
            item
              Expanded = False
              FieldName = 'Part_name'
              Title.Alignment = taCenter
              Title.Caption = #37096#38376#21517#31216
              Width = 100
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'phone'
              Title.Alignment = taCenter
              Title.Caption = #32852#31995#30005#35805
              Width = 80
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'fzr'
              Title.Alignment = taCenter
              Title.Caption = #20027#35201#36127#36131#20154
              Width = 80
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'yzbm'
              Title.Alignment = taCenter
              Title.Caption = #37038#25919#32534#30721
              Width = 80
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'storageid'
              Title.Alignment = taCenter
              Title.Caption = #31649#29702#20179#24211
              Width = 80
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'address'
              Title.Alignment = taCenter
              Title.Caption = #36890#20449#22320#22336
              Width = 200
              Visible = True
            end>
        end
      end
    end
  end
  object ImageList1: TImageList
    Left = 400
  end
  object dsygda: TDataSource
    DataSet = dmmain.CDSquery2
    Left = 416
    Top = 32
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 200
    OnTimer = Timer1Timer
    Left = 448
    Top = 32
  end
  object dsview: TDataSource
    DataSet = cdsdata
    Left = 112
    Top = 16
  end
  object cdsdata: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 200
    Top = 24
  end
end