jzdhz.dfm

集成酒店桑拿食管管理的完整程序

object jzdhzForm: TjzdhzForm
  Left = 62
  Top = 61
  Width = 701
  Height = 481
  Caption = '部分单号汇总'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 185
    Top = 41
    Width = 3
    Height = 413
    Cursor = crHSplit
  end
  object Panel1: TPanel
    Left = 0
    Top = 41
    Width = 185
    Height = 413
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 0
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 185
      Height = 29
      Align = alTop
      BevelOuter = bvNone
      Caption = '需要汇总的帐单'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object Panel3: TPanel
      Left = 0
      Top = 29
      Width = 185
      Height = 37
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 1
      object Label1: TLabel
        Left = 9
        Top = 14
        Width = 48
        Height = 12
        Caption = '单号录入'
      end
      object jzdh: TEdit
        Left = 60
        Top = 9
        Width = 108
        Height = 20
        TabOrder = 0
        Text = 'jzdh'
        OnKeyPress = jzdhKeyPress
      end
    end
    object Panel4: TPanel
      Left = 0
      Top = 372
      Width = 185
      Height = 41
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 2
      object Label3: TLabel
        Left = 8
        Top = 16
        Width = 36
        Height = 12
        Caption = '共计：'
      end
      object Label4: TLabel
        Left = 94
        Top = 16
        Width = 12
        Height = 12
        Caption = '单'
      end
      object Button2: TButton
        Left = 112
        Top = 10
        Width = 68
        Height = 25
        Caption = '检测单号'
        TabOrder = 0
        OnClick = Button2Click
      end
      object dhhj: TEdit
        Left = 42
        Top = 11
        Width = 46
        Height = 20
        ReadOnly = True
        TabOrder = 1
        Text = 'dhhj'
      end
    end
    object dhmx: TStringGrid
      Left = 0
      Top = 66
      Width = 223
      Height = 306
      Align = alLeft
      Color = clInfoBk
      ColCount = 2
      Ctl3D = True
      DefaultColWidth = 140
      DefaultRowHeight = 25
      FixedColor = clMenu
      FixedCols = 0
      RowCount = 40
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine]
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 3
      OnDblClick = dhmxDblClick
      ColWidths = (
        108
        61)
    end
  end
  object Panel5: TPanel
    Left = 0
    Top = 0
    Width = 693
    Height = 41
    Align = alTop
    BevelOuter = bvNone
    Caption = '部分单号汇总'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -35
    Font.Name = '隶书'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
  end
  object Panel6: TPanel
    Left = 188
    Top = 41
    Width = 505
    Height = 413
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object Panel7: TPanel
      Left = 0
      Top = 372
      Width = 505
      Height = 41
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 0
      object Label2: TLabel
        Left = 5
        Top = 13
        Width = 60
        Height = 20
        Caption = '提示：'
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -20
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 56
        Top = 16
        Width = 7
        Height = 14
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlue
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Button3: TButton
        Left = 426
        Top = 12
        Width = 75
        Height = 25
        Caption = '结帐明细'
        TabOrder = 0
        OnClick = Button3Click
      end
    end
    object DBGrid1: TDBGrid
      Left = 0
      Top = 41
      Width = 505
      Height = 331
      Align = alClient
      Color = clInfoBk
      DataSource = DataSource1
      PopupMenu = PopupMenu1
      TabOrder = 1
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnDblClick = DBGrid1DblClick
    end
    object Panel8: TPanel
      Left = 0
      Top = 0
      Width = 505
      Height = 41
      Align = alTop
      BevelOuter = bvNone
      Caption = '结帐明细'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -21
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
    end
  end
  object Query1: TQuery
    DatabaseName = 'sanadm'
    Left = 140
    Top = 369
  end
  object Query2: TQuery
    DatabaseName = 'sanadm'
    Left = 412
    Top = 225
  end
  object DataSource1: TDataSource
    DataSet = Query2
    Left = 364
    Top = 225
  end
  object PopupMenu1: TPopupMenu
    Left = 448
    Top = 160
    object N1: TMenuItem
      Caption = ' 结帐明细'
      OnClick = N1Click
    end
  end
end