unitcustomer.dfm

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

DFM
466 行
字号 
object formcustomerrequery: Tformcustomerrequery
  Left = 184
  Top = 66
  BorderStyle = bsDialog
  Caption = #38750#25151#23458#24080#21153#26597#35810
  ClientHeight = 452
  ClientWidth = 536
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = -1
    Width = 535
    Height = 452
    Caption = 'Panel1'
    TabOrder = 0
    object PageControl1: TPageControl
      Left = 1
      Top = 2
      Width = 538
      Height = 451
      ActivePage = TabSheet1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabIndex = 0
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = #38750#25151#23458#28040#36153#32467#24080#26597#35810
        object Panel2: TPanel
          Left = 0
          Top = -2
          Width = 529
          Height = 291
          Caption = 'Panel2'
          TabOrder = 0
          object DBGrid1: TDBGrid
            Left = 0
            Top = 1
            Width = 529
            Height = 284
            DataSource = DataSource1
            ReadOnly = True
            TabOrder = 0
            TitleFont.Charset = ANSI_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -14
            TitleFont.Name = #23435#20307
            TitleFont.Style = []
            Columns = <
              item
                Expanded = False
                FieldName = 'customername'
                Title.Caption = #39038#23458#22995#21517
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'checkornot'
                Title.Caption = #26159#21542#32467#24080
                Width = 91
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'totalfee'
                Title.Caption = #28040#36153#24635#37329#39069
                Width = 91
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'indebttime'
                Title.Caption = #20837#24080#26102#38388
                Width = 140
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'discount'
                Title.Caption = #25240#25187
                Width = 40
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'kalaok'
                Title.Caption = #21345#25289'OK'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'ballroom'
                Title.Caption = #27468#33310#21381#36153
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'commercecenter'
                Title.Caption = #21830#21153#20013#24515
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'suproom'
                Title.Caption = #21253#38388#28040#36153
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'supsecond'
                Title.Caption = #25955#24231#28040#36153
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'hairdressing'
                Title.Caption = #32654#23481#20013#24515
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'employeeid'
                Title.Caption = #25346#24080#21592#24037
                Width = 78
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'remark'
                Title.Caption = #22791#27880#20449#24687
                Visible = True
              end>
          end
        end
        object Panel4: TPanel
          Left = 0
          Top = 289
          Width = 529
          Height = 134
          Caption = 'Panel4'
          TabOrder = 1
          object GroupBox1: TGroupBox
            Left = 16
            Top = 3
            Width = 314
            Height = 126
            Caption = #26597#35810#26465#20214
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlue
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            object ed_debtusername: TEdit
              Left = 138
              Top = 28
              Width = 144
              Height = 22
              Font.Charset = ANSI_CHARSET
              Font.Color = clBlack
              Font.Height = -14
              Font.Name = #23435#20307
              Font.Style = []
              ParentFont = False
              TabOrder = 0
            end
            object StaticText2: TStaticText
              Left = 56
              Top = 32
              Width = 60
              Height = 18
              Caption = #39038#23458#22995#21517
              TabOrder = 1
            end
            object StaticText6: TStaticText
              Left = 55
              Top = 72
              Width = 74
              Height = 18
              Caption = #28040#36153#24635#37329#39069
              TabOrder = 2
            end
            object ed_totalredebt: TEdit
              Left = 138
              Top = 68
              Width = 144
              Height = 22
              Font.Charset = ANSI_CHARSET
              Font.Color = clBlack
              Font.Height = -14
              Font.Name = #23435#20307
              Font.Style = []
              ParentFont = False
              ReadOnly = True
              TabOrder = 3
            end
          end
          object StaticText4: TStaticText
            Left = 380
            Top = 18
            Width = 102
            Height = 18
            Caption = #27880#65306#26597#35810#38750#25151#23458
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlue
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 1
          end
          object StaticText1: TStaticText
            Left = 392
            Top = 40
            Width = 88
            Height = 18
            Caption = #28040#36153#32467#24080#24773#20917
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlue
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 2
          end
          object but_roomfeerequery: TButton
            Left = 394
            Top = 72
            Width = 81
            Height = 33
            Caption = ' '#26597' '#35810
            TabOrder = 3
            OnClick = but_roomfeerequeryClick
          end
        end
      end
      object TabSheet2: TTabSheet
        Caption = #38750#25151#23458#28040#36153#27424#24080#26597#35810
        ImageIndex = 1
        object Panel3: TPanel
          Left = -8
          Top = 0
          Width = 537
          Height = 289
          Caption = 'Panel3'
          TabOrder = 0
          object DBGrid2: TDBGrid
            Left = 7
            Top = -1
            Width = 537
            Height = 284
            DataSource = DataSource2
            ReadOnly = True
            TabOrder = 0
            TitleFont.Charset = ANSI_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -14
            TitleFont.Name = #23435#20307
            TitleFont.Style = []
            Columns = <
              item
                Expanded = False
                FieldName = 'customername'
                Title.Caption = #39038#23458#22995#21517
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'checkornot'
                Title.Caption = #26159#21542#32467#24080
                Width = 68
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'totalfee'
                Title.Caption = #28040#36153#24635#37329#39069
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'indebttime'
                Title.Caption = #20837#24080#26102#38388
                Width = 138
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'discount'
                Title.Caption = #25240#25187
                Width = 41
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'kalaok'
                Title.Caption = #21345#25289'OK'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'ballroom'
                Title.Caption = #27468#33310#21381#36153
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'commercecenter'
                Title.Caption = #21830#21153#20013#24515
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'suproom'
                Title.Caption = #21253#38388#28040#36153
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'supsecond'
                Title.Caption = #25955#24231#28040#36153
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'hairdressing'
                Title.Caption = #32654#23481#20013#24515
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'employeeid'
                Title.Caption = #25346#24080#21592#24037
                Width = 78
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'remark'
                Title.Caption = #22791#27880#20449#24687
                Visible = True
              end>
          end
        end
        object GroupBox2: TGroupBox
          Left = 12
          Top = 290
          Width = 314
          Height = 126
          Caption = #26597#35810#26465#20214
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          object ed_redebtcustomername: TEdit
            Left = 138
            Top = 28
            Width = 144
            Height = 22
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 0
          end
          object StaticText3: TStaticText
            Left = 56
            Top = 32
            Width = 60
            Height = 18
            Caption = #39038#23458#22995#21517
            TabOrder = 1
          end
          object StaticText5: TStaticText
            Left = 55
            Top = 72
            Width = 74
            Height = 18
            Caption = #28040#36153#24635#37329#39069
            TabOrder = 2
          end
          object ed_totaldebt: TEdit
            Left = 138
            Top = 68
            Width = 144
            Height = 22
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            ReadOnly = True
            TabOrder = 3
          end
        end
        object Button1: TButton
          Left = 392
          Top = 360
          Width = 81
          Height = 33
          Caption = ' '#26597' '#35810
          TabOrder = 2
          OnClick = Button1Click
        end
        object StaticText7: TStaticText
          Left = 392
          Top = 328
          Width = 88
          Height = 18
          Caption = #28040#36153#27424#36134#24773#20917
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 3
        end
        object StaticText8: TStaticText
          Left = 372
          Top = 306
          Width = 102
          Height = 18
          Caption = #27880#65306#26597#35810#38750#25151#23458
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 4
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = DMHotel.ADODataSet_customerRedebt_requery
    Left = 272
    Top = 112
  end
  object DataSource2: TDataSource
    DataSet = DMHotel.ADODataSet_customerdebt_requery
    Left = 328
    Top = 112
  end
end

unitcustomer.dfm - 源码说明

本页面展示了「自己做过的工程」中的 unitcustomer.dfm 源码文件，采用 DFM 编程语言编写，共 466 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与工程相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?