unitsupcheck.dfm

来自「自己做过的工程」· DFM 代码 · 共 381 行

object formsupcheck: Tformsupcheck
  Left = 76
  Top = 100
  BorderStyle = bsDialog
  Caption = #32467#36134
  ClientHeight = 403
  ClientWidth = 651
  Color = clBtnFace
  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 Panel1: TPanel
    Left = 0
    Top = 0
    Width = 464
    Height = 403
    Align = alClient
    BorderStyle = bsSingle
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object PageControl1: TPageControl
      Left = 4
      Top = 6
      Width = 450
      Height = 387
      ActivePage = TabSheet1
      TabIndex = 0
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = #25346#24080#25910#38134
        object Label1: TLabel
          Left = 24
          Top = 16
          Width = 126
          Height = 14
          Caption = #35831#36755#20837#23601#39184#35760#24405#21495#65306
        end
        object Label4: TLabel
          Left = 56
          Top = 265
          Width = 84
          Height = 14
          Caption = #28040#36153#24635#37329#39069#65306
        end
        object Label5: TLabel
          Left = 312
          Top = 266
          Width = 14
          Height = 14
          Caption = #20803
        end
        object ed_sdid: TEdit
          Left = 152
          Top = 11
          Width = 145
          Height = 22
          TabOrder = 0
        end
        object but_findrecord: TButton
          Left = 338
          Top = 11
          Width = 75
          Height = 25
          Caption = #26597#25214#35760#24405
          TabOrder = 1
          OnClick = but_findrecordClick
        end
        object DBGrid1: TDBGrid
          Left = 4
          Top = 50
          Width = 431
          Height = 199
          DataSource = DataSource1
          TabOrder = 2
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -14
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'scdid'
              Title.Caption = #35760#24405#21495
              Width = 57
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'supuserid'
              Title.Caption = #23601#39184#21495
              Width = 59
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'supclass'
              Title.Caption = #37202#33756#31867#21035
              Width = 89
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'supname'
              Title.Caption = #37202#33756#21517#31216
              Width = 102
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'supprice'
              Title.Caption = #20215#26684
              Width = 54
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'supunit'
              Title.Caption = #21333#20301
              Width = 51
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'supno'
              Title.Caption = #25968#37327
              Width = 54
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'supmoney'
              Title.Caption = #24635#37329#39069
              Width = 60
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'EXPR1'
              Title.Caption = #25805#20316#21592#32534#21495
              Width = 81
              Visible = True
            end>
        end
        object ed_totalfee: TEdit
          Left = 144
          Top = 262
          Width = 153
          Height = 22
          ReadOnly = True
          TabOrder = 3
        end
        object Panel4: TPanel
          Left = 0
          Top = 296
          Width = 442
          Height = 62
          Align = alBottom
          BorderStyle = bsSingle
          TabOrder = 4
          object but_cash: TButton
            Left = 48
            Top = 16
            Width = 81
            Height = 33
            Caption = #32467#36134
            Enabled = False
            TabOrder = 0
            OnClick = but_cashClick
          end
          object but_sign: TButton
            Left = 173
            Top = 16
            Width = 81
            Height = 33
            Caption = #25346#24080
            Enabled = False
            TabOrder = 1
            OnClick = but_signClick
          end
          object Button1: TButton
            Left = 298
            Top = 16
            Width = 81
            Height = 33
            Caption = #36864#20986
            TabOrder = 2
            OnClick = Button1Click
          end
        end
      end
    end
  end
  object Panel2: TPanel
    Left = 464
    Top = 0
    Width = 187
    Height = 403
    Align = alRight
    BorderStyle = bsSingle
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Label3: TLabel
      Left = 248
      Top = 8
      Width = 42
      Height = 14
      Caption = 'Label3'
    end
    object Label2: TLabel
      Left = 8
      Top = 256
      Width = 63
      Height = 14
      Caption = #25151#38388#32534#21495':'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 6
      Top = 302
      Width = 36
      Height = 12
      Caption = #35828#26126#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 8
      Top = 326
      Width = 168
      Height = 12
      Caption = #22914#26524#26159#29616#37329#28040#36153#65292#21017#22312#27492#32467#36134#12290
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 6
      Top = 350
      Width = 180
      Height = 12
      Caption = #31614#21333#28040#36153#21017#25346#24080#65292#32479#19968#22312#24635#21488#32467#12290
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 15
      Top = 174
      Width = 56
      Height = 14
      Caption = #25240#25187#25968#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object GroupBox1: TGroupBox
      Left = 11
      Top = 24
      Width = 153
      Height = 121
      Caption = #32467#36134#26041#24335
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object rbut_cash: TRadioButton
        Left = 24
        Top = 32
        Width = 113
        Height = 17
        Caption = #29616#37329#28040#36153
        Checked = True
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlue
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        TabStop = True
        OnClick = rbut_cashClick
      end
      object rbut_sign: TRadioButton
        Left = 25
        Top = 72
        Width = 113
        Height = 17
        Caption = #31614#21333#28040#36153
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlue
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = rbut_signClick
      end
    end
    object cbox_isroomer: TCheckBox
      Left = 37
      Top = 222
      Width = 97
      Height = 17
      Caption = #37202#24215#25151#23458
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = cbox_isroomerClick
    end
    object ed_roomno: TEdit
      Left = 72
      Top = 251
      Width = 89
      Height = 22
      Enabled = False
      TabOrder = 2
    end
    object ed_discount: TEdit
      Left = 72
      Top = 170
      Width = 89
      Height = 22
      Enabled = False
      TabOrder = 3
      Text = '10'
      OnExit = ed_discountExit
    end
  end
  object DataSource1: TDataSource
    DataSet = DMHotel.ds_sup_consume_detail_query
    Left = 328
    Top = 16
  end
end