Measure/Forms/SetGuestFrm.dfm

object SetGuestForm: TSetGuestForm
  Left = 986
  Top = 309
  BorderStyle = bsDialog
  Caption = #35774#32622#26631#27573#20851#27880#20154
  ClientHeight = 450
  ClientWidth = 504
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = #24494#36719#38597#40657
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  PixelsPerInch = 96
  TextHeight = 20
  object btnAdd: TButton
    Left = 8
    Top = 5
    Width = 97
    Height = 29
    Caption = #28155#21152#20851#27880#20154
    TabOrder = 0
    OnClick = btnAddClick
  end
  object zgGuest: TZJGrid
    Left = 8
    Top = 39
    Width = 489
    Height = 378
    Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection]
    OptionsEx = []
    ColCount = 4
    RowCount = 6
    ShowGridLine = False
    DefaultColWidth = 73
    DefaultFixedRowHeight = 25
    DefaultRowHeight = 23
    Selection.AlphaBlend = False
    Selection.TransparentColor = False
    FrozenCol = 0
    FrozenRow = 0
    OnCellGetFont = zgGuestCellGetFont
    OnMouseDown = zgGuestMouseDown
  end
  object btnOK: TButton
    Left = 418
    Top = 420
    Width = 75
    Height = 25
    Caption = #30830#23450
    ModalResult = 1
    TabOrder = 2
  end
  object zaGuest: TZjGridDBA
    Columns = <
      item
        Title.Caption = #22995#21517
        Title.CaptionAcrossCols = '1'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -15
        Title.Font.Name = #24494#36719#38597#40657
        Title.Font.Style = []
        Alignment = taCenter
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #24494#36719#38597#40657
        Font.Style = []
        FieldName = 'Name'
        ReadOnly = True
      end
      item
        Title.Caption = #36134#21495
        Title.CaptionAcrossCols = '1'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -15
        Title.Font.Name = #24494#36719#38597#40657
        Title.Font.Style = []
        Alignment = taLeftJustify
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #24494#36719#38597#40657
        Font.Style = []
        FieldName = 'Account'
        Width = 200
        ReadOnly = True
      end
      item
        Title.Caption = #25805#20316
        Title.CaptionAcrossCols = '1'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -15
        Title.Font.Name = #24494#36719#38597#40657
        Title.Font.Style = []
        Alignment = taCenter
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #24494#36719#38597#40657
        Font.Style = []
        FieldName = 'Operate'
        ReadOnly = True
      end>
    DataSet = cdsGuest
    Grid = zgGuest
    ExtendRowCount = 5
    Left = 352
    Top = 104
  end
  object cdsGuest: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 384
    Top = 104
    Data = {
      760000009619E0BD010000001800000004000000000003000000760002494404
      00010000000000044E616D6501004A0000000100055749445448020002002800
      074163636F756E7401004A000000010005574944544802000200C800074F7065
      7261746501004A00000001000557494454480200020028000000}
    object cdsGuestID: TIntegerField
      FieldName = 'ID'
    end
    object cdsGuestName: TWideStringField
      FieldName = 'Name'
    end
    object cdsGuestAccount: TWideStringField
      FieldName = 'Account'
      Size = 100
    end
    object cdsGuestOperate: TWideStringField
      FieldName = 'Operate'
    end
  end
end