guestmanage.dfm.bak

实用的毛织生产管理系统

object guestmanagefm: Tguestmanagefm
  Left = 47
  Top = 110
  Width = 647
  Height = 536
  Caption = #23458#25142#36039#26009#31383#21475
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefault
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox2: TGroupBox
    Left = 0
    Top = 47
    Width = 639
    Height = 462
    Align = alClient
    Caption = #25976#25818#21312
    TabOrder = 0
    object DBGridEh1: TDBGridEh
      Left = 2
      Top = 15
      Width = 635
      Height = 445
      Align = alClient
      DataSource = guestdb
      FixedColor = clInfoBk
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -11
      FooterFont.Name = 'MS Sans Serif'
      FooterFont.Style = []
      ParentFont = False
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'Arial'
      TitleFont.Style = []
      OnDblClick = DBGridEh1DblClick
      OnKeyPress = DBGridEh1KeyPress
      Columns = <
        item
          EditButtons = <>
          FieldName = 'kfjz'
          Footers = <>
          MaxWidth = 80
          MinWidth = 80
          Title.Caption = #23458#25142#31777#31281
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'kfnm'
          Footers = <>
          MaxWidth = 100
          MinWidth = 100
          Title.Caption = #23458#25142#20840#31281
          Width = 100
        end
        item
          EditButtons = <>
          FieldName = 'kfdate'
          Footers = <>
          MaxWidth = 80
          MinWidth = 80
          Title.Caption = #24314#27284#26085#26399
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'kfaddress'
          Footers = <>
          MaxWidth = 100
          MinWidth = 100
          Title.Caption = #22320#22336
          Width = 100
        end
        item
          EditButtons = <>
          FieldName = 'kfpos'
          Footers = <>
          MaxWidth = 60
          MinWidth = 60
          Title.Caption = #37109#32232
          Width = 60
        end
        item
          EditButtons = <>
          FieldName = 'kflink'
          Footers = <>
          MaxWidth = 60
          MinWidth = 60
          Title.Caption = #32879#32363#20154
          Width = 60
        end
        item
          EditButtons = <>
          FieldName = 'kftel'
          Footers = <>
          MaxWidth = 60
          MinWidth = 60
          Title.Caption = #38651#35441
          Width = 60
        end
        item
          EditButtons = <>
          FieldName = 'kfmobil'
          Footers = <>
          MaxWidth = 60
          MinWidth = 60
          Title.Caption = #25163#27231' '
          Width = 60
        end
        item
          EditButtons = <>
          FieldName = 'kffax'
          Footers = <>
          MaxWidth = 60
          MinWidth = 60
          Title.Caption = #20659#30495
          Width = 60
        end
        item
          EditButtons = <>
          FieldName = 'kfemail'
          Footers = <>
          MaxWidth = 60
          MinWidth = 60
          Title.Caption = #38651#23376#37109#31665
          Width = 60
        end
        item
          EditButtons = <>
          FieldName = 'kfhomepage'
          Footers = <>
          MaxWidth = 60
          MinWidth = 60
          Title.Caption = #32178#22336
          Width = 60
        end>
    end
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 639
    Height = 47
    Align = alTop
    Caption = #26597#35426#27396
    TabOrder = 1
    DesignSize = (
      639
      47)
    object Label1: TLabel
      Left = 8
      Top = 24
      Width = 24
      Height = 13
      Caption = #31777#31281
    end
    object Label2: TLabel
      Left = 141
      Top = 24
      Width = 36
      Height = 13
      Caption = #32879#32363#20154
    end
    object Label3: TLabel
      Left = 485
      Top = 28
      Width = 3
      Height = 13
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Edit1: TEdit
      Left = 33
      Top = 16
      Width = 97
      Height = 21
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 178
      Top = 16
      Width = 97
      Height = 21
      TabOrder = 1
    end
    object DateTimePicker1: TDateTimePicker
      Left = 352
      Top = 16
      Width = 97
      Height = 21
      Date = 37738.000000000000000000
      Time = 37738.000000000000000000
      Enabled = False
      TabOrder = 2
    end
    object CheckBox1: TCheckBox
      Left = 279
      Top = 19
      Width = 69
      Height = 17
      Caption = #24314#27284#26085#26399
      TabOrder = 3
      OnClick = CheckBox1Click
    end
    object Button1: TButton
      Left = 451
      Top = 11
      Width = 46
      Height = 30
      Anchors = [akLeft]
      Caption = #26597#35426
      TabOrder = 4
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 496
      Top = 11
      Width = 46
      Height = 30
      Caption = #26032#22686
      TabOrder = 5
      OnClick = N1Click
    end
    object Button3: TButton
      Left = 541
      Top = 11
      Width = 46
      Height = 30
      Caption = #20445#23384
      TabOrder = 6
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 587
      Top = 11
      Width = 46
      Height = 30
      Caption = #21462#28040
      TabOrder = 7
      OnClick = Button4Click
    end
  end
  object guestqy: TQuery
    CachedUpdates = True
    AfterOpen = guestqyAfterOpen
    BeforeInsert = guestqyBeforeInsert
    AfterInsert = guestqyAfterInsert
    BeforeEdit = guestqyBeforeEdit
    BeforePost = guestqyBeforePost
    AfterPost = guestqyAfterPost
    AfterDelete = guestqyAfterOpen
    OnPostError = guestqyPostError
    DatabaseName = 're_data'
    Left = 352
    Top = 32
  end
  object guestdb: TDataSource
    DataSet = guestqy
    Left = 392
    Top = 24
  end
  object PopupMenu1: TPopupMenu
    AutoHotkeys = maManual
    Left = 128
    Top = 312
    object N1: TMenuItem
      Caption = #26032#22686
      OnClick = N1Click
    end
    object N3: TMenuItem
      Caption = #21034#38500
      OnClick = N3Click
    end
  end
end